home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 1 #9 / utv1n9s1.d64 / fireworks (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  3KB  |  80 lines
  1. 1 rem fireworks
  2. 2 rem author:don sieber
  3. 3 rem published by uptime
  4. 5 if up=1 then sys 52480:sys 8*4096+4
  5. 10 ifa=0thena=1:load"anim.ddl",8,1
  6. 20 ifa=1thena=2:load"ddfworks",8,1
  7. 30 ifa=2thena=3:load"fw5.sp",8,1
  8. 40 ifa=3thena=4::load"fworks.dr",8,1
  9. 50 clr:poke53280,0:poke53281,9:poke1013,96:printchr$(8)chr$(142):fl=0
  10. 60 v=54272:pokev+4,0:rem reset voice 1
  11. 65 s=53248:rem vic chip base
  12. 70 pokev+24,5:rem set volume
  13. 80 print"[147][149]             [158][213][192][192][192][192][192][192][192][192][192][192][192][192][201][146][129]
  14. 90 [153][163]12)" sys(NULL) fire works (NULL)waitfor
  15. 100 printtab(12)" [158][202][192][192][192][192][192][192][192][192][192][192][192][192][203][146][129]
  16. 110 [153][163]12)"              wait
  17. 120 print:printtab(9)"(c)1987 by don sieber
  18. 130 [153]:[153]"sys published by softdisk publishing, inc.
  19. 140 print"   this is a short, night time
  20. 150 [153]" fireworks display.":[129]n[178]1[164]1000:[130]
  21. 160 [153]" i hope that you enjoy the show.
  22. 170 print:printspc(20)"signed,":forn=1to1000:next
  23. 180 print"   don sieber   **** for uptime ****":forn=1to2000:next
  24. 190 printtab(13)"[158] press return [146]"
  25. 195 printtab(12)"or f8 for uptime"
  26. 200 getq$:ifq$="[140]" then 460
  27. 202 if q$<>chr$(13) then 200
  28. 205 print"[147]";
  29. 210 d=2
  30. 220 t=50
  31. 230 pokev+24,5:rem turn on volume
  32. 240 pokev,0:pokev+1,1:rem set freq
  33. 250 pokev+5,0:pokev+6,250:rem set adsr
  34. 260 restore:poke53265,59:poke53272,120:poke56576,150
  35. 270 forr=1to1500:next:rem delay before fireworks
  36. 280 reads%:ifs%>peek(49152)then400:rem scene number
  37. 285 rem ****** set sound for scene *****
  38. 290 ifs%<1then400
  39. 300 ifs%=5thenpokev+24,3:pokev+1,1:pokev+4,129:pokev+4,128
  40. 310 ifs%=33thenpokev+24,15:pokev+1,3:pokev+4,129:pokev+4,128
  41. 320 ifs%=44thenpokev+24,6:pokev+1,4:pokev+4,129:pokev+4,128
  42. 330 ifs%=55thenpokev+24,3:pokev+1,1:pokev+4,129:pokev+4,128
  43. 340 ifs%=63thenpokev+24,3:pokev+1,1:pokev+4,129:pokev+4,128
  44. 350 ifs%=78thenpokev+24,15:pokev+1,3:pokev+4,129:pokev+4,128
  45. 360 ifs%=87andfl=0thenpokev+24,12:pokev+1,4:pokev+4,129:pokev+4,128
  46. 370 ifs%=>88ands%=<90andfl=0thenpokev+24,0:pokev+24,15
  47. 375 rem ****** read sprite parameters **
  48. 380 sd=49154+37*(s%-1):sh=int(sd/256):sl=sd-sh*256:poke251,sl:poke252,sh
  49. 390 sys948:forn=1tot:next:goto280
  50. 400 d=d-1:ifd>0then260:pokev+24,0:pokev+4,0
  51. 401 fl=fl+1:iffl=1then600
  52. 402 fl=fl+1:iffl=2then410
  53. 405 rem ******* back to normal *********
  54. 406 forp=1to1000:next
  55. 407 forn=0to127:foro=0to7:pokes+39+o,nand15
  56. 408 pokes+1+2*o,peek(s+1+2*o)+1:next:next
  57. 410 poke53265,27:poke53272,21:poke56576,151:poke53269,0
  58. 415 pokev+24,0:pokev+4,0
  59. 420 print"[147]      i hope you enjoyed the show.
  60. 430 [153][163]9)"sys press r to repeat wait"
  61. 435 [153][163]13)"f8 for uptime":[151] 198,0
  62. 440 [161]q$
  63. 450 [139]q$[178]"r"[167][153]"load               rerunning":[137]700
  64. 455 [139] q$[179][177]"restore" [167] 440
  65. 460 [156]:up[178]1:[147]"fastboot",8,1
  66. 470 [131]1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
  67. 480 [131]26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45
  68. 490 [131]46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63
  69. 500 [131]64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82
  70. 510 [131]83,84,85,86,87,88,89,90,91,92,93,94
  71. 520 [131]95,96,97,98,99,100,101,102,0
  72. 600 f$[178]"fw5.dr":[151]836,255:[151]841,[195](f$)
  73. 605 [129]n[178]1[164][195](f$):[151]861[170]n,[198]([202](f$,n,1)):[130]
  74. 610 [158]828:[141]720:d[178]1:[137]220
  75. 700 fl[178]0:f$[178]"fworks.dr":[151]836,255:[151]841,[195](f$)
  76. 705 [129]n[178]1[164][195](f$):[151]861[170]n,[198]([202](f$,n,1)):[130]
  77. 710 [158]828:[141]720:[137]210
  78. 720 [159]15,8,15:[132]15,st$:[160]15:[139]st$[178]"00"[167][142]
  79. 725 [137]460
  80.