home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / DigitalSounds / CBM-DEMO.SDA / CHRISTMASROOT (.txt) < prev   
Commodore BASIC  |  2019-04-13  |  1KB  |  33 lines
  1. 1 REM   C64 CHRISTMAS ALBUM
  2. 3 REM
  3. 4 REM     MUSIC: WAYNE EASTWOOD
  4. 5 REM  GRAPHICS: H. REX BOUCHER
  5. 6 REM    DESIGN: STEPHEN MURRI
  6. 7 REM
  7. 9 DATA67,79,77,77,79,68,79,82,69
  8. 10 RESTORE:FORJ=38528TO38536:READK:POKEJ,K:NEXT
  9. 11 POKE53280,0:POKE53281,0:PRINT""
  10. 12 PRINT"[147]THE COMMODORE 64"
  11. 13 PRINT"CHRISTMAS DEMO  "
  12. 14 PRINT"PRESS ANY KEY TO START"
  13. 15 GETI$:IFI$=""THEN15
  14. 20 GATE=22632:S1=GATE+16:S2=GATE+6*16+14:I$="":MARK=GATE+3:POKE54296,0
  15. 400 SYS50784
  16. 510 SYS51976:J=094:K=20:A=00*16^3+12*16^2+15*16+15:GOSUB800:REM GOOD CHRISTIAN
  17. 520 SYS52832:J=088:K=25:A=05*16^3+00*16^2+13*16+03:GOSUB800:REM JINGLE BELLS
  18. 530 SYS52288:J=120:K=30:A=04*16^3+08*16^2+12*16+10:GOSUB800:REM SILENT NIGHT
  19. 540 SYS38912:J=035:K=80:A=04*16^3+01*16^2+05*16+07:GOSUB800:REM RUDOLPH
  20. 550 SYS52062:J=129:K=15:A=03*16^3+07*16^2+07*16+15:GOSUB800:REM ANGELS HEARD
  21. 560 SYS52496:J=062:K=40:A=01*16^3+07*16^2+06*16+03:GOSUB800:REM FROSTY
  22. 590 SYS38144:J=112:K=15:A=08*16^3+07*16^2+13*16+00:GOSUB800:REM SALES PITCH
  23. 599 SYS52118:REM END
  24. 700 IF PEEK(40959)=1THENCLR:GOTO11
  25. 750 CLR:GOTO20
  26. 800 POKE54276,0:POKE54283,0:POKE54290,0:POKE54296,10:FORY=0TO500:NEXT
  27. 805 POKEGATE+13,A-INT(A/256)*256:POKEGATE+14,A/256
  28. 810 GOSUB850:FORY=0TOJ*2:NEXTY:RETURN
  29. 850 POKEGATE,0:POKEGATE+1,0:POKEGATE+2,0
  30. 860 SYS(S1):FORY=1TOJ:NEXT:IFK>0THENSYS(S2):FORY=1TOK:NEXT:SYS51973
  31. 870 IFPEEK(MARK)=0THEN860
  32. 880 RETURN
  33.