10 REM **** HBH3 ****
20 CLR:RESTORE:V=53248:POKE53281,0:POKE53280,0
30 REM...LO-RES SPRITE POINTERS:
35 P0=2040:P1=2041:P2=2042:P3=2043:P4=2044:P5=2045:P6=2046:P7=2047
55 FORI=1TOPEEK(709):NM$=NM$+CHR$(PEEK(709+I)):NEXT
80 REM...LOAD NEXT 4 SCENES:
85 SYS51718,1,"NIGHT1":SYS51718,2,"NIGHT2":SYS51718,3,"NIGHT3"
90 SYS51718,4,"NIGHT4"
100 REM...SET UP SPRITES & DISPLAY PRIORITIES HB#0, BOY#1, GIRL#2,3
105 REM...P0=HB, P1=BOY,P2&3=GIRL
110 POKEV+28,14:POKEV+37,10:POKEV+38,1:REM MULTICOLORS
113 POKEV+39,1:POKEV+40,1:POKEV+41,7:POKEV+42,14:REM SPRITE COLORS
115 POKEV,145:POKEV+2,175:POKEV+4,205:POKEV+6,205
120 POKEV+1,190:POKEV+3,190:POKEV+5,169:POKEV+7,190
125 POKEP0,235:POKEP1,224:POKEP2,244:POKEP3,245
150 SYS51721,1,1:POKEV+21,15:REM...1ST SCENE
160 GOSUB5010:PRINT"[159](GIRL) SHALL WE TRY THIS HOUSE FIRST?":GOSUB5110
165 GOSUB4012:REM READ IN DATA
170 GOSUB5010:PRINT"[159](HUGGY BEAR) SUITS ME. LET'S GO.":GOSUB5110
175 POKEP0,235:FORI=190TO180STEP-1:POKEV+1,I:NEXT
180 POKE55911,0:POKE55917,0
185 GOSUB5010:PRINT"[159](HUGGY BEAR) THEY TURNED THEIR LIGHTS
190 [153]" OFF WHEN THEY SAW ME COMING!":[129]T[178]1[164]2000:[130]:[151]P0,233
195 [141]5110
200 [141]5010:[153]"OPEN(BOY) THAT'S NOT VERY NICE.":[141]5110
202 [151]P0,235:[129]T[178]1[164]50:[130]:[151]P0,230
205 [141]5010:[153]"OPEN(HUGGY BEAR) LET'S TRY THAT NEXT HOUSE.
210 X=145
215 X=X-4
220 IFX<65THEN250
225 POKEP0,232:FORT=1TO50:NEXT
230 POKEV,X
235 POKEP0,230:FORT=1TO50:NEXT
240 GOTO215
250 POKEV+21,0:GOSUB5050
255 SYS51721,1,2:REM SECOND  SCENE.
260 POKEV,140:POKEV+2,121:POKEV+4,105:POKEV+6,105
265 POKEV+1,167:POKEV+3,175:POKEV+5,149:POKEV+7,170
270 POKEP0,235:POKEP1,224:POKEP2,246:POKEP3,247
275 POKEV+21,15
280 GOSUB5010:PRINT"[159](HUGGY BEAR) I PUSHED THE BELL BUTTON.":GOSUB5110
285 SYS51721,1,3:FORT=1TO200:NEXT:SYS51721,1,4
290 GOSUB5010:PRINT"[159](MAN, VERY GRUFF) WHAT DO YOU WANT?":GOSUB5110
300 GOSUB5010:PRINT"[159](ALL) TRICK OR TREAT!":GOSUB5110
305 GOSUB5010:PRINT"[159](MAN) WE AIN'T GOT NO TREATS. GO AWAY.":GOSUB5110
310 SYS51721,1,3:FORT=1TO200:NEXT:SYS51721,1,2
315 POKEP0,230
320 GOSUB5010:PRINT"[159](HUGGY BEAR) BOY WHAT A GROUCH HE IS.":GOSUB5110
325 GOSUB5010:PRINT"[159](GIRL) LET'S GO OVER TO THE NEXT STREET.
330 [153]"  MAYBE PEOPLE ARE NICER THERE.":[141]5110
335 [141]5010:[153]"OPEN(BOY) THAT SOUNDS LIKE A GOOD IDEA.":[141]5110
337 [139][194](709)[178]0[167]350
340 [151]P0,254:[141]5010
345 [153]"OPEN(HUGGY BEAR) I HOPE YOU'RE COMING WITH    US, "NM$".":[141]5110
350 [151]V[170]21,0:[141]5050
360 [153]"LOADSYSOUR FRIENDS DECIDE TO GO ACROSS AN"
365 [153]"  EMPTY LOT TO GET TO THE NEXT STREET.
370 PRINT"  NOW EMPTY LOTS ARE USUALLY NOT VERY
375 [153]"  EXCITING, RIGHT?
380 REM...3RD SCENE
400 POKEP4,228:POKEP5,218:POKEP6,218:POKEP7,218:REM MOON, 3 PUMPKINS
405 POKEP0,236:POKEP1,220:POKEP2,240:POKEP3,241:REM HB, BOY, GIRL
410 POKEV+43,7:POKEV+44,8:POKEV+45,8:POKEV+46,8:REM MOON & PUMP. COLORS
415 POKEV,190:POKEV+2,220:POKEV+4,250:POKEV+6,250:REM HB, BOY, GIRL X POS.
420 POKEV+1,225:POKEV+3,225:POKEV+5,204:POKEV+7,225:REM HB, BOY, GIRL Y POS.
425 REM...SETX,Y POS. FOR MOON, 3 PUMPKINS
430 POKEV+8,180:POKEV+10,54:POKEV+12,146:POKEV+16,128:POKEV+14,10:REM X
435 POKEV+9,60:POKEV+11,165:POKEV+13,165:POKEV+15,165
440 POKEV+27,224:REM PUMPKINS BEHIND BACKGROUND
445 SYS51718,1,"EMPTY LOT":SYS51718,2,"LARGE STONES":SYS51718,3,"MAUSOLEUM"
450 SYS51718,4,"HAUNTED HSE":SYS51721,1,1:POKEV+21,255
455 Y=255:YT=234
460 Y=Y-3:YT=YT-3
465 POKEV+1,Y:POKEV+3,Y:POKEV+7,Y:POKEV+5,YT
470 POKEP0,237:POKEP1,221:POKEP3,242:FORT=1TO100:NEXT
475 Y=Y-3:YT=YT-3
480 POKEV+1,Y:POKEV+3,Y:POKEV+7,Y:POKEV+5,YT
485 POKEP0,236:POKEP1,220:POKEP3,241:FORT=1TO100:NEXT
490 IFY<165THEN500
495 GOTO460
500 PRINT"":POKE214,20
505 PRINT"     [213][192][201] [174] [176] [213][192][201] [174] [176]   [194]
510 [153]"     PEEK PEEK PEEK PEEK PEEK   -TAN<   PEEK
515 PRINT"     [202][192][203] [202][192][203] [202][192][203] [189] [173]   .
520 [129]T[178]1[164]3000:[130]
525 [151]P0,235:[151]P1,224:[151]P3,243
530 [129]T[178]1[164]400:[130]:[151]P0,233:[151]P2,244:[151]P3,245
540 [141]5010:[153]"OPEN(ALL) WHO SAID THAT?
545 FORY=0TO22:POKEV+15,165-Y:FORT=1TO50:NEXT:NEXT:REM PUMPKIN RISES
550 GOSUB5010:PRINT"[159](PUMPKIN) YOU STEPPED ON ME. WHY DON'T
555 [153]" YOU LOOK WHERE YOU'RE GOING?
560 POKEP2,240:POKEP3,243:FORT=1TO500:NEXT:POKEP2,246:POKEP3,247
565 POKEV+4,245:POKEV+6,245:GOSUB5110
570 GOSUB5010:PRINT"[159](GIRL) SORRY. I DIDN'T KNOW THERE WERE
575 [153]"  ANY PUMPKINS IN THIS FIELD.":[141]5110
580 [129]Y[178]0[164]22:[151]V[170]13,165[171]Y:[129]T[178]1[164]50:[130]:[130]:[143] MIDDLE PUMPKIN RISES
585 [141]5010:[153]"OPEN(2ND PUMPKIN) THERE ARE LOTS OF US.":[141]5110
587 [151]P0,230:[151]P1,222:[151]P2,244:[151]P3,245
590 [129]Y[178]0[164]22:[151]V[170]11,165[171]Y:[129]T[178]1[164]50:[130]:[130]:[143] LEFT PUMPKIN RISES
595 [141]5010:[153]"OPEN(3RD PUMPKIN) WE HIDE IN THE BUSHES"
600 [153]" SO PEOPLE WON'T TAKE US AWAY.":[141]5110
610 [141]5010:[153]"OPEN(2ND PUMPKIN) TONIGHT WE'RE WATCHING"
615 [153]" FOR THAT GREAT PUMPKIN IN THE SKY.":[141]5110
620 [141]5010:[153]"OPEN(3RD PUMPKIN) HE'S SUPPOSED TO COME"
625 [153]" OUT ON HALLOWEEN.":[141]5110
630 [151]P4,227:[129]T[178]1[164]1000:[130]:[151]P1,224
635 [141]5010:[153]"OPEN(BOY) I THINK IF YOU'LL LOOK AT THE"
640 [153]" MOON YOU'LL SEE HIM.":[141]5110
645 [151]P0,235:[129]T[178]1[164]1000:[130]:[151]P2,240:[151]P3,243:[129]T[178]1[164]1000:[130]
650 [151]P5,228:[151]P6,228:[151]P7,228
660 [141]5010:[153]"OPEN(GIRL) LET'S GET ON OUR WAY, IT'S"
665 [153]" GETTING LATE.":[141]5110
670 Y[178]159:YT[178]138
675 Y[178]Y[171]3:YT[178]YT[171]3
680 [151]V[170]1,Y:[151]V[170]3,Y:[151]V[170]7,Y:[151]V[170]5,YT
685 [151]P0,237:[151]P1,221:[151]P3,242:[129]T[178]1[164]100:[130]
690 Y[178]Y[171]3:YT[178]YT[171]3
695 [151]V[170]1,Y:[151]V[170]3,Y:[151]V[170]7,Y:[151]V[170]5,YT
700 [151]P0,236:[151]P1,220:[151]P3,241:[129]T[178]1[164]100:[130]
705 [139]Y[179]149[167]720
710 [137]675
720 [151]V[170]21,0:[141]5050
750 [153]"LOAD":[151]53280,0
755 [151]214,15:[153]"PRINTWHEW!  LET'S SLOW DOWN AND REST FOR A
760 PRINT"MINUTE. THESE GUYS ARE GOING TOO FAST!
765 [153]"BESIDES, WHOEVER HEARD OF PUMPKINS THAT
770 PRINT"CAN TALK, OR MOVE AROUND?
810 [153]"STOP"
820 [153]"NEW"
830 [153]"LOAD"[199](34)"0:HBH4"[199](34)",8"
840 [153]"RUN"
850 [153]"":[151]631,13:[151]632,13:[151]633,13:[151]198,3
900 [128]
4000 :
4010 [143] **** M/L & SPRITE DATA ****
4012 [143]...BOY RIGHT, WALKING P,225
4014 [129]I[178]0[164]127:[135]A:[151]14400[170]I,A:[130]
4016 [131]0,60,0,0,255,0,3,243
4018 [131]0,3,255,192,3,255,192,3
4020 [131]255,0,0,252,0,0,252,0
4022 [131]0,252,0,0,252,0,0,252
4024 [131]0,0,252,0,0,220,0,0
4026 [131]60,0,0,60,0,0,63,0
4028 [131]0,255,0,0,255,0,0,195
4030 [131]0,0,193,0,0,64,0,0
4032 [143]...BOY, RIGHT, STANDING P,226
4034 [131]0,60,0,0,255,0,3,243
4036 [131]0,3,255,192,3,255,192,3
4038 [131]255,0,0,252,0,0,252,0
4040 [131]0,252,0,0,252,0,0,252
4042 [131]0,0,252,0,0,220,0,0
4044 [131]60,0,0,60,0,0,60,0
4046 [131]0,60,0,0,60,0,0,60
4048 [131]0,0,60,0,0,20,0,0
4050 [143]...BOY STANDING, FRONT P,219
4052 [129]I[178]0[164]63:[135]A:[151]14016[170]I,A:[130]
4054 [131]0,63,0,0,255,192,0,204
4056 [131]192,0,255,192,0,243,192,0
4058 [131]63,0,0,21,0,0,42,0
4060 [131]0,170,128,0,170,128,0,170
4062 [131]128,0,170,128,0,127,64,0
4064 [131]63,0,0,63,0,0,63,0
4066 [131]0,63,0,0,63,0,0,63
4068 [131]0,0,51,0,0,17,0,0
4072 [143]...PUMPKIN SPRITES P,218
4074 [129]I[178]0[164]63:[135]A:[151]13952[170]I,A:[130]
4076 [131]0,0,0,0,0,0,0,0
4078 [131]0,1,255,128,7,255,224,15
4080 [131]255,240,60,126,60,126,255,126
4082 [131]127,255,254,255,231,255,255,195
4084 [131]255,255,255,255,255,255,255,126
4086 [131]255,126,127,0,254,63,255,252
4088 [131]15,255,240,7,255,224,1,255
4090 [131]128,0,0,0,0,0,0,0
4100 :
4102 [143]...HB,RIGHT,STANDING P,233
4104 [129]I[178]0[164]63:[135]A:[151]14912[170]I,A:[130]
4106 [131]0,224,0,1,191,0,1,157
4108 [131]128,0,255,192,0,255,128,0
4110 [131]127,0,0,60,0,0,126,0
4112 [131]0,255,0,0,255,0,0,255
4114 [131]0,0,255,0,0,254,0,0
4116 [131]124,0,0,120,0,0,120,0
4118 [131]0,120,0,0,120,0,0,112
4120 [131]0,0,124,0,0,62,0,127
4124 [143]...HB BACK,RT FT RAISED P,236
4126 [129]I[178]0[164]127:[135]A:[151]15104[170]I,A:[130]
4128 [131]0,60,0,3,126,192,7,255
4130 [131]224,3,255,192,0,255,0,0
4132 [131]255,0,0,126,0,3,255,192
4134 [131]7,255,224,7,255,224,6,255
4136 [131]96,6,255,96,2,255,32,0
4138 [131]255,0,0,255,0,0,231,0
4140 [131]0,231,0,0,231,0,0,239
4142 [131]128,0,224,0,1,240,0,255
4146 [143]...HB BACK,LFT FT RAISED P,237
4148 [131]0,60,0,3,126,192,7,255
4150 [131]224,3,255,192,0,255,0,0
4152 [131]255,0,0,126,0,3,255,192
4154 [131]7,255,224,7,255,224,6,255
4156 [131]96,6,255,96,2,255,32,0
4158 [131]255,0,0,255,0,0,231,0
4160 [131]0,231,0,0,231,0,1,247
4162 [131]0,0,7,0,0,15,128,255
4166 [142]
5000 :
5005 [143] **** BASIC SUBROUTINES ****
5010 [143]...TEXT WINDOW CLEAR & POS.
5015 [158]680:[153]"":[151]214,19:[153]:[142]
5050 :
5055 [143] *** WIPE SCREEN VERTICALLY ***
5060 C1[178]23:C2[178]19:C3[178]24:C4[178]39:C5[178]59903
5065 [129]J[178]0[164]C1:C2$[178]C2$[170][199](32)[170][199](157)[170][199](17):[130]:C2$[178]C2$[170][199](145)
5070 [129]J[178]0[164]C2:[139]J[178]0[167][151]781,C3:[158]C5
5075 [153]"";[163]J);C2$:[153]""[163]C4[171]J);C2$
5080 [130]:[153]"LOAD";:C2$[178]""
5090 [142]
5100 :
5105 [143] *** GET KEY ***
5110 [151]198,0:Z9[178]0
5112 Z9[178]Z9[170]1:[161]A$:[139]A$[178]""[175]Z9[179]200[167]5112
5114 [142]
5200 :
5205 [143] *** PRINT FROM CENTER ***
5210 A[178][195](A$):[139]A[173]2[179][177][181](A[173]2)[167]A$[178]A$[170]""
5215 [129]I[178]1[164]A[173]2:[153]""B$[163]20[171]I);[200](A$,I)[201](A$,I):[153]""
5220 [129]H[178]1[164]40:[130]:[130]:[142]