ZXTape!Reaction ^`OREACTION from Popular Computer Games n. 6 (May 1984) REACTION By Martin Robinson 0:0:6  G1=0 236099\,100d #INSTRUCTIONS ( 20,0;"" <1,0;"REACTION" F2,0;"" PR'"EACH PLAYER MUST PLACE HIS ":"COUNTER IN TURN ANY WHERE ON":"THE 6*6 BOARD." Zm"IF ANY COUNTER HAS 3 OR MORE OTHER COUNTERS ADJACENT TO IT IT WILL EXPLODE MAKING A CHAIN REACTION." dN"THE WINNER IS THE PLAYER WITH ONE OF MORE COUNTERS LEFT ON THE BOARD." nD''"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX":"PRESS ENTER TO CONTINUE";Q$ 7 DISPLAY SET UP  61;7;2,0;" 1 2 3 4 5 6 " 61;7;3,0;" " 'd=0:i=4142 d=d+1 11;7;i,0;d;" " %1;7;" " i %1;7;" "  2,20;""  3,20;"REACTION" " 4,20;"" ,SETUP U.D.G'S  i="a""d"  s:i,s:i M0,126~,126~,126~,126~,126~,126~,0 I0,24,60<,126~,255,255,0,0 Q255,129,129,129,129,129,129,255  0 %FINDS PLAYER 1'S MOVE + DISPLAYS IT a(7,7) +z$="PLAYER(1)":7,20;z$;"=" +x$="PLAYER(2)":8,20;x$;"=" 310 ,20;6;1;"LAST MOVE:" X+21,0;1;z$;" YOUR GO!" ]G1=G1+1 b"(ROW):";r:"(COLUMN):";c gGr>6r<1c>6c<1.5,40(:610b h.a(r,c)>0.5,40(:610b la(r,c)=1 q'11 ,20;"ROW:";r;" COL:";c v62+(r*2),c*2;6;1;""  1000 %FINDS PLAYER 2'S MOVE + DISPLAYS IT :G1=G1+1:21,0;1;x$;" YOUR GO!" "(ROW):";r:"(COLUMN):";c Gr>6r<1c>6c<1.5,40(:670 .a(r,c)>0.5,40(:670 a(r,c)=2 '11 ,20;"ROW:";r;" COL:";c 62+(r*2),c*2;6;1;""  1000  600X ICHECK TO SEE IF ANY COUNTER HAS 3 OR MORE OTHER COUNTERS ADJACENT TO IT &i=16:g=16 a(i,g)=01100L 9n=0:z=i-1i+1:x=g-1g+1 !z<1x<11040 a(z,x)0n=n+1 x:z n>31200 Lg:i V 0MASS CRITICAL EXPLOSION CHAIN REACTION ROUTINE 721,0;"MASS AT ";I;",";C;" GOES CRITICAL" -2+(I*2),G*2;1;"X" A(I,G)=9 1N=0:I=16:G=16 A(I,G)9 1270 .Z=I-1I+1:X=G-1G+1 !Z<1X<11270 X:Z  G:I N=11220 CLEAR CRITICAL P1=0:P2=0 #&F=16:I=16 %A(I,F)=9 2+(I*2),F*2;"X":.1}L,0:2+(I*2),F*2;1;" ":A(I,F)=0 (A(I,F)=1P1=P1+1 2A(I,F)=2P2=P2+1 <I:F F#P1=0P2=01390n P621,0;" ": dEND TUNE+DISPLAY n.2~L,5:.2~L,5:.2~L,1:.2~L,20:.2~L,1:.2~L,20:.2~L,1:.2~L,5:.3,5 o.2~L,15:.2~L,15:.2~L,11 :.2~L,30:.2~L,11 :.2~L,30:.2~L,11 :.2~L,15:.3,15 s1:6:1: x!P1=P2'"DRAW AFTE ";G1;" GOES" 0P1>0'"PLAYER 1 WINS AFTER ";G1;" GOES" 0P2>0'"PLAYER 2 WINS AFTER ";G1;" GOES" 1'"RATING:";(G*5+20*P1+20*P2) .7;'"" '"ANOTHER GAME?";:A$:A$ #A$(1)="Y"A$(1)="y" Qd#sZ PLAYER(1)X PLAYER(2)rcn #