10 POKE56,30:CLR:POKE251,0:POKE254,0
20 MC=4096:SP=7680:D$=""
30 SYSMC:SYSMC+24
960 OPEN1,8,15:OPEN2,0
1000 PRINT""TAB(13)"
1010 PRINTTAB(10)"
1020 PRINT"
1030 PRINT"
1040 PRINT"
1050 PRINT"
1052 PRINT"
1054 PRINT"";
1056 IFPEEK(254)=0THENPRINT""
1058 IFPEEK(254)<>0THENPRINT""SL
1060 WAIT198,1:GETA$
1070 IFA$<>""THEN1220
1080 SYSMC+15:SYSMC+18
1210 GOTO1000
1220 IFA$<>""THEN1340
1230 PRINT"
1240 PRINT"
1250 PRINT"
1260 PRINT"
1265 A=PEEK(251):IFA>127THENA=A−256
1270 PRINT""A:PRINT"";:INPUT#2,X$:X=VAL(X$)
1280 IFABS(X)>127 THEN1230
1290 IFX<0THENX=256+X
1300 POKE251,X:GOTO1000
1340 IFA$<>""THEN1540
1350 PRINT"";:INPUT#2,FT$:PRINT
1355 FT=VAL(FT$):IFFT<1ORFT>40THEN1350
1360 PRINT"";:INPUT#2,LT$:PRINT
1370 LT=VAL(LT$)
1380 IFLT<1ORLT>40ORFT>LTTHEN1350
1385 SYSMC+15
1390 GOSUB2110
1410 SYSMC+3
1420 AN=0:GOTO1450
1430 AN=0:GOSUB2110:SYSMC+27
1450 POKE252,FT:POKE253,32+32*AN:SYSMC+6
1460 FT=FT+1:AN=AN+1
1470 IF(FT<=LT)AND(AN<5)THEN1450
1480 POKE53265,27:GOSUB2100
1490 J=0:FORI=FT−ANTOFT−1
1500 POKE252,I:POKE253,32+32*J:SYSMC+9
1502 IFPEEK(255)=0THEN1510
1503 POKE53265,27:GOSUB2120
1504 IFX$=""THENSYSMC+30:GOTO1000
1506 IFX$=""THENSYSMC+12:GOTO1502
1508 IFX$<>""THEN1503
1510 J=J+1:NEXT:POKE53265,27
1520 IFFT<=LT THEN1430
1525 SYSMC+30
1530 A$="":GOSUB2130:GOTO1000
1540 IFA$<>""THEN1990
1550 A=255ANDNOTPEEK(254):POKE254,A
1560 IFA=0THEN1000
1570 INPUT "";SL
1580 POKE4537,(SL−32768)AND255
1590 POKE4541,SL/256
1600 GOTO1000
1990 IFA$<>""THEN1060
2010 INPUT"";T:S$=CHR$(PEEK(SP−1+T))
2015 PRINT#1,""CHR$(0)""
2020 PRINT#1,""CHR$(106)CHR$(0)CHR$(1)CHR$(133)
2030 FORJ=0TO20:PRINT""J:PRINT#1,""CHR$(T)CHR$(J)S$
2040 INPUT#1,A,A$,B,C
2050 IFATHENPRINT""A;""A$;B;C:PRINT
2060 NEXT:CLOSE3
2070 PRINT#1,""CHR$(106)CHR$(0)CHR$(1)CHR$(5)
2080 WAIT198,1:GETX$:GOTO1000
2100 A$=""+D$:GOTO2130
2110 A$=""+D$:GOTO2130
2120 A$="":GOTO2130
2130 PRINT""TAB(11)""A$:SYSMC+21:X$=CHR$(PEEK(2)):RETURN
READY.
