home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / DigitalSounds / CBM-DEMO.SDA / CHRISTMAS (.txt) next >
Commodore BASIC  |  2019-04-13  |  895b  |  36 lines
  1. 10 REM
  2. 11 REM  COMMODORE 64 CHRISTMAS ALBUM
  3. 12 REM
  4. 13 REM
  5. 14 REM            MUSIC: WAYNE EASTWOOD
  6. 15 REM  SCREENS/SPRITES: H. REX BOUCHER
  7. 16 REM      DESIGN/PROG: STEPHEN MURRI
  8. 17 REM
  9. 18 REM
  10. 19 REM
  11. 20 PRINTCHR$(8);
  12. 21 POKE788,PEEK(788)+3
  13. 30 POKE53280,6:POKE53281,6:PRINT"[147]"
  14. 31 PRINT"NOTE:":PRINT""
  15. 32 PRINT"   FOR MAXIMUM EFFECT, AUDIO OUTPUT"
  16. 34 PRINT"   MUST BE CONNECTED TO A HIGH QUALITY"
  17. 35 PRINT"   SOUND SYSTEM."
  18. 36 PRINT"ENTER OPTION:":PRINT""
  19. 37 PRINT"   R=RUN CONTINUOUSLY"
  20. 38 PRINT"   S=RUN ONCE, SIT AND WAIT FOR ANY KEY"
  21. 39 GETI$:IFI$=""THENGOTO39
  22. 40 IFI$<>"S"THENIFI$<>"R"THEN GOTO39
  23. 42 IF I$="S"THENPOKE40959,1:GOTO50
  24. 43 POKE40959,0
  25. 50 PRINT"[147]LOADING":PRINT""
  26. 52 POKE198,10
  27. 60 PRINT"LOAD"CHR$(34)"CHRISTMASMUSIC"CHR$(34)",8,1"
  28. 61 PRINT"NEW"
  29. 62 PRINT"LOAD"CHR$(34)"CHRISTMASCODE"CHR$(34)",8,1"
  30. 63 PRINT"NEW"
  31. 64 PRINT"LOAD"CHR$(34)"CHRISTMASROOT"CHR$(34)",8"
  32. 65 POKE198,10
  33. 66 DATA 19,13,13,13,13,13,82,85,78,13
  34. 67 FORI=1TO10:READX:POKE630+I,X:NEXT
  35. 68 POKE56,13:NEW
  36.