home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1986 September & October / rerun-1986-09-10.d64 / halloween (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  5KB  |  152 lines
  1. 15 rem*****halloween*****
  2. 20 rem copyright 10/21/84 by w. o. nelson
  3. 30 ifq=1then60
  4. 35 poke53280,0:poke53281,0
  5. 40 print"[147][158]please wait a moment while i byte
  6. 45 [153]"on some nybbles and bits !
  7. 50 poke214,20:print"[129]copyright 0ct 1984 by w. o. nelson"
  8. 55 q=1:load"pumpkin",8,1
  9. 60 fori=23552to24575:pokei,128:next:rem clear bitmap & set colors
  10. 70 rem pumpkin sprites
  11. 75 v=53248:forn1=0to62:readq1:poke12288+n1,q1:next
  12. 80 data0,0,0,0,0,0,0,0,0,1,255,128,7,255,224,15,255,240,60,126,60,126,255,126
  13. 85 data127,255,254,255,231,255,255,195,255,255,255,255,255,255,255,126,255,126
  14. 90 data127,0,254,63,255,252,15,255,240,7,255,224,1,255,128,0,0,0,0,0,0
  15. 100 rem data for eye sprites (5 & 6)
  16. 105 forn2=0to62:readq2:poke16768+n2,q2:next
  17. 110 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  18. 115 data0,60,0,0,231,0,1,195,128,1,195,128,1,195,128,0,231,0,0,60,0
  19. 120 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  20. 130 rem data for witch sprite (7)
  21. 135 forn3=0to62:readq3:poke16896+n3,q3:next
  22. 140 data0,0,0,0,0,0,0,12,0,0,127,128
  23. 145 data0,30,8,255,252,16,0,127,32,0,255,64
  24. 150 data1,255,128,3,255,0,7,255,0,15,255,0
  25. 155 data31,255,0,63,255,0,0,32,0,1,64,0
  26. 160 data2,160,0,5,64,0,10,128,0,0,128,0,0,0,0
  27. 195 poke53281,0:gosub700
  28. 200 print"[147][144]t'was the night before all saints day
  29. 205 [153]"when ghost and goblin come out to play.
  30. 210 print"t'was a sight like you've never seen,
  31. 215 [153]"and we fondly call it:
  32. 230 fori=55296to55598:pokei,3:forj=1to50:nextj,i
  33. 282 fort=1to1000:next
  34. 300 print"[129]  [169] [223]  [169] [223]       [223] "
  35. 310 print"    [146][192]      [169][223]  [146][192] [146][192] [146][223][223] "
  36. 320 print"        [146][223] [146][169][223][169][223][169]     [146][223] "
  37. 350 print"[144]snuggled on the warm moist ground"
  38. 355 print"were lots of pumpkins, lying around-
  39. 360 [153]"hoping they would see by and by
  40. 365 print"that great big pumpkin in the sky!
  41. 370 [141]700:[129]i[178]0[164]3000:[130]
  42. 380 [129]i[178]55776[164]56178:[151]i,4:[129]j[178]1[164]50:[130]j,i
  43. 400 [143] green vines
  44. 410 [153]"print (NULL)tanright$ (NULL)right$  (NULL)right$  (NULL)right$   (NULL)(NULL)tanright$ (NULL) (NULL)tan(NULL)   (NULL)(NULL)right$ (NULL)(NULL)right$
  45. 415 print"[213][211] [211][192][203][211] [213][192][211][192][211][203][202][211][201][211][203][194] [211][192][203] [211][201] [213][211][192][211][201][202][211][203] [202][211]
  46. 420 [153]"  (NULL)(NULL)  mid$tan(NULL)  (NULL)(NULL) (NULL)tan(NULL)tan(NULL)(NULL) mid$tan(NULL)tan(NULL)mid$(NULL)(NULL)   (NULL) mid$tan(NULL)
  47. 430 rem pumpkin sprites
  48. 455 form=2040to2044:pokem,192:next
  49. 460 pokev+27,31:pokev+21,31:rem turn on 0 to 4
  50. 465 fori=39to43:pokev+i,8:next:rem orange col
  51. 470 pokev,30:pokev+1,220:rem set x,y pos
  52. 472 pokev+2,80:pokev+3,220
  53. 474 pokev+4,150:pokev+5,220
  54. 476 pokev+6,220:pokev+7,220
  55. 478 pokev+9,220:pokev+16,16:pokev+8,50
  56. 480 pokev+29,10:rem expand 1 & 3
  57. 482 fort=1to3000:next
  58. 484 fork=1to9step2:rem each pumpkin moves up and down
  59. 486 fory=220to210step-1:pokev+k,y:next:forj=0to1000:next
  60. 488 fory=210to220:pokev+k,y:next
  61. 490 forj=0to1000:nextj,k
  62. 495 print"[147]":gosub800:rem lightning & thunder
  63. 500 rem turn on eye sprites
  64. 510 poke24573,6:poke24574,6
  65. 515 v=53248:pokev+44,1:pokev+45,1:rem color
  66. 520 pokev+21,96:rem turn on 5 & 6
  67. 525 pokev+27,96:rem set priority
  68. 530 gosub850:gosub780:gosub920:fort=1to1000:next:gosub920
  69. 535 gosub870:gosub700:gosub780:gosub900
  70. 540 gosub780:gosub850:gosub780
  71. 545 gosub800:gosub780:gosub600:gosub900
  72. 550 gosub780:gosub850:gosub800:gosub870
  73. 555 gosub780:gosub700:gosub620:gosub900
  74. 560 gosub780:gosub850:gosub780:gosub800
  75. 565 gosub780:gosub870:gosub660:gosub900
  76. 570 gosub700:gosub780:gosub850:gosub780
  77. 575 gosub870:gosub660:gosub900:gosub780
  78. 580 gosub850:gosub780:gosub920
  79. 595 gosub760:pokev+21,0:goto195
  80. 600 rem witch sprite (7)
  81. 620 poke24575,8:rem point to data
  82. 625 v=53248:pokev+46,12:rem color grey
  83. 627 pokev+23,128:pokev+29,128:rem expand
  84. 630 rem witch flies up
  85. 635 pokev+21,peek(v+21)or128:rem turn on #7
  86. 640 pokev+16,0:pokev+14,25:rem reset x
  87. 645 y=230:forx=25to255:pokev+14,x:y=y-.5:pokev+15,y:next:pokev+16,128
  88. 650 y=115:forx=0to95:pokev+14,x:y=y-.5:pokev+15,y:next
  89. 655 pokev+21,peek(v+21)and127:return
  90. 660 rem witch flies down
  91. 665 pokev+21,peek(v+21)or128:rem turn on #7
  92. 670 pokev+16,0:pokev+14,25:rem reset x
  93. 675 y=70:forx=25to255:pokev+14,x:y=y+.5:pokev+15,y:next:pokev+16,128
  94. 680 y=185:forx=0to95:pokev+14,x:y=y+.5:pokev+15,y:next
  95. 685 pokev+21,peek(v+21)and127:return
  96. 700 rem****sound of wind
  97. 705 forl=54272to54296:pokel,0:next
  98. 710 s=54272:pokes+24,15
  99. 715 pokes+5,255:pokes+12,255:pokes+19,255
  100. 720 pokes,255:pokes+1,254:pokes+7,98:pokes+8,5:pokes+14,90:pokes+15,6
  101. 725 pokes+3,6:pokes+2,1:pokes+10,2:pokes+9,12:pokes+17,8:pokes+16,0
  102. 730 pokes+4,129:pokes+11,129:pokes+18,129
  103. 735 return
  104. 740 rem****turn on picture
  105. 745 poke53272,120:poke56576,2
  106. 750 poke53265,peek(53265)or32
  107. 755 return
  108. 760 rem****turn off picture
  109. 765 poke53265,27:poke53272,20:poke56576,151
  110. 770 return
  111. 780 rem****time delay
  112. 785 fort=1to5000:next
  113. 790 return
  114. 800 rem****lightning and thunder
  115. 805 pokev+21,0:fori=1to10
  116. 810 gosub760:poke53281,1:gosub740
  117. 815 fort=1to50:nextt:nexti
  118. 820 pokes+5,28:rem volume, att/dec
  119. 825 pokes+1,40:rem hi freq
  120. 830 pokes+4,128:pokes+4,129:rem waveform
  121. 835 pokev+21,96:fort=1to2000:next:pokes+4,0
  122. 840 return
  123. 850 rem****eyes center (sprites 5 & 6)
  124. 855 pokev+10,115:pokev+11,138:rem left   eye pos.
  125. 860 pokev+12,222:pokev+13,138:rem right  eye pos.
  126. 865 return
  127. 870 rem****eyes left
  128. 875 pokev+10,106:pokev+11,137:rem left   eye pos.
  129. 880 pokev+12,208:pokev+13,141:rem right  eye pos.
  130. 885 return
  131. 900 rem****eyes right
  132. 905 pokev+10,128:pokev+11,141:rem left   eye pos.
  133. 910 pokev+12,234:pokev+13,137:rem right  eye pos.
  134. 915 return
  135. 920 rem****music-hall of mountain king
  136. 922 s=54272:rem forl=stos+24:pokel,0:next:rem clear sound registers
  137. 925 pokes+5,9:pokes+6,0:rem att/dec/sus/rel voice 1
  138. 930 pokes+24,15:rem max volume
  139. 935 poke65,peek(61):poke66,peek(62):rem reset pointers to play again
  140. 940 data5,71,125,5,237,125,6,71,125,7,12,125,7,233,125,6,71,125,7,233,125
  141. 945 data0,0,125,7,119,125,5,237,125,7,119,125,0,0,125,7,12,125,5,152,125
  142. 950 data7,12,125,0,0,125,5,71,125,5,237,125,6,71,125,7,12,125,7,233,125
  143. 955 data6,71,125,7,233,125,10,143,125,9,104,125,7,233,125,6,71,125
  144. 960 data7,12,125,7,233,250,-1,-1,-1
  145. 965 readhf,lf,dr
  146. 970 ifhf<0thenreturn
  147. 975 pokes+1,hf:pokes,lf
  148. 980 pokes+4,33:rem sawtooth wave
  149. 985 fort=1todr:next:rem tempo
  150. 990 pokes+4,32:fort=1to50:next
  151. 995 goto965
  152.