home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 February / Ahoy_Magazine_87-02_1987_Double_L.d64 / crunchman2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  93 lines
  1. 100 print"[147][142]":poke53280,0:poke53281,0
  2. 101 poke53272,(peek(53272)and240)or12:poke53265,27:poke53270,peek(53270)or16
  3. 102 a=14948:fork=1to8:fork1=0to255step16:a=a-1:pokea,k1:nextk1
  4. 103 fork1=255to0step-16:a=a-1:pokea,k1:nextk1,k:poke14692,0
  5. 104 fork=0to255:poke14336+k,int(rnd(1)*4)+1:next
  6. 105 poke53282,13:poke53283,1:poke53269,0
  7. 106 print"[147]";:fori=1to4:print"[159] crunchman 64 crunchman 64 [159]crunchman 64 ";
  8. 107 next:printspc(14)"[156]roy d. lewis[159]
  9. 108 [153][166]11)"joystick in port 2
  10. 109 printspc(11)"2 points  per spot
  11. 110 [153][166]4)"clrghosts score :  30, 60, 120, 240
  12. 111 printspc(4)"[159]bonus points :   [150][193][194] [159]100  [150][195][196][159]  250
  13. 112 v[178]53248:[151]v[170]37,1:[151]v[170]38,0:[151]v[170]39,7:[151]v[170]40,2:[151]v[170]41,3:[151]v[170]42,4
  14. 113 [151]v[170]43,5:[151]v[170]28,30:[151]v[170]23,0:[151]v[170]29,0:[151]v[170]27,0:[151]v[170]16,20
  15. 114 [140]:[129]k[178]2[164]9:[135]z:[151]v[170]k,z:[130]:[151]2041,253:[151]2042,255
  16. 115 [151]v[170]10,135:[151]v[170]12,183:[151]v[170]11,200:[151]v[170]13,200
  17. 116 [151]2043,253:[151]2044,255:[151]v[170]21,126:[151]v[170]23,96:[151]v[170]29,96
  18. 117 [151]2045,128:[151]2046,129
  19. 118 [153]"clr    gooly"[166]22)"gooky
  20. 119 print"    cooly"spc(22)"cooky
  21. 120 [153]" open++++++++++press the spacebaropen++++++++++":[151]198,0
  22. 121 [129]k[178]1[164]4:p[178]v[170](k[172]2)[170]1:b[178][194](p):a[178]b:[151]2040[170]k,252:[151]53280,k[170]1
  23. 122 [151]v[170]44,k[170]1:[151]v[170]45,k[170]1
  24. 123 a[178]a[171]1:[139]a[178]40[167]a[178]250
  25. 124 [151]p,a:[139]a[179][177]b[167]123
  26. 125 [151]2040[170]k,253[170](2[172][182]((k[173]2)[178][181](k[173]2)))
  27. 126 [161]a$:[139]a$[179][177]""[167]128
  28. 127 [130]k:[137]121
  29. 128 [151]53280,0:hs$[178][196](hs):hs$[178][201](hs$,[195](hs$)[171]1)
  30. 129 [139][195](hs$)[179]5[167]hs$[178]"0"[170]hs$:[137]129
  31. 130 [153]"load score : open00000 high : open"hs$" sysvalval lev :
  32. 131 poke1001,20:poke1002,40:poke1007,3:lv=0:poke1004,0:poke1005,0
  33. 132 a=3:nm=3:poke908,0:poke909,0
  34. 133 fork=0to14step7:poke54276+k,0:next:poke54272,0:poke54273,0:poke54277,0
  35. 134 poke54278,240:poke54276,33:poke54279,0:poke54280,0:poke54284,52
  36. 135 poke54285,15:poke54283,0:poke54286,0:poke54287,0:poke54291,0
  37. 136 poke54292,240:poke54290,33:poke54296,10:fork=910to920:pokek,0:next
  38. 137 pokev+21,0:ifnm>athennm=a:goto165
  39. 138 lv=lv+1:print"[159]"tab(36);lv:poke908,0:poke909,0
  40. 139 lv$="  ":iflv>1thenlv$="[193][194]":iflv>3thenlv$="[195][196]"
  41. 140 print"++++++++++++++++++++++++++++++++++++++++";
  42. 141 print"+[209]...............[160]+[150]"lv$"+...............[209][160]+";
  43. 142 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]+";
  44. 143 print"+.[160]++++.[160]+++++++.[160]++++.[160]+++++++.[160]++++.[160]+";
  45. 144 print"+.[160]+...............................[160]+.[160]+";
  46. 145 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]+";
  47. 146 print"+.[160]+.[160]++++++++++.[160]+.[160]+.[160]++++++++++.[160]+.[160]+";
  48. 147 print"+.[160]+....[160]+.......[160]+.[160]+.......[160]+....[160]+.[160]+";
  49. 148 print"+.[160]+.[160][160].[160]+.[160][160][160][160][160][160][160]+.[160]+[160][160][160][160][160][160].[160]+.[160][160].[160]+.[160]+";
  50. 149 print"+.[160]+.[160]+.[160]+.[160]+++++++.[160]+++++++.[160]+.[160]+.[160]+.[160]+";
  51. 150 print".....[160]+.[160]+....[160]+.......[160]+....[160]+.[160]+....  ";
  52. 151 print"[160].[160][160].[160]+.[160]+.[160][160].[160]+.[160][160].[160][160].[160]+.[160][160].[160]+.[160]+.[160][160].[160][160]";
  53. 152 print"+.[160]+.[160]+....[160]+....[160]+.[160]+....[160]+....[160]+.[160]+.[160]+";
  54. 153 print"+.[160]+.[160]+[160][160][160][160][160]+[160][160][160].[160]+.[160]+.[160][160][160][160]+[160][160][160][160][160]+.[160]+.[160]+";
  55. 154 print"+.[160]+.[160]++++++++++.[160]+.[160]+.[160]++++++++++.[160]+.[160]+";
  56. 155 print"+.[160]+..........[160]+.[160]+.[160]+.[160]+..........[160]+.[160]+";
  57. 156 print"+.[160]+.[160][160][160][160][160][160][160][160].[160]+.[160]+.[160]+.[160]+.[160][160][160][160][160][160][160][160].[160]+.[160]+";
  58. 157 print"+.[160]+.[160]+++++++.[160]+.[160]+.[160]+.[160]+.[160]+++++++.[160]+.[160]+";
  59. 158 print"+................[160]+.[160]+................[160]+";
  60. 159 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]+";
  61. 160 print"+.[160]++++++++++++++++.[160]++++++++++++++++.[160]+";
  62. 161 print"+[209]...................................[209][160]+";
  63. 162 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]+";
  64. 163 print"+++++++++++++++++++++++++++++++++++++++
  65. 164 [151]2023,43:[151]56295,6
  66. 165 [129]k[178]826[164]907:[151]k,0:[130]
  67. 166 v[178]53248:[151]v[170]37,1:[151]v[170]38,0:[151]v[170]39,7:[151]v[170]40,2:[151]v[170]41,3:[151]v[170]42,4
  68. 167 [151]v[170]43,5:[151]v[170]28,30:[151]v[170]23,0:[151]v[170]29,0:[151]v[170]27,0:[151]v[170]16,20
  69. 168 [151]844,1:[151]903,[181]([187](1)[172]256):[151]1000,2:[151]1014,2
  70. 169 [151]831,32:[151]833,32:[151]832,64:[151]834,64:[151]871,3:[151]872,3:[151]842,1
  71. 170 [151]851,66:[151]852,66:[151]853,226:[151]854,226:[151]873,1:[151]874,1
  72. 171 [151]830,176:[151]v,176:[151]850,138:[151]v[170]1,138
  73. 172 [151]1008,30:[151]1009,5:[151]913,64
  74. 173 [129]k[178]0[164]4:[151]v[170](k[172]2),[194](830[170]k):[151]v[170](k[172]2)[170]1,[194](850[170]k):[130]
  75. 174 [129]k[178]1[164]4:[151]2040[170]k,251[170][194](870[170]k):[130]:[151]v[170]21,31:[151]53278,0:[158]6226
  76. 175 a[178][194](1007):[151]1051[170]a,32:[139]a[178]nm[167][141]184:[137]133
  77. 176 [151]54276,0:[151]54290,0:[151]54283,0:[151]54296,15
  78. 177 [151]54279,0:[151]54280,6:[151]54284,12:[151]54285,0:[151]54283,129
  79. 178 [129]k[178]0[164]255:[151]v[170]39,k:[130]
  80. 179 [151]v[170]21,0:[151]54283,0:[151]54296,0:[139]a[177]0[167]133
  81. 180 sc[178][194](1004)[170][194](1005)[172]256:[139]sc[179]hs[167]105
  82. 181 [153]"load":[129]i[178]1[164]23:[153]"high score"[166]20)"high score";:[130]
  83. 182 [153]""[166]17)sc
  84. 183 hs[178]sc:[141]184:[137]105
  85. 184 [151]54272,0:[151]54273,0:[151]54277,0:[151]54278,240:[151]54276,33:[151]54296,15
  86. 185 [129]k[178]2[164]15:[151]53280,k:[129]k1[178]0[164]15:[151]54273,00[170]k[172]k1:[130]k1,k
  87. 186 [151]54276,0:[151]53280,0:[142]
  88. 187 [131] 32,188,64,188,32,220,64,220
  89. 188 [143]"gosubloadavantgarde64
  90. 189 rem"[141]1790 trepanier,brossard
  91. 190 [143]"gosubquebec j4w 2k3,  canada
  92. 191 rem"[141]roy d. lewis
  93.