home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / CATERPILLAR (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.6 KB  |  121 lines
  1. 1 POKE53280,6:POKE53281,1:V=53248:PRINT"[149]"
  2. 2 IFPEEK(890)=254THEN69
  3. 3 PRINT"[147]              CATERPILLAR[146]":PRINT"                           "
  4. 4 PRINT"                        ":PRINT"          JOY STICK IN PORT 2"
  5. 5 PRINT"   HATCHING CATERPILLARS, PLEASE WAIT..."
  6. 6 PRINTCHR$(142)
  7. 10 POKE52,30:POKE56,30:CLR
  8. 20 POKE56334,PEEK(56334)AND254
  9. 30 POKE1,PEEK(1)AND251
  10. 40 FORI=0TO511:POKEI+12288,PEEK(I+53248):NEXT
  11. 41 POKE1,PEEK(1)OR4
  12. 42 POKE56334,PEEK(56334)OR1
  13. 43 FORT=12800TO12911
  14. 44 READA:POKET,A:NEXT
  15. 45 POKE53272,(PEEK(53272)AND240)+12
  16. 46 FORT=1TO32
  17. 47 READA:POKE12927+T,A:NEXT
  18. 50 PRINT"[147]          **** SCORING ****"
  19. 51 PRINT"   [144][200][201][157][157][204][205][156].......................200 PTS."
  20. 52 PRINT"   [210][211][156].......................500 PTS."
  21. 53 PRINT"   [199][156]........................500 PTS."
  22. 54 PRINT"   [198][156]........................25 PTS."
  23. 55 PRINT"   CLEARING A MUSHROOM......25 PTS."
  24. 56 PRINT"   CLEARING THE WORM........2000 PTS."
  25. 59 FORT=0TO62:READQ:POKET+832,Q:NEXT
  26. 60 FORT=0TO62:READQ:POKET+896,Q:NEXT
  27. 67 IFPEEK(49156)<>169THENLOAD" L",8,1
  28. 68 FORT=53142TO53144:POKET,0:NEXT
  29. 69 POKE53121,0:REM TURN OFF MONSTER
  30. 70 REM***TIMING AND BALL COUNT****
  31. 71 POKE50435,30:POKE49215,8:POKE49475,10
  32. 80 REM***MONSTER SETUP*****
  33. 81 POKE53095,10:POKE53087,0
  34. 90 REM****SET UP SPIDER******
  35. 91 POKE53096,7
  36. 95 REM*** SET TIMER FOR 20 SEC CLOCK***
  37. 96 POKE161,0
  38. 105 C=54272:V=53248:PRINT"[147]"
  39. 110 V=53248:POKEV+39,8:POKEV+40,8
  40. 111 POKE2040,13:POKE2041,14
  41. 112 POKEV+23,3:POKEV+29,3
  42. 113 POKEV,150:POKEV+2,150
  43. 114 POKEV+1,50:POKEV+3,50
  44. 130 FORT=53136TO53141:POKET,0:NEXT
  45. 170 FORD=53008TO53055:POKED,3:NEXT
  46. 175 POKE53272,(PEEK(53272)AND240)+12
  47. 180 FORT=1TO75
  48. 181 X=INT(RND(1)*880)+1
  49. 182 POKE1024+X,64:POKE1024+X+C,5:NEXT
  50. 183 REM********DROP MEN SETUP*****
  51. 184 POKE53076,1:POKE53077,0:POKE51216,2:POKE51419,64
  52. 300 REM******* SOUND ********
  53. 301 FORT=54272TO54272+24:POKET,0:NEXT
  54. 302 POKE54296,15
  55. 303 POKE54273,200:POKE54272,100:POKE54277,16:POKE54278,192
  56. 305 POKE54284,0:POKE54285,129:POKE54280,128
  57. 310 POKE54291,1:POKE54292,249
  58. 499 POKE53168,0
  59. 500 SYS49152
  60. 505 IFPEEK(53072)=10THENPOKE53072,0:GOSUB9000:SYS49194:GOTO505
  61. 510 POKE53280,2:POKE53281,2
  62. 515 POKEV+21,0
  63. 550 SC=(PEEK(53137)*200)
  64. 551 SC=SC+(PEEK(53138)*500)
  65. 552 SC=SC+(PEEK(53139)*25)
  66. 553 SC=SC+(PEEK(53140)*6400)
  67. 560 HS=(PEEK(53142)*10000)+(PEEK(53143)*100)+PEEK(53144)
  68. 565 IFSC>HSTHENHS=SC
  69. 566 A%=HS/10000:POKE53142,A%
  70. 567 B%=(HS-A%*10000)/100:POKE53143,B%
  71. 568 POKE53144,HS-((A%*10000)+(B%*100))
  72. 570 PRINT"[147]   HIGH SCORE="HS
  73. 575 PRINT"   YOUR SCORE="SC
  74. 600 PRINT"   PRESS FIRE BUTTON TO PLAY AGAIN"
  75. 610 POKE54296,0
  76. 615 FORT=1TO1000:NEXT
  77. 620 IF(PEEK(56320)AND16)=16THEN620
  78. 630 RUN
  79. 9000 IFPEEK(50435)<46THENPOKE50435,PEEK(50435)+3
  80. 9001 POKE53076,PEEK(53076)+1
  81. 9002 IFPEEK(53076)<5ANDPEEK(49215)>2THENPOKE49215,PEEK(49215)-1
  82. 9003 IFPEEK(53076)=6THENPOKE49215,4:POKE51419,96
  83. 9004 IFPEEK(53076)=8THENPOKE49215,3
  84. 9006 FORD=53008TO53055:POKED,3:NEXT
  85. 9008 POKE161,0
  86. 9009 FORT=1984TO2023:POKET,32:NEXT
  87. 9020 IFPEEK(53168)=1THENGOTO9030
  88. 9026 POKE53138,PEEK(53138)+4
  89. 9030 POKE53168,0
  90. 9100 REM******* SOUND ********
  91. 9110 FORT=54272TO54272+24:POKET,0:NEXT
  92. 9120 POKE54296,15
  93. 9130 POKE54273,200:POKE54272,100:POKE54277,16:POKE54278,192
  94. 9140 POKE54284,0:POKE54285,129:POKE54280,128
  95. 9150 POKE54291,1:POKE54292,249
  96. 9200 IFPEEK(49475)>5THENPOKE49475,PEEK(49475)-2
  97. 9210 IFPEEK(53095)>2THENPOKE53095,PEEK(53095)-1
  98. 9220 IFPEEK(51216)<11THENPOKE51216,PEEK(51216)+2
  99. 9500 RETURN
  100. 49000 DATA60,126,255,255,24,24,0,0,60,126,255,255,0,0,0,0,60,126,240
  101. 49001 DATA0,0,0,0,0,60,14,0,0,0,0,0,0
  102. 49002 DATA16,56,124,254,254,124,56,16,16,16,16,16,16,16,0,0
  103. 49003 DATA126,255,153,153,126,129,66,129
  104. 49004 DATA129,66,129,126,153,153,255,126
  105. 49010 DATA31,59,113,241,123,63,31,15
  106. 49011 DATA248,220,142,143,222,252,248,240
  107. 49012 DATA7,28,240,28,6,0,0,0
  108. 49013 DATA224,56,15,56,96,0,0,0
  109. 49014 DATA7,12,48,192,192,48,12,6
  110. 49015 DATA224,48,12,3,3,12,48,96
  111. 49100 DATA112,184,187,255,127,9,4,2,7,5,241,255,255,36,146,73
  112. 49101 DATA112,184,187,255,127,9,18,36,7,5,241,255,255,36,72,144
  113. 50000 DATA0,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,0
  114. 50001 DATA0,0,0,0,0,0
  115. 50002 DATA254,124,124,254,254,254,192,198,198,252,198,198,254,198,198
  116. 50003 DATA6,198,198,198,198,198,254,254,254,124,124,124
  117. 50010 DATA0,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,0
  118. 50011 DATA0,0,0,0,0,0
  119. 50022 DATA124,124,124,254,254,254,198,198,198,14,198,198,28,198,198
  120. 50023 DATA56,198,198,112,198,198,254,254,254,254,124,124
  121.