ROCKETS ,; ROCKETS 23627K\,100d 23628L\,0 23561 \,200 K:K:J: 18,5;7;"" )5;7;"" )5;7;" STOP THE TAPE " )5;7;"" )5;7;""  200 dA f#A=07:B:""+A,B:A iA0,0,1,3,7,7,7,7 nB p#A=07:B:""+A,B:A sA7,7,3,1,0,0,0,0 xC z#A=07:B:""+A,B:A }L126~,255,195,129,0,62>,42*,62> D #A=07:B:""+A,B:A I0,129,195,0,129,126~,0,0 E #A=07:B:""+A,B:A M0,0,128,192,224,224,224,224 F #A=07:B:""+A,B:A K224,224,192,192,128,0,0,0 G #A=07:B:""+A,B:A Q126~,255,255,255,255,255,255,255 H #A=07:B:""+A,B:A M255,255,255,255,255,126~,0,0 I #A=07:B:""+A,B:A Q255,254,252,248,240,224,192,128 J #A=07:B:""+A,B:A H255,127,63?,31,15,7,3,1 K #A=07:B:""+A,B:A J10 ,10 ,546,36$,121y,579,513,18 L #A=07:B:""+A,B:A G8,8,20,20,546,546,20,20 M #A=07:B:""+A,B:A M80P,80P,122z,38&,158,156,204,72H :350^ ,5K=2:J=0:R=0:S=0:5 ^0:0:7: c,1;"COPYRIGHT WIDGIT SOFTWARE 1983" h"::11 ;2;"ROCKETS" m[10 ,0;"TYPE THE TOTAL NUMBER OF":"SPACEMEN AND THEN PRESS ";1;"ENTER" r"18,0;"USE 0 TO END" t,20,0;"PRESS ANY KEY TO START" x=""376x z="0"0: .R=NO ROCKETS S=NO SPACEMEN P=PLACE OF ROCKET 1:1:0  R=2+(*3) S=1+(*4) &P=0R-1 0+Y=2+P*8:X=Y*8+12 :3N=-13 12 :X,175:N,-31:N DZ=413 3 NZ,Y;7;"" PZ+1,Y;7;"" RZ+2,Y;7;"" VZ XZ,Y;7;"" YZ+1,Y;7;"" Z)Z+2,Y;7;"";P+1;"" \Z+3,Y;7;"" l:N=-150:X-13 ,40(:N,-40(:N v9N=016:X+12 ,40(:N,-40(:N 20,Y;"" P P=0R-1 Y=2+P*8  Q=1S .2~L,40( +2+Q*3,Y+1;7;"" +3+Q*3,Y+1;7;"" .2~L,40(  10  Q P " ";16+0;17+7;"";17+1;16+7,23+1;" HOW MANY ";16+0;17+7;"";17+1;23+15,M$ CRASH ROUTINE M$=""930:INPUT LINE M$="0"350^ W=1̱M$:N$=M$(WW) *(N$<480)(N$>579)930 W M=M$ &MS*R.5,-20:930 REWARD l23692\,-1 v 2 /W=-10 10 .5:.01z# =,W:W ?P=0R-1:Y=3+P*8:20,Y;"";:P .W=10 33!.5:.01z# =,W:W IP=0R-1:Y=3+P*8:21,Y-1;"";:P .W=33!40(.5:.01z# =,W:W XN=15:P=0R-1:Y=3+P*8:Y-2;"";:P:N XN=12:P=0R-1:Y=3+P*8:Y-2;" ";:P:N  LN=12:P=0R-1:Y=3+P*8:Y;"";:P:N *W=122::W / 0: f 500 kjrsbyyxv D*mN6M0q