Interaktivne rozsirenie DI

File Info

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