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