5 ON ERROR GOTO 150
10 MODE 2:INK 0,0:BORDER 0:INK 1,26:PEN 1 20 WINDOW#1,1,80,1,1:WINDOW 1,80,2,25 30 PRINT#1,CHR$(22);CHR$(1):LOCATE#1,1,1:PRINT#1,"ASCII-LOADER --- "CHR$(164)"1990 by Bastian Felske":LOCATE#1,1,1:PRINT#1,STRING$(79,"_") 40 LOCATE 1,2:PRINT"Filename: ":LOCATE 11,2:INPUT"",fil$:IF fil$="" THEN CLS:CAT:GOTO 40 ELSE 50 50 IF LEN(fil$)>12 THEN CLS:GOTO 40 60 CLS:PEN 0:OPENIN fil$:PEN 1 70 a=1 80 FOR i=1 TO 50000 90 INPUT#9,a$ 100 PRINT CHR$(1)+a$ 110 a=a+1 120 IF a>23 THEN a=1:CALL &BB06 130 NEXT 140 CALL &BB06:CLS:RUN 150 IF ERR=24 THEN GOTO 140 160 PEN 1:LOCATE 1,2:PRINT CHR$(7)"Fehlerhafte Ladung! --> [TASTE]" 170 CALL &BB06:RUN |