home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_37_(10-1984).d64 / supertank (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  7KB  |  173 lines
  1. 10 PRINT"[147]":RESTORE:V=53248:POKEV+32,0:POKEV+33,1:POKEV+17,PEEK(V+17)AND247
  2. 15 PRINTTAB(53)"W*E*L*C*O*M*E!":PRINTTAB(59)"TO"
  3. 17 PRINTTAB(55)"SUPERTANK!":PRINT
  4. 20 FORQ=1TO4:PRINTTAB(14)"[152][170]":NEXT
  5. 22 PRINTTAB(14)"[170][169]        [223]":PRINTTAB(14)"[169] [209] [209]  [209][209][209] [223][146][162][162][185][185][185][185][185][185][185][185][162][162][162]"
  6. 24 PRINTTAB(13)"[169]  [209] [209]   [205]   [146][184][184][183][183][183][183][183][183][183][183][184][184][184]"
  7. 26 PRINTTAB(13)"   [209][209][209]  [209][209][209]  [146]"
  8. 28 PRINT"   [169]                              [223][146]"
  9. 30 PRINT"  [169]                                [223][146]"
  10. 32 PRINT"[166][166][152]                                  [146][166][166][166]"
  11. 34 PRINT"[166][166][166][152][205] [215][169] [223][146][215][169] [223][146][215][169] [223][146][215][169] [223][146][215][169] [223][146][215][169] [223][146][215][169] [223][146][215][206][166][166][166][166]"
  12. 36 PRINT"[166][166][166][166][152][205]  [209] [146]  [209] [146]  [209] [146]  [209] [146]  [209] [146]  [209] [146]  [209] [146][206][166][166][166][166][166]"
  13. 38 PRINT"[166][166][166][166][166][152][205][223] [146][169][215][223] [146][169][215][223] [146][169][215][223] [146][169][215][223] [146][169][215][223] [146][169][215][223] [146][169][166][166][166][166][166][166]"
  14. 40 PRINT"[166][166][166][166][166][166][152][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][166][166][166][166][166][166][166]"
  15. 42 FORQ=1TO2:PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]":NEXT
  16. 43 GOSUB800
  17. 48 S=54272:FORL=STOS+24:POKEL,0:NEXT
  18. 50 PRINT"[147]":POKEV+32,1:POKEV+33,0:PRINTTAB(120)
  19. 52 GOSUB1000
  20. 60 PRINT"[147]":PRINTTAB(90)"TANK SPECIFICATIONS"
  21. 62 PRINTTAB(49)" STRONG [146]   [158] MEDIUM [146]   WEAK [146]"
  22. 64 PRINTTAB(40)"1.TIGER[146]    ARMOR     [158]FIRE     SPEED"
  23. 66 PRINTTAB(40)"[158]2.T-34[146]     SPEED     [158]ARMOR    FIRE"
  24. 68 PRINTTAB(40)"3.SHERMAN[146]  FIRE      [158]SPEED    ARMOR":PRINTTAB(120)
  25. 70 PRINT:INPUT"   WHICH TANK DO YOU CHOOSE";TA
  26. 72 IFTA<1ORTA>3THEN80
  27. 78 PRINT"             GET READY !":FORQ=1TO500STEP.5:NEXT:GOTO85
  28. 80 PRINT"          YOU CAN'T DO THAT!    ":GOSUB1300:GOTO70
  29. 85 V=53248:GOSUB1100
  30. 90 PRINT"[147]":POKEV+32,0:POKEV+33,1
  31. 92 PRINTTAB(7)"[152][169][223][146]    [169][223][146]       [169][223][146]    [169][223][146]    [144]SCORE"
  32. 94 PRINT"  [152][169][223][146]  [169]  [146]   [169]  [223][146]     [169]  [223][146]  [169]  [223][146]  [144]";SC
  33. 96 PRINT" [152][169]  [223][169]   [223][146]      [223][146]  [169]     [146] [169]    [223][146]  [144]ARMOR"
  34. 98 PRINT"[152][169]         [223][169]     [223][169]      [169]      [223][146][144]";AR
  35. 100 FORQ=1TO17:PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]":NEXT
  36. 110 PRINT"[152][171][195][195][195][195][195][195][195][195][195][179][169]             [223][171][195][195][195][195][195][195][195][195][195][179]"
  37. 112 PRINT"[152][171][195][195][195][195][195][195][195][195][195][179]                 [171][195][195][195][195][195][195][195][195][195][179]"
  38. 114 GOSUB420
  39. 120 CB=1:TI$="000000"
  40. 150 POKEV+21,15:POKE2040,13:POKEV+39,0:POKEV,170:POKEV+1,150:Y=170:X=150:SH=0
  41. 151 POKE2042,193:POKEV+41,11:RF=0:UT=110:POKEV+42,0:POKE2043,195
  42. 152 POKE2041,14:POKEV+40,0:POKEV+2,X1:POKEV+3,Y1
  43. 180 S=NOTPEEK(56321)AND15:U=SAND1:D=SAND2:L=SAND4:R=SAND8:Y1=0:X1=0
  44. 182 POKEV+23,0:POKEV+29,0
  45. 185 IFUTHENX=X-M1:IFX<110THENX=X+M1
  46. 187 IFDTHENX=X+M1:IFX>180THENX=X-M1
  47. 189 IFRTHENY=Y+M1:IFY>245THENY=Y-M1
  48. 191 IFLTHENY=Y-M1:IFY<90THENY=Y+M1
  49. 200 POKEV,Y:POKEV+1,X
  50. 210 J=NOTPEEK(56321)AND16:IFJ=16THENGOSUB245
  51. 230 BO=BO+.5:GOSUB310:GOTO180
  52. 245 SH=SH+1:X1=X:MR=Y:HH=Y/2:GOSUB400
  53. 247 FORDD=DDTOHHSTEP5:POKEV+2,DD:POKEV+3,X1:GOSUB330:NEXT
  54. 250 POKE2041,15:FORDD=DDTOMRSTEP5:POKEV+2,DD:POKEV+3,X1:GOSUB330:NEXT
  55. 251 IF(PEEK(V+30)AND4)>0THENIF(PEEK(V+30)AND4)>0THENGOSUB253
  56. 252 X1=0:DD=0:Y1=0:POKEV+2,X1:POKEV+3,MR:POKE2041,14:RETURN
  57. 253 POKE2041,192:POKEV+23,2:POKEV+29,2
  58. 254 POKEV+3,X1-10:POKEV+2,DD-12:GOSUB410:GOSUB495
  59. 258 FORRE=1TO500:NEXT:POKEV+23,0:POKEV+29,0
  60. 260 X1=0:DD=0:Y1=0:POKEV+2,X1:POKEV+3,MR:POKE2041,14:RETURN
  61. 310 RF=RF+5:IFRF>215THEN350
  62. 315 POKEV+4,RF:POKEV+5,UT:RETURN
  63. 330 RF=RF+1.8:IFRF>215THENRF=0
  64. 333 IFRF=0THEN340
  65. 335 POKEV+4,RF:POKEV+5,UT:RETURN
  66. 340 RF=0:UT=110:RS=INT(RND(0)*60):UT=UT+RS:GOTO330
  67. 350 F1=RF:F2=UT:POKE2042,194:POKEV+6,F1:POKEV+7,F2:GOSUB400
  68. 355 FORQ=F2TO150STEP.4:POKEV+7,Q:NEXT:POKEV+29,8:POKEV+23,8:POKEV+6,F1-12
  69. 360 F2=150:FORQ=F2TO230STEP.6:POKEV+7,Q:NEXT:GOSUB410
  70. 390 POKEV+6,0:POKEV+7,0:POKEV+4,0:POKEV+5,0:RF=0:POKEV+23,0:POKEV+29,0
  71. 391 POKE2042,193:GOTO499
  72. 400 S=54272:FORL=STOS+24:POKEL,0:NEXT:POKES+5,9:POKES+6,16:POKES+24,15
  73. 405 POKES+4,129:POKES+1,34:POKES,75:RETURN
  74. 410 S=54272:FORL=STOS+24:POKEL,0:NEXT:POKES+5,11:POKES+6,16:POKES+24,15
  75. 415 POKES+4,129:POKES+1,54:POKES,111:RETURN
  76. 420 S=54272:FORL=STOS+24:POKEL,0:NEXT:POKES+5,11:POKES+6,56:POKES+24,15
  77. 425 POKES+4,129:POKES+1,51:POKES,97:RETURN
  78. 495 SC=SC+10:CB=0:RN=INT(RND(0)*15):CB=CB+RN:GOTO500
  79. 499 AR=AR-1
  80. 500 V=53248:PRINT"":POKEV+32,0:POKEV+33,CB
  81. 501 RF=0:UT=110:RS=INT(RND(0)*60):UT=UT+RS:RF=RF+1.5:
  82. 502 PRINTTAB(7)"[152][169][223][146]    [169][223][146]       [169][223][146]    [169][223][146]    [144]SCORE"
  83. 504 PRINT"  [152][169][223][146]  [169]  [146]   [169]  [223][146]     [169]  [223][146]  [169]  [223][146]  [144]";SC
  84. 506 PRINT" [152][169]  [223][169]   [223][146]      [223][146]  [169]     [146] [169]    [223][146]  [144]ARMOR"
  85. 508 PRINT"[152][169]         [223][169]     [223][169]      [169]      [223][146][144]";AR
  86. 509 IFAR=0THEN549
  87. 510 RETURN
  88. 549 LL=18:BL=12:BB=15
  89. 550 PRINT"":POKEV+32,0:POKEV+33,1
  90. 558 FORQ=5TO7:PRINTTAB(Q)"[144][205]"SPC(10)"[205]":NEXT
  91. 560 PRINTTAB(7)"[144][206]"SPC(11)"[205]"SPC(4)"[206][205]"
  92. 561 PRINTTAB(6)"[206]"SPC(13)"[205]"SPC(2)"[206]"SPC(2)"[205]"
  93. 562 PRINTTAB(5)"[144][206]"SPC(15)"[144][205][206]"SPC(4)"[205]"
  94. 563 PRINTTAB(5)"[205]"SPC(21)"[206]"SPC(3)"[206][205]"
  95. 564 PRINTTAB(6)"[205]"SPC(6)"[206][205]"SPC(11)"[206]"SPC(3)"[206]"SPC(2)"[205]"
  96. 565 PRINTTAB(7)"[205]"SPC(4)"[206]"SPC(2)"[205]"SPC(10)"[205]"SPC(2)"[206]"SPC(4)"[205]"
  97. 566 PRINTTAB(8)"[205]"SPC(2)"[206]"SPC(4)"[205]"SPC(10)"[205][206]"SPC(6)"[205]"
  98. 567 PRINTTAB(9)"[205][206]"SPC(6)"[205]"SPC(17)"[206]"
  99. 568 PRINTTAB(18)"[205]"SPC(15)"[206]":FORLB=1TO6:PRINTTAB(LL)"[206]"SPC(14)"[206]":LL=LL-1:NEXT
  100. 570 FORQ=1TO5:PRINTTAB(BL)"[206]"SPC(BB)"[205]":BL=BL-1:BB=BB+2:NEXT
  101. 580 RESTORE:POKEV+23,0:POKEV+29,0:POKEV+21,0:GOSUB420:FORQ=1TO500STEP.1:NEXT
  102. 585 S=54272:FORL=STOS+24:POKEL,0:NEXT:GOSUB1200
  103. 588 V=53248: BO=BO/10:XX=INT(BO):SC=SC+XX:IFSC>HSTHENHS=SC
  104. 589 PRINT"[147]":POKEV+32,0:POKEV+33,1:POKE53281,1
  105. 590 PRINTTAB(85)"[149]B*O*N*U*S ";XX;SPC(3)"SHOTS FIRED";SH:PRINTTAB(45)"YOUR";
  106. 591 PRINT" SCORE";SC;SPC(3)"HIGH SCORE ";HS:PRINTTAB(49)"YOUR RANK IS [144]";B$
  107. 592 PRINTTAB(43)"[149]YOUR TOTAL SURVIVING TIME ";TI$
  108. 593 PRINTTAB(86)"WANT TO PLAY AGAIN? (Y/N)"
  109. 595 GETC$:IFC$=""THEN595
  110. 596 SC=0:B$="":IFC$="Y"THEN599
  111. 597 IFC$="N"THENSYS64738
  112. 598 C$="":GOTO595
  113. 599 SH=0:SC=0:BO=0:XX=0:POKEV+32,1:POKEV+33,0:GOTO60
  114. 800 S=54272:FORL=STOS+24:POKEL,0:NEXT:POKES+5,9:POKES+6,0:POKES+24,15
  115. 801 READHF,LF,DR:IFHF=-1THENRETURN
  116. 804 POKES+1,HF:POKES,LF:POKES+4,33:FORT=1TODR:NEXT:POKES+4,32:GOTO801
  117. 810 DATA18,209,1024,15,210,512,18,209,512,16,195,1024,14,24,512,11,48,512
  118. 811 DATA18,209,200,16,195,200,15,210,200,14,24,200,15,210,512,22,96,512
  119. 812 DATA16,195,1024,11,48,1024,15,210,512,14,24,200,12,143,200,11,48,200
  120. 813 DATA10,143,200,11,48,200,12,143,200,11,48,512,16,195,512,14,239,512
  121. 814 DATA11,48,512,15,210,200,15,210,200,14,24,200,12,143,200,11,48,200
  122. 815 DATA10,143,200,11,48,200,12,143,200,11,48,512,16,195,1024,22,96,512
  123. 816 DATA18,209,1024,15,210,512,18,209,512,16,195,1024,14,24,512,11,48,512
  124. 817 DATA18,209,200,16,195,200,15,210,200,14,24,200,15,210,512,22,96,512
  125. 818 DATA16,195,1024,11,48,1024,15,210,512,14,24,200,12,143,200,11,48,200
  126. 819 DATA10,143,200,11,48,200,12,143,200,11,48,512,16,195,512,14,239,512
  127. 820 DATA11,48,512,15,210,200,15,210,200,14,24,200,12,143,200,11,48,200
  128. 821 DATA10,143,200,11,48,200,12,143,200,11,48,512,11,48,1024,-1,0,0
  129. 900 DATA255,255,255,128,24,1,128,24,1,128,24,1,128,24,1,128,24,1,128,24,1
  130. 905 DATA128,24,1,128,36,1,128,66,1,255,129,255,128,66,1,128,36,1,128,24,1,128
  131. 910 DATA24,1,128,24,1,128,24,1,128,24,1,128,24,1,128,24,1,255,255,255
  132. 915 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,31,254,0,49,255,192,96,255
  133. 920 DATA240,196,127,252,206,127,255,206,127,255,196,127,252,96,255,240,49,255
  134. 925 DATA192,31,254,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  135. 926 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,63,240,0,103,252,0,195,255
  136. 927 DATA0,219,255,192,195,255,0,103,252,0,63,240,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  137. 928 DATA0,0,0,0,0,0,0,0
  138. 930 DATA0,0,2,34,128,4,0,64,2,146,128,16,0,16,10,73,32,64,0,4,17,140,96,64,0,4
  139. 935 DATA17,17,16,64,0,4,8,136,136,64,0,4,17,17,16,32,0,8,8,136,128,16,0,16,2,72
  140. 940 DATA128,4,0,64,0,0,0
  141. 945 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,64,0,0,64,0,0,64,0,0,64,0,0,126,0,0,255,255,0
  142. 947 DATA255,0,63,255,252,127,255,254,255,255,255,100,68,70,37,85,84,20,68,72
  143. 950 DATA15,255,240,0,0,0,0,0,0,0,0,0
  144. 955 DATA0,2,0,0,2,0,0,2,0,0,2,0,0,58,0,0,70,0,0,186,0,0,130,0,0,254,0,1,255,0
  145. 960 DATA3,255,128,7,255,192,0,124,0,15,187,224,8,186,32,15,187,224,8,130,32,15
  146. 965 DATA131,224,0,0,0,0,0,0,0,0,0
  147. 970 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,60,0,0,126,0,0,255,0,0,255,0,0
  148. 975 DATA126,0,0,60,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  149. 1000 FORA1=832TO894:READQ1:POKEA1,Q1:NEXT
  150. 1010 FORA2=896TO958:READQ2:POKEA2,Q2:NEXT
  151. 1015 FORA3=960TO1022:READQ3:POKEA3,Q3:NEXT
  152. 1020 FORA4=12288TO12350:READQ4:POKEA4,Q4:NEXT
  153. 1025 FORA5=12352TO12414:READQ5:POKEA5,Q5:NEXT
  154. 1030 FORA6=12416TO12478:READQ6:POKEA6,Q6:NEXT
  155. 1035 FORA7=12480TO12542:READQ7:POKEA7,Q7:NEXT
  156. 1090 RETURN
  157. 1100 IFTA=1THENAR=5:IFTA=1THENM1=1
  158. 1105 IFTA=2THENAR=3:IFTA=2THENM1=2
  159. 1110 IFTA=3THENAR=1:IFTA=3THENM1=3
  160. 1150 RETURN
  161. 1200 IFSC=0THENB$="TRAITOR"
  162. 1201 IFSC>0ANDSC<51THENB$="SOLDIER"
  163. 1202 IFSC>52ANDSC<101THENB$="SERGEANT"
  164. 1204 IFSC>101ANDSC<201THENB$="LIEUTENANT"
  165. 1206 IFSC>201ANDSC<401THENB$="CAPTAIN"
  166. 1208 IFSC>401ANDSC<601THENB$="MAJOR"
  167. 1210 IFSC>601ANDSC<801THENB$="COLONEL"
  168. 1212 IFSC>801ANDSC<1001THENB$="* GENERAL *"
  169. 1214 IFSC>1001THENB$="** MARSHAL **"
  170. 1216 RETURN
  171. 1232 GOTO500
  172. 1300 FORI=1TO1500:NEXT:RETURN
  173.