1 PRINT"{clear}{$d9}OU {$cd}{$d5}{$d3}{$d4} HAVE THE {$d3}{$c1}{$cd} PROGRAM INCLUDING THE {$d2}{$c5}{$c3}{$c9}{$d4}{$c5}{$d2} LOADED";
2 PRINT" BEFORE LOADING AND RUNNING THIS PROGRAM."
3 PRINT"{$c9}F YOU HAVEN'T LOADED {$d3}{$c1}{$cd} YET PLEASE DO SO THEN RE-LOAD AND RUN THIS PROGRAM"
4 PRINT"{down:4}{$d0}USH {$c1}{$ce}{$d9} KEY TO CONTINUE OR {$d2}{$d5}{$ce}/{$d3}{$d4}{$cf}{$d0} TO STOP AND LOAD {$d3}{$c1}{$cd}."
5 GET US$:IFUS$=""THEN5
6 REM US$=USER INPUT FOR GENERAL QUESTIONS S$=SENTENCE L$=LETTER
7 REM F$=FILENAME TO BE READ
8 REM A,B$,C,D RESERVED FOR DISK DRIVE ERRORS
9 US$="":A=0:B$="":C=0:D=0:F$=""
10 POKE39438,70:POKE39439,100:POKE39440,1
20 POKE53280,0:POKE53281,0:POKE646,7:PRINTCHR$(14)
100 INPUT"{clear}FILENAME PLEASE";F$
150 OPEN15,8,15:OPEN5,8,5,"0:"+F$+",S,R"
155 INPUT#15,A,B$,C,D:IFA>20THENPRINT"DISK ERROR:":PRINTA,B$,C;D:GOTO1000
300 GET#5,L$:
310 IFL$="." OR L$="?"ORL$="!"ORL$=","ORLEN(S$)>253THEN GOSUB2000
315 S$=S$+L$
320 IFST=64THENSF=1:CLOSE5:CLOSE15:GOTO2000
330 GOTO300
1000 PRINT"{down:2}PRESS {rvrs on}ANY KEY{rvrs off} TO CONTINUE"
1020 GETUS$:IFUS$=""THEN1020
1030 PRINT"{down}                 {rvrs on}T{rvrs off} RY AGAIN{down}"
1040 PRINT"                 {rvrs on}S{rvrs off} TOP"
1050 GETUS$:IFUS$=""THEN1050
1060 IFUS$="T"THENRUN
1070 IFUS$="S"THENEND
1080 GOTO1050
2000 IFSF=1THENPRINTS$;:SA$=S$:SYS39430:GOTO1000
2010 PRINTS$;:SA$=S$:SYS39430:S$="":SA$="":FORX=0TO200:RETURN
4999 STOP
5000 CLOSE15:CLOSE5:OPEN15,8,15,"S0:FILE TALKER":SAVE"FILE TALKER",8
5010 VERIFY"FILE TALKER",8
5999 END
8999 STOP
