10 COLOR 10
20 CLS
30 PRINT "Program:  The 12 days of Christmas!
40 PRINT "Version:  2.11
50 PRINT "Author:   Eddie Segoura
60 PRINT "Produced: December 7, 1995 "
70 PRINT
80 PRINT
90 PRINT "Press any key to continue . . . "
100 WHILE INKEY$ = "" : WEND
110 PLAY "T150"
120 'IF DAY$(1) = "First" THEN CLS : GOTO 2012 ELSE ERASE DAY$ : GOTO 2006
130 'CENTER 1, " *"
140 'RESTORE : FOR X = 1 TO 455 : READ XDF$ : NEXT X
150 CLS
160 DIM CH$(12),MUSIC$(12),DAY$(12)
170 FOR ARR = 1 TO 11
180 READ CH$(ARR),DAY$(ARR),MUSIC$(ARR)
190 NEXT ARR
200 FOR CH = 1 TO 11
210 IF CH = 8 OR CH = 1 OR CH = 9 THEN COLOR CH + 3 ELSE COLOR CH
220 PRINT "On the ";DAY$(CH);" day of Christmas My true love gave to Me -- "
230 IF CH = 2 OR CH = 7 OR CH = 11 THEN                                             PLAY "O2 L8 C C C L8 F F F l4 F l8 E F G A A+ G l3 A.   " :GOTO 250
240 PLAY "o2 L8 C C l4 C l8 f f l4 f l8 e f g a a+ g l3 a p37  "
250 PRINT
260 FOR Y = CH TO 1 STEP -1
270 IF Y = 10 AND CH = 11 THEN PRINT "Ten Virtualizers, " :                         PLAY MUSIC$(10) : GOTO 340
280 IF Y = 7 AND CH = 11 THEN PRINT "Seven Games on Game-Boy." :                    PLAY "O3 L08 C C O2 L8 G A B- G" : GOTO 340
290 IF Y = 1 AND CH = 11 THEN PRINT "And Professor Hart under My Tree.":            PLAY "O2 A A+ O3 C C L04 D L8 O2 A F L04 G F":GOTO 340
300 IF CH = 1 THEN PRINT "A Sony Under the Tree.":                                  PLAY "L8"+RIGHT$(MUSIC$(1),LEN(MUSIC$(1))-8):GOTO 340
310 IF Y = 1 AND CH$(Y) = "A Sony Under the Tree." THEN                             PRINT "And A Sony Under My Tree.":                                              PLAY MUSIC$(1):GOTO 340
320 IF CH > 1 AND CH < 5 THEN PRINT CH$(Y):                                         PLAY "O3 L4 C O2 L8 G A l5 A+ ":GOTO 340
330 PRINT CH$(Y):PLAY MUSIC$(Y)
340 NEXT Y
360 CLS
370 NEXT CH
5000 COLOR 15
5010 PRINT "On the Twelvth day of Christmas My true love gave to Me -- "
5020 PRINT
5030 PLAY "o2 T140 l8 CC l4 C l8 f f l4 f l8 e f g a a+ g l3 a. "
5040 COLOR 12
5050 PRINT "Twelve Ladies Dancing, "
5060 PLAY "o3 l04 C o2 l8 g a a+ G"
5070 COLOR 10
5080 PRINT "Eleven Power Moprhers, "
5090 PLAY "o3 l09 o2 a+ o3 c C o2 l8 g a a+ G"
5100 COLOR 12
5110 PRINT "Ten Power Genies, "
5120 PLAY "o3 l04 C o2 l8 g a a+ G"
5130 COLOR 10
5140 PRINT "Nine Bells of Holly,"
5150 PLAY "O3 L04 C O2 L8 G A B- G"
5160 COLOR 12
5170 PRINT "Eight Nintendo Games, "
5180 PLAY "o3 l08 C c o2 l8 g a a+ p15 "
5190 COLOR 10
5200 PRINT "Seven Metroids,   "
5210 PLAY "o3 l08 C c o2 l4 g a+ "
5220 COLOR 12
5230 PRINT "Six Planeteers,    "
5240 PLAY "o3 l04 C o2 l8 g a l4 a+ "
5250 COLOR 10
5260 PRINT "Five Magic Rings, "
5270 PLAY "o3 l02 C l04 d o2 b o3 l2 c P10
5280 COLOR 12
5290 PRINT "Four Calling Birds,"
5300 PLAY "T150 L8 O3 C O2 B A G l5 F P25
5310 COLOR 10
5320 PRINT "Three French Hens,"
5330 PLAY "L4 A+ D F P25
5340 COLOR 12
5350 PRINT "Two Turtle Doves, "
5360 PLAY "L4 G l8 E D L4 C "
5370 COLOR 10
5380 PRINT "And a Sony under My tree."
5390 PLAY "t180 o2 l6 a A+ O3 l3 C l06 d o2 b- a f l03 g f    "
5400 COLOR 14
5410 COLOR 7,0,0
5501 CLS
5502 PRINT "This is the Revised version of The Twelve Days of Christmas."
5503 PRINT "I recieved an earlier version that was unable to LIST.   "
5504 PRINT "Whenever I tried to LIST the program,                    "
5505 PRINT "I got an 'Illegal function call' message.  With this program,"
5506 PRINT "The twelve thing You get are a little different.  You may also"
5507 PRINT "LIST this program and change it freely.  If, however,      "
5508 PRINT "You wanna save any of Your programs so that others get an "
5509 PRINT "'Illegal function call' error message, "
5510 PRINT
5511 PRINT "Type  SAVE ";CHR$(34);"FILENAME.ext";CHR$(34)",P "
5512 PRINT
5513 PRINT "The changes will take effect only when You load the saved program."
5514 END
8000 DATA "A Sony Under the Tree.", "First",                                              "O2 L8 A A+ O3 L4 C L08 D O2 B- A F L04 G F P05"
8010 DATA "Two Turtle Doves,","Second",                                                   "L4 G L8 E D C P25 "
8020 DATA "Three French Hens,","Third",                                                   "L4 A+ D F P25 "
8030 DATA "Four Calling Birds,","Fourth",                                                 "L8 O3 C O2 B A G l6 F "
8040 DATA "Five Magic Rings,","Fifth",                                                    "O3 L02 C L04 D O2 B O3 L2 C P10"
8050 DATA "Six Planeteers,","Sixth",                                                      "O3 L04 C O2 L8 G A l4 B-"
8060 DATA "Seven Metroids,","Seventh",                                                    "O3 L08 C C O2 L4 G B-"
8070 DATA "Eight Nintendo Games,","Eighth",                                               "O3 L08 C C O2 G A B- P15"
8080 DATA "Nine Bells of Holly","Ninth",                                                  "O3 L04 C O2 L8 G A B- G"
8090 DATA "Ten Wrist Communcators,","Tenth",                                              "O3 L04 C O2 L8 G A B- G"
8100 DATA "Eleven Power Morphers, ","Eleventh",                                           "O3 L07 O2 A+ O3 L8 C C O2 G A B- G"
8110 DATA "Twelve Ladies Dancing,",                                                       "O3 L08 C C O2 G A B- G"