0 POKE56,16:CLR
5 X=164:Y=166:M$="
10 INPUT"";N$
20 OPEN2,8,2,N$+""
22 POKE167,255
24 GET#2,X$:A$=CHR$(PEEK(X)):IFSTTHEN500
26 GET#2,X$:A$=A$+CHR$(PEEK(X)):IFSTTHEN500
30 SYS2896
35 A$=A$+CHR$(PEEK(174))
37 A$=A$+CHR$(PEEK(175)−19):CLOSE2
40 PRINT"
50 WAIT198,1:GETX$:OPEN1,8,15,"
60 OPEN2,8,2,"
70 PRINT#1,M$;0
80 PRINT#1,"
90 GET#2,B$:POKEY,PEEK(X):GOSUB250
100 SYS2899
110 PRINT#1,M$;0
120 PRINT#1,"
130 PRINT#2,CHR$(PEEK(Y)+1−(PEEK(Y)=17));
140 GET#2,X$:A=PEEK(X)
150 PRINT#1,"
160 PRINT#2,CHR$(A+1);
170 PRINT#1,"
180 S=INT(A/8):P=(A−S*8)*32+2
190 PRINT#1,M$;S+1
200 PRINT#1,""P
210 PRINT#2,""LEFT$(N$+"",16)B$CHR$(PEEK(Y))CHR$(PEEK(167))A$;
220 PRINT#1,""S+1
230 CLOSE2:CLOSE1
240 END
250 A=ASC(B$):GET#2,X$:IFPEEK(X)>23THENA=41
260 B=PEEK(175)−19
270 IFPEEK(174)<>0THENB=B+1
275 IFA>40THENPRINT"":CLOSE1:CLOSE2:GOTO40
280 B=B−16
290 IFA<31THENB=B−1
300 IFA<25THENB=B−1
310 IFA<18THENB=B−2
320 IFB<=0THENRETURN
330 A=A+1:GOTO275
500 PRINT"":::
READY.
