10 DV=PEEK(186):IFDV<8THENDV=8
100 REM - HALLOW-C (3RD SECTION)
200 POKE53280,0:POKE53281,0:PRINTCHR$(142)"[147]"
210 SYS51721,1,1:POKE55375,0
215 RESTORE:V=53248:GOSUB2000
220 POKE2045,201:REM - MOON
230 POKEV+44,7:POKEV+16,32:POKEV+10,30:POKEV+11,70:POKEV+27,32:POKEV+21,32
300 :
305 REM - H. HOUSE SEQUENCE
310 GOSUB2100
315 GOSUB1160:REM - WIND
320 GOSUB1260:REM - GHOST DESCENDING
325 GOSUB1160:REM - WIND
330 GOSUB1310:REM - WITCH FLY RIGHT
340 GOSUB1350:REM - BAT FLYING LEFT
350 GOSUB1160:REM - WIND
360 GOSUB1410:REM - BAT FLYING
370 GOSUB1210:REM - LIGHTNING
375 FORT=1TO2000:NEXT
380 GOSUB1160:REM - WIND
385 GOSUB1210:REM - LIGHTNING
390 GOSUB1460:REM - BAT FLYING OUT
395 GOSUB1510:REM - WITCH LEAVES
400 GOSUB1550:REM - GHOST LEAVES
410 GOSUB1210:POKEV+21,0:POKEV+16,0:POKEV+27,0
500 :PRINT"[147]":POKE214,20:PRINT"[158]LIGHTNING STRUCK THE HOUSE!
850 [153]"STOP"
855 [153]"NEW"
860 [153]"LOAD"[199](34)"0:HALLOW-D"[199](34)","DV
865 [153]"RUN"
870 [153]"":[151]631,13:[151]632,13:[151]633,13:[151]198,3
890 [128]
1100 [143] *** SUBROUTINES ***
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]
1150 :
1155 [143] - SOUND OF WIND
1160 [129]L[178]54272[164]54296:[151]L,0:[130]
1165 S[178]54272:[151]S[170]24,15
1170 [151]S[170]5,255:[151]S[170]12,255:[151]S[170]19,255
1175 [151]S,255:[151]S[170]1,254:[151]S[170]7,98:[151]S[170]8,5:[151]S[170]14,90:[151]S[170]15,6
1180 [151]S[170]3,6:[151]S[170]2,1:[151]S[170]10,2:[151]S[170]9,12:[151]S[170]17,8:[151]S[170]16,0
1185 [151]S[170]4,129:[151]S[170]11,129:[151]S[170]18,129
1190 [142]
1200 :
1205 [143] - LIGHTNING & THUNDER
1210 [129]L[178]54272[164]54296:[151]L,0:[130]
1215 S[178]54272:[151]S[170]24,15
1220 [129]I[178]1[164]5:[151]53281,1
1225 [129]T[178]1[164]50:[130]
1230 [151]53281,0
1235 [129]T[178]1[164]50:[130]
1240 [151]53281,0:[130]
1245 [151]S[170]5,28:[151]S[170]1,40:[151]S[170]4,128:[151]S[170]4,129
1250 [129]T[178]1[164]2000:[130]:[151]S[170]4,0:[142]
1255 :
1260 [143] *** GHOST DESCENDING ***
1265 [151]2046,200:[151]V[170]45,1:[151]V[170]12,245:[151]V[170]13,0:[151]V[170]21,96
1270 [129]Y[178]0[164]150:[151]V[170]13,Y:[129]T[178]1[164]20:[130]:[130]
1275 [129]T[178]1[164]500:[130]:[151]V[170]21,32
1280 [129]T[178]1[164]5000:[130]:[142]
1300 :
1305 [143] *** WITCH FLYING RIGHT ***
1310 [151]2047,199:[151]V[170]46,1:X[178]0:[151]V[170]14,X:Y[178]48:[151]V[170]15,Y:[151]V[170]21,160
1320 [129]X[178]0[164]220:[151]V[170]14,X:Y[178]Y[170].2:[151]V[170]15,Y:[130]
1330 [129]T[178]1[164]1000:[130]:[151]V[170]21,32:[129]T[178]1[164]2000:[130]
1335 [142]
1340 :
1345 [143] *** BAT FLYING LEFT ***
1350 [151]2047,198:[151]V[170]46,4
1355 [151]V[170]14,150:Y[178]70:[151]V[170]15,Y:[151]V[170]21,160
1360 [129]X[178]150[164]0[169][171]1
1365 [151]2047,197:[129]T[178]1[164]50:[130]
1370 [151]2047,198:[129]T[178]1[164]50:[130]
1375 Y[178]Y[170].5:[151]V[170]15,Y:[151]V[170]14,X
1380 [143]:FORT=1TO20:NEXT
1385 [130]X:[129]T[178]1[164]5000:[130]
1390 [151]V[170]21,32:[142]
1400 :
1405 [143] *** BAT FLYING ON RIGHT ***
1410 [151]2047,198:[151]V[170]46,4
1415 [151]V[170]14,250:Y[178]50:[151]V[170]15,Y:[151]V[170]21,160
1420 [129]X[178]250[164]130[169][171]2
1425 [151]2047,197:[129]T[178]1[164]50:[130]
1435 [151]2047,198:[129]T[178]1[164]50:[130]
1440 Y[178]Y[170].7:[151]V[170]15,Y:[151]V[170]14,X
1445 [130]X:[151]V[170]21,32
1450 [129]T[178]1[164]2000:[130]:[142]
1455 :
1460 [143] *** BAT LEAVING ***
1465 [151]2047,198:[151]V[170]46,4
1470 [151]V[170]14,100:Y[178]150:[151]V[170]15,Y:[151]V[170]21,160
1475 [129]X[178]100[164]254[169]2
1480 [151]2047,197:[129]T[178]1[164]20:[130]
1485 [151]2047,198:[129]T[178]1[164]20:[130]
1490 Y[178]Y[171]1:[151]V[170]15,Y:[151]V[170]14,X
1495 [130]X:[151]V[170]21,32:[142]
1500 :
1505 [143] *** WITCH LEAVING ***
1510 [151]2047,199:[151]V[170]46,1:X[178]180:Y[178]140:[151]V[170]14,X:[151]V[170]15,Y:[151]V[170]21,160
1520 [129]X[178]180[164]254:[151]V[170]14,X
1525 Y[178]Y[171]1:[151]V[170]15,Y
1530 [130]:[151]V[170]21,32
1535 [142]
1550 :
1555 [143] *** GHOST LEAVING ***
1560 [151]2046,200:[151]V[170]45,1:X[178]245:[151]V[170]12,X:[151]V[170]13,150:[151]V[170]21,96
1565 [129]Y[178]150[164]0[169][171]1:[151]V[170]13,Y:X[178]X[171]1:[151]V[170]12,X:[130]
1570 [129]T[178]1[164]5000:[130]:[142]
2000 [143] - SPRITE DATA
2002 [143] *** MOON ***
2004 [129]I[178]0[164]63:[135]A:[151]12864[170]I,A:[130]
2006 [131]0,0,0,0,255,0,7,255
2008 [131]224,31,255,248,63,255,252,127
2010 [131]255,254,127,255,254,255,255,255
2012 [131]255,255,255,255,255,255,255,255
2014 [131]255,255,255,255,255,255,255,255
2016 [131]255,255,127,255,254,127,255,254
2018 [131]63,255,252,31,255,248,7,255
2020 [131]224,0,255,0,0,0,0,0
2030 [142]
2100 :
2101 [143] *** BAT,WINGS UP ***
2102 [129]I[178]0[164]63:[135]A:[151]12608[170]I,A:[130]
2104 [131]0,0,0,0,0,0,0,0
2106 [131]0,0,0,0,0,0,0,0
2108 [131]0,0,28,0,56,119,0,238
2110 [131]129,219,129,0,60,0,0,24
2112 [131]0,0,36,0,0,0,0,0
2114 [131]0,0,0,0,0,0,0,0
2116 [131]0,0,0,0,0,0,0,0
2118 [131]0,0,0,0,0,0,0,0
2120 :
2122 [143] *** BAT, WINGS DOWN ***
2124 [129]I[178]0[164]63:[135]A:[151]12672[170]I,A:[130]
2126 [131]0,0,0,0,0,0,0,0
2128 [131]0,0,0,0,0,0,0,0
2130 [131]0,0,0,0,0,0,0,0
2132 [131]129,219,129,119,60,238,28,24
2134 [131]53,0,36,0,0,0,0,0
2136 [131]0,0,0,0,0,0,0,0
2138 [131]0,0,0,0,0,0,0,0
2140 [131]0,0,0,0,0,0,0,0
2142 :
2144 [143] *** SMALL WITCH ***
2146 [129]I[178]0[164]63:[135]A:[151]12736[170]I,A:[130]
2148 [131]0,0,0,0,60,0,0,14
2150 [131]0,0,15,0,0,15,192,0
2152 [131]23,0,0,7,128,2,15,0
2154 [131]1,255,0,3,255,128,4,249
2156 [131]128,0,60,192,160,126,224,84
2158 [131]126,112,171,255,255,84,191,0
2160 [131]128,7,0,0,30,0,0,60
2162 [131]0,0,112,0,0,112,0,0
2170 :
2172 [143] *** GHOST ***
2174 [129]I[178]0[164]63:[135]A:[151]12800[170]I,A:[130]
2176 [131]0,170,0,3,85,128,6,170
2178 [131]192,9,1,32,10,108,160,4
2180 [131]16,64,12,130,96,4,124,64
2182 [131]14,0,224,5,199,64,10,170
2184 [131]160,21,85,80,10,170,160,37
2186 [131]85,72,10,170,160,85,85,84
2188 [131]42,170,160,245,85,94,10,170
2190 [131]160,5,85,64,10,170,160,255
2200 :
3000 :
3002 [143] - ML 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
3020 [142]
10000 [159]15,8,15,"S0:HALLOW-C":[160]15:[148]"HALLOW-C",8:[128]