home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 32 / 032.d81 / alfredo (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  9KB  |  319 lines
  1. 1 if a=0 then a=1:load "pgm.bin",8,1
  2. 2 poke 55,255:poke 56,131:clr
  3. 3 ba=33792:rem base address
  4. 4 dp=ba+3:rem de-activate pgm
  5. 5 sa=ba+6:rem set address
  6. 6 bs=ba+9:rem bsave
  7. 7 bl=ba+12:rem bload
  8. 8 ds=ba+15:rem dos commands
  9. 9 fm=ba+18:rem fill memory
  10. 10 xf=ba+21:rem xfer memory
  11. 11 ho=ba+24:rem hires on
  12. 12 hf=ba+27:rem hires off
  13. 13 mo=ba+30:rem multicolor on
  14. 14 mf=ba+33:rem multicolor off
  15. 15 ce=ba+36:rem 80 column char driver
  16. 16 cd=ba+39:rem char driver
  17. 17 dc=ba+42:rem data compress
  18. 18 uc=ba+45:rem uncompress data
  19. 19 cw=ba+48:rem copy window
  20. 20 rw=ba+51:rem restore window
  21. 21 pl=ba+54:rem plot a point
  22. 22 up=ba+57:rem unplot a point
  23. 23 dr=ba+60:rem draw a line
  24. 24 ud=ba+63:rem undraw a line
  25. 25 bf=ba+66:rem bitmap fill
  26. 26 sb=ba+69:rem split border
  27. 27 br=ba+72:rem 3d bar
  28. 28 se=ba+75:rem eight sprite mode
  29. 29 fs=ba+78:rem fourteen sprite mode
  30. 30 so=ba+81:rem sprite on
  31. 31 sd=ba+84:rem sprite define
  32. 32 sp=ba+87:rem sprite plot
  33. 33 sr=ba+90:rem sprite reflect
  34. 34 rs=ba+93:rem sprite reverse
  35. 35 sx=ba+96:rem sprite xfer
  36. 36 an=ba+99:rem animate sprite
  37. 37 ca=ba+102:rem cease animate
  38. 38 jo=ba+105:rem joystick on
  39. 39 jf=ba+108:rem joystick off
  40. 40 wc=ba+111:rem color window
  41. 41 rw=ba+114:rem reverse window
  42. 42 fw=ba+117:rem fill window
  43. 43 rd=ba+120:rem dir reader
  44. 44 sys sa,57344,52224:rem set address
  45. 45 sys ba:rem activate pgm
  46. 46 sys ho:rem hires on
  47. 47 sysse:rem eight sprite mode
  48. 48 rem
  49. 49 rem program begins here
  50. 50 poke 53280,0:poke53281,0
  51. 51 rat=0
  52. 52 sysbl,49152,"alfredo.spr,p"
  53. 53 adr=peek(781)+peek(782)*256
  54. 54 sd=54272
  55. 55 syscd,55296,1,1,"[144][147]"
  56. 60 sysdr,0,0,319,0,1,0
  57. 65 sysdr,319,0,319,150
  58. 70 sysdr,319,150,0,150
  59. 75 sysdr,0,150,0,0
  60. 80 sysdr,0,150,319,150
  61. 85 sysdr,200,150,200,75
  62. 90 sysdr,200,75,319,75
  63. 100 sysdr,200,75,319,50
  64. 110 sysdr,220,100,250,100
  65. 115 sysdr,250,100,250,110
  66. 120 sysdr,250,110,220,110
  67. 125 sysdr,220,110,220,100
  68. 130 rem sysse:rem eight sprite mode
  69. 135 sysba+3*28,0,0,0,0,0,1
  70. 140 sysba+3*29,0,25,183,0
  71. 145 sysba+3*27,1,0
  72. 150 fr=25:tm=100:y=183:sl=1:mn=0:mx=3:gosub7000
  73. 160 sysud,80,150,110,150
  74. 161 sysdr,135,yy,188,yy
  75. 162 gosub4005
  76. 165 sysdr,80,150,110,180
  77. 170 forx=091to125step2:r=0:y=y+2:pt=4:gosub9000:next
  78. 175 rem ** scene 2 **
  79. 177 sysba+81,0,0
  80. 179 x=180:y=50:gosub9000
  81. 180 syscd,55296,1,1,"[144][147]"
  82. 185 sysdr,130,0,130,199:sysdr,190,0,190,199
  83. 190 sysdr,160,100,160,199:sysdr,135,100,185,100
  84. 192 sysba+81,1,0
  85. 195 fory=50to133step3:x=180:r=0:pt=8:gosub9000:next:pt=5:gosub9000
  86. 200 for yy=100to190step4:sysdr,135,yy,185,yy:sysud,135,yy,185,yy
  87. 202 sysud,160,yy-4,160,yy
  88. 205 y=y+4:gosub9000
  89. 210 next
  90. 220 rem ** scene 3 **
  91. 225 sysba+81,0,0
  92. 227 y=53:gosub9000
  93. 230 syscd,55296,1,1,"[144][147]"
  94. 235 sysdr,130,0,130,199:sysdr,130,199,190,199:sysdr,190,199,190,195
  95. 240 sysdr,190,195,319,195:sysdr,190,0,190,165:sysdr,190,165,319,165
  96. 245 sysdr,160,20,160,199
  97. 247 sysba+81,1,0
  98. 250 y=53:for yy=20to195step4:sysdr,135,yy,185,yy:sysud,135,yy,185,yy
  99. 252 sysud,160,yy-4,160,yy
  100. 255 y=y+4:gosub9000
  101. 260 nextyy
  102. 262 sysdr,135,yy,188,yy
  103. 264 sysud,160,yy-4,160,yy-1
  104. 265 fr=180:tm=320:sl=3:mn=15:mx=19:gosub7000
  105. 270 rem ** scene 4 **
  106. 275 sysba+81,0,0
  107. 280 syscd,55296,1,1,"[144][147]"
  108. 285 sysdr,0,100,319,100:sysdr,0,150,160,150:sysdr,160,150,180,170
  109. 290 sysdr,180,170,319,170
  110. 291 y=183:x=24:gosub9000
  111. 292 sysba+81,1,0
  112. 295 y=183:fr=24:tm=171:sl=3:mn=15:mx=19:gosub7000
  113. 300 pt=4:gosub9000
  114. 305 forx=171to192:y=y+1:gosub9000:next
  115. 310 y=203:fr=195:tm=320:sl=3:mn=15:mx=19:gosub7000
  116. 320 rem ** scene 5 ***
  117. 325 sysba+81,0,0
  118. 330 syscd,55296,1,1,"[144][147]"
  119. 335 sysdr,0,100,200,100:sysdr,200,100,200,0:sysdr,0,199,200,199
  120. 340 sysdr,200,199,319,80
  121. 342 y=232:x=24:gosub9000
  122. 345 sysba+81,1,0
  123. 350 y=232:fr=24:tm=210:sl=3:mn=15:mx=19:gosub7000
  124. 355 y=234:rat=-3:fr=215:tm=320:sl=3:mn=15:mx=19:gosub7000
  125. 360 rem ** scene 6 **
  126. 365 sysba+81,0,0
  127. 370 syscd,55296,1,1,"[144][147]"
  128. 375 sysdr,0,199,100,99:sysdr,100,99,100,199:sysdr,180,99,180,199
  129. 380 sysdr,180,99,319,99
  130. 382 y=227:x=24:gosub9000
  131. 385 sysba+81,1,0
  132. 390 y=227:rat=-3:fr=24:tm=110:sl=3:mn=15:mx=19:gosub7000
  133. 395 y=142:rat=-2:fr=108:tm=130:sl=3:mn=16:mx=16:gosub7000
  134. 400 y=128:forx=130to150step3:pt=18:y=y+2:gosub9000:next
  135. 410 y=140:rat=3:fr=150:tm=151:sl=.033707:mn=8:mx=10:gosub7000
  136. 420 rem ** scene 7 **
  137. 425 sysba+81,0,0
  138. 430 syscd,55296,1,1,"[144][147]"
  139. 435 sysdr,100,0,100,125:sysdr,180,0,180,125:sysdr,180,125,319,125
  140. 440 sysdr,0,125,100,125:sysdr,0,199,319,199:sysdr,0,175,319,175,6,0
  141. 442 y=50:x=150:gosub9000
  142. 445 sysba+81,1,0
  143. 450 y=50:rat=3:fr=150:tm=151:sl=.018:mn=8:mx=10:gosub7000
  144. 452 gosub 4015
  145. 455 rat=0:fr=150:tm=320:y=218:sl=3:mn=12:mx=13:gosub7000
  146. 460 rem ** scene 8 **
  147. 465 sysba+81,0,0
  148. 470 syscd,55296,1,1,"[144][147]"
  149. 475 sysdr,0,125,100,125,1,0:sysdr,100,125,100,0:sysdr,100,0,300,0
  150. 480 sysdr,300,0,300,125:sysdr,300,125,319,125:sysdr,0,175,100,175
  151. 485 sysdr,100,175,100,199:sysdr,100,199,319,199
  152. 490 sysdr,0,165,95,165,6,0:sysdr,95,165,103,175:sysdr,103,175,103,190
  153. 495 sysdr,103,190,319,190
  154. 497 x=24:y=210:gosub9000
  155. 500 sysba+81,1,0
  156. 505 rat=0:fr=24:tm=120:y=210:sl=3:mn=12:mx=13:gosub7000
  157. 510 fory=210to229step4:pt=14:r=0:x=120:gosub9000:next
  158. 512 gosub 4015
  159. 515 rat=0:fr=120:tm=193:y=232:sl=3:mn=12:mx=13:gosub7000
  160. 520 sysud,165,0,185,0
  161. 521 foryz=0to175step5:sysdr,165,yz,165,yz+5,1,0:sysdr,185,yz,185,yz+5:next
  162. 527 sysdr,175,0,175,185,1,0
  163. 530 pt=8:x=x+3:gosub9000
  164. 532 y=y-2
  165. 535 foryy=185to1step-1:sysud,175,yy,175,yy:y=y-1:gosub9000
  166. 536 if yy=180thensysdr,175,190,175,190,6,0
  167. 537 next
  168. 540 rem ** scene 9 **
  169. 545 sysba+81,0,0
  170. 550 syscd,55296,1,1,"[144][147]"
  171. 555 sysdr,0,0,0,175,1,0:sysdr,0,175,250,175:sysdr,250,175,250,0
  172. 560 sysdr,250,0,0,0
  173. 561 foryz=0to194step5:sysdr,25,yz,25,yz+5,1,0:sysdr,45,yz,45,yz+5:next
  174. 562 sysud,25,175,45,175
  175. 565 sysdr,35,0,35,190
  176. 570 x=55:y=239:gosub9000
  177. 575 sysba+81,1,0
  178. 580 foryy=199to170step-1:sysud,35,yy,35,yy:y=y-1:gosub9000:next
  179. 585 sysud,25,0,25,199:sysud,45,0,45,199
  180. 590 sysud,35,0,35,190
  181. 595 sysdr,0,175,90,175,1,0
  182. 600 sysdr,0,0,90,0
  183. 610 pt=6:gosub9000:fort=1to1010:next
  184. 615 pt=7:gosub9000:fort=1to1010:next
  185. 620 y=y-1:fr=55:tm=250:sl=1:mn=0:mx=3:gosub7000
  186. 630 pt=2:gosub9000
  187. 635 fort=165to155step-1:sysdr,250,t,319,t:sysdr,250,165+(165-t),319,165+(165-t)
  188. 640 sysud,250,t,319,t:sysud,250,165+(165-t),319,165+(165-t):next
  189. 645 sysdr,250,155,319,155:sysdr,250,175,319,175
  190. 650 fr=250:tm=320:sl=3:mn=15:mx=19:gosub7000
  191. 655 rem ** scene 10 **
  192. 660 sysba+81,0,0
  193. 665 syscd,55296,1,1,"[144][147]"
  194. 670 sysdr,0,150,250,150:sysdr,250,150,250,100:sysdr,250,100,50,100
  195. 675 sysdr,50,100,50,130:sysdr,50,130,0,130
  196. 676 y=183:x=24:gosub9000
  197. 677 sysba+81,1,0
  198. 680 fr=24:tm=182:y=183:sl=3:mn=15:mx=19:gosub7000
  199. 685 pt=6:gosub9000:fort=1to1000:next
  200. 690 sysud,0,150,50,150:sysud,0,130,50,130:sysdr,50,130,50,150
  201. 693 pt=5:gosub9000
  202. 695 forxx=75to160step4:sysdr,xx,101,xx,149:sysdr,160+(160-xx),101,160+(160-xx),149
  203. 700 sysud,xx,101,xx,149:sysud,160+(160-xx),101,160+(160-xx),149
  204. 702 if xx=155thensysba+81,0,0
  205. 705 next
  206. 707 sysba+81,1,0
  207. 710 sysud,150,150,170,150:sysdr,160,100,160,150:y=y+14:pt=8:gosub 9000
  208. 715 sysdr,150,150,150,199:sysdr,170,150,170,199
  209. 720 foryy=150to190step3
  210. 725 y=y+3:gosub9000:next
  211. 730 rem ** scene 11 **
  212. 735 sysba+81,0,0
  213. 740 syscd,55296,1,1,"[144][147]"
  214. 745 sysdr,0,0,0,75:sysdr,20,0,20,75:sysdr,20,75,319,75:sysdr,0,75,75,150
  215. 750 sysdr,75,150,319,150
  216. 755 x=29:y=49:gosub9000
  217. 760 sysba+81,1,0
  218. 765 foryy=2to70step3
  219. 770 y=y+3:gosub9000:next
  220. 780 x=29:y=127:pt=4:r=0:gosub9000
  221. 785 fory=127to182step2:x=x+2:gosub9000:next
  222. 790 x=x+5
  223. 795 fr=x:tm=320:sl=3:mn=15:mx=19:gosub7000
  224. 800 rem ** scene 12 **
  225. 805 sysba+81,0,0
  226. 810 syscd,55296,1,1,"[144][147]"
  227. 815 sysdr,0,50,319,50:sysdr,0,150,319,150:sysdr,150,50,150,137
  228. 820 sysdr,170,50,170,137:sysdr,170,137,150,137
  229. 823 y=183:x=24:gosub9000
  230. 825 sysba+81,1,0
  231. 830 fr=24:tm=178:y=183:sl=3:mn=15:mx=19:gosub7000
  232. 835 pt=8:gosub9000
  233. 837 sysud,148,150,172,150:sysdr,148,150,148,199:sysdr,172,150,172,199
  234. 840 foryy=137to190:y=y+1:gosub9000:sysud,151,yy-1,169,yy-1
  235. 845 sysdr,150,yy,170,yy:next
  236. 850 rem ** scene 13 **
  237. 855 sysba+81,0,0
  238. 860 syscd,55296,1,1,"[144][147]"
  239. 865 sysdr,148,0,148,130:sysdr,148,130,0,130:sysdr,0,150,172,150
  240. 870 sysdr,172,150,172,0
  241. 875 y=46:gosub9000
  242. 880 sysba+81,1,0
  243. 885 foryy=1to122step4:y=y+4:gosub9000
  244. 886 sysud,150,yy,170,yy
  245. 887 sysdr,150,yy+4,150,yy:sysdr,170,yy+4,170,yy:sysdr,150,yy+4,170,y