home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 125 / 125.d81 / hallow-d (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  115 lines
  1. 10 dv=peek(186):ifdv<8thendv=8
  2. 100 rem - hallow-d (4th section)
  3. 200 poke53280,0:poke53281,0:printchr$(142)"";
  4. 205 poke53269,255:poke53269,0
  5. 210 sys51721,1,1:poke55375,0
  6. 215 v=53248:gosub2000
  7. 300 :
  8. 315 y=38:pokev+6,165:pokev+7,y:pokev+8,180:pokev+9,y:pokev+21,24
  9. 320 gosub1010
  10. 330 forj=1043to1045:pokej,32:next
  11. 340 gosub1010
  12. 350 forj=1082to1086:pokej,32:next
  13. 360 gosub1010
  14. 370 forj=1121to1127:pokej,32:next
  15. 400 rem *** expand the fire ***
  16. 410 pokev+2,120:pokev+4,135:pokev+10,210:pokev+12,225
  17. 420 gosub1110
  18. 430 forj=1156to1171:pokej,32:next
  19. 440 gosub1110
  20. 450 poke1037,32:poke1038,32:poke1048,32:poke1049,32:poke1077,32:poke1078,32
  21. 460 poke1088,32:poke1089,32:poke1117,32:poke1118,32:poke1128,32:poke1129,32
  22. 480 forj=1195to1212:pokej,32:next
  23. 490 gosub1110
  24. 500 forj=1234to1253:pokej,32:next
  25. 510 gosub1110
  26. 520 forj=1275to1292:pokej,32:next
  27. 530 gosub1110
  28. 540 forj=1315to1332:pokej,32:next
  29. 550 gosub1110
  30. 560 forj=1354to1373:pokej,32:next
  31. 570 forj=1393to1414:pokej,32:next
  32. 580 gosub1110
  33. 590 forj=1432to1455:pokej,32:next
  34. 600 gosub1110
  35. 610 forj=1471to1496:pokej,32:next
  36. 620 gosub1110
  37. 630 forj=1510to1537:pokej,32:next
  38. 640 gosub1110
  39. 650 forj=1550to1577:pokej,32:next
  40. 660 gosub1110
  41. 670 forj=1590to1617:pokej,32:next
  42. 680 gosub1110
  43. 690 forj=1630to1657:pokej,32:next
  44. 700 gosub1110
  45. 710 forj=1670to1697:pokej,32:next
  46. 720 gosub1110
  47. 730 forj=1718to1729:pokej,32:next:pokev+21,0
  48. 750 print"":printtab(13)"[166][166][166]  [166]  [166]  [166][166][166]
  49. 760 [153][163]14)"spc(   spc(  spc(  spc(
  50. 770 printtab(14)"[166]   [166][166][166][166]  [166][166]
  51. 780 [153][163]14)"spc(   spc(  spc(  spc(
  52. 790 printtab(14)"[166]   [166]  [166]  [166][166][166]
  53. 800 [153][163]13)"spc(spc(spc(  spc(  spc(  spc(spc(
  54. 810 printtab(13)"[166]    [166][166] [166]  [166] [166]
  55. 820 [153][163]13)"spc(spc(   spc( spc(spc(  spc( spc(
  56. 830 printtab(13)"[166]    [166]  [166]  [166] [166]
  57. 840 [153][163]13)"spc(spc(spc(  spc(  spc(  spc(spc(
  58. 845 fort=1to10000:next:gosub1210
  59. 850 print"[144]"
  60. 860 print"new"
  61. 870 print"load"chr$(34)"0:hallow-b"chr$(34)","dv
  62. 880 print"run"
  63. 890 print"":poke631,13:poke632,13:poke633,13:poke198,3
  64. 900 end
  65. 1000 :
  66. 1010 rem - move down routine
  67. 1020 fori=1to20
  68. 1025 poke2043,192:pokev+42,7
  69. 1030 poke2044,193:pokev+43,10:fort=1to80:next
  70. 1035 poke2043,193:pokev+42,10
  71. 1040 poke2044,192:pokev+43,7:fort=1to80:next
  72. 1045 y=y+.4:pokev+7,y:pokev+9,y
  73. 1050 nexti:return
  74. 1100 :
  75. 1110 pokev+3,y:pokev+5,y:pokev+7,y:pokev+9,y:pokev+11,y:pokev+13,y
  76. 1115 pokev+21,126:fori=1to20
  77. 1125 poke2041,192:poke2043,192:poke2045,192:pokev+40,7:pokev+42,7:pokev+44,7
  78. 1130 poke2042,193:poke2044,193:poke2046,193:pokev+41,10:pokev+43,10:pokev+45,10
  79. 1140 fort=1to80:next
  80. 1150 poke2041,193:poke2043,193:poke2045,193:pokev+40,10:pokev+42,10:pokev+44,10
  81. 1160 poke2042,192:poke2044,192:poke2046,192:pokev+41,7:pokev+43,7:pokev+45,7
  82. 1170 fort=1to80:next
  83. 1180 y=y+.4:pokev+3,y:pokev+5,y:pokev+7,y:pokev+9,y:pokev+11,y:pokev+13,y
  84. 1190 nexti:return
  85. 1200 :
  86. 1205 rem - screen wiper
  87. 1210 c1=23:c2=19:c3=24:c4=39:c5=59903
  88. 1215 forj=0toc1:c2$=c2$+chr$(32)+chr$(157)+chr$(17):next:c2$=c2$+chr$(145)
  89. 1220 forj=0toc2:ifj=0thenpoke781,c3:sysc5
  90. 1225 print"";tab(j);c2$:print""tab(c4-j);c2$
  91. 1230 next:print"[147]";:c2$=""
  92. 1235 return
  93. 2000 :
  94. 2005 rem - left fire sprite
  95. 2010 fori=0to127:reada:poke12288+i,a:next
  96. 2012 data1,0,0,3,0,0,3,0
  97. 2014 data0,7,128,0,15,128,0,15
  98. 2016 data192,0,31,224,0,31,240,0
  99. 2018 data31,248,0,63,252,0,63,126
  100. 2020 data0,63,63,0,62,63,128,126
  101. 2022 data31,128,126,31,192,126,15,192
  102. 2024 data127,15,192,255,31,224,255,191
  103. 2026 data224,255,191,224,255,255,224,255
  104. 2028 rem - right fire sprite
  105. 2030 data0,0,128,0,0,192,0,0
  106. 2032 data192,0,1,224,0,1,240,0
  107. 2034 data3,240,0,7,248,0,15,248
  108. 2036 data0,31,248,0,63,252,0,126
  109. 2038 data252,0,252,252,1,252,124,1
  110. 2040 data248,126,3,248,126,3,240,126
  111. 2042 data3,240,254,7,248,255,7,253
  112. 2044 data255,7,253,63,7,255,255,255
  113. 2048 return
  114. 10000 open15,8,15,"s0:hallow-d":close15:save"hallow-d",8:end
  115.