&R?O 6X'D:\[%6u12345;"Key To";18,22;"Continue"; > BIG BEN CHIMES I=116 J #.45ffff,J:J=13:J I : 5,9 ,7,0,5,7,9 ,5,9 ,5,7,0,0,7,9 ,5 INIT LOWER DISPLAY .6:0:O1=999:F1=999 )15,1;"TANK STATUS REPORT"; 17,0;"DETECT"; 19,0;"MINES"; 17,16;"UNITS"; 18,11 ;"FUEL"; 19,11 ;"OXYG"; !14,22;"SCORE ";S1;  3000 :3900<  @ SET UPSCREEN JN 5:L1=L1+1:A1=0:T2=T2-5:T3=0:T4=148 T 0:: ^ 5 h I=113 r" I,0;" ";I,31;" "; | I  J=031 14,J;" "; 0,J;" "; J 6:6:0 I=1521 J=0248 I,J;" "; J I  0 ;0,0;"THE PLAINS OF MALABAR (LEVEL ";L1;" )";  DISPLAY BOARD 0:1:1 R=113 &C=130 0$Y=T(R,C,2):X=T(R,C,4) :*Y=149X-1R,C;149; DC NR F7:1:R3,C3;(T4);:0:0:.1}L,502  #(SET UP MINEFIELD TABLE #+=0:1:14,1;"Please Wait";:0 #,.15,0;" INITIALISING POSITIONS " #2 9660% #<SET UP TANK POSITION #P3R3=1:C3=1:0:7:1 #ZSET BASE POSITION #dPR2=(*6)+7:C2=(*2)+28:R2,C2;150;:0 #nQT(R2,C2,1)=150:T(R2,C2,3)=7:T(R2,C2,4)=-1 #%SET SHRUBS,SAND AND MARSH POSITIONS #K=144146 #K1=K-140 #J=12 #M=1:9600% #%T(R,C,1)=K:T(R,C,3)=K1 ##I=1̺(*4)+6+L1 $L=110 $X=(*5)-2 $Y=(*5)-2 $"R1=R+X:C1=C+Y $,$R1<1R1>13 9310^$ $6$C1<1C1>309310^$ $@'T(R1,C1,1)32 9310^$ $J)T(R1,C1,1)=K:T(R1,C1,3)=K1 $OK1:R1,C1;K; $T 9320h$ $^L $hI $rJ $|K $SET CRATER POSITIONS $$K=147:K1=3:M=1 $$I=1̺(*6)+14+L1 $ 9600% $>T(R,C,1)=K:T(R,C,3)=K1:T(R,C,4)=-1 $K1:R,C;K; $I $SET MINE POSITIONS $0K=149:T=60<:M=2:M1=0 $!I=138&+(L1*2) % 9600% %$T(R,C,3)=79480% %$T(R,C,3)=39480% %&$T(R,C,2)=K:T(R,C,4)=T %+0T(R,C,3)=0T(R,C,3)=7 %5P7:1:16,14;K;:0:" ";I;:.01z# =,60< %:I %NUNSET POSITIONS %SmT(1,1,2)=0:T(1,1,4)=0:T(1,1,1)=32 %XlT(1,2,2)=0:T(2,1,2)=0:T(2,2,2)=0 %]lT(1,2,4)=0:T(2,1,4)=0:T(2,2,4)=0 %_T(1,2,1)=32 :T(2,1,1)=32 :T(2,2,1)=32 :1,2;" ";2,1;" ";2,2;" "; %bDT(R2-1,C2,2)=0:T(R2+1,C2,2)=0 %gDT(R2-1,C2,4)=0:T(R2+1,C2,4)=0 %lDT(R2,C2-1,2)=0:T(R2,C2+1,2)=0 %qDT(R2,C2-1,4)=0:T(R2,C2+1,4)=0 %s(7:1:R3,C3;T4;:0 %v %FIND EMPTY POSITION %#X=32 -((M-1)*32 ) %R=(*13 )+1 %C=(*30)+1 %T(R,C,M)=X % 9620% % INIT TABLE %I=113 %J=130 %1T(I,J,1)=32 :T(I,J,2)=0 %T(I,J,4)=0 %J %"*";:.01z# =,557 %I %15,0;""; % &TAPE LOADED DATA & "DEFS" &"PIC" &I=1502:I &1:7::1 &,5,8;"STOP THE TAPE";:0 &710 ,0;"Enter Initial Level Of Play(1-6)"; &113 ,0;"Try level 1 to start with!"; &A$=:A$=""9950& &L5=A$-491 &6L5<0L5>5.5,15:9950& &5:0: &." SpaceWreck ";127;" Geof Turner" &:"Basic Instructions:-": &."* You must move your spacetank ";148 '#"across the plains until it gets" '$"to the base position ";150 '#"* Your radar informs you of the" '!"immediate terrain around you." '""* Audible warning is given for" 'L"any mines ";149;" nearby.(Both live & disarmed mines are counted)" '$"* Terrain which you have not yet" '!"traversed is indicated by a ?" '#"* Do not go into areas occupied" ' #"by mines! Deduce by logic their" ' $"positions and disarm them if you" ' $"dare.(Mistakes are not allowed!)" ' P:"Best of Luck."::"Press any key to continue.";:I=130:I 'A$=:A$=""9998' ' 15 32&=f 7  mx  &  $yt<v'z   A"" &ˮ PIC @D @W P P -]-U*8 O,?DX'6 :\[&u>8T8TUUI*UB<$$>@< |< @@@x88x88@8D8BB8D(@@D8D8(888888D8@|DD D00@DDDBBD|@ DDDDD@ T0x@Dx D<@x(xB|B@ Dx(xD8< TD@D@ DD@@(@B@D<B@ <@(@DD TD~D < >D8 8< ~<< <@ <>< @  << > 8x < (8 D8G8e  @8# #  <@T&&8"\\\\\X![!HP !W K SR P >T(13 ,30,4):M(9 ,4):9900& -L1=L5:T2=60<-(L1*5):S1=0 d$8000@:9000(#:8100 n7900:5000 GET KEYBOARD INPUTS  1005  .05|L,502:2500 "Z=0:T3=1100d 41:14,1;"ENTER CODE ";:0 Z>T22500 :1005 &A$=:A$=""Z=Z+1:1010 5.1}L,502:14,1;" "; AA$="5"A$="6"A$="7"A$="8"3200 :3600:1005 "A$>96`A$=(A$-32 )  A$="I"5000:1004 $ A$="S"5200P:1004 . A$="M"5400:1004 8A$="Q"6100 B A$"D"5000:1004 G%M1=0T4=1511004 L5700D:.1}L,502 Q Z=0 U41:14,1;"ENTER CODE ";:0 VZ>T22500 :1105Q `&A$=:A$=""Z=Z+1:1110V e5.1}L,502:14,1;" "; jB=A$-480 t#B>-1B<10 1160 ~5400:1005 DISARM -B=0B=52500 :1150~  K=0 I=-11 J=-11  K=K+1 K=B1250 J I R1=R3+I:C1=C3+J ?M(K,1)<118+I,23+J;"+";:2690 &18+I,23+J;(149); cS1=S1+(T(R1,C1,4)/10 )+1:T(R1,C1,1)=149:T(R1,C1,4)=-1 (7:0:R1,C1;(149); 3000 :2500  ,M1=0.05|L,502:1150~  1105Q OXYGEN CHECK &T5=1:T4=151T5=3 O1=O1-T5:3900< O1>02600( 0:5:1 !21,12 ;"EXHAUSTED"; 0 20:14,1;"MISSION TERMINATED"; 6000p (TIMER CHECKS 2M1=0 < K=0 FI=-11 PJ=-11 Z K=K+1 d"M(K,1)<12720 n#M(K,1)=M(K,1)-1 x"M(K,1)02720 0:5:1 21,1;"DETONATED"; 2550 J I 3500 :Z=Z+2  GET TIMERS AND RADAR /K=0:M1=0:M3=0:3900< I=-11 J=-11 9K=K+1:M(K,1)=0:M(K,3)=7 2I=0J=0M(K,2)=T4:3140D R1=R3+I:C1=C3+J $R1<1R1>13 3130: $C1<1C1>303130: +T(R1,C1,1)=149M3=M3+1 zT(R1,C1,4)>0M(K,1)=T(R1,C1,4):M(K,2)=63?:M1=M1+1:M3=M3+1:3140D &dT(R1,C1,4)<0M(K,2)=T(R1,C1,1):M(K,3)=T(R1,C1,3):3140D 0#M(K,2)=63?:3140D :.M(K,2)=143:M(K,3)=5 DJ NI SM3=03160X TI=1M3 U.2~L,10 VI X 3400H b RESTORE TIMERS M1=0 K=0 I=-11 J=-11 K=K+1 "M(K,1)<13270 $ T(R3+I,C3+J,4)=M(K,1) J I  HDISPLAY RADAR M0:6:K=0 R#18,2;(480+M3); \I=-11 fJ=-11 p K=K+1 zM(K,3) (18+I,8+J;(M(K,2)); J I 3500  MINE ALARM !M2=9999':1:0 K=19 "M(K,1)<13550 "M(K,1)40(4:21,1;"CAUTION ";:3595  AM2>206:21,1;" DANGER ";:3595  (7:21,1;"CRITICAL";  0    MOVE TANK  0 X1=R3:Y1=C3 #A$="5"Y1=Y1-1:3650B $#A$="6"X1=X1+1:3650B .#A$="7"X1=X1-1:3650B 8Y1=Y1+1 B$X1<1X1>13 3730 L$Y1<1Y1>303730 M(T(X1,Y1,1)=1493730 N(T(X1,Y1,1)=1473730 OT(X1,Y1,4)>01:X1,Y1;149;:0:T(R3,C3,1)=148:T(R3,C3,3)=7:2690 P(T(X1,Y1,1)=1506500d Q,F2=(T(X1,Y1,1)-142)*2+L1 RF2<2F2=2+L1 S4F1=F1-F2:T(R3,C3,4)-1S1=S1+2 V6T(R3,C3,3):T(R3,C3,4)=-1:0 `7:R3,C3;(152); j R3=X1:C3=Y1:7:1 tR3,C3;(T4); ~50:3000 :.03{u\,502:2500  .3,12 :2500  <DISPLAY FUEL AND OXYGEN A6:0:0 CF1<0F1=0 F418,17;" ";19,17;" "; P!18,17;F1;:0 UO1<101e1 Z!19,17;O1;:0 ^}F1=0T4=148T4=151:15,1;"SUIT";:18,8;(T4);:1:R3,C3;(T4);:0 _M2=O1:0 nLM2>5006:6:21,12 ;" ";:3990 sCM2>300,4:21,12 ;"CAUTION ";:3990 xCM2>100d6:21,12 ;" DANGER ";:3990 })7:21,12 ;"CRITICAL"; 30:6:0:14,28;S1;   INFORMATION 6:5900 :0  15,22;"D=Disarm"; !16,22;"S=Symbols"; 17,22;"M=Moves";  18,22;"I=Inform"; 19,22;"Q=Quit"; "21,22;"Data Codes"; 1:2:6  0  P SYMBOLS Z0:1:5900  d74:15,22;(144);" Shrubs "; n75:16,22;(145);" Desert "; x86:17,22;(146);" Marshes"; 73:18,22;(147);" Craters "; @7:0:19,22;(148);" Tank "; .20,22;(149);" Mines "; .21,22;(150);" Base ";  0: MOVES "3:5900 :0 ,15,22;"KEY"; 616,23;"5 Left"; @17,23;"6 Down"; J18,23;"7 Up"; T19,23;"8 Right"; Y"21,22;"Move Codes"; ^1:6 h 5085 DDISARM N4:5900 :0 X!15,22;"Abort 0/5"; b"17,22;"123 Disarm"; l018,22;"4";(148);"6 Codes"; v"19,22;"789 0 To 9"; {"21,22;"Be Careful";  5080  CLEAR INFO AREA 6:0  I=1521 4I,22;" "; HI R pENDING t 7000X u 6015 zIA$=:A$""1:0:7:0:62008:6700, 6020:6010z  J=40( I=07 I:.01z# =,J  J=J+1 I  QUIT 0:1:7 21,1;" QUIT ";  2550 8REVEAL MINES = 7100 B0A1=1:8200 :A1=0:7200  GA$=:A$=""6215G L d GET TO BASE h 7000X i T(R3,C3,3)=7:T(R3,C3,4)=-1:7:0:R3,C3;(152);:R3=X1:C3=Y1:3000 :7:0:1:18,8;(150);:0:21,0;"BASE REACHED,SUPPLIES RENEWED ";:7300:6580 n J=535 xI=07 I:.01z# =,J  J=J+1 I  A$=:A$""6590 6510n:6570 IS2=(O1/10 )+(F1/10 )+L1*502:6:0:0 )14,0;"BONUS POINTS = ";S2; 41,25:S1=S1+S2:14,28;S1; 62008:T3=1  , END OF GAME 6|:I=120:I:2,2;"DO YOU WANT TO PLAY AGAIN ? ";:4,2;"(Press Y to play next game)"; @A$=:A$=""6720@ J(A$="Y"A$="y"L5=L1-1:15 Ty7,0;"SWITCH OFF COMPUTER AND LOAD THE NEXT PROGRAM YOU WISH TO USE.";:I=1100d:I:67106 XWAIT TO REVEAL b0:5900  lw16,22;"Press Any";17,22;"Key To";18,22;"Reveal";19,22;"Mines..."; v REVEALING MINES 0:5900  ?16,22;"Revealing";18,22;"Mines..."; -21,0;" ";   TO CONTINUE *0:5900  4[16,22;"Press Any";17,22