home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD028A.D64 / godzilla.....exe (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  13.0 KB  |  388 lines
  1. 1 REM *********GODZILLA****************
  2. 3 REM COURTESY OF SACRAMENTO PUNTER BBS
  3. 5 REM        916--991-4835
  4. 6 REM *********************************
  5. 90 CLR:GOTO 62000
  6. 100 DIM TR(4,4),SH(4,4),PL(4,4),PO(4,4),LN(4,4),JR(15),JC(15),DM(10),DM$(10)
  7. 105 DIM BS(11),BG(11),BI(11),NT(24),DR(24)
  8. 110 SP=CRT+1016:SB=13*64
  9. 115 PRINT "[147]SETTING UP..."
  10. 120 READ T$:IF T$<>"\" THEN 120
  11. 130 R0=50:C0=24:HW=0:GW=0
  12. 140 DN$="":BL$="             "
  13. 150 SID=54272:FORI=0TO28:POKESID+I,0:NEXT
  14. 160 C1$="[154]":C2$="[150]"
  15. 200 FORI=0 TO15:READ JR(I),JC(I):NEXT I
  16. 210 FOR I=1 TO 10:READ DM$(I),DM(I):NEXT I
  17. 220 FOR I=1 TO 10:READ BI(I),BS(I),BG(I):NEXT
  18. 230 FOR I=1 TO 24:READ NT(I),T:DR(I)=T*20:NEXT
  19. 510 READ N:FOR I=0 TO N-1:READ T:POKE SB+I,T:NEXT
  20. 520 FOR I=N TO 63:POKE SB+I,0:NEXT
  21. 530 A=SB+64:FOR I=0 TO 60 STEP 3:POKEA+I,255:POKEA+I+1,255:POKE A+I+2,224:NEXT
  22. 540 FOR I=0 TO 3:POKE VIC+I+I+1,0:POKE SP+I,14:NEXT:POKE VIC+16,0:POKE SP,13
  23. 550 A=SB+128:FOR I=0 TO 63:POKE A+I,0:NEXT
  24. 560 FOR I=0 TO 7:POKE A+3*I,255:NEXT:POKE SP+1,15
  25. 600 POKE VIC+21,15:POKE VIC+23,12:POKE VIC+29,12:POKE VIC+27,14
  26. 610 POKE VIC+39,5:POKE VIC+40,1:POKE VIC+41,2:POKE VIC+42,6
  27. 620 POKE VIC+2,144
  28. 900 FOR I=1 TO 7 STEP 2:POKE VIC+I,0:NEXT:PRINT"[147]BUILDING JAPAN...
  29. 1000 [140]:MP[178]0:[129] I[178]0 [164] 4:[129] J[178]0 [164] 4
  30. 1010 [135] A,PO:PL[178]0:SH[178]0:[139] PO[177]0 [167] PO[178][181](1E7[173]PO[170].5)
  31. 1020 [139] PO[177]0 [167] PL[178][181]([187](1)[172]100)[170]1:TR[178][181](PO[173]80)
  32. 1030 [139] PO[178]0 [167] SH[178][181]([187](1)[172]6)[170]1:TR[178]SH[172]350
  33. 1040 PL(I,J)[178]PL:SH(I,J)[178]SH:PO(I,J)[178]PO:TR(I,J)[178]TR:LN(I,J)[178](PO[177]0):[139]PL[177]MP[167]MP[178]PL
  34. 1045 [130]J,I
  35. 1050 [131]  83,0, 87,0, 92,0, 97,1,102,0
  36. 1060 [131] 283,0,287,0,291,0,256,1,301,1
  37. 1070 [131] 483,0,487,0,492,0,456,1,501,0
  38. 1080 [131] 683,0,687,1.5,691,1,655,.4,701,0
  39. 1090 [131] 844,1,806,1,851,0,856,0,861,0
  40. 1400 [153] "LOADPOKE";
  41. 1410 [129] I[178]1 [164] 5
  42. 1420 N[178]5:[139] I[177]1 [167] N[178]4:[129] J[178]1 [164] 5:[153] "USRUSRUSRUSR(null)";:[130] J:[153]
  43. 1430 [129] J[178]1 [164] N:[129] K[178]1 [164] 5:[153] "    +";:[130] K:[139] J[179]N [176] I[179]5 [167] [153]
  44. 1440 [130] J,I:[153]""
  45. 1500 [153] "POKE"
  46. 1510 [129] I[178]1 [164] 20:[135] T,T$:[153] [166]T);T$:[130]:[151] VIC[170]3,186
  47. 1520 [131]17," (null)",17,"  ",17,"    WAITINT",16,"STEP    WAIT(null)",15,"STEPWAITFREFRE(null)STEP",15,"(null)(null)
  48. 1530 DATA16," [223]",16,"  ",16,"  ",15,"[169] [146][169]",14,"[169]  ",13,"[169]   "
  49. 1540 DATA11,"     [146][169]",11,"    [209]",6,"[169]         ",4,"[223]  [146][169][184]  [146][184][184][184][169]"
  50. 1550 DATA7,"[169][146]  [146][169]",3,"  [146] [169]",4," ",4,"[169]"
  51. 1610 PRINT C2$;"[144]":GOSUB 9000:PRINT
  52. 1620 FOR I=0 TO 7:READ Z$:PRINT TAB(26);"[158]";CHR$(65+I);"[156]:";Z$:NEXT
  53. 1630 DATA LAND ATTACK,SEA ATTACK,AIR ATTACK,MOVE TROOPS,MOVE SHIP
  54. 1640 DATA MISSILE,ATOM BOMB,QUIT
  55. 1700 GD=2500:NM=10:AB=0:TK=0
  56. 1900 R1=0:C1=0
  57. 2000 GOSUB 8200:IF SG THEN ON SG GOTO 6900,6850
  58. 2005 GET T$:IF T$<>"" THEN 2005
  59. 2007 CS$=C1$:CS=6:GOSUB 8000:R1=R:C1=C
  60. 2010 IF C$="" OR C$=CHR$(13) THEN 2005
  61. 2015 IF C$="Q" THEN C$="H"
  62. 2020 IF C$<"A" OR C$>"H" THEN ER$="HUH?":GOSUB 7900:GOTO 2000
  63. 2025 TD=0:SD=0:AD=0:PD=0:AR=GR:AC=GC
  64. 2030 ON ASC(C$)-ASC("A")+1 GOTO 2500,3000,3500,4000,4500,5000,5500,6000
  65. 2040 GOTO 2000
  66. 2050 CS$=C2$:CS=4:GOSUB 8000:R2=R:C2=C
  67. 2060 POKE VIC+CS+1,0:PRINT C2$;"[144]":GOSUB 9000
  68. 2070 GOTO 2000
  69. 2500 IF LN(AR,AC)=0 THEN ER$="NOT LAND":GOSUB 7900:GOTO 2000
  70. 2510 IF TR(AR,AC)<=0 THEN ER$="NO TROOPS":GOSUB 7900:GOTO 2000
  71. 2520 GOSUB 7800:IF IN=0 THEN 2000
  72. 2530 IF IN>TR(AR,AC) THEN ER$="TOO MANY":GOSUB 7900:GOTO 2000
  73. 2540 TD=INT(RND(1)*IN)
  74. 2550 DM=1+INT(IN/8000+RND(1)*3):IF DM>7 THEN DM=7
  75. 2555 DR=IN*50/125000:GOSUB 2700
  76. 2560 GOTO 6500
  77. 2700 FOR I=SID TO SID+14 STEP 7
  78. 2710 POKE I,0:POKE I+1,64:POKE I+5,0:POKE I+6,198:NEXT:N=4
  79. 2720 FOR J=1 TO DR
  80. 2730 O=N:N=N+7:IF N>18 THEN N=4
  81. 2740 POKE SID+N,129
  82. 2750 FOR I=1 TO PEEK(SID+27)/4:NEXT
  83. 2760 POKE SID+O,128
  84. 2770 FORI=1 TO 30:NEXT
  85. 2780 NEXT J
  86. 2800 FOR J=1 TO 2:O=N:N=N+7:IF N>18 THEN N=4
  87. 2810 POKE SID+O,128:POKE SID+O+2,10:POKE SID+O,129:POKE SID+O,128
  88. 2820 FOR I=1 TO 30:NEXT:NEXT J
  89. 2830 RETURN
  90. 3000 IF LN(AR,AC) THEN ER$="NOT SEA":GOSUB 7900:GOTO 2000
  91. 3010 IF SH(AR,AC)<=0 THEN ER$="NO SHIPS":GOSUB 7900:GOTO 2000
  92. 3020 IF TR(AR,AC)/SH(AR,AC)<100THENER$="TOO FEW MEN":GOSUB7900:GOTO 2000
  93. 3030 DM=SH(AR,AC)+INT(RND(1)*4):IF DM>7 THEN DM=7
  94. 3040 TD=INT(RND(1)*TR(AR,AC)):SD=INT(TD/300)
  95. 3050 IF SD>=SH(AR,AC) THEN SD=SH(AR,AC):TD=TR(AR,AC)
  96. 3055 GOSUB 3200
  97. 3060 GOTO 6500
  98. 3200 POKE SID+0,0:POKE SID+1,12:POKE SID+5,28:POKE SID+6,252:POKE SID+22,110
  99. 3205 POKE SID+24,31
  100. 3210 FOR J=1 TO 3+RND(1)*SH(AR,AC)*2
  101. 3220 POKE SID+23,1:POKE SID+4,129
  102. 3230 FOR I=1 TO 200:NEXT I:POKE SID+4,128
  103. 3240 FOR I=1 TO 700*RND(1):NEXT
  104. 3250 NEXT J
  105. 3260 RETURN
  106. 3500 AR=R1:AC=C1
  107. 3510 IF PL(AR,AC)<1 THEN ER$="NO PLANES":GOSUB 7900:GOTO 2000
  108. 3520 IF ABS(GR-AR)+ABS(GC-AC)>2 THEN ER$="TOO FAR":GOSUB 7900:GOTO 2000
  109. 3530 GOSUB 7800:IF IN=0 THEN 2000
  110. 3540 IF IN>PL(AR,AC) THEN ER$="TOO MANY":GOSUB 7900:GOTO 2000
  111. 3550 DM=INT(IN*RND(1)/3)+1:IF DM>9 THEN DM=9
  112. 3560 AD=INT(IN*RND(1)):GOSUB3700:GOTO 6500
  113. 3700 POKESID,32:POKESID+1,1:POKESID+2,64:POKESID+3,0:POKESID+5,0:POKESID+6,240
  114. 3710 FORA=SID+7TOSID+14STEP7:POKEA,0:POKEA+1,4:POKEA+2,0:POKEA+3,1:POKEA+5,0
  115. 3720 POKEA+6,73:NEXTA:POKESID+14,16:POKESID+23,0:POKESID+24,15
  116. 3730 POKESID+11,65:POKESID+18,69
  117. 3740 FOR I=1 TO 3+RND(1)*IN/MP*5
  118. 3750 POKESID+4,64:FORJ=0TORND(1)*300:NEXTJ
  119. 3760 POKESID+4,65:FORJ=0TO200+RND(1)*500:NEXTJ
  120. 3770 NEXTI:POKESID+4,64:POKESID+11,64:POKESID+18,64
  121. 3780 RETURN
  122. 4000 IF LN(R1,C1)=0 THEN ER$="NOT LAND":GOSUB 7900:GOTO 2000
  123. 4010 IF TR(R1,C1)=0 THEN ER$="NO TROOPS":GOSUB 7900:GOTO 2000
  124. 4020 GOSUB 7800:IF IN=0 THEN 4120
  125. 4030 IF IN>TR(R1,C1) THEN ER$="TOO MANY":GOSUB 7900:GOTO 4120
  126. 4035 PRINT DN$;TAB(26);"MOVING";STR$(IN)
  127. 4040 PRINT TAB(26);"[150]WHERE TO?"
  128. 4050 CS=4:CS$=C2$:GOSUB 8000:PRINT DN$;"";TAB(26);BL$
  129. 4055 R2=R:C2=C:IF C$<>"" THEN 4120
  130. 4060 IF R1=R2 AND C1=C2 THEN 4120
  131. 4065 IF ABS(R1-R2)+ABS(C1-C2)>2 THEN ER$="TOO FAR":GOSUB 7900:GOTO 4120
  132. 4070 IF LN(R2,C2)=0 THEN ER$="NOT LAND":GOSUB 7900:GOTO 4120
  133. 4080 TR(R2,C2)=TR(R2,C2)+IN:TR(R1,C1)=TR(R1,C1)-IN
  134. 4090 R=R1:C=C1:PRINT C1$:GOSUB 9000
  135. 4100 R=R2:C=C2:PRINT C2$:GOSUB 9000
  136. 4110 DL=60:GOSUB 7950
  137. 4120 POKE VIC+5,0:PRINT C2$;"[144]":GOSUB 9000:PRINT DN$;TAB(26);BL$
  138. 4130 GOTO 2000
  139. 4500 IF LN(R1,C1) THEN ER$="NOT SEA":GOSUB 7900:GOTO 2000
  140. 4510 IF SH(R1,C1)=0 THEN ER$="NO SHIPS":GOSUB 7900:GOTO 2000
  141. 4520 PRINT DN$;TAB(26);"WHERE TO?"
  142. 4530 CS=4:CS$=C2$:GOSUB 8000:R2=R:C2=C:PRINT DN$;TAB(26);"";BL$
  143. 4540 IF C$<>"" THEN 4630
  144. 4550 IF LN(R2,C2) THEN ER$="NOT SEA":GOSUB 7900:GOTO 4630
  145. 4560 IF ABS(R1-R2)+ABS(C1-C2)>2 THEN ER$="TOO FAR":GOSUB 7900:GOTO 4630
  146. 4565 IF R1=R2 AND C1=C2 THEN 4630
  147. 4570 T=INT(TR(R1,C1)/SH(R1,C1))
  148. 4580 SH(R1,C1)=SH(R1,C1)-1:SH(R2,C2)=SH(R2,C2)+1
  149. 4590 TR(R1,C1)=TR(R1,C1)-T:TR(R2,C2)=TR(R2,C2)+T
  150. 4600 R=R1:C=C1:PRINT C1$:GOSUB 9000
  151. 4610 R=R2:C=C2:PRINT C2$:GOSUB 9000
  152. 4620 DL=60:GOSUB 7950
  153. 4630 POKE VIC+5,0:PRINT C2$;"[144]":GOSUB 9000:PRINT DN$;TAB(26);BL$
  154. 4640 GOTO 2000
  155. 5000 IF NM<1 THEN ER$="NO MISSILES":GOSUB 7900:GOTO 2000
  156. 5005 NM=NM-1:PRINT DN$;TAB(26);"MISSILE";10-NM:PRINT TAB(26);"LAUNCHED"
  157. 5010 PD=INT(RND(1)*PO(AR,AC))
  158. 5020 TD=INT(RND(1)*TR(AR,AC)):IF LN(AR,AC) THEN 5040
  159. 5030 SD=INT(TD/350):IF SD>SH(AR,AC) THEN SD=SH(AR,AC):TD=TR(AR,AC)
  160. 5040 DM=1+INT(RND(1)*9)
  161. 5050 GOSUB 5300
  162. 5060 PRINT DN$;TAB(26);BL$:PRINT TAB(26);BL$:GOTO 6500
  163. 5300 POKE SID+22,110:POKE SID+1,12:POKE SID+6,252:POKE SID+5,28
  164. 5310 POKE SID+13,76:POKE SID+24,31:POKE SID+11,17
  165. 5320 POKE SID+11,16:FOR I=255 TO 55 STEP -1
  166. 5330 POKE SID+8,I:POKE SID+8,I:NEXT
  167. 5340 POKE SID+11,0:POKE SID+23,1:POKE SID+4,129
  168. 5350 FOR I=1 TO 200:NEXT I
  169. 5360 POKE SID+4,128:RETURN
  170. 5500 IF AB THEN ER$="USED IT":GOSUB 7900:GOTO 2000
  171. 5510 PRINT DN$;TAB(26);"[156]REALLY?":PRINT TAB(26);"?";:GOSUB 60000
  172. 5520 PRINT DN$;TAB(26);BL$:PRINT TAB(26);BL$
  173. 5530 IF LEFT$(IN$,1)<>"Y"THEN ER$="ABORTED":GOSUB 7900:GOTO 2000
  174. 5535 PRINT DN$;TAB(26);"BOMB":PRINT TAB(26);"DETONATED":GOSUB 5700
  175. 5540 FOR R=AR-1 TO AR+1:IF R<0 OR R>4 THEN 5600
  176. 5550 FOR C=AC-1 TO AC+1:IF C<0 OR C>4 THEN 5590
  177. 5560 PRINT LEFT$("",1+5*R);TAB(5*C);"";
  178. 5565 IF R=3 AND C=3 THEN POKE VIC+3,0
  179. 5570 FOR Z=1 TO 5:PRINT "[214][214][214][214][214][157][157][157][157][157]";:IF Z<5 THEN PRINT "";
  180. 5580 NEXT Z:PRINT "":TD=TD+TR(R,C):PD=PD+PO(R,C)
  181. 5585 TR(R,C)=0:PO(R,C)=0:SH(R,C)=0:PL(R,C)=0
  182. 5590 NEXT C
  183. 5600 NEXT R:R=AR:C=AC:AB=1
  184. 5605 PRINT DN$;TAB(26);BL$:PRINT TAB(26);BL$
  185. 5610 DM(10)=INT(RND(1)*1500)+800:DM=10
  186. 5620 TR(AR,AC)=TD:SH(AR,AC)=SD:PL(AR,AC)=AD:PO(AR,AC)=PD:GOTO6500
  187. 5700 POKE SID+24,25:POKE SID+23,1:POKE SID+1,12:POKE SID+6,253:POKE SID+5,192
  188. 5710 POKE SID+4,129:N=1
  189. 5715 POKEVIC+6,24+GC*40:POKEVIC+7,50+GR*40:POKEVIC+27,PEEK(VIC+27)ANDNOT8
  190. 5720 FORI=70 TO 255:POKE SID+22,I
  191. 5725 IFBI(N)=ITHENPOKEVIC+39,BG(N):POKEVIC+42,BS(N):N=N+1
  192. 5730 FORJ=1 TO EXP((255-I)/34)*.7:NEXT
  193. 5740 NEXT I:POKE SID+24,79:POKE SID+4,128
  194. 5750 FORI=15 TO 200:POKE SID+22,I
  195. 5760 IFBI(N)<>ITHEN5770
  196. 5765 POKEVIC+39,BG(N):J=BS(N):POKEVIC+42,J:N=N+1:IFJ=16THENPOKEVIC+7,0
  197. 5770 FOR J=1 TO 10:NEXT:NEXT I
  198. 5780 POKE SID+4,0:POKEVIC+42,6:POKEVIC+27,PEEK(VIC+27)OR8
  199. 5790 POKEVIC+6,24+C1*40:POKEVIC+7,50+R1*40:RETURN
  200. 6000 POKE VIC+21,0:POKE SID+24,0
  201. 6010 PRINT "[147][154]":POKE VIC+32,14:POKE VIC+33,6
  202. 6020 GET T$:IF T$<>"" THEN 6020
  203. 6030 END
  204. 6500 TR(AR,AC)=TR(AR,AC)-TD:SH(AR,AC)=SH(AR,AC)-SD:PL(AR,AC)=PL(AR,AC)-AD
  205. 6510 PO(AR,AC)=PO(AR,AC)-PD:GD=GD-DM(DM)
  206. 6520 PRINT DN$;"[154]";TAB(26);DM$(DM);" DAMAGE":PRINT TAB(26);"TO GODZILLA[153]"
  207. 6525 IF SD>0 THEN PRINT TAB(26);"[157]";SD;LEFT$("SHIPS",5+(SD=1));" SUNK"
  208. 6530 IF TD+PD>0 THEN PRINT TAB(26);"[157]";TD+PD;"DEAD":TK=TK+TD+PD
  209. 6535 IF AD>0 THEN PRINT TAB(26);"[157]";AD;"DESTROYED"
  210. 6545 IF AR=R1 AND AC=C1 THEN PRINT C1$:GOSUB 9000
  211. 6550 DL=300:GOSUB 7950:PRINT DN$;
  212. 6560 FOR Z=1 TO 4:PRINT TAB(26);BL$:NEXT
  213. 6565 IF PO(3,3)<25000 THEN 6900
  214. 6570 IF TK>2E7 THEN 6850
  215. 6575 IF GD<1 THEN 6800
  216. 6580 IF DM<>7 AND DM<>8 THEN 2000
  217. 6585 GOSUB 8200:IF SG THEN ON SG GOTO 6900,6850
  218. 6590 PRINT DN$;TAB(26);"[150]GODZILLA":PRINT TAB(26);"ON RAMPAGE[153]"
  219. 6595 GOSUB 8500
  220. 6600 IF LN(GR,GC) THEN 6660
  221. 6610 IF SH(GR,GC)=0 THEN 6700
  222. 6620 PD=0:TD=INT(RND(1)*TR(GR,GC)/SH(GR,GC)):SH(GR,GC)=SH(GR,GC)-1
  223. 6630 IF SH(GR,GC)=0 THEN TD=TR(GR,GC)
  224. 6640 PRINT TAB(26);"1 SHIP SUNK"
  225. 6650 GOTO 6670
  226. 6660 PD=INT(RND(1)*PO(GR,GC)):TD=INT(RND(1)*TR(GR,GC))
  227. 6670 PO(GR,GC)=PO(GR,GC)-PD:TR(GR,GC)=TR(GR,GC)-TD
  228. 6680 PRINT TAB(26);"[157]";TD+PD;"DEAD"
  229. 6690 IF GR=R1 AND GC=C1 THEN PRINT C1$:GOSUB 9000
  230. 6695 TK=TK+PD+TD
  231. 6700 DL=300:GOSUB7950
  232. 6710 PRINT DN$;:FOR Z=1 TO 4:PRINT TAB(26);BL$:NEXT
  233. 6720 IF TK>2E7 THEN 6850
  234. 6730 GOTO 2000
  235. 6800 PRINT DN$;TAB(26);"GODZILLA":PRINT TAB(26);"IS DEAD!"
  236. 6830 HW=HW+1:N=1:GOSUB 9500:GOTO 7000
  237. 6850 PRINT DN$;TAB(26);"[157][150]";TK;"DEAD"
  238. 6860 PRINT TAB(26);"[153]GODZILLA":PRINT TAB(26);"WINS!!"
  239. 6870 GW=GW+1:N=10:GOSUB 9500:GOTO 7000
  240. 6900 PRINT DN$;TAB(26);"TOKYO IS":PRINT TAB(26);"DESTROYED!"
  241. 6910 PRINT TAB(26);"[153]GODZILLA":PRINT TAB(26);"WINS!!"
  242. 6920 GW=GW+1:N=10:GOSUB 9500:GOTO 7000
  243. 7000 DL=300:GOSUB 7950:PRINT DN$;
  244. 7010 FOR I=1 TO 4:PRINT TAB(26);BL$:NEXT
  245. 7020 PRINT C2$;TAB(26);"[158]  GAMES WON  [159]
  246. 7030 [153] [163]26);"GODZILLA ";[201]("   "[170][196](GW),4)
  247. 7040 [153] [163]26);"YOU      ";[201]("   "[170][196](HW),4)
  248. 7050 [153] DN$;:[141] 9100:[139] YN[178]0 [167] 6000
  249. 7060 [137] 900
  250. 7500 [141] 61000:[151] SID[170]24,15:[151] SID,0:[151] SID[170]5,0:[151] SID[170]6,240
  251. 7510 P[178]2[174](1[173]12):C[178]40:D[178]C[172]P[172]P:E[178]D[172]P[172]P:G[178]E[172]P[172]P[172]P[173]2[170]1:[151] SID[170]4,17
  252. 7520 [151] SID[170]1,C:[129] I[178]1 [164] 90:[130]
  253. 7530 [151] SID[170]1,D:[129] I[178]1 [164] 90:[130]
  254. 7540 [151] SID[170]1,E:[129] I[178]1 [164] 90:[130]
  255. 7550 [151] SID[170]1,C:[129] I[178]1 [164] 90:[130]
  256. 7555 [151] SID[170]1,0:[129] I[178]1 [164] 54:[130]
  257. 7560 [151] SID[170]1,G:[129] I[178]1 [164] 120:[130]
  258. 7570 [151] SID[170]1,C:[129] I[178]1 [164] 90:[130]
  259. 7580 [151] SID[170]4,16:[142]
  260. 7800 [153] DN$;[163]26);"PRINTHOW MANY?"
  261. 7810 [153] [163]26);"?";:[141] 60000:[139] IN$[178]"" [167] IN[178]0:[137]7890
  262. 7820 [129] Z[178]1 [164] [195](IN$):Z$[178][202](IN$,Z,1)
  263. 7830 [139] Z$[179]"0"[176] Z$[177]"9" [167] ER$[178]"BAD NUMBER":[141] 7900:[137] 7890
  264. 7840 [130] Z:IN[178][197](IN$)
  265. 7890 [153] DN$;[163]26);"";BL$:[153][163]26);BL$:[142]
  266. 7900 [153] DN$;[163]26);ER$;"ON"
  267. 7910 DL[178]60:[141] 7950
  268. 7920 [153] [163]26);BL$
  269. 7930 [142]
  270. 7950 TM[178]TI[170]DL
  271. 7960 [139] TI[179]TM [167] 7960
  272. 7970 [142]
  273. 8000 A[178]VIC[170]39[170]CS[173]2:TM[178]0
  274. 8010 [141] 8900
  275. 8020 JD[178][194](JS)[175]31:[161]C$:[139]C$[179][177]""[176](JD[175]16)[178]0[167]8110
  276. 8030 [139]TI[177]TM[167][151]A,([194](A)[170]8)[175]15:TM[178]TI[170]2
  277. 8040 JD[178]JD[175]15:[139]JD[178]15[167]8020
  278. 8050 R[178]R[170]JR(JD):C[178]C[170]JC(JD)
  279. 8060 [139] R[179]0 [167] R[178]4
  280. 8070 [139] R[177]4 [167] R[178]0
  281. 8080 [139] C[179]0 [167] C[178]4
  282. 8090 [139] C[177]4 [167] C[178]0
  283. 8100 [151] A,[194](A)[175][168]8:TM[178]TI[170]20:[137]8010
  284. 8110 [151]A,[194](A)[175][168]8:[142]
  285. 8200 R1[178]GR[170][181]([187](1)[172]3[171]1):C1[178]GC[170][181]([187](1)[172]3[171]1)
  286. 8210 [139] R1[179]0 [176] R1[177]4 [176] C1[179]0 [176] C1[177]4 [167] 8200
  287. 8230 GR[178]R1:GC[178]C1:[151] VIC,24[170]GC[172]40[170]6:[151] VIC[170]1,50[170]GR[172]40[170]10
  288. 8240 R[178]R1:C[178]C1:CS[178]6:CS$[178]C1$:[141]8900
  289. 8250 GD[178]GD[170]15:[139] GR[179][177]3 [176] GC[179][177]3 [167] SG[178]0:[142]
  290. 8260 [153] DN$;[163]26);"DEFGODZILLA IS":[153] [163]26);"IN TOKYO!":[141] 8400
  291. 8270 PD[178][181]([187](1)[172]PO(3,3)[173]3):TD[178][181]([187](1)[172]TR(3,3))
  292. 8280 PO(3,3)[178]PO(3,3)[171]PD:TR(3,3)[178]TR(3,3)[171]TD
  293. 8290 TK[178]TK[170]TD[170]PD:[153] [163]26);"CMDPRINT";TD[170]PD;"DEAD":[141] 8900
  294. 8300 DL[178]300:[141] 7950:[153] DN$;:[129] I[178]1 [164] 3:[153] [163]26);BL$:[130]
  295. 8310 [139] PO(3,3)[179]10000 [167] SG[178]1:[142]
  296. 8320 [139] TK[177]2E7 [167] SG[178]2:[142]
  297. 8330 [137] 8900
  298. 8400 [151] SID[170]0,0:[151] SID[170]5,0:[151] SID[170]6,240:[151] SID[170]24,15:[151] SID[170]23,0
  299. 8410 [151] SID[170]4,17:[129] I[178]1 [164] 6
  300. 8420 [129] J[178]25 [164] 50:[151] SID[170]1,J:[129]K[178]1[164]1:[130]:[130]J
  301. 8430 [129] J[178]49 [164] 26 [169] [171]1:[151] SID[170]1,J:[129]K[178]1[164]1:[130]:[130]J
  302. 8440 [130] I:[151] SID[170]4,F:[142]
  303. 8500 [151] SID,0:[151] SID[170]6,240:[151] SID[170]24,7:[151] SID[170]23,0
  304. 8510 [151] SID[170]4,17:[129] I[178]1[164]4:[129]J[178]1[164]70:[151]SID[170]1,J:[130]J:[130]I:[151] SID[170]4,16
  305. 8520 [142]
  306. 8900 [151] VIC[170]CS,C0[170]40[172]C:[151] VIC[170]CS[170]1,50[170]R[172]40:[153] CS$:[141]9000:[142]
  307. 8999 [153] "";:[128]
  308. 9000 Z$[178]"-":Z[178]PO(R,C):[139] Z[177]0 [167] Z$[178][196](Z)
  309. 9005 [153] [163]26);"POP. ";[201]("        "[170]Z$,8)
  310. 9010 Z$[178]"-":Z[178]TR(R,C):[139] Z[177]0 [167] Z$[178][196](Z)
  311. 9015 [153] [163]26);"TROOPS ";[201]("      "[170]Z$,6)
  312. 9020 Z$[178]"-":Z[178]PL(R,C):[139] Z[177]0 [167] Z$[178][196](Z)
  313. 9025 [153] [163]26);"PLANES ";[201]("      "[170]Z$,6)
  314. 9030 Z$[178]"-":Z[178]SH(R,C):[139] Z[177]0 [167] Z$[178][196](Z)
  315. 9035 [153] [163]26);"SHIPS ";[201]("       "[170]Z$,7)
  316. 9040 [142]
  317. 9100 NO[178]0:[153] [163]26);"PLAY AGAIN?"
  318. 9110 TM[178]0:SW[178]1:[153][163]26);"POKEYES NOON"
  319. 9120 [139] TI[179]TM [167] 9150
  320. 9130 [153][163]26[170]NO[172]4);[202]("POKE",SW,1);[202]("YESNOCLOSE",3[172]NO[170]1,3);"ON"
  321. 9140 SW[178]3[171]SW:TM[178]TI[170]15
  322. 9150 JD[178][194](JS)[175]31:JB[178](JD[179]16):JD[178]JD[175]15
  323. 9160 [139] JB [175] JD[178]15 [167] YN[178](NO[178]0):[142]
  324. 9170 [139](JD [175] 8)[178]0 [175] NO[178]0 [167] NO[178]1:[137] 9110
  325. 9180 [139](JD [175] 4)[178]0 [175] NO[178]1 [167] NO[178]0:[137] 9110
  326. 9190 [137] 9120
  327. 9500 [129] A[178]SID [164] SID[170]14 [169] 7:[151] A,0:[151] A[170]1,0:[151] A[170]5,0
  328. 9510 [151] A[170]6,240:[130]:[151] SID[170]7,128:[151]SID[170]14,255:[151]SID[170]24,15:[151]SID[170]23,0
  329. 9520 [151] SID[170]4,17:[151] SID[170]11,17:[151] SID[170]18,17
  330. 9530 Z[178]NT(N):[139] Z[179]0 [167] 9560
  331. 9540 [151] SID[170]1,Z:[151] SID[170]8,Z:[151] SID[170]15,Z
  332. 9550 [129] I[178]1 [164] DR(N):[130] I:N[178]N[170]1:[137] 9520
  333. 9560 [151] SID[170]4,16:[151] SID[170]11,16:[151] SID[170]18,16
  334. 9570 [142]
  335. 60000 IN$[178]" ":ZT[178]TI:ZC[178]2:ZD$[178][199](20)
  336. 60010 [161]Z$:[139]Z$[179][177]""[167]60070
  337. 60020 [139]ZT[179][178]TI[167][153][202](" SPC(",ZC,1);"CMD";:ZC[178]3[171]ZC:ZT[178]TI[170]15
  338. 60030 [137]60010
  339. 60070 Z[178][198](Z$):ZL[178][195](IN$):[139](Z[175]127)[179]32[167][153]" CMD";:[137]60110
  340. 60080 [139]FL[175](Z[175]127)[177]64[175](Z[175]127)[179]91[167]Z$[178][199]((Z[170]128)[175]255)
  341. 60090 [139]ZL[177]11[167]60010
  342. 60100 IN$[178]IN$[170]Z$:[153]Z$;ZD$;Z$;
  343. 60110 [139]Z[178]13[167]IN$[178][202](IN$,2):[153]CR$;:[142]
  344. 60120 [139]Z[178]20[175]ZL[177]1[167]IN$[178][200](IN$,ZL[171]1):[153]"CMD";:[137]60010
  345. 60130 [139]Z[178]141[167]Z$[178][199]([171]20[172](ZL[177]1)):[129]Z[178]2[164]ZL:[153]Z$;:[130]Z:[137]60000
  346. 60140 [137]60010
  347. 61000 CRT[178]1024:VIC[178]53248:WD[178]40:CR$[178][199](13):SID[178]54272:JS[178]56320:CM[178]55296
  348. 61010 QK[178]1E20:QL[178]1E20:QM[178]1E20:QP[178]1E20:QQ[178]1E20:QS[178]1E20:[142]
  349. 61990 "TANTANTANTANTAN 11/11/82 TANTANTANTANTAN
  350. 62000 GOSUB61000:PRINTCHR$(142);"[147]":POKEVIC+17,91:POKEVIC+21,0
  351. 62010 POKE VIC+32,0:POKEVIC+33,0:POKEVIC+34,6:POKEVIC+35,5:POKEVIC+36,2
  352. 62020 PRINT"[160][160][160][160][160][160][160][160][160][160][160][160][160][160]           [160][160][160][160][160][160][160][160][160][160][160][160][160]"
  353. 62030 PRINT"[160][160][160][160][160][160][160][160][160][160][160]                 [146][160][160][160][160][160][160][160][160][160][160]"
  354. 62040 PRINT"[160][160][160][160][160][160][160][160][160][160][160][144] G O D Z I L L A [146][160][160][160][160][160][160][160][160][160][160]"
  355. 62110 PRINT"[160][160]                                    "
  356. 62120 PRINT"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  357. 62130 PRINT"[144]COURTESY OF SACRAMENTO PUNTER BBS[146]"
  358. 62135 PRINT "[152]                                       "
  359. 62140 C=0:O=1:N=2:CL$="[150][153][154][156]"
  360. 62150 Z=2:T$=" PRESS JOYSTICK BUTTON TO BEGIN"
  361. 62160 PRINT"[144]";TAB(Z+1);T$
  362. 62170 PRINTTAB(Z+O);"[145]";MID$(T$,O,1)
  363. 62180 PRINTTAB(Z+N);"[145]";MID$(T$,N,1)
  364. 62200 FORI=1TO50:NEXT:IFO=2THENC=C+1:PRINTMID$(CL$,C,1);:IFC>=LEN(CL$)THENC=0
  365. 62210 IFPEEK(JS)AND16THEN62170
  366. 62220 CLR:GOSUB61000:PRINT"[147]":POKEVIC+17,27
  367. 62230 POKEVIC+32,11:POKEVIC+33,0:GOTO100
  368. 62500 DATA \
  369. 62510 DATA 0,0, 0, 0,  0, 0, 0, 0
  370. 62520 DATA 0,0, 1, 1, -1, 1, 0, 1
  371. 62530 DATA 0,0, 1,-1, -1,-1, 0,-1
  372. 62540 DATA 0,0, 1, 0, -1, 0, 0, 0
  373. 62550 :
  374. 62560 DATA NO,5, NO,5, LITTLE,20, SOME,100, SOME,100, GREAT,150, MAJOR,300
  375. 62570 DATA MAJOR,300, SEVERE,400, GRAVE, 800
  376. 62580 :
  377. 62590 DATA 70,2,5, 110,8,2, 150,7,8, 190,1,7
  378. 62600 DATA 230,1,1, 19,7,1, 65,8,7, 111,2,8
  379. 62610 DATA 157,16,2, 199,16,5
  380. 62620 :
  381. 62630 DATA 48,2, 50,4, 0,0, 50,1, 53,2, 50,2, 45,2, 67,16, -1,0
  382. 62640 DATA 32,12,0,0, 32,8,0,0, 32,2,0,0, 32,14, 38,12, 36,8, 32,2,0,0, 32,10
  383. 62650 DATA 30,4, 32,14, -1,0
  384. 62990 :
  385. 63000 DATA57,0,0,0,0,0,112,0,0,236,0,1,255,0,1,255,0,3,240,0,3,224,0,7,248,0,7
  386. 63001 DATA236,0,15,192,0,15,192,0,15,128,0,31,192,0,31,224,0,63,240,0,126,240,0
  387. 63002 DATA252,224,195,241,192,127,195,240
  388.