10 REM
11 REM  COMMODORE 64 CHRISTMAS ALBUM
12 REM
13 REM
14 REM            MUSIC: WAYNE EASTWOOD
15 REM  SCREENS/SPRITES: H. REX BOUCHER
16 REM      DESIGN/PROG: STEPHEN MURRI
17 REM
18 REM
19 REM
20 REM
21 REM
30 POKE53280,6:POKE53281,6:PRINT"[147]"
31 PRINT"NOTE:":PRINT""
32 PRINT"   FOR MAXIMUM EFFECT, IT IS"
33 PRINT"   RECOMMENDED THAT THE AUDIO OUTPUT"
34 PRINT"   BE CONNECTED TO A HIGH QUALITY"
35 PRINT"   SOUND SYSTEM."
36 PRINT"ENTER OPTION:":PRINT""
37 PRINT"   R=RUN CONTINUOUSLY"
38 PRINT"   S=RUN ONCE, SIT AND WAIT FOR ANY KEY"
39 GETI$:IFI$=""THENGOTO39
40 IFI$<>"S"THENIFI$<>"R"THEN GOTO39
42 IF I$="S"THENPOKE40959,1:GOTO50
43 POKE40959,0
50 PRINT"[147]LOADING":PRINT""
52 POKE198,10
60 PRINT"LOAD"CHR$(34)"CHRISTMASMUSIC"CHR$(34)",8,1"
61 PRINT"NEW"
62 PRINT"LOAD"CHR$(34)"CHRISTMASCODE"CHR$(34)",8,1"
63 PRINT"NEW"
64 PRINT"LOAD"CHR$(34)"CHRISTMASROOT"CHR$(34)",8"
65 POKE198,10
66 DATA 19,13,13,13,13,13,82,85,78,13
67 FORI=1TO10:READX:POKE630+I,X:NEXT
68 POKE56,13:NEW