5 IF A=1THEN30
10 POKE53281,6:POKE53280,6:POKE646,1
15 PRINT"[147][201]NSERT DISK WITH [212]EXT [210]EADER PROGRAM.":GOSUB100
20 IFA=0THENA=1:LOAD"TEXT READER",8,1
30 PRINT"[147][206]OW INSERT DISK WITH FILE TO READ."
40 INPUT"[206]AME OF FILE TO READ";F$
42 IF F$=""THEN99
45 F=49153:FL=49170:FORI=820TO1023:POKEI,0:NEXT
50 FORI=1TOLEN(F$):POKEI+F,ASC(MID$(F$,I,1)):NEXT
55 POKEFL,LEN(F$)+2
60 SYS49171
70 PRINT"[147][215]ANT TO READ ANOTHER FILE? ([217]/[206])":GOSUB105
75 IF W$<>"Y"THEN 99
80 GOTO 30
99 END
100 PRINT" -- [208]RESS ANY KEY WHEN READY --  "
105 GETW$:IF W$=""THEN105
110 RETURN