home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / TIGER-TANK (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  8.0 KB  |  139 lines
  1. 0 REM"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  2. 1 [143]"(null)   TANK!! WITH 4 OPTIONS   (null)
  3. 2 REM"[221]       BY KEN GRANT        [221]
  4. 3 [143]"(null)     TORONTO, ONTARIO      (null)
  5. 5 REM"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  6. 6 [143]
  7. 7 [151]53280,13:[151]53281,0:[151]53264,0
  8. 8 [151]53248,164:[151]53249,70:[151]53248[170]23,1:[151]53248[170]29,1:[151]53287,9
  9. 9 [151]2040,147:[151]53248[170]21,1
  10. 10 [153]"SYSLOAD"[166]13)"TIGER TANKS  !!!"
  11. 11 [153]""[166]14)"BY KEN GRANT":[153]""[166]11)"(C)  NUFEKOP  1983"
  12. 12 [141]3000:[129]I[178]1[164]200:[141]2000:[139]A$[179][177]" "[167][130]
  13. 27 [141]4000:[141]6000:[153]" SCORE :  0              SCORE :  0    WAIT"
  14. 30 S1[178]0:S2[178]0:[141]1000
  15. 50 BLOWUP[178] 7242:D1[178] 7242[171]8:D2[178]D1[170]1
  16. 100 [151]53287,1:[151]53288,13:[151]53289,3:[151]53290,3:[143] ** COLOURS **
  17. 110 [151]53248,37:[151]53249,144:[151]53250,52:[151]53251,144:[143] ** POSITIONS **
  18. 120 [158] 7369:[143] ** SETUP **
  19. 130 [151]53248[170]21,243:[151] 7245,60
  20. 200 [158] 7505:[145][194](BLOWUP)[141]300,400,500
  21. 210 [151] BLOWUP,0:[137]200
  22. 300 S2[178]S2[170]1:[141]1000
  23. 310 [151]53248,37:[151]53249,144:[151]2040,205:[151]D1,6
  24. 320 [151]53264,([194](53264)[175]254)
  25. 330 [151] 7251,14
  26. 340 I[178][194]( 7252)[170]3:[139]I[177]14[167]I[178]14
  27. 350 [151] 7252,I:[153]" .............."
  28. 360 [153][163]25)"ON";:[129]J[178]1[164]I:[153]".";:[130]:[142]
  29. 400 S1[178]S1[170]1:[141]1000
  30. 410 [151]53250,52:[151]53251,144:[151]2041,203:[151]D2,4
  31. 420 [151]53264,([194](53264)[176]2)
  32. 430 [151] 7252,14
  33. 440 I[178][194]( 7251)[170]3:[139]I[177]14[167]I[178]14
  34. 450 [151] 7251,I:[153]""[166]25)".............."
  35. 460 [153]" ";:[129]J[178]1[164]I:[153]".";:[130]:[142]
  36. 500 S1[178]S1[170]1:S2[178]S2[170]1:[141]1000
  37. 510 [141]310:[141]410:[142]
  38. 1000 [153]"";S1:[153]"";S2
  39. 1010 [139](S1[177]9[176]S2[177]9)[167]1500
  40. 1020 [142]
  41. 1500 [129]I[178]1[164]500:[161]A$:[130]
  42. 1510 [153]" PLAYER  CMD"2[170](S1[177]S2)"CMD  WINS !!                      "
  43. 1520 [129]I[178]1[164]200:[141]2000:[139]A$[179][177]" "[167][130]
  44. 1530 [138]
  45. 2000 [161]A$:[139]([194](56320)[175]16)[178]0[167]A$[178]" "
  46. 2005 [139]([194](56321)[175]16)[178]0[167]A$[178]" "
  47. 2010 [142]
  48. 3000 [153]"OPEN  PLAYER 1":[153]"  FREFREFREFREFREFREFREFRE":[153]"  KEYBOARD":[153]"     OR"
  49. 3010 [153]"  JOYSTICK 1CMDCMDONONONON     Q E RCMDCMDCMDCMD(null)(null)(null)CMDCMDCMDCMDATAN(null)TAND    SHIFT - FIRE"
  50. 3020 [153][163]16)"(null)(null)(null)CMDCMDCMDCMDZ X C"
  51. 3040 [153]"OPEN  PLAYER 2":[153]"  FREFREFREFREFREFREFREFREON     JOYSTICK 2"
  52. 3050 [142]
  53. 4000 [151]53248[170]21,0:[153]"LOADSYSMISSILE OPTIONS"
  54. 4005 [153]"1.  SLOW GUIDED MISSILES."
  55. 4008 [153]"2.  FAST GUIDED MISSILES."
  56. 4010 [153]"3.  SLOW STRAIGHT MISSILES."
  57. 4020 [153]"4.  FAST STRAIGHT MISSILES."
  58. 4030 [129]I[178]1[164]100:[161]A$:[130]
  59. 4040 [153]"ENTER DESIRED GAME  NEWCMD";
  60. 4050 [129]I[178]1[164]500:[141]2000:[139]A$[178]" "[167]A$[178]"1"
  61. 4055 [139]A$[179]"1"[176]A$[177]"4"[167][130]:[138]
  62. 4056 [153]A$
  63. 4060 [151]53248[170]21,0:[151]53248[170]29,0:[151]53248[170]23,0:CL[178]54272:[151] 7241,[197](A$)[171]1
  64. 4070 [153]"PRESS [SPACE] FOR DESIRED BOARD"
  65. 4080 [129]I[178]1[164]500:[161]A$:[130]
  66. 4100 [142]
  67. 5000 [143]"  ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
  68. 5010 REM"  [221] SET UP THE SCREENS [221]
  69. 5020 [143]"  /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
  70. 6000 PRINT"[158][147] 1                                      [146]";
  71. 6010 PRINT" [145][157] [145][157] ..............          .............. [157] [157] ";
  72. 6015 PRINT"  [146]";
  73. 6020 PRINT"              [146]";
  74. 6030 PRINT"              [146]";
  75. 6040 PRINT"          [146]";
  76. 6050 PRINT"      [146]";
  77. 6060 PRINT" [146]                                       [146]";
  78. 6070 PRINT"  [146]";
  79. 6080 PRINT"      [146]";
  80. 6090 PRINT"      [146]";
  81. 7000 PRINT"      [146]";
  82. 7020 PRINT"      [146]";
  83. 7030 PRINT"  [146]";
  84. 7040 PRINT" [146]"SPC(38)" [146]";:PRINT"      [146]";
  85. 7060 PRINT"          [146]";
  86. 7070 PRINT"              [146]";
  87. 7080 PRINT"              [146]";
  88. 7090 PRINT"  [146]";
  89. 8000 PRINT" [146]"SPC(38)" [146]";
  90. 8010 PRINT" [146]"SPC(38)" [146]";
  91. 8020 FORI=1984TO2023:POKEI,160:POKEI+CL,7:NEXT
  92. 8030 FORI=0TO3:POKE53291+I,7:NEXT:REM ** ** MINE COLOURS **
  93. 8060 GOSUB2000:IFA$=""THEN8060
  94. 8070 IFA$=" "THENGOSUB9000:RETURN
  95. 8080 O=2:GOTO8100
  96. 8090 PRINT""O:FORI=1TO21
  97. 8095 PRINT" [146]                                       [146]";:NEXT:RETURN
  98. 8100 PRINT"   INVISIBLE MINES":GOSUB8090
  99. 8105 FORI=0TO3:POKE53291+I,0:NEXT:REM ** ** MINE COLOURS **
  100. 8110 GOSUB2000:IFA$=""THEN8110
  101. 8120 IFA$=" "THENGOSUB9500:RETURN
  102. 8125 FORI=0TO3:POKE53291+I,7:NEXT:REM ** ** MINE COLOURS **
  103. 8130 O=3:PRINT"     ":GOSUB8090
  104. 8140 GOSUB2000:IFA$=""THEN8140
  105. 8150 IFA$=" "THENGOSUB9500:RETURN
  106. 8500 GOTO10110
  107. 8999 REM ****  MINE POSITIONS ****
  108. 9000 POKE53256,100:POKE53257,80:POKE53258,246:POKE53259,80
  109. 9010 POKE53260,100:POKE53261,200:POKE53262,246:POKE53263,200:RETURN
  110. 9100 POKE53256,173:POKE53257,67:POKE53258,173:POKE53259,136
  111. 9110 POKE53260,100:POKE53261,202:POKE53262,246:POKE53263,202:RETURN
  112. 9500 POKE53256,80+RND(1)*90:POKE53257,70+RND(1)*80
  113. 9510 POKE53258,170+RND(1)*85:POKE53259,70+RND(1)*80
  114. 9600 POKE53260,80+RND(1)*90:POKE53261,150+RND(1)*50
  115. 9610 POKE53262,170+RND(1)*85:POKE53263,150+RND(1)*50:RETURN
  116. 10110 PRINT"[147] 4                                      [146]";
  117. 10115 PRINT" ..............          .............. [146]";
  118. 10120 PRINT" [157] [157][157] [157]  [157][157] ";
  119. 10140 PRINT"                [146]";
  120. 10150 PRINT"                [146]";
  121. 10160 PRINT"                [146]";
  122. 10170 PRINT"        [146]";
  123. 10180 PRINT"        [146]";
  124. 10190 PRINT"      [146]";
  125. 10200 PRINT"      [146]";
  126. 10210 PRINT"      [146]";
  127. 10220 PRINT"      [146]";
  128. 10230 PRINT"        [146]";
  129. 10240 PRINT"        [146]";
  130. 10250 PRINT"                [146]";
  131. 10260 PRINT"                [146]";
  132. 10270 PRINT"    [146]";
  133. 10280 PRINT"                [146]";
  134. 10290 PRINT" [157] [157][157] [157]  [157] [157][157] [157] [146]";
  135. 10430 FORI=1984TO2023:POKEI+CL,7:POKEI,160:NEXT
  136. 10500 GOSUB2000:IFA$=""THEN10500
  137. 10510 IFA$=" "THENGOSUB9100:RETURN
  138. 10600 GOTO6000
  139.