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