10 DV=PEEK(186):IFDV<8THENDV=8
100 REM - HALLOW-D (4TH SECTION)
200 POKE53280,0:POKE53281,0:PRINTCHR$(142)"";
205 POKE53269,255:POKE53269,0
210 SYS51721,1,1:POKE55375,0
215 V=53248:GOSUB2000
300 :
315 Y=38:POKEV+6,165:POKEV+7,Y:POKEV+8,180:POKEV+9,Y:POKEV+21,24
320 GOSUB1010
330 FORJ=1043TO1045:POKEJ,32:NEXT
340 GOSUB1010
350 FORJ=1082TO1086:POKEJ,32:NEXT
360 GOSUB1010
370 FORJ=1121TO1127:POKEJ,32:NEXT
400 REM *** EXPAND THE FIRE ***
410 POKEV+2,120:POKEV+4,135:POKEV+10,210:POKEV+12,225
420 GOSUB1110
430 FORJ=1156TO1171:POKEJ,32:NEXT
440 GOSUB1110
450 POKE1037,32:POKE1038,32:POKE1048,32:POKE1049,32:POKE1077,32:POKE1078,32
460 POKE1088,32:POKE1089,32:POKE1117,32:POKE1118,32:POKE1128,32:POKE1129,32
480 FORJ=1195TO1212:POKEJ,32:NEXT
490 GOSUB1110
500 FORJ=1234TO1253:POKEJ,32:NEXT
510 GOSUB1110
520 FORJ=1275TO1292:POKEJ,32:NEXT
530 GOSUB1110
540 FORJ=1315TO1332:POKEJ,32:NEXT
550 GOSUB1110
560 FORJ=1354TO1373:POKEJ,32:NEXT
570 FORJ=1393TO1414:POKEJ,32:NEXT
580 GOSUB1110
590 FORJ=1432TO1455:POKEJ,32:NEXT
600 GOSUB1110
610 FORJ=1471TO1496:POKEJ,32:NEXT
620 GOSUB1110
630 FORJ=1510TO1537:POKEJ,32:NEXT
640 GOSUB1110
650 FORJ=1550TO1577:POKEJ,32:NEXT
660 GOSUB1110
670 FORJ=1590TO1617:POKEJ,32:NEXT
680 GOSUB1110
690 FORJ=1630TO1657:POKEJ,32:NEXT
700 GOSUB1110
710 FORJ=1670TO1697:POKEJ,32:NEXT
720 GOSUB1110
730 FORJ=1718TO1729:POKEJ,32:NEXT:POKEV+21,0
750 PRINT"":PRINTTAB(13)"[166][166][166]  [166]  [166]  [166][166][166]
760 [153][163]14)"SPC(   SPC(  SPC(  SPC(
770 PRINTTAB(14)"[166]   [166][166][166][166]  [166][166]
780 [153][163]14)"SPC(   SPC(  SPC(  SPC(
790 PRINTTAB(14)"[166]   [166]  [166]  [166][166][166]
800 [153][163]13)"SPC(SPC(SPC(  SPC(  SPC(  SPC(SPC(
810 PRINTTAB(13)"[166]    [166][166] [166]  [166] [166]
820 [153][163]13)"SPC(SPC(   SPC( SPC(SPC(  SPC( SPC(
830 PRINTTAB(13)"[166]    [166]  [166]  [166] [166]
840 [153][163]13)"SPC(SPC(SPC(  SPC(  SPC(  SPC(SPC(
845 FORT=1TO10000:NEXT:GOSUB1210
850 PRINT"[144]"
860 PRINT"NEW"
870 PRINT"LOAD"CHR$(34)"0:HALLOW-B"CHR$(34)","DV
880 PRINT"RUN"
890 PRINT"":POKE631,13:POKE632,13:POKE633,13:POKE198,3
900 END
1000 :
1010 REM - MOVE DOWN ROUTINE
1020 FORI=1TO20
1025 POKE2043,192:POKEV+42,7
1030 POKE2044,193:POKEV+43,10:FORT=1TO80:NEXT
1035 POKE2043,193:POKEV+42,10
1040 POKE2044,192:POKEV+43,7:FORT=1TO80:NEXT
1045 Y=Y+.4:POKEV+7,Y:POKEV+9,Y
1050 NEXTI:RETURN
1100 :
1110 POKEV+3,Y:POKEV+5,Y:POKEV+7,Y:POKEV+9,Y:POKEV+11,Y:POKEV+13,Y
1115 POKEV+21,126:FORI=1TO20
1125 POKE2041,192:POKE2043,192:POKE2045,192:POKEV+40,7:POKEV+42,7:POKEV+44,7
1130 POKE2042,193:POKE2044,193:POKE2046,193:POKEV+41,10:POKEV+43,10:POKEV+45,10
1140 FORT=1TO80:NEXT
1150 POKE2041,193:POKE2043,193:POKE2045,193:POKEV+40,10:POKEV+42,10:POKEV+44,10
1160 POKE2042,192:POKE2044,192:POKE2046,192:POKEV+41,7:POKEV+43,7:POKEV+45,7
1170 FORT=1TO80:NEXT
1180 Y=Y+.4:POKEV+3,Y:POKEV+5,Y:POKEV+7,Y:POKEV+9,Y:POKEV+11,Y:POKEV+13,Y
1190 NEXTI:RETURN
1200 :
1205 REM - SCREEN WIPER
1210 C1=23:C2=19:C3=24:C4=39:C5=59903
1215 FORJ=0TOC1:C2$=C2$+CHR$(32)+CHR$(157)+CHR$(17):NEXT:C2$=C2$+CHR$(145)
1220 FORJ=0TOC2:IFJ=0THENPOKE781,C3:SYSC5
1225 PRINT"";TAB(J);C2$:PRINT""TAB(C4-J);C2$
1230 NEXT:PRINT"[147]";:C2$=""
1235 RETURN
2000 :
2005 REM - LEFT FIRE SPRITE
2010 FORI=0TO127:READA:POKE12288+I,A:NEXT
2012 DATA1,0,0,3,0,0,3,0
2014 DATA0,7,128,0,15,128,0,15
2016 DATA192,0,31,224,0,31,240,0
2018 DATA31,248,0,63,252,0,63,126
2020 DATA0,63,63,0,62,63,128,126
2022 DATA31,128,126,31,192,126,15,192
2024 DATA127,15,192,255,31,224,255,191
2026 DATA224,255,191,224,255,255,224,255
2028 REM - RIGHT FIRE SPRITE
2030 DATA0,0,128,0,0,192,0,0
2032 DATA192,0,1,224,0,1,240,0
2034 DATA3,240,0,7,248,0,15,248
2036 DATA0,31,248,0,63,252,0,126
2038 DATA252,0,252,252,1,252,124,1
2040 DATA248,126,3,248,126,3,240,126
2042 DATA3,240,254,7,248,255,7,253
2044 DATA255,7,253,63,7,255,255,255
2048 RETURN
10000 OPEN15,8,15,"S0:HALLOW-D":CLOSE15:SAVE"HALLOW-D",8:END