The Rainbow Vol. 09 No. 01 - August 1989 - TRS-80 Color ...

G
750 PUTCX 1, Yl)-(X1+15 , Yl+15),CC ,
PSET
760 A=PEEKC65280) : IF A=254 OR A=
126 THEN COLOR1,5 : LIN ECX1,Y1)-(X
1+15,Y1+15) , PSET,BF : CO LOR3,5 : GOT
0780
770 X2=X1 : Y2=Y1 :GOT0680
780 SOU ND150,2
790 IF OX0 AND OX9 AND OY0
AND OY9 THEN GOT02020
800 IF OX =0 AND OY=0 THEN 2190
810 IF OX=0 AND OY=9 THE N 2190
820 IF OX =9 AND OY=0 THEN 2190
830 IF OX=9 AND OY=9 TH EN 2190
834 '
835 ' SAVE MOVE - CHECK IF REPEA T
840 K$=STR$ (OX)+ " , "+STR$ ( OY)
850 FOR N=0 TO MV
860 IF MV$( N, 1)=K$ THEN 900
870 NEXT N
880 MV$CMV,1)=K$
890 GOT01000
894 '
895 ' REPEAT MOVE PROCESSING
900 Z=OX : GOSUB1770 : X1=ZX
910 Z=OY : GOS UB1760 : Y1=ZY
920 X$=MV$CN ,0) : GOS UB1940 : X=K1 : Y
=K2
930 L=P
940 P=VAL(M V$(N ,2))
950 IF P=17 THEN P=L : COLOR4,5 : MV
=MV-1 : GOTO 1720
960 IF P=18 THEN P= L: CO LOR3,5 : MV
=MV-1 : GOT01530
970 ZP$= "Y"
990 GOTO 1600
994 '
995 ' CONVERT X,Y TO GRAPH I CS LOC
AT IONS
1000 IF X1=62 OR X1=236 THEN GOT
0 1020
1010 IF Y1=1 OR Y1=174 TH EN 1070
1020 IF X1=236 THEN 1050
1030 Y=IN TCY1/18) : X=0
1040 FLG$="X+1 " : GOTO 1120
1050 Y=INTCY1/18) : X=9
1060 FLG$ ="X-1": GOT01 120
1070 IF Y1 =174 THEN GOT01100
1080 X=INTCCX1-66) / 18) : Y=0
1090 FLG$= "Y+1 ": GOT0 1120
1100 X=INTCCX1-66)/18) : Y=9
1110 FLG$ ="Y-1 " : GOT01120
1114 '
1115 ' PROCESSING OF BEAM PAT H
1120 IF LEFT$(FLG$,1)= "Y" THEN 1
320
1130 IF RIGHT$(FLG$ , 2)= "-1" THEN
GOTO 1230
1140 IF X=9 THEN 1580
1150 IF GRCX,Y)=-1 THEN 1510
1160 IF Y+1 -1 THEN IF X=0 AND G
30 THE RAINBOW August 1989
RCX+1,Y-1)=- 1 THEN 1580
1180 I F Y- 10 TH EN IF GRCX+1 , Y-
1)=- 1 THEN FL G$="Y+1 " : GO T011 20
1190 IF Y+1 9 THEN IF GR(X+1 , Y+
1)= -1 THEN FLG$= "Y-1": GOT 01 120
1200 IF GR(X , Y)=- 1 THEN 15 10
12 10 IF X+ 1 10 THE N X=X+1 : GOT 01
120
1220 GOT011 20
1230 IF X=0 TH EN 1580
1240 IF GR(X,Y)= -1 THEN 1510
1250 IF Y+1< 10 THE N I F X=9 AND G
RCX -1, Y+1)=-1 TH EN 1580
1260 I F Y-1>- 1 THEN IF X=9 AND G
R(X - 1,Y -1)=-1 THEN 1580
1270 IF Y-10 THE N IF GR(X -1, Y-
1)=- 1 THEN FL G$= "Y+1": GOT01 120
1280 IF Y+19 THE N IF GRCX -1 , Y+
1)=-1 THEN FLG$= "Y-1 " : GOT01 120
1290 I F GR( X, Y)= -1 THEN 1510
1300 IF X- 1-1 TH EN X=X-1 : GOT01
120
1310 GOT011 20
1320 IF RIGHT $CFLG$ , 2)= "-1 " THEN
GOTO 1420
1330 I F Y=9 THEN 1580
1340 IF GR(X,Y)= -1 TH EN 1510
1350 IF X+ 1-1 TH EN IF Y=0 AND G
R(X - 1,Y+1)=-1 TH EN 1580
1370 I F X- 10 THEN IF GRCX-1 , Y+
1)=-1 THEN FLG$= "X+1": GO T01120
1380 IF X+19 THE N I F GRCX+1, Y+
1)= -1 THEN FLG$= "X-1 " : GOT0 1120
1390 IF GR(X ,Y )=-1 TH EN 1510
1400 I F Y+1 10 TH EN Y=Y+1: GOT0 1
120
14 10 GOT011 20
1420 IF Y=0 TH EN 1580
1430 IF GR(X ,Y )=- 1 TH EN 1510
1440 IF X+1-1 THE N IF Y=9 AND G
R(X- 1,Y-1)=- 1 THEN 1580
1460 IF X-10 THE N IF GR(X-1,Y ­
l)=- 1 THEN FL G$= "X+ 1" : GOT0 11 20
1470 IF X+ 19 THEN I F GR(X+ 1,Y -
1)=- 1 THE N FLG$= "X- 1" : GOT0 1120
1480 IF GR(X , Y)=- 1 THEN 1510
1490 IF Y-1- 1 THEN Y=Y- 1: GOT01
120
1500 GO T011 20
1504 '
1505 ' *** HIT ***
15 10 COLOR3,5
1520 MV$( MV ,0)=MV$( MV, 1) : MV$(M V,
2)= "18 "
1530 LIN E(X1,Y1)-(X 1+15, Y1+ 15),P
RESE T,B F
1540 LI NEC X1,Yl ) - CX1+ 15, Yl+15), P
SET,B F
1550 GETCX1 , Yl) - (X1+15,Yl+15) , CS
, G