10 GOSUB200
20 END
30 :
31 :
90 REM *****************
91 REM * ZEICHEN LESEN *
92 REM *****************
93 :
100 GET#1,A$
110 IFA$=""THENA=0:RETURN
120 A=ASC(A$):RETURN
130 :
131 :
190 REM **********************
191 REM * DIRECTORY ANZEIGEN *
192 REM **********************
193 :
200 PRINT"[147]";:OPEN1,8,0,"$"
210 FORI=1TO4:GET#1,A$:NEXT
215 :
220 GOSUB100:BL=A
230 GOSUB100:BL=BL+256*A
240 PRINT BL;
250 GET#1,A$:PRINTA$;
260 IFA$<>""THEN250
270 PRINT
280 FORI=1TO2:GET#1,A$:NEXT
290 IFST=0THEN220
300 CLOSE1
310 RETURN