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