home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Computer Club 13
/
Commodore_Computer_Club_13_19xx_-_es.d64
/
directorio
(
.txt
)
next >
Wrap
Commodore BASIC
|
2022-10-26
|
610b
|
25 lines
10 poke53280,0:poke53281,0
50 print"[147]"
100 print " rutina basic para leer el directorio"
150 print"[158] la subrutina que comienza en la "
170 print" linea 900 permite leer el directorio"
200 print" de un disco sin borrar el programa"
250 print" que haya en memoria."
300 print"[154] pulsa una tecla."
400 geta$:ifa$=""then400
500 print "[147][155]"
900 rem **** subrutina de lectura ****
910 print" directorio"
920 open3,8,0,"$0"
925 get#3,a$,a$
930 get#3,a$,a$,bl$,bh$
940 ifa$=""thenclose3:end
950 bl$=bl$+chr$(0)
955 bh$=bh$+chr$(0)
960 print256*asc(bh$)+asc(bl$);
970 poke781,3:sys65478
980 sys65487:sys65490
990 ifpeek(780)<>0then980
995 print:sys65484
999 goto930