1000 RUN1040PRODUB
1010 BY PROLOGIC
1020 AT 851007
1040
1050 DF=08:DT=08
1060 T$="
1070 POKE788,52:T$=T$+"
1080 PRINT:PRINT"
1090 PRINT"":O=4398:K=15
1100 PRINT"":PRINT"
1110 PRINT"
1120 PRINT"":PRINT"
1130 PRINT"":WAIT203,64
1140 POKE198,0:WAIT203,63:GETF$:D=DT
1150 F=VAL(F$):IFF>0ANDF<4THEN1190
1160 IFF$<""ORF$>""GOTO1180
1170 D=PEEK(512):SYS4299:WAIT203,63:RUN
1180
1190 PRINT""CHR$(142)SPC(5)"
1200 PRINTSPC(5)"":PRINT"";
1210 PRINTCHR$(48+F)""DF""D
1220 ON−(F=3)GOTO1590:PRINT"";
1230 PRINT"
1240 POKE9,−(F=2)*128:T=1:S=0:GOTO1260
1250 IFT=PEEK(10)GOTO1540
1260 PRINT"";
1270 PRINT"";
1280 RW=0:D=DF:GOSUB1330
1290 PRINT,"",,"";
1300 RW=128:D=DT:GOSUB1330
1310 T=PEEK(78):S=PEEK(79)+1:GOTO1250
1320
1330 WAIT653,2,(DF<>DT)*−2:POKE139,19
1340 PRINT"":POKE78,T:POKE79,S
1350 POKE2,RW:SYSO,K,D,K,S$
1360 SYSO,2,D,2,"":SYS4000:CLOSE2
1370 IFPEEK(140)=0THENCLOSEK:RETURN
1380
1390 INPUT#K,P,F$,X,Y
1400 CLOSEK:PRINT"
1410 PRINT""P+10*PEEK(140);
1420 PRINT""F$:PRINT""X""Y
1430 POKE198,0:X=PEEK(142):Y=PEEK(143)
1440 PRINT"";:P=PEEK(139)
1450 PRINT,"","
1460 WAIT203,63:GETF$:J=VAL(F$)
1470 ONJGOTO1490,1480,1540:GOTO1460
1480 Y=Y+1:P=P+1
1490 POKE78,X:POKE79,Y:POKE139,PAND255
1500 FORJ=1TO5−2*(F=3):POKE782,39
1510 SYS59908:PRINT"";:NEXT
1520 PRINT"":IFP>255THENRETURN
1530 ON1−(F=3)GOTO1350,1600
1540 SYSO,K,D,K,"":CLOSEK:RUN
1550
1560 PRINT"";:F$="
1570 SYS4192F$:PRINT"";:POKE140,0
1580 SYSO,K,D,K,S$:SYS(I)F$,D:GOTO1370
1590 D=DF:I=4038
1600 GOSUB1560:D=DT:I=4225:GOTO1600
READY.
