home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / CRUNCHMAN.SFX / crunchman2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-10-11  |  5.2 KB  |  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.