10 REM - HALLOW-B  (2ND SECTION)
20 DV=PEEK(186):IFDV<8THENDV=8
100 REM - MAIN TITLE
110 PRINTCHR$(142)"[147]":POKE53280,0:POKE53281,0
115 POKE53269,255:POKE53269,0
120 GOSUB1010
130 POKE214,10:PRINT"[153]"TAB(12)"BY WM. NELSON
140 V[178]53248:[151]2044,196:[151]2045,196:[151]V[170]43,8:[151]V[170]44,8
145 [151]V[170]8,52:[151]V[170]16,32:[151]V[170]10,36
150 [151]V[170]9,190:[151]V[170]11,190:[151]V[170]21,48
155 [153]"(null)(null)(null)MID$(null)RIGHT$"[166]22)"(null)(null)(null)MID$(null)RIGHT$"
190 [141]2000:[141]3000:[151]V[170]21,0:[158]49186
330 [151]2040,192:[151]2041,193:[151]2042,194:[151]2043,195
335 V[178]53248:[151]V[170]39,7:[151]V[170]40,14:[151]V[170]37,10:[151]V[170]38,1:[151]V[170]28,15
336 [151]V[170]41,7:[151]V[170]42,7
340 [151]V,50:[151]V[170]2,50:[151]V[170]1,150:[151]V[170]3,171
342 [151]V[170]16,12:[151]V[170]4,32:[151]V[170]6,32:[151]V[170]5,150:[151]V[170]7,167
345 [151]V[170]21,3:[129]I[178]1[164]1000:[130]
350 [153]"PRINTDO YOU HAVE A HAUNTED HOUSE
355 PRINTTAB(9)"IN YOUR NEIGHBORHOOD? WE HAVE
360 [153][163]9)"A DANDY - IT'S EMPTY, FALLING
365 PRINTTAB(9)"APART, AND ALL KINDS OF WEIRD
370 [153][163]9)"THINGS GO ON THERE, ESPECIALLY
375 PRINTTAB(9)"AT HALLOWEEN.
380 [129]I[178]0[164]10000:[130]
390 [151]V[170]21,0:[158]49186:[143] TURNOFF GIRL, ERASE TEXT
400 [129]I[178]1[164]1000:[130]:[151]V[170]21,12:[129]I[178]1[164]1000:[130]:[143] TURNON BOY
455 [153]"PRINTWHAT IS HALLOWEEN AND
460 PRINT"HOW DID IT START?
465 [129]I[178]1[164]10000:[130]
470 [151]V[170]21,0:[158]49186:[143] TURNOFF BOY, ERASE TEXT
480 [129]I[178]1[164]1000:[130]:[151]V[170]21,3:[129]I[178]1[164]1000:[130]:[143] TURNON GIRL
500 [143] PRINT"":SYS49186
510 [153]""[163]9)"PRINTMANY YEARS AGO NOVEMBER 1ST
515 PRINTTAB(9)"WAS PICKED AS ALL SAINTS
520 [153][163]9)"DAY TO HONOR THE PEOPLE
525 PRINTTAB(9)"WHO HAD DIED DURING THE
530 [153][163]9)"CHRISTIAN CHURCH MOVEMENT.
535 FORI=1TO15000:NEXT
540 PRINT"":SYS49186:FORT=1TO1000:NEXT
550 PRINT""TAB(9)"[153]THEIR SOULS WERE SUPPOSED
555 [153][163]9)"TO COME BACK TO EARTH
560 PRINTTAB(9)"ON THE EVENING BEFORE,
565 [153][163]9)"WHICH BECAME KNOWN AS
570 PRINTTAB(9)"[129]HALLOWED EVENING[153], LATER
575 [153][163]9)"SHORTENED TO FORHALLOWEENPRINT.
580 FORI=1TO15000:NEXT
585 POKEV+21,0:SYS49186:REM TURNOFF GIRL
590 FORI=1TO1000:NEXT:POKEV+21,12:FORI=1TO1000:NEXT:REM TURNON BOY
615 PRINT"[153][153]SO THAT EXPLAINS THE
620 [153]"GHOSTS. WHY ARE THERE
625 PRINT"WITCHES, AND BATS, AND
630 [153]"PUMPKINS TOO?
640 FORI=1TO10000:NEXT
650 POKEV+21,0:SYS49186:FORI=1TO1000:NEXT:REM TURNOFF BOY
680 POKEV+21,3:FORI=1TO1000:NEXT:REM TURNON GIRL
685 PRINT""TAB(9)"[153]YEARS AGO PEOPLE WERE SUPER-
690 [153][163]9)"STITIOUS AND BELIEVED IN
695 PRINTTAB(9)"GHOSTS AND WITCHES. THESE,
700 [153][163]9)"AND BATS, ONLY CAME OUT AT
705 PRINTTAB(9)"NIGHT SO THEY HAD TO BE EVIL.
710 [153][163]9)"I DON'T KNOW ABOUT PUMPKINS.
715 FORI=1TO15000:NEXT
730 POKEV+21,0:SYS49186:FORI=1TO1000:NEXT:REM TURNOFF GIRL
740 POKEV+21,12:FORI=1TO1000:NEXT:REM TURNON BOY
745 PRINT"[153]TONIGHT IS HALLOWEEN, LET'S
750 [153]"GO TO THE HAUNTED HOUSE AND
755 PRINT"SEE WHAT'S GOING ON!
760 [158]51718,1,"H-HSE6":[129]I[178]1[164]4000:[130]
770 [151]V[170]21,0:[141]1110
800 [143] - LOAD SECTION C
850 [153]"STOP"
855 [153]"NEW"
860 [153]"LOAD"[199](34)"0:HALLOW-C"[199](34)","DV
865 [153]"RUN"
870 [153]"":[151]631,13:[151]632,13:[151]633,13:[151]198,3
890 [128]
1000 [143] - SUBROUTINES
1010 [143] - TITLE
1015 [153]"FOR  STEP (null)  STEP (null)       (null) "
1020 [153]"    WAITTAN      STEP(null)  WAITTAN WAITTAN WAIT(null)(null) "
1025 [153]"        WAIT(null) WAITSTEP(null)STEP(null)STEP     WAIT(null) "
1030 :
1032 [143] *** PUMPKIN SPRITE ***
1034 [129]I[178]0[164]63:[135]A:[151]12544[170]I,A:[130]
1036 [131]0,0,0,0,0,0,0,0
1038 [131]0,1,255,128,7,255,224,15
1040 [131]255,240,60,126,60,126,255
1042 [131]126,127,255,254,255,231,255,255
1044 [131]195,255,255,255,255,255,255,255
1046 [131]126,255,126,127,0,254,63,255
1048 [131]252,15,255,240,7,255,224,1
1050 [131]255,128,0,0,0,0,0,0,0
1090 [142]
1100 :
1105 [143] - SCREEN WIPER
1110 C1[178]23:C2[178]19:C3[178]24:C4[178]39:C5[178]59903
1115 [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)
1120 [129]J[178]0[164]C2:[139]J[178]0[167][151]781,C3:[158]C5
1125 [153]"";[163]J);C2$:[153]""[163]C4[171]J);C2$
1130 [130]:[153]"LOAD";:C2$[178]""
1135 [142]
2000 [143] - DATA
2002 [143] *** BOY-TOP LEFT
2004 [129]I[178]0[164]63:[135]A:[151]12416[170]I,A:[130]
2006 [131]0,0,0,1,89,0,5,85
2008 [131]64,25,150,96,21,85,80,37
2010 [131]153,152,63,250,100,63,254,100
2012 [131]221,254,88,255,255,152,215,255
2014 [131]148,255,255,148,63,255,88,21
2016 [131]255,148,15,253,80,15,252,80
2018 [131]3,240,0,5,88,0,37,90
2020 [131]0,37,90,0,37,90,0,0
2026 :
2028 [143] *** BOY BOTTOM 1/2 LEFT ***
2030 [129]I[178]0[164]63:[135]A:[151]12480[170]I,A:[130]
2032 [131]37,90,0,37,90,0,37,90
2034 [131]0,37,90,0,37,90,0,58
2036 [131]175,0,58,175,0,10,172,0
2038 [131]10,168,0,10,168,0,10,168
2040 [131]0,10,40,0,10,40,0,10
2042 [131]40,0,10,40,0,10,40,0
2044 [131]10,40,0,10,40,0,10,40
2046 [131]0,5,20,0,21,84,0,255
2048 :
2050 [143] *** GIRL, TOP RIGHT ***
2054 [129]I[178]0[164]63:[135]A:[151]12288[170]I,A:[130]
2056 [131]0,42,128,0,42,128,0,170
2058 [131]160,0,170,160,2,165,64,2
2060 [131]165,64,10,148,64,10,149,80
2062 [131]10,85,64,10,149,0,10,149
2064 [131]64,10,148,0,10,148,0,10
2066 [131]191,0,10,191,192,2,191,192
2068 [131]2,188,192,2,191,192,2,60
2070 [131]192,0,63,192,0,60,192,0
2072 :
2074 [143] *** GIRL, BOTTOM RIGHT ***
2076 [129]I[178]0[164]63:[135]A:[151]12352[170]I,A:[130]
2078 [131]0,175,112,0,175,112,0,170
2080 [131]0,0,170,0,0,170,0,2
2082 [131]170,128,2,170,128,2,170,128
2084 [131]10,170,160,10,170,160,0,20
2086 [131]0,0,20,0,0,20,0,0
2088 [131]20,0,0,20,0,0,20,0
2090 [131]0,20,0,0,60,0,0,60
2092 [131]0,0,63,0,0,63,0,0
2094 [142]
3000 [143] - M/L ROUTINES
3010 [143] *** ERASE SCREEN ***
3012 [129]I[178]0[164]33:[135]A:[151]49186[170]I,A:[130]
3014 [131]169,32,160,232,162,3,141,0,5,238,41,192,208,3,238,42,192,136,208,242
3016 [131]202,208,239,169,0,141,41,192,169,5,141,42,192,96
3100 :
3102 [143] *** H. HOUSE LOADER ***
3104 [129]I[178]51712[164]52058:[135]J:[151]I,J:[130]
3105 [151]51973,DV
3106 [131]76,168,202,76,182,202,76,243,202,32,253,174,32,235,183,165
3108 [131]20,133,2,224,0,240,38,224,6,176,34,202,188,80,203,189
3110 [131]75,203,170,165,2,208,23,134,253,132,254,169,0,133,251,169
3112 [131]216,133,252,32,90,202,169,4,133,252,32,90,202,96,32,35
3114 [131]203,134,251,132,252,169,216,133,254,169,0,133,253,32,90,202
3116 [131]169,4,133,254,32,90,202,76,48,203,160,0,162,3,177,251
3118 [131]145,253,200,208,249,230,252,230,254,202,208,242,177,251,145,253
3120 [131]200,192,232,208,247,230,252,230,254,96,147,13,13,67,79,80
3122 [131]89,82,73,71,72,84,32,49,57,56,52,13,76,79,85,73
3124 [131]83,32,87,65,76,76,65,67,69,32,38,13,75,69,78,32
3126 [131]70,82,69,78,67,72,13,0,162,0,189,122,202,240,6,32
3128 [131]210,255,232,208,245,96,32,253,174,32,158,183,224,0,240,48
3130 [131]224,6,176,44,202,188,80,203,132,252,188,75,203,132,251,188
3132 [131]85,203,132,254,169,232,133,253,32,61,203,32,189,255,32,35
3134 [131]203,169,8,170,32,186,255,169,251,166,253,164,254,32,216,255
3136 [131]76,48,203,32,253,174,32,158,183,224,0,240,37,224,6,176
3138 [131]33,142,90,203,169,8,170,160,0,32,186,255,32,61,203,32
3140 [131]189,255,174,90,203,202,188,80,203,189,75,203,170,169,0,32
3142 [131]213,255,96,165,0,9,1,133,0,165,1,41,254,133,1,96
3144 [131]165,0,9,1,133,0,165,1,9,1,133,1,96,32,253,174
3146 [131]32,158,173,32,130,183,166,34,164,35,96,0,0,0,0,0
3148 [131]160,168,176,184,192,167,175,183,191,199,0
3195 [142]
10000 [159]15,8,15,"S0:HALLOW-B":[160]15:[148]"HALLOW-B",8:[128]