Krakatoa =9=9+?9WKrakatoa 2012 by John Pitcher from Sinclair User, Jan'86 1:7:41999 <23658j\,8:"PLEASE WAIT":9000(#:8900" b9500%:52000 ,29:52001!,3:52002",0:50263W,27  4000 1:7::1  6000p  2500 1:l=50180 #.52004$,152:52005%,153  1:L=50114 L=50000P l=50200  x=52000 :Y=52001!  FL=11200  5(Y,X)579ū(Y,X+1)5797000X l=50114 $52002"=2553000 "X=30X=02000  .5 CC=CC+1 $CC=99c1500 Bl=50144 L 1000 {1:GD,CE;" ";GD+1,CE;6;"":l=50497A:GD=GD+1:GD=16FL=0:16,CE;" "   CC=0 .RM=2ƾ23672x\<301600@ #RM=3RM=11800  @22:14,13 ;"":1790 A22:15,13 ;"":1790 J+13 ,12 ;"":1790 T+12 ,12 ;"":1790 ^-11 ,11 ;"":1790 h-10 ,11 ;"":1790 r.9 ,10 ;"":1790 |.8,10 ;"":1790 /7,9 ;"":1790 /6,9 ;"":1790 15,8;"":1790 14,8;"":1790 33,7;"":1790 32,7;"":1790  1  7000X  1: l=50400: BM=10 KB=10  LGD=2:CE=(*20)+5:2,CE;6;"":FL=1  PRM=1X=30RM=2:52000 ,1:FL=0:2500 ZRM=2X=3052000 ,1:50263W,27:RM=3:2500 DRM=2X=052000 ,29:RM=1:2500 fRM=3X=052000 ,29:50263W,31:FL=0:RM=2:2500  6l=50172:50190,40(:l=50180 fr=50202:se=50247G 2RM=1fr,16:se,16:2550 2RM=2fr,42*:se,42*:2600( 2RM=3fr,58::se,58::2650Z u50282j,17:21,0;4;L$;7;21,3;4;"";21,0;" " AY=9 -PE:n=0Y:20,N+13 ;0;"":n #20,9 ;2;"" 820,6;3;"";19,6;"" j2565 :4,31,23:N=02:C:20,C;2;"";19,C;"":N B20,24;4;" ";19,25;" " ' 1: (>50282j,14:21,0;4;L$:7 -20,8;0;" ";19,9 ;" ";18,10 ;" ";17,11 ;" ";16,12 ;" " 2r26102 :1,3,30,26:N=03:C:20,C;2;"";19,C;"":N <"20,28;1;"" F820,5;3;"";19,5;"" Y 1: Z50282j,15:1:7:21,0;4;L$;7;21,28;4;"";21,29;" " d2660d :1,5,3,13 ,27,15:N=05:C:20,C;2;"";19,C;"":N n>20,6;4;" ";19,7;" " x:20,24;3;"";19,24;"" }818,8;3;"";17,8;"" ~"20,21;1;"" :20,17;3;"";19,17;"" 2,28;0;" ";3,28;"";3,31;"";4,28;"";4,31;"" 1: T a52002",0:1:RM=3X=29y>2y<5DOF=13079 &BMF=13100  FRM=1X=10 Y=19DOF=0PE<10 3020  jDOF=1:PE=PE+1:20,14+9 -PE;" ";1,12 ;1;"LOADED" X50383,20:N=150502-10 :50381,N:L=50380:N 1 %SC=SC+10 :0,3;SC  FN=13800 O1,11 ;1;"EMPTY";1,21+PE;0;"" &PE=10 BM=10 BMF=1 1 W50383,19:N=50215010 :50381,N:L=50380:N 1 DOF=0 %SC=SC+10 :0,3;SC  0RM2BMF1X<13 X>17 0CN=Y+215:N,X;6;"";N-1,X;1;" " 1.005y# =,N:N 2N-1,X;1;" " 4KB=KB+1 5KB=10 3500 :)BM=BM-1:1,BM;6;" " D 1 Ni=50468$ X%SC=SC+20:0,3;SC v )10 ,7;"ALL CHARGES DROPPED" +11 ,6;"RETURN TO MOTHER SHIP" 1,0;" " &SC=SC+100d:0,3;SC %5,7;"100 BONUS POINTS" 2300,:n=010 :i=50442 :n 0 L=50172 2500 "BMF=O:DOF=1:FN=1: 'N=0502:L=50497A:N "30:RM=2:2500 7n=0255:50540l,n:l=50530b:n c:m=020:N=07:3,8;N;"CONGRATULATIONS":L=50497A:N M  76,3;2;"YOU HAVE SAVED THE ISLAND" -10 ,7;1;"YOU SCORED ";SC 618,3;4;"PRESS (S) TO PLAY AGAIN" (="0"Ŧ="S"5 2 3880( B0::50190,7:L=50180:7:0 &N=02:L=50468$:N &M=03:N=07 350497A:1,9 ;N;"KRAKATOA 2012" N:M <4,0;"DATELINE:5th April 2012":l=50497A w30:6,0;5;"LOCATION:Krakatoa, Sunda Strait, off Java, W. Indonesia":l=50497A Ұ30:9 ,0;6;"REPORT:Alien Fleet invasion. Alien base inside volcano Volcano active. Earth in danger.":l=50497 A ܵ30:14,0;4;"MISSION:Rescue Islanders. Collect Charges. Drop Charges in Volcano. Blow up Alien Base.":l=50497 A J20:L=50497A:21,7;2;"PRESS (S) TO PLAY" 920,3;3;"PRESS (I) FOR INSTRUCTIONS"  ="S" ="I"4500  4090 M:M=02:N=07:0,10 ;N;"INSTRUCTIONS" L=50442 N:M 2,0;6;"You are the pilot of a Royal Navy HELIJET. Your mission is tofirst rescue all 10 islanders & take them to your mothership. While doing this you must pick up 10 charges. Finally you must drop these into the volcano." 011 ,0;5;" YOUR HELIJET." +13 ,0;6;" CHARGE." -15,0;7;" ISLANDER." E17,0;2;" ROAMER UFO.";18,0;"" D20,0;4;" GUARD UFO.";21,0;"" ##0;" PRESS A KEY"  0  B1,0;3;" PARKED UFO.";2,0;"" l4,0;7;"";5,0;" YOUR MOTHERSHIP.";6,0;"" t8,0;4;"AVOID ALL OTHER OBJECTS OR THEY WILL WEAKEN YOUR SHIELD. IT CAN ONLY WITHSTAND 16 HITS" -12 ,8;3;"USE ARROW KEYS"  414,0;" AND (0) TO PICK UP/DROP,ENTER"  0: *2,0;"To pick up an islander you must go to the landing pad and press (0). To drop off the islander you must go to your mothership and press (0)." u^10 ,0;5;"SOFTWARE BY JOHN PITCHER. EXTRA SPECIAL THANKS TO JOHN PARSONS." vb16,0;6;1;"THERE ARE 3 INTER-CONNECTING SCREENS TO TRAVEL BETWEEN." w 0 z221,8;2;"PRESS A KEY TO PLAY" 0:10 (BM=BM+1:BM=11 7090 "1,BM-1;6;"" &PE=10 BM=10 BMF=1 %SC=SC+15:0,3;SC  pV0,0;"SC:";SC;" ";3;"KRAKATOA 2012";2;" SHIELD " u&71G,175:0,-7 zZ1,0;6;" ";1;"EMPTY";0;" "  XQ(Y,X)=62>ū(Y,X+1)=62>l=50442 :FL=0:5000 b5(Y,X)579ū(Y,X+1)5798000@ l 2500  @L=50421 J"LI=LI+1:LI=FO85004! T*2;1;239+LI,175 ^$2;1;0,-7 cBx28rm=352001!,3:52000 ,29 h1:2500  !4w1:50190,15:l=50180:21,0;0;6;" GAME OVER " !9 0 !>^N=020:l=3280 :21,0;0;0;l$:l=50442 :n !RB5,11 ;3;"WELL DONE":L=50468$:20 !\F9 ,8;4;"YOU SCORED ";SC:L=50400:20 !fX20,7;5;"PRESS (S) TO PLAY":50381,255:L=50380  !k70:0:50190,7:L=50180 !p="S"Ŧ="0"5 !z 8560p! ! 0 "(N=50000P65535:N;" ";N:N "'8900":n=4200042067S " a:n,a:n "3,5,1,1,2,16,8,1,1,2,28,17,1,0,4,1,17,1,0,4,255,0,0,0,0,0 "3,7,1,1,2,25,7,1,1,2,28,10 ,1,1,2,255 "10 ,7,1,1,2,20,3,1,1,2,26,4,0,1,4,26,15,0,1,4,255,0,0,0,0,0 " #(HA=10 :B=11 :C=12 :D=13 :E=14:F=15 #)LINE=9020<# #*1ADDRESS=50000P+(LINE-9020<#)*6.4L #+LINE=9110#9300T$ #,LINE:S$,SUM #- TOT=0 #.)BYTE=16*S$(1)+S$(2) #/TOT=TOT+BYTE:ADDRESS,BYTE #0S$=S$(3) #1ADDRESS=ADDRESS+1 #2S$""9006.# #323695\,255 #4=SUM=TOT"LINE ";LINE;" OK":LINE=LINE+10 :9003+# #5@"ERROR IN LINE ";LINE:.4L,10 :.4L,-16: #<"01FEF7ED78CB6720173A20CB3DFEFF20023E003220CB3E9A3224CB3E9B3225CB01FEEFED78CB5720173A20CB3CFE1F20023E1E3220CB3E983224CB3E993225CB",6729I #F"ED78CB67200D3A21CB3CFE1420023E133221CBED78CB5F200D3A21CB3DFE0120023E023221CBED78CB4720053EFF3222CBC93E02CD0116C639328F5C3E16D73A",6093 #P"21CBD73A20CBD73A24CBD73A25CBD7C93E02CD0116C639328F5C3E16D73A21CBD73A20CBD73E20D73E20D7C90616CD440EC9C90021C05A11C15A0140003607ED",6847 #Z"B0C9000000000000DD212AA4DD7E00FEFF28225FDD560106023E16D77AD77BD73E20D73E20D71410F0DD23DD23DD23DD23DD2318D7DD212AA4DD7E00FEFFC8DD",7302 #d"8602FEFF2804FE1B2008DD7E02ED44DD7702DD7E01FE022804FE0E2008DD7E03ED44DD7703DD7E00DD8602DD7700DD7E01DD8603DD77010E90DDCB047E280ADD",7034z #n"CB04BE3E04814F1804DDCB04FEDD7E04CBBFC638328F5CDD560106023E16D77AD7DD7E00D779D70C79D70C1410EEDD23DD23DD23DD23DD23C349C4000E643E14",7089 #x"D3FE4110FE3E07D3FE4110FE0D20EFC906012100007ED3FE237CFE4020F710F23E01D3FEC9210A0011030006C8E5D5C5CDB503C1D1E12310F4C90601C5210003",7188 #"110100E5CDB503E1111000A7ED5220F0C110E9C90601C5210F00113100E5CDB503E1111000A7ED5A7DFEFF20EDC110E6C9015000210005ED42110100E5C5CDB5",6778z #"03C1E17CA720F0C9001120001910FD20EEC92100581101580100033600EDB0C90000000000000000000000000000000000000000000000000000000000000000",2898R $T!9300T$:n="a""u"+7 $^ a:n,a:n $hG0,0,4,7,30,127,127,166,0,0,32 ,224,120x,254,254,101e,166,255,127,31,7,0,0,0,101e,255,254,248,224,0,0,0,0,0,4,7,31,127,127,185,0,0,32 ,224,248,254,254,157,185,255,127,30,7,0,0,0,157,255,254,120x,224,0,0,0 $|24,127,231,90Z,194,127,63?,24,192,248,524,210,31,255,252,96`,3,31,44,,75K,248,255,63?,6,24,252,231,90Z,67C,254,252,24,1,3,7,15,31,63?,127,255,128,192,224,240,248,252,254,255 $0,60<,126~,126~,126~,126~,60<,0,82R,37%,146,85U,170,93],170,93],42*,28,8,8,8,8,8,8 $127,202,218,202,218,216,127,28,254,151,183,151,183,147,254,568,255,153,153,255,153,153,255,255 $J24,60<,24,60<,90Z,24,36$,102f %PFN=0:Y=52000 :X=52001!:RM=3:PE=0:CC=0 %&ML$=" ":FO=17:FL=0:BMF=0 %0=BM=0:LI=0:SC=0:DOF=0:KB=0 & ' ' "KRAK 2012"