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