63993 INPUT"FILENAME";F$:OPEN1,8,0,(F$)
63994 GET#1,A$:B$=B$+A$:IF ST=0ANDA$<>CHR$(13)THEN 63994
63995 IFB$=CHR$(13)THEN B$="":GOTO63994
63996 PRINTCHR$(147)B$:PRINT"GOTO63998"
63997 POKE631,19:POKE632,13:POKE633,13:POKE634,13:POKE635,13:POKE198,5:END
63998 B$="":IFST=0THENPOKE152,1:GOTO63994
63999 CLOSE1:END