home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / WEATHER-WAR-II (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  10.0 KB  |  284 lines
  1. 10 REM"         WEATHERWAR
  2. 20 [143]"      WRITTEN BY BOB CARR
  3. 30 REM"   MAGIC CARPET SOFTWARE (C)82
  4. 40 [143]"
  5. 50 GOSUB2600:RESTORE
  6. 60 PRINT"[147][158]"TAB(11)"[172][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][187]":PRINTTAB(11)"[161][146] WEATHERWAR II [161]
  7. 70 [153][163]11)"GETWAIT  BY BOB CARR  GET":[153][163]11)"LOGSTR$STR$STR$STR$STR$STR$RIGHT$ (null)STR$STR$STR$STR$STR$STR$COS
  8. 80 PRINT"    [172][198][198][198][198][198][198][198][198][198][198][198][198][198][203] [202][198][198][198][198][198][198][198][198][198][198][198][198][198][187]":PRINT"    [161][146] MAGIC CARPET SOFT";
  9. 90 PRINT"WARE (C)82 [161]":PRINT"    [188][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][190]
  10. 100 [151]53272,21:[151]54296,15:LF[178]53281:[151]LF,0:[151]LF[171]1,0:[139]R[178]0[167][141]2270
  11. 110 [153]"CLR A MAN'S HOME IS HIS CASTLE, DEFEND IT!
  12. 120 INPUT"[159]DO YOU WANT INSTRUCTIONS (Y/N)  [191][157][157][157]";A$
  13. 130 PRINT"[145][145][145]";:IFLEFT$(A$,1)="Y"THEN1670
  14. 140 IFLEFT$(A$,1)<>"N"THENR=1:GOTO60
  15. 150 GOSUB2220:J=1:GOSUB1630:Z$=AP$:J=2:GOSUB1630:Y$=AP$
  16. 160 A$=""
  17. 170 S$="                                      "
  18. 180 SS$="[154]                                      "
  19. 190 C$="[182][157][206][157][205][205][157][206][205][164][157][157][157][205]  [205][157][157][157][157][182][157][206][157][157][206][157]"
  20. 200 D$=" [157] [157]  [157]   [157][157][157]    [157][157][157][157] [157] [157][157] [157]"
  21. 210 E$=C$+"[205][157][206][157][157][206][157][181][157][157][206][157][157][157][157] [164][206] [157][157][157][157][206] [157][157][157][182]"
  22. 220 F$=D$+" [157] [157][157] [157] [157][157] [157][157][157]  [157][157][157] [157][157] "
  23. 230 G$=C$+"[205][181][157][181][157][205][205][157] [205][164] [157][157] [205][181]"
  24. 240 H$=D$+"  [157] [157]      "
  25. 250 I$=C$+"[205][205][181][157][157] [181][157][157][157] [206] [157][157][157][157] [206] [157][157][157] [181][157][157] [181]"
  26. 260 J$=D$+"   [157] [157][157] [157][157] [157] [157] "
  27. 270 PRINT"[147]  [173]";:FORV=1TO34:PRINT"[192]";:NEXT:PRINT"[189]"
  28. 280 F=28:G=28:M=3:MM=0:H=1827
  29. 290 FORV=1TO20:PRINT"[160]"SPC(38)"[160]";:NEXT
  30. 300 PRINTTAB(4)"[145][145][145][145][145][158][188][188][182][146][187][187][187][187][187]"SPC(16)"[172][172][172][172][172][181][190][190]"
  31. 310 PRINT"[207][208][195][195][195][195][195][146][190]"SPC(16)"[188][195][195][195][195][195][207][208]"
  32. 320 PRINT"[145][165][167] [219][158] [219][158][167][190][190]"SPC(14)"[188][188][165][219][158] [219][158] [165][167]"
  33. 330 PRINT"[165][167] [183] [183][170][183][208]"SPC(14)"[207][183][180][183] [183] [165][167]"
  34. 340 PRINT"[145] [180][170]    [170] [170]"SPC(14)"[180] [180]    [180][170]"
  35. 350 T$=Z$:PRINT"[145]";SPC(4.5+(8-LEN(T$))/2);T$
  36. 360 T$=LEFT$(Y$,8):PRINT"[145]";SPC(28+(8-LEN(T$))/2);T$
  37. 370 PRINTA$;:FORV=1TO40:PRINT"[162]";:NEXT:PRINT:POKE53269,255:GOSUB2220
  38. 380 GOSUB1140:IFF<1ANDB=0ORG<1ANDB=0THEN1420
  39. 390 M=M+1:IFM>3THENM=1:MM=MM+1:B=0:PRINT"";TAB(15);"[192][192][192][192][192][192][192][192][192][192][192]
  40. 400 [139]M[178]3[175][187](1)[177].1[167]390
  41. 410 [153]"WAIT";:[129]V[178]1[164]3:[153]"CLOSE"S$"CLOSE";:[130]:[153]
  42. 420 A[178]1068:AA[178][187](1)[172]26:A[178]A[170]AA:B[178]1[171]B
  43. 430 [151]A,104:[151]A[170]54272,1:[129]V[178]1[164]4:A[178]A[170]1:[151]A,102:[151]A[170]54272,1:[130]
  44. 431 [129]V[178]1[164]5:A[178]A[170]1:[151]A,104:[151]A[170]54272,1:[130]
  45. 440 A[178]A[170]27:[151]A,104:[151]A[170]54272,1:[129]V[178]1[164]11:A[178]A[170]1:[151]A,102:[151]A[170]54272,1:[130]
  46. 441 [151]A,104:[151]A[170]54272,1:A[178]A[170]33
  47. 450 [151]A,104:[151]A[170]54272,1:[129]V[178]1[164]6:A[178]A[170]1:[151]A,102:[151]A[170]54272,1:[130]
  48. 451 [151]A,104:[151]A[170]54272,1:NN[178]0
  49. 460 [153]A$""SS$"  ":[153]"ONON";
  50. 470 [139]M[178]3[167][153]"TARGET"[166]18)"TARGET":[137]500
  51. 480 [139]B[178]0[167][153]"TARGET"[166]17)"ATTACKER":[137]1820
  52. 490 [153]"ATTACKERWAIT"[166]17)"TARGET":[137]1800
  53. 500 EE[178][181]([187](1)[172]100)
  54. 510 [139]EE[177]50[167]EE[178][181]([171]EE[173]2):[153]A$[166]14)" WIND <TANLEN"[182](EE)"CMD ":[137]530
  55. 520 [153]A$[166]14)" WIND TANTAN>"EE"CMD "
  56. 530 [153]""[166]13)"TANTAN SYSROUND"MM"CMD TANTANTAN":[141]2220
  57. 540 [139]CT[178]2[167]2000
  58. 550 [139]CT[178]1[167]1840
  59. 560 [139]M[179]3[167]610
  60. 570 [129]Z[178]1[164]2:[153]A$""S$:[141]2390:[141]1370
  61. 580 [153]A$[163]13)"SYS ACT OF NATURE WAIT":[141]2390:[141]1370:[130]
  62. 590 [141]1360:[153]"ON"S$
  63. 600 O[178]1:B$[178][202]("HLRT",[181]([187](1)[172]4)[170]1,O):N$[178]B$:[137]690
  64. 610 [139]M[179][177]1[167][141]1370:[137]630
  65. 620 [153]"";[163]15)" SYSROUND"MM"CMD "
  66. 630 T$[178]Z$:[139]B[178]0[167]T$[178]Y$
  67. 640 [153]A$""S$"  ON"T$"WAIT, PICK A WEAPON":[133]"   (H,L,R,T)  SINCMDCMDCMD";N$
  68. 650 N$[178][200](N$,1):[139]N$[178]"H"[176]N$[178]"L"[176]N$[178]"R"[176]N$[178]"T"[167]B$[178]N$:[137]690
  69. 660 [139]N$[178]"S"[167][141]2410
  70. 670 [139]N$[178]"Q"[167]1580
  71. 680 [153]A$""S$S$:[137]640
  72. 690 W$[178]"RAIN":[139][200](W$,1)[178]N$[167]FF[178]5:TT[178]FF:O[178]2:[137]740
  73. 700 W$[178]"HAIL":[139][200](W$,1)[178]N$[167]CC[178]58:FF[178]4:TT[178]FF:O[178]0:[137]740
  74. 710 W$[178]"TORNADO":[139][200](W$,1)[178]N$[167]CC[178]102:FF[178]7:TT[178]FF:O[178]1:[137]740
  75. 720 W$[178]"LIGHTNING":[139][200](W$,1)[178]N$[167]O[178]0:[137]740
  76. 730 [153]"ONON":[137]540
  77. 740 [153]A$""S$:[153]S$:[153]"ONONTHE WEAPON IS "W$
  78. 750 [139]O[178]1[167][153]"";:[129]V[178]1[164]40:[153]"PRINT#SPC(SPC(";:[130]:[153]A$;"
  79. 760 IFCT=2THENCT=0:GOTO2060
  80. 770 IFCT=1THENCT=0:GOTO1900
  81. 780 IFM=3THENA1=0:IFB$="L"ANDEE<1THENA1=-1:GOTO810
  82. 790 IFM=3ANDB$="L"ANDEE>1THENA1=1
  83. 800 IFM<3THENPRINTA$"";:INPUT"CHARGE  [191][157][157][157]";BB$:A1=VAL(BB$)
  84. 810 IFA1<-150THENA1=-150
  85. 820 IFA1>150THENA1=150
  86. 830 PRINTA$""S$:PRINT"[145] CHARGE IS"INT(A1)
  87. 840 IFB$="H"THENGOSUB1360:GOTO870
  88. 850 IFB$="L"THENGOSUB1360:GOTO1190
  89. 860 IFO=1THENPRINT"";:FORV=1TO20:PRINT"[152][166][166]";:NEXT:PRINT:EE=1.5*EE
  90. 870 E=(A1+EE)/50:DD=0:GG=104
  91. 880 IFO=2ANDE<0THENCC=78:GOTO910
  92. 890 IFO=2ANDE>0THENCC=77:GOTO910
  93. 900 IFO=2THENCC=118
  94. 910 A=1148+AA:BB=0:FF=TT:T=WW:I=0:FORW=1TO17:WW=W
  95. 920 IFT=WWTHENW=17:WW=0
  96. 930 A=A+(40+E):GOSUB1030:NEXT:POKE54273,0:POKE54277,0
  97. 940 IFO<>1THEN1000
  98. 950 IFPEEK(C+1)=96ORPEEK(C-1)=96THEN1000
  99. 960 POKEC+1,GG:POKEC+54273,1:POKEC-1,GG:IFPEEK(C+2)=96ORPEEK(C-2)=96THEN1000
  100. 961 POKEC+54271,1
  101. 970 POKEC+2,GG:POKEC+54274,1:POKEC-2,GG:IFE>0ORE=0THENPOKEC-38,32:POKEC-39,32
  102. 971 POKEC+54270,1
  103. 980 IFE<1THENPOKEC-41,32:POKEC+54231,1:POKEC-42,32:POKEC+54230,1
  104. 990 IFGG<>32THENGOSUB2250
  105. 1000 IFNN<>1THENGOSUB1360
  106. 1010 IFDD=0THENDD=1:CC=32:GG=CC:GOTO910
  107. 1020 GOTO380
  108. 1030 C=A:FORZ=1TOFF:C=C+1:D=PEEK(C):IFO=1ANDE<0THEND=PEEK(C-1)
  109. 1040 IFD=96THENGOSUB1380:W=17:O=0:RETURN
  110. 1050 IFD>102ANDDD=0THENPOKE54276,0:POKE54273,0:GOSUB1120
  111. 1060 IFI>2THENW=17
  112. 1070 POKEC,CC:POKEC+54272,1:NEXT:BB=1-BB:IFBB=0ANDB$="T"THENFF=FF-1
  113. 1080 IFW=17THENRETURN
  114. 1090 POKE54276,0:POKE54277,0:POKE54272,0:IFCC=32THEN1110
  115. 1100 POKE54277,9:POKE54276,17:POKE54273,CC-W*3:POKE54272,CC:RETURN
  116. 1110 POKE54277,9:POKE54276,33:POKE54273,CC-12-W:POKE54272,CC:RETURN
  117. 1120 FORX=1TO2:POKEC,170:POKEC+54272,1:GOSUB2170:POKEC,58:POKEC+54272,1
  118. 1121 GOSUB2170:NEXT:I=I+1:IFO<>0THENW=17
  119. 1130 RETURN
  120. 1140 F=0:G=-1:P=0:PRINTA$""S$:PRINTS$
  121. 1150 FORY=1TO5:FORX=1TO9:H=H+1:D=PEEK(H):IFD<>32THENP=P+1
  122. 1160 NEXT:H=H-49:NEXT
  123. 1170 IFG=-1THENF=P:G=0:P=0:H=H+223:GOTO1150
  124. 1180 G=P:H=1827:RETURN
  125. 1190 A1=A1/33:IFA1<-4THENA1=-4
  126. 1200 IFA1>4THENA1=4
  127. 1210 IFA1>1THENA1=A1-1
  128. 1220 AA=AA+A1+7:IFAA>33THENAA=33
  129. 1230 IFAA<6THENAA=6
  130. 1240 FORZ=1TO3:GOSUB1340:PRINTC$:POKELF,1:POKELF,0:GOSUB1340:PRINTD$:NEXT
  131. 1250 GOSUB1350:GOSUB1340:PRINTC$:POKELF,1:POKELF,0:GOSUB1340:PRINTD$:GOSUB1360
  132. 1260 IFA1>0THEN1300
  133. 1270 IFA1=0THEN1320
  134. 1280 FORZ=1TO2:GOSUB1340:PRINTE$:POKELF,1:GOSUB2190:POKELF,0:GOSUB1340:PRINTF$
  135. 1290 AA=AA+1:NEXT:GOTO380
  136. 1300 FORZ=1TO2:GOSUB1340:PRINTG$:POKELF,1:GOSUB2190:POKELF,0:GOSUB1340:PRINTH$
  137. 1310 AA=AA-1:NEXT:GOTO380
  138. 1320 FORZ=1TO2:GOSUB1340:PRINTI$:POKELF,1:GOSUB2190:POKELF,0:GOSUB1340:PRINTJ$
  139. 1330 NEXT:GOTO380
  140. 1340 PRINT""SPC(AA);:FORV=1TO25:NEXT:RETURN
  141. 1350 FORV=1TO500:NEXT:RETURN
  142. 1360 FORV=1TO1000:NEXT:RETURN
  143. 1370 FORV=1TO250:NEXT:RETURN
  144. 1380 IFNN=1THENRETURN
  145. 1390 PRINT""SPC(13)"OUT OF BOUNDS!":GOSUB2150:FORV=1TO2500:NEXT
  146. 1400 PRINT""SPC(13)"[192][192] [158]ROUND"MM"[157] [192][192][192]":NN=1:RETURN
  147. 1410 FORX=1TO10:GOSUB2250:NEXT:RETURN
  148. 1420 PRINTA$;"  "S$"[146]"S$S$"
  149. 1430 [151]LF,4:[129]V[178]1[164]9:[141]2250:[130]
  150. 1440 [151]LF,0:B$[178]Y$:P[178]F[172]2.44:[139]G[177]0[167]B$[178]Z$:P[178]G[172]2.44
  151. 1450 T[178]8[171]([195](Z$)[173]2):[139]T[179]0[167]T[178]0
  152. 1460 [153]A$""[163]T)Z$
  153. 1470 T[178]33[171][195](Y$)[173]2:[139]T[170][195](Y$)[177]39[167]T[178]40[171][195](Y$)
  154. 1480 [153]A$"CMD"[166]T)Y$
  155. 1490 [153]""[181](F[172]2.33)"CMD% LEFT"
  156. 1500 [153]""[166]28)[181](G[172]2.33)"CMD% LEFT"
  157. 1510 [153]"";
  158. 1520 [139]F[178]G[167][153]"    IT'S A TIE!":[137]1550
  159. 1530 [153]"ONCMDTHE WINNER IS ";:[139]F[179]G[167][153]Y$:S[178]S[170]1:[137]1550
  160. 1540 [153]Z$:RR[178]RR[170]1
  161. 1550 [153]A$""S$;:[133]"  WANT TO PLAY AGAIN (Y/N)  SINCMDCMDCMD";N$
  162. 1560 [139][200](N$,1)[178]"S"[167][141]2410
  163. 1570 [139][200](N$,1)[179][177]"N"[167]1600
  164. 1580 [151]53269,0:[153]"LOAD  THANK YOU FOR PLAYING WEATHERWAR II
  165. 1590 PRINT"[159]    THE FINAL SCORE'S : [158][145]"Y$"="S:PRINTTAB(24)""Z$"="RR"[144]":END
  166. 1600 IFLEFT$(N$,1)<>"Y"THEN1550
  167. 1610 T$=Z$:Z$=Y$:Y$=T$:X=S:S=RR:RR=X
  168. 1620 GOSUB2270:POKE53269,0:GOTO270
  169. 1630 PRINT"WHAT'S PLAYER"J"[157] 'S NAME            [157][157][157][157][157][157][157][157][157][157] [191][157][157][157]";:INPUTAP$
  170. 1640 IFLEN(AP$)<2THENPRINT"[145][145][145]";:GOTO1630
  171. 1650 IFLEFT$(AP$,4)="COMP"THENAP$="COMPUTER"
  172. 1660 AP$=LEFT$(AP$,8):GOSUB2220:RETURN
  173. 1670 PRINT"[147]"TAB(12)"[158][182][215][197][193][212][200][197][210][215][193][210] [201][201][146][181]":POKE53272,22:PRINT"[155][212]HE";
  174. 1680 PRINT" OBJECT IS TO DESTROY YOUR [207][208][208][207][206][197][206][212]'[211] [200][207][205][197] USING [206]ATURE'S WEAPONS.
  175. 1690 [153]"(null)HE FORCES OF LEFT$ATNRIGHT$(null), (null)RIGHT$CHR$LEFT$(null)(null)RIGHT$(null)CHR$, (null)ATNRIGHT$(null), AND (null)(null)(null)(null)ATNSTR$(null) ARE AT YOUR COMMAND.
  176. 1700 PRINT"[193]FTER [215][197][193][208][207][206] SELECTION YOU MUST SHOW THE'[195][200][193][210][199][197]' YOU WANT TO APPLY.
  177. 1710 [153]"(null)ALUES ARE TO BE BETWEEN -150 AND 150,
  178. 1720 PRINT" NUMBERS [206]EGATIVE GO TO THE LEFT OF THE   SCREEN AND [208]OSITIVE ";
  179. 1730 PRINT"TO THE RIGHT.":PRINT"[193] '[215][201][206][196] [198][193][195][212][207][210]' IS ALSO INDICATED AND
  180. 1740 [153]" MUST BE TAKEN INTO CONSIDERATION - OR +  WHEN DETERMINING THE";
  181. 1750 [153]"'LENLEFT$ATN(null)CHR$VAL' TO USE.":[153]"ATNLSO, JUST AS IN LIFE, A RANDOM 'ATNLEN(null) (null)ASC ";
  182. 1760 [153]" (null)ATN(null)(null)(null)VAL'(null) STRIKES FROM TIME TO TIME.
  183. 1770 PRINT"[158]        [182][200][201][212][160][193][206][217][160][203][197][217][160][212][207][160][195][207][206][212][201][206][213][197]":FORV=1TO9:GETA$:NEXT
  184. 1780 GETA$:IFA$=""THEN1780
  185. 1790 GOTO2460
  186. 1800 IFLEFT$(Z$,4)="COMP"THENCT=2
  187. 1810 GOTO500
  188. 1820 IFLEFT$(Y$,4)="COMP"THENCT=1
  189. 1830 GOTO500
  190. 1840 PB=0:O=1:IFAA<8THENB$="L":N$=B$:LI=LI+1:IFLI<3ANDMM<7THEN690
  191. 1850 IFMM=1THENB$="R":N$=B$:GOTO690
  192. 1860 PB=PB+1:IFPB>8THENB$="H":N$=B$:GOTO690
  193. 1870 B$=MID$("HRT",INT(RND(1)*3)+1,O):N$=B$:IFB$="T"ANDRND(1)<.7THEN1860
  194. 1880 IFB$="R"ANDRND(1)<.6ORLI>0ORMM>6THEN1860
  195. 1890 GOTO690
  196. 1900 IFB$="L"ANDAA>3THENA1=MM*-20:GOTO810
  197. 1910 IFB$="L"ANDAA<4THENA1=0:GOTO810
  198. 1920 H=1668:FORY=0TO4:FORX=0TO8:D=PEEK(H+X):IFD=32THEN1940
  199. 1930 P=X:PQ=(100-(Y*5))/25:QQ=X:QP=Y:Y=5:X=9
  200. 1940 NEXT:H=H+40:NEXT:H=1827
  201. 1950 A1=(EE*-1)-((AA-P)*PQ)-1
  202. 1960 IFN$="T"THENEE=(EE/1.5)+5:GOTO810
  203. 1970 IFAA<4ANDQQ>5ANDQP>3THENA1=A1-QQ-AA:GOTO810
  204. 1980 IFAA<4ANDQQ>4THENA1=A1-QQ-AA
  205. 1990 GOTO810
  206. 2000 PB=0:O=1:IFAA>18THENB$="L":N$=B$:LX=LX+1:IFLX<3ANDMM<6THEN690
  207. 2010 IFMM=1THENB$="R":N$=B$:GOTO690
  208. 2020 PB=PB+1:IFPB>8THENB$="H":N$=B$:GOTO690
  209. 2030 B$=MID$("HRT",INT(RND(1)*3)+1,O):N$=B$:IFB$="T"ANDRND(1)<.7THEN2020
  210. 2040 IFB$="R"ANDRND(1)<.6ORLX>0ORMM>6THEN2020
  211. 2050 GOTO690
  212. 2060 IFB$="L"ANDAA<23THENA1=MM*20:GOTO810
  213. 2070 IFB$="L"ANDAA>22THENA1=0:GOTO810
  214. 2080 H=1699:FORY=0TO4:FORX=0TO8:D=PEEK(H-X):IFD=32THEN2100
  215. 2090 P=X:PQ=(100-(Y*6))/25:Y=5:X=9
  216. 2100 NEXT:H=H+40:NEXT:H=1827
  217. 2110 A1=(EE*-1)+(((28-AA)-P)*PQ)
  218. 2120 IFMM=1THENA1=A1-9
  219. 2130 IFN$="T"THENEE=(EE/1.5)-5
  220. 2140 GOTO810
  221. 2150 FORX=1TO20:POKE54277,29:POKE54276,17:POKE54273,17:POKE54276,129
  222. 2160 POKE54273,125:POKE54276,0:POKE54277,0:NEXT
  223. 2170 POKE54277,8:POKE54283,17:POKE54280,92:POKE54279,169
  224. 2180 POKE54283,0:POKE54277,0:POKE54272,0:RETURN
  225. 2190 POKE54277,29:POKE54276,129:POKE54273,6:POKE54272,4
  226. 2200 FORV=1TO20:POKELF,1:POKE53272,22:POKE53272,21:POKELF,0:NEXT
  227. 2210 POKE54276,0:POKE54277,0:POKE54272,0:RETURN
  228. 2220 POKE54276,0:POKE54277,0:POKE54272,0
  229. 2230 POKE54277,29:POKE54276,17:POKE54273,17:POKE54272,37
  230. 2240 FORX=1TO700:NEXT:POKE54276,0:POKE54277,0:POKE54272,0:RETURN
  231. 2250 POKE54276,0:POKE54277,0:POKE54277,29:POKE54276,33:FORX=40TO140STEP6
  232. 2260 POKE54273,15+X:NEXT:POKE54276,0:POKE54277,0:RETURN
  233. 2270 POKE54276,0:POKE54277,0:POKE54273,0
  234. 2280 POKE54283,0:POKE54284,0:POKE54280,0
  235. 2290 READH:READL:READD
  236. 2300 IFH=-1THENRESTORE:RETURN
  237. 2310 POKE54277,29:POKE54273,H/1.3:POKE54272,L:POKE54276,67:POKE54278,15
  238. 2320 POKE54284,29:POKE54280,H/2:POKE54283,17
  239. 2330 FORT=1TOD/17:POKE54275,T:NEXT:GOTO2270
  240. 2340 DATA66,111,400:88,33,450,0,0,70,99,111,200,22,77,200,66,50,950,88,33,450
  241. 2350 DATA50,44,200,33,33,90,33,88,320,55,77,77,88,33,200
  242. 2360 DATA66,111,400:88,33,450,0,0,70,99,111,200,22,77,200,66,50,950,88,33,450
  243. 2370 DATA50,44,200,33,33,90,33,88,320,55,77,77,88,33,999
  244. 2380 DATA-1,-1,-1
  245. 2390 POKE54276,0:POKE54277,0:POKE54277,29:POKE54276,33:FORX=160TO1STEP-5
  246. 2400 POKE54273,66:POKE54273,33:NEXT:POKE54276,0:POKE54277,0:RETURN
  247. 2410 PRINT"[159] THE CURRENT SCORE'S : [158][145]"Y$"="S
  248. 2420 PRINT"[158]"SPC(23)Z$"="RR
  249. 2430 FORV=1TO5000:NEXT:PRINT"":FORV=1TO7
  250. 2440 PRINT"                        ";
  251. 2450 NEXT:RETURN
  252. 2460 PRINT"[147]"TAB(11)"[158][182][215][197][193][212][200][197][210][215][193][210] [201][201][146][181]":PRINT"[155][212]HE [195][207][205][208][213][212][197][210] ";
  253. 2470 PRINT"[208][204][193][217][211], IF YOU TYPE IN       '[195][207][205][208][213][212][197][210]' FOR PLAYER 1 OR PLAYER 2.
  254. 2480 [153]"(null)LAY CONTINUES UNTIL THE (null)(null)(null)(null)STR$ IS        COMPLETED, GIVING BOTH";
  255. 2490 [153]" PLAYERS AN EQUAL  NUMBER OF (null)HEATHER (null)TRIKES.
  256. 2500 PRINT"[197]NTER A '[211]' AS WEAPON SELECTION TO SEE   [195]URRENT [211]CORES. (1 POINT ";
  257. 2510 PRINT"PER GAME)     [197]NTER A '[209]' AS WEAPON SELECTION TO [209][213][201][212]  THE GAME IN";
  258. 2520 PRINT" PROGRESS.":PRINT"[204]IGHTNING IS THE MOST DESTRUCTIVE WEAPON ";
  259. 2530 PRINT"AND HAIL THE MOST USEFUL.
  260. 2540 [153]"(null)HE RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null) WILL BE SHOWN (null)(null)LENVAL, SO  IF YOU DON'T UNDER";
  261. 2550 [153]"STAND, THEN HIT '(null)'     TO REPEAT THEM.
  262. 2560 PRINT"[158]      [182][200][201][212][160][193][206][217][160][203][197][217][160][212][207][160][211][212][193][210][212][160][208][204][193][217][146][161]":FORV=1TO9:GETA$:NEXT
  263. 2570 GETA$:IFA$=""THEN2570
  264. 2580 IFA$="R"THEN1670
  265. 2590 PRINT"[147]":POKE53272,21:GOTO150
  266. 2600 V=53248:POKEV+21,0:RESTORE:FORX=1TO39:READA:NEXT:FORX=0TO7:POKE2040+X,11
  267. 2610 NEXT:FORX=0TO62:READA:POKE704+X,A:NEXT:POKEV+23,199:POKEV+29,137
  268. 2620 POKEV+27,120:FORX=0TO16:READA:POKEV+X,A:NEXT:FORX=39TO46:READA
  269. 2630 POKEV+X,A:NEXT:RETURN
  270. 2640 DATA0,48,0,0,112,0
  271. 2650 DATA0,248,0,0,248,0
  272. 2660 DATA1,252,0,12,252,0
  273. 2670 DATA13,254,0,15,254,224
  274. 2680 DATA7,253,224,7,251,224
  275. 2690 DATA25,253,192,31,255,192
  276. 2700 DATA111,255,216,111,255,184
  277. 2710 DATA119,255,120,63,255,240
  278. 2720 DATA31,255,224,7,255,0
  279. 2730 DATA3,254,0,1,252,0
  280. 2740 DATA0,248,0
  281. 2750 DATA19,176,30,148,58,154,111,197,227,197,229,191,228,176,49,176,132
  282. 2760 DATA5,5,5,9,10,9,8,5
  283. 2770 END
  284.