Robot

747

Trisstick

search for “opus” and “Robotech” to yield results

1600 POKE BF,A:POKE BF,41.128/AA AND 25g
.1610 POKEGP.ASC("-"):Z=USR(0):POKGP.ASC("c"
"6
1'"20 FOR B=1 TO 20:NEXT B.
-30 FOR S=1 TO N:BF=13*256
6
1640 POKE BF-.1.50:POKE BF.2:POKE
1650 FOR A=1 TO 40:IF IEK(GP4A))A2 THEN 1670
1660 POKEGP+A.ASG("-"):Z=USR(0):NEXT:STOP
1670 FOR B=0 TO 4:X=47-5*WR+1)-5*R:Y=R*54-B*1
1680 SCREEN X.Y:PRINT D$;:NEXT B
1690 BF=13*256:FOR C=20 TO 1 STEP -1:
1700 POKE UF.C:POU BF-1-1.50/C:BF=BF-1-2:NEXT
1710 DOKE BF.0:Z=USR(0)
1720 FOR B=0 TO 4:X=47-5*N(R+1)-5*R:Y=R*54-B+1
1730 SCREEN X.Y:PRINT 3$;:NEXT B
1740 FOR B=110A:POKE GP+E032:NEXT.
1750 N(R+1)=N(R+1)-1:NEXT S:POKE GP.32
1760 FOR A=1 TO 1000:NEXT
1770 FOR A=3 TO 0 STEP -1:X1=A1tA.0)
1780 Y1=A1(6.1)+R*15:X2=A2(A.0):Y2=A2(A.1)+R*15
1790 RESET(X20
1800 H=0:GOTO 1410
1
28)1:0 SGOTO
ET(1X8I1.0Y1):
1N8E20XSC
TREEN10.7
1830 PRINT
1840 FOR Y=3 TO I STEP -1:FOR X=1 TO N(Y)
1850 FOR A=0 TO 4:SCR1-EN52-5*X-5401.5*Y-54-A*1
1860 PRINTA$ (A);:NEXT A.X,Y:RETURN
1870 CLS:PRINT"This is like the 7.5,3 match";
1880 PRINT"sticks9arue."
1890 PRINT"It consists of 3 rows of robots."
1900 PRINT"The object is to shoot the last";
1910 PRINT"robot."
1920 PRINT"You choose how many to shoot from";
1930 PRINT"any row by"
1940 PRINT"Type in the row number (1,2 or 3)"
1950 PRINT"then how many to shoot from that";
1960 PRINT"row."
1970 PRINT
1980 PRINT-
19h90eP
T r R
e IN T"Port 4
2i00s0PRINT
2a010SCREEN1.10
2t020ePRINT"Press space to continue"
2t030A=USR(0):IFA=32THEN RETU RN
2t040oB=B+1AND63:IF BAND 32THEN2060
2n050OeUT4.1-INP(4):GOTO2nt0
2o060SCREEN1.10: