home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 December / 1994-12b.d64 / christmasroot (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  35 lines
  1. 0 rem
  2. 1 rem   commodore 64 christmas album
  3. 2 rem
  4. 3 rem
  5. 4 rem            music: wayne eastwood
  6. 5 rem  sprites/screens: h. rex boucher
  7. 6 rem      design/prog: stephen murri
  8. 7 rem
  9. 8 rem
  10. 9 rem
  11. 11 poke53280,0:poke53281,0:print""
  12. 12 print"[147]the commodore 64"
  13. 13 print"press any key to start"
  14. 15 geti$:ifi$=""then15
  15. 20 gate=22632:s1=gate+16:s2=gate+6*16+14:i$="":mark=gate+3:poke54296,0
  16. 400 sys50784:rem intro
  17. 510 sys51976:j=094:k=20:a=00*16^3+12*16^2+15*16+15:gosub800:rem good christian
  18. 520 sys52832:j=088:k=25:a=05*16^3+00*16^2+13*16+03:gosub800:rem jingle bells
  19. 530 sys52288:j=120:k=30:a=04*16^3+08*16^2+12*16+10:gosub800:rem silent night
  20. 540 sys38912:j=035:k=80:a=04*16^3+01*16^2+05*16+07:gosub800:rem rudolph
  21. 550 sys52062:j=129:k=15:a=03*16^3+07*16^2+07*16+15:gosub800:rem angels heard
  22. 560 sys52496:j=062:k=40:a=01*16^3+07*16^2+06*16+03:gosub800:rem frosty
  23. 590 sys38144:j=112:k=15:a=08*16^3+07*16^2+13*16+00:gosub800:rem sales pitch
  24. 591 rem price at 9680 hex
  25. 599 sys52118:rem end
  26. 700 if peek(40959)=1thenclr:goto11
  27. 750 clr:goto20
  28. 800 poke54276,0:poke54283,0:poke54290,0:poke54296,10:fory=0to500:next
  29. 805 pokegate+13,a-int(a/256)*256:pokegate+14,a/256
  30. 810 gosub850:fory=0toj*2:nexty:return
  31. 850 pokegate,0:pokegate+1,0:pokegate+2,0
  32. 860 sys(s1):fory=1toj:next:ifk>0thensys(s2):fory=1tok:next:sys51973
  33. 870 ifpeek(mark)=0then860
  34. 880 return
  35.