10 REM * "[211]IMPLE FILE READER BY [195]HUCK"
20 POKE53280,0:POKE53281,0
30 S$=CHR$(32):R$=CHR$(13):Q$=CHR$(34)
40 PRINT"[147]":PRINTCHR$(14)
50 PRINT"[154][211]IMPLE [198]ILE [210]EADER"
60 PRINT"[154]     [194]Y [195]HUCK     "
70 F$="0":F=0:PRINTR$:INPUT"[150][215]HICH DRIVE ";DR
80 IFDR<8ORDR>15THEN240:(null)GOSUB230:IFSTTHEN240
90 PRINT:INPUT"[159][198]ILENAME ";NA$
100 PRINT:INPUT"[159][198]AST OR [211]LOW ([198]/S)";F$
110 F=ASC(F$):IFF=198ORF=70THENF=0
120 CLOSE15:OPEN15,DR,15:OPEN2,DR,2,"0:"+NA$+",?,R":INPUT#15,A,B$:PRINT
130 IFATHENPRINT"[156]"Q$B$Q$:PRINT:GOTO200
140 PRINT"[153] [208]RESS [211]PACE TO [197]ND [204]ISTING [159]":IFF=0THENPRINT:GOTO170
150 IFFTHENGET#2,A$:GETB$:IFB$=S$THENPRINT:GOTO200
160 PRINTA$;:IFSTTHEN200
162 GOTO150
170 INPUT#2,A$:GETB$:IFB$=S$THEN200
180 IFA$=R$THENPRINT:PRINTA$
182 PRINTA$
190 IFSTTHEN200
192 GOTO170
200 CLOSE2:CLOSE15:PRINT:INPUT"[159][210]EAD [193]NOTHER [198]ILE ([217]/N)";B$
210 IFB$="[217]"ORB$="Y"ORB$=R$THEN70
220 IFB$="[206]"ORB$="N"THENEND:ELSEGOTO200
230 CLOSE15:OPEN15,DR,15:CLOSE15:RETURN
240 PRINTR$"[196]EVICE [206]OT [208]RESENT":GOTO70