Pre tych z vas, ktori casto vyuzivaju utilitku DI (disk info) na viac diskov a radi by nejake jednoduchsie ovladanie, je tu Info, interaktivne rozirenie pre utilitku DI. Toto interaktivne rozsirenie vam pohodlne umozni nastavit si disk a adresar ktory ma byt zobrazeny v DI. Zaujimavostou tejto utilitky je to ze je cela napisana v basicu bez pouzitia strojaku. Velmi pekne demostruje pouzitie basicoveho rozhrania pre ovladanie dosu a moznosti upravenej BS romky. |
Vypis basicu utilitky vyzera nejak takto:
10
REM 13.03.1993 Busy soft
11
LET dra=FN @: LET dia=FN $
12
LET dre=dra: LET die=dia
13
POKE 23658,0: LET t=%5b00
20
CLS : PRINT '" Interaktivne rozsirenie pre ""di"" - disk info utilitku "
40
PRINT ''" HORE,DOLE,D = zmena disku"'" VLAVO,PRAVO,A = zmena adresara"''" Enter = zavolanie ""di"""'" R=48k reset, E=128k reset"'" S=pozerana cesta bude aktualna"
50
AT 14,1;"Aktualna cesta: drv=";dra;",dir=";dia," Pozerana cesta: drv=";dre;",dir=";die,
60
PAUSE : LET z$=INKEY$
66
BEEP .01,40
70
IF CODE z$=8 THEN POKE t,die-1: LET die=PEEK t
80
IF CODE z$=9 THEN LET die=(die+1)*(die<255)
90
IF CODE z$=10 THEN LET dre=(dre-256)*(dre>1)+255
100
IF CODE z$=11 THEN LET dre=(dre+1)*(dre<255)
110
IF z$="s" THEN LET dia=die: LET dra=dre:@dra:$dia
111
IF z$="e" THEN ^
120
IF z$="r" THEN NEW
130
IF CODE z$=13 THEN @dre:$die: NEW "di":@dra:$dia: GO TO 20
140
IF z$="d" THEN INPUT "drv=";dre
150
IF z$="a" THEN INPUT "dir=";die
200
GO TO 50