10 REM **** HBH5 ****
15 V=53248:POKE53281,0:POKE53280,0
20 REM...SPRITE POINTERS:
25 P0=2040:P1=2041:P2=2042:P3=2043:P4=2044:P5=2045:P6=2046:P7=2047
30 FORI=1TOPEEK(709):NM$=NM$+CHR$(PEEK(709+I)):NEXT
80 GOSUB4324:REM READ DATA
100 POKEP0,230:POKEP1,222:POKEP2,244:POKEP3,245
105 POKEV,200:POKEV+2,220:POKEV+4,245:POKEV+6,245
110 POKEV+1,195:POKEV+3,195:POKEV+5,174:POKEV+7,195
115 POKEV+40,1:POKEV+41,7:POKEV+42,14:POKEV+28,14:POKEV+37,10:POKEV+38,1
120 SYS51721,1,4:POKEV+21,15
130 GOSUB5010:PRINT"[159](HUGGY BEAR) DOES ANYONE LIVE HERE?":GOSUB5110
135 GOSUB5010:PRINT"[159](GIRL) I DON'T THINK SO. SOME PEOPLE
140 [153]"  SAY IT'S HAUNTED.":[141]5110:[129]T[178]1[164]3000:[130]:[141]5010
145 [151]P4,215:[151]P5,216
150 [151]V[170]21,63:[151]V[170]23,48:[151]V[170]10,245:[151]V[170]43,1:[151]V[170]44,1
155 [129]Y[178]0[164]150:[151]V[170]11,Y:[129]T[178]1[164]20:[130]:[130]
160 [151]P0,235:[151]P1,224:[151]P2,240:[151]P3,243:[129]T[178]1[164]1000:[130]
165 [151]V[170]23,16:[129]T[178]1[164]2000:[130]:[151]V[170]21,31
170 [141]5010:[153]"OPEN(BOY) DID YOU SEE THAT?":[141]5110
180 [141]5010:[153]"OPEN(HUGGY BEAR) IT WAS A GHOST!":[141]5110
185 [151]V[170]8,100:[151]V[170]9,0:[129]Y[178]0[164]150:[151]V[170]9,Y:[129]T[178]1[164]20:[130]:[130]
190 [129]T[178]1[164]1000:[130]:[151]V[170]23,0:[129]T[178]1[164]2000:[130]:[151]V[170]21,15
200 [141]5010:[153]"OPEN(GIRL) AND THERE'S ANOTHER ONE!"
205 [141]4334:[129]T[178]1[164]3000:[130]:[141]5010
210 [151]P6,212:[143] WITCH FLYING RIGHT
215 [151]V[170]45,1:[151]V[170]12,0:[151]V[170]13,60:[151]V[170]29,64:[151]V[170]23,64:[151]V[170]21,79
220 X[178]0:Y[178]60:I[178]0
225 [129]X[178]0[164]250:[151]V[170]12,X:I[178]I[170]1
230 [139]I[178]5[167]Y[178]Y[170]1:[151]V[170]13,Y:I[178]0
235 [130]
240 [151]P6,214:[143] WITCH FLYING LEFT
245 [129]X[178]250[164]50[169][171]1:[151]V[170]12,X:I[178]I[170]1
250 [139]I[178]5[167]Y[178]Y[170]1:[151]V[170]13,Y:I[178]0
255 [130]
260 [151]P6,212:[143] WITCH FLYING RIGHT
280 [129]X[178]50[164]160:[151]V[170]12,X:I[178]I[170]1
285 [139]I[178]10[167]Y[178]Y[170]1:[151]V[170]13,Y:I[178]0
290 [130]
295 [151]P6,213:[151]P2,244:[151]P3,245
300 [141]5010:[153]"OPEN(WITCH) WON'T YOU CHILDREN COME INTO
305 PRINT"MY HOUSE AND HAVE SOME TREATS?":GOSUB5110
310 GOSUB5010:PRINT"[159](HUGGY BEAR) WHAT KIND OF TREATS?":GOSUB5110
315 GOSUB5010:PRINT"[159](WITCH) I HAVE SOME GOOD BLACKBIRD PIE,
320 [153]" AND SOME BAT WING STEW.":[141]5110
330 [141]5010:[153]"OPEN(BOY) UGH! THEY SOUND TERRIBLE!":[141]5110
335 [141]5010:[153]"OPEN(GIRL) NO THANKS. WE HAVE TO HURRY
340 PRINT"  TO GET HOME BY 9 O'CLOCK.":GOSUB5110
345 GOSUB5010:PRINT"[159](WITCH) WELL, I HAVE TO GO IN NOW AND
350 [153]"  SEE WHAT THOSE GHOSTS ARE DOING.":[129]T[178]1[164]2000:[130]
355 [129]I[178]13632[164]13695:[151]I,0:[129]T[178]1[164]50:[130]:[130]
360 [141]5010:[153]"OPEN(GIRL) LET'S HEAD FOR HOME GUYS, IT'S
365 PRINT"  ALMOST 9 O'CLOCK.":GOSUB5110
375 GOSUB5010:POKEP0,230:POKEP1,222:POKEV+21,15:FORT=1TO1000:NEXT
400 IFPEEK(710)<1ORPEEK(710)>26ORPEEK(711)<1ORPEEK(711)>26THEN420
405 POKEP0,254:GOSUB5010:PRINT"[159](HUGGY BEAR) ARE YOU STILL WITH US,"
410 PRINT"";NM$"?":GOSUB5110:POKEP0,230
420 X0=200:X2=220:X4=245:X6=245
425 X0=X0-4:X2=X2-4:X4=X4-4:X6=X6-4
430 POKEP0,232:POKEP1,223:POKEP3,239
435 POKEV,X0:POKEV+2,X2:POKEV+4,X4:POKEV+6,X6
440 FORT=1TO100:NEXT
445 POKEP0,230:POKEP1,222:POKEP3,245
450 IFX0=0THENPOKEV+21,14:X0=X0+4
455 IFX2=0THENPOKEV21,12:X2=X2+4
460 IFX4=<4THENPOKEV+21,0:GOTO480
465 FORT=1TO100:NEXT
470 GOTO425
480 GOSUB5050
500 PRINT"[147][158]ON THE WAY HOME THEY WERE COMPLAINING
505 [153]"BECAUSE THEY HADN'T GOTTEN ANY TREATS
510 PRINT"TONIGHT. THEY DECIDED TO STOP AT ONE
515 [153]"MORE HOUSE, THE ONE ACROSS THE STREET
520 PRINT"FROM WHERE THEY LIVE.
525 [158]51718,1,"OUTSIDE":[158]51718,2,"LAST HOUSE"
530 [151]V,200:[151]V[170]2,226:[151]V[170]4,250:[151]V[170]6,250
535 [151]V[170]1,160:[151]V[170]3,160:[151]V[170]5,139:[151]V[170]7,160
540 [143]....OUTSIDE SCENE
545 [151]P4,228:[151]V[170]43,7:[151]V[170]8,190:[151]V[170]9,50:[143] MOON
550 [153]"LOAD":[158]51721,1,1:[151]V[170]21,31
560 X0[178]210:X2[178]230:X4[178]250:X6[178]250
565 X0[178]X0[171]4:X2[178]X2[171]4:X4[178]X4[171]4:X6[178]X6[171]4
570 [151]P0,232:[151]P1,223:[151]P3,239
575 [151]V,X0:[151]V[170]2,X2:[151]V[170]4,X4:[151]V[170]6,X6
580 [129]T[178]1[164]100:[130]
585 [151]P0,230:[151]P1,222:[151]P3,245
590 [139]X0[178][179]50[167]620
605 [129]T[178]1[164]100:[130]
610 [137]565
620 [151]P0,235:[151]P1,224:[151]P2,240:[151]P3,243
630 Y[178]160:YT[178]139
635 Y[178]Y[171]2:YT[178]YT[171]2
640 [151]P0,236:[151]P1,220:[151]P3,241:[129]T[178]1[164]120:[130]
645 [151]V[170]1,Y:[151]V[170]3,Y:[151]V[170]7,Y:[151]V[170]5,YT
650 [151]P0,237:[151]P1,221:[151]P3,242:[129]T[178]1[164]120:[130]
655 [139]Y[179]130[167]670
660 [137]635
670 [151]V[170]21,0:[153]"LOAD"
675 [151]P0,233:[151]P1,226:[151]P2,246:[151]P3,247
680 [151]V[170]1,158:[151]V[170]3,153:[151]V[170]5,127:[151]V[170]7,148
685 [151]V,167:[151]V[170]2,180:[151]V[170]4,175:[151]V[170]6,175
700 [143]....LAST HOUSE SCENE
710 [158]51721,1,2:[151]V[170]21,15
715 [141]5010:[153]"OPEN(ALL 3) TRICK OR TREAT!":[141]4402:[129]T[178]1[164]3000:[130]
720 [141]5010:[153]"OPEN(LADY IN HOUSE) YOU MUST BE THE KIDS
725 PRINT"  FROM ACROSS THE STREET!":GOSUB5110
730 GOSUB5010:PRINT"[159](GIRL) YES MA'AM, WE ARE.":GOSUB5110
735 GOSUB5010:PRINT"[159](LADY) WELL I'M SURE GLAD YOU CAME BY.":GOSUB5110
740 PRINT"WE HAVE A LOT OF TREATS LEFT.":GOSUB5110
745 GOSUB5010:PRINT"[159](LADY) NOT MANY KIDS CAME BY, SO WE
750 [153]" WANT YOU TO TAKE IT ALL!":[129]T[178]1[164]2500:[130]
755 [143]...BAG OF TREATS:
760 [151]P4,211:[151]V[170]43,10:[151]V[170]8,195:[151]V[170]9,137:[151]V[170]21,31
765 [129]T[178]1[164]2500:[130]
770 [141]5010:[153]"OPEN(GIRL) WHY THANK YOU VERY MUCH!  WE
775 PRINT" DIDN'T GET ANY TREATS ANYWHERE ELSE.":GOSUB5110
780 GOSUB5010:PRINT"[159](HUGGY BEAR) GEE, THANK YOU SO MUCH.
785 [153]"OPEN(BOY) YEAH, THANKS LOTS!":[141]5110
790 [151]V[170]21,0:[141]5050
800 [153]"SYSWELL, THATS ABOUT THE END OF OUR STORY
805 PRINT"FOLKS. THE KIDS HAD SOME BAD LUCK AT
810 [153]"TRICK OR TREATING, BUT THE GOODIES THE
815 PRINT"NEIGHBORS GAVE THEM MORE THAN MADE UP
820 [153]"FOR THAT. THEY DID HAVE SOME UNUSUAL
825 PRINT"EXPERIENCES THOUGH. KINDA MAKES ONE
830 [153]"WONDER ABOUT ALL THOSE TALES OF WITCHES
835 PRINT"AND GHOSTS AND HAUNTED HOUSES. ANYWAY,
840 [153]"HUGGY BEAR AND HIS FRIENDS ARE HAPPY.
850 PRINT"I HOPE YOU ENJOYED SHARING THIS STORY
855 [153]"WITH THEM.
860 FORZ9=1TO4000:NEXT:GOSUB5110:GOSUB5050
865 POKEV+1,148:POKEV+3,153:POKEV+5,139:POKEV+7,158
870 POKEV,70:POKEV+2,50:POKEV+4,30:POKEV+6,30:POKEV+21,15
880 PRINT"[153]"TAB(12)"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
885 PRINTTAB(12)"[194]                       [194]"
890 PRINTTAB(12)"[194]  GOODNIGHT EVERYONE   [194]"
895 PRINTTAB(10)"[213][192][179]                       [194]"
900 PRINTTAB(12)"[194] HOPE TO SEE YOU SOON  [194]"
905 PRINTTAB(12)"[194]                       [194]"
910 PRINTTAB(12)"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
912 PRINT""
915 IFPEEK(709)=0THEN930
920 PRINTTAB(15)"THANKS FOR JOINING"
925 PRINT""TAB(17)"US, ";NM$"."
930 PRINT"    [159]DO YOU WANT TO SEE HUGGY BEAR'S"
940 PRINT"         HALLOWEEN AGAIN?  (Y[159]/N[159])"
950 GETA$:IFA$<>"Y"ANDA$<>"N"THEN950
955 POKE53269,0
960 F$="HELLO CONNECT":IFA$="Y"THENF$="HB HALLOWEEN"
965 POKE1,231:POKE0,47
970 PRINT"[147][144]LOADF$,8"
980 PRINT"RUN"
990 POKE631,13:POKE632,13:POKE198,2:END
4322 REM....CLEAR TEXT WINDOW...
4324 FORI=680TO700:READA:POKEI,A:NEXT:RETURN
4326 DATA162,0,169,32,141,112,7,238,173,2,232,224,120,208,245
4328 DATA169,72,141,173,2,96
4330 :
4332 REM....SPRITE DATA  P,212
4334 FORI=0TO191:READA:POKE13568+I,A:NEXT
4336 REM...WITCH FLYING RIGHT
4338 DATA0,16,0,0,56,0,0,124
4340 DATA0,0,254,0,7,255,192,1
4342 DATA254,0,1,250,0,1,254,16
4344 DATA0,252,32,0,121,192,0,127
4346 DATA128,0,125,0,0,126,0,0
4348 DATA254,0,1,254,0,0,20,0
4350 DATA0,60,0,1,224,0,7,224
4352 DATA0,7,192,0,1,192,0,0
4354 REM...WITCH STANDING  P,213
4356 DATA0,16,0,0,56,0,0,124
4358 DATA0,0,254,0,7,255,192,1
4360 DATA255,0,1,147,0,1,255,0
4362 DATA0,238,0,0,124,0,1,255
4364 DATA0,3,125,128,6,124,192,6
4366 DATA254,192,4,254,64,1,255,0
4368 DATA1,255,0,3,255,128,3,255
4370 DATA128,0,68,0,1,199,0,0
4372 REM...WITCH FLYING LEFT
4374 DATA0,8,0,0,28,0,0,62
4376 DATA0,0,127,0,3,255,224,0
4378 DATA127,128,0,95,128,8,127,128
4380 DATA4,63,0,3,158,0,1,254
4382 DATA0,0,190,0,0,126,0,0
4384 DATA127,0,0,127,128,0,40,0
4386 DATA0,60,0,0,7,128,0,7
4388 DATA224,0,3,224,0,3,128,0
4390 RETURN
4400 :
4402 REM *** PAPER BAG  P,211
4404 FORI=0TO63:READA:POKE13504+I,A:NEXT
4406 DATA255,252,0,191,124,0,183,124
4408 DATA0,183,124,0,183,220,0,183
4410 DATA220,0,191,220,0,255,220,0
4412 DATA253,220,0,221,220,0,221,220
4414 DATA0,221,252,0,253,252,0,127
4416 DATA248,0,63,240,0,0,0,0
4418 DATA0,0,0,0,0,0,0,0
4420 DATA0,0,0,0,0,0,0,240
4422 RETURN
5000 :
5005 REM **** BASIC SUBROUTINES ****
5010 REM...TEXT WINDOW CLEAR & POS.
5015 SYS680:PRINT"":POKE214,19:PRINT:RETURN
5050 :
5055 REM *** WIPE SCREEN VERTICALLY ***
5060 C1=23:C2=19:C3=24:C4=39:C5=59903
5065 FORJ=0TOC1:C2$=C2$+CHR$(32)+CHR$(157)+CHR$(17):NEXT:C2$=C2$+CHR$(145)
5070 FORJ=0TOC2:IFJ=0THENPOKE781,C3:SYSC5
5075 PRINT"";TAB(J);C2$:PRINT""TAB(C4-J);C2$
5080 NEXT:PRINT"[147]";:C2$=""
5090 RETURN
5100 :
5105 REM *** 5 SEC TIME DELAY ***
5110 POKE198,0:Z9=0
5112 Z9=Z9+1:GETA$:IFA$=""ANDZ9<200THEN5112
5114 RETURN