home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 125
/
125.d81
/
hallow-d
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
115 lines
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