10 RANDOMIZE TIMER
20 COLOR 15
30 KEY OFF
40 CLS
45 COLOR 9
50 PRINT "Program: The 12 days of Christmas!
60 PRINT "Version: 1.0
70 PRINT "Author: Jerry P. Collins Jr.
80 PRINT "Produced: 12/8/93
90 PRINT
100 PRINT
110 PRINT "Press any Key to Continue"
120 INPUT "",Z
130 CLS
140 PLAY "T155O2"
150 DATA 1,first,A Sony under My Tree
160 DATA 2,second,Two Turtle Doves and
170 DATA 3,third,Three French Hens
180 DATA 4,forth,Four Calling Birds
190 DATA 5,fifth,Five Golden Rings
200 DATA 6,sixth,Six Geese a Laying
210 DATA 7,seventh,Seven Swans a Swimming
220 DATA 8,eighth,Eight Maids a Milking
230 DATA 9,ninth,Nine Drummers Drumming
240 DATA 10,tenth,Ten Pipers Piping
250 DATA 11,eleventh,Eleven Ladies Dancing
260 DATA 12,Twelfth,Twelve Lords a Leaping
270 FOR T = 1 TO 12
280 IF T(MOD3) = 0 THEN C = 10
290 IF (T + 1) MOD (3) = 0 THEN C = 12
300 IF (T + 2) MOD (3) = 0 THEN C = 15
310 READ X, D$, N$
320 IF X = 1 THEN D1$ = N$
330 IF X = 2 THEN D2$ = N$
340 IF X = 3 THEN D3$ = N$
350 IF X = 4 THEN D4$ = N$
360 IF X = 5 THEN D5$ = N$
370 IF X = 6 THEN D6$ = N$
380 IF X = 7 THEN D7$ = N$
390 IF X = 8 THEN D8$ = N$
400 IF X = 9 THEN D9$ = N$
410 IF X = 10 THEN D10$ = N$
420 IF X = 11 THEN D11$ = N$
430 IF X = 12 THEN D12$ = N$
440 REFRAIN1$ = "On the "
450 REFRAIN2$ = " day of Christmas my true love gave to me --"
460 COLOR C
470 PRINT REFRAIN1$; D$; REFRAIN2$
480 PRINT
490 IF X <> 2 THEN PLAY "O2L8CCL4CL8FFL4FL8EFGAB-GL4A."
500 IF X = 2 THEN PLAY "L8CCL7CL8FFFL4FL8EFGAB-GL4A."
510 IF X = 1 THEN PRINT D1$
520 IF X = 1 THEN PLAY "L8B->L4CL8D 1 THEN PLAY "P8"
550 IF X >= 5 THEN GOTO 710
560 FOR R1 = 1 TO X
570 IF C = 15 THEN IF R1 MOD (2) = 0 THEN CC = 10 ELSE CC = 12
580 IF C = 10 THEN IF R1 MOD (2) = 0 THEN CC = 12 ELSE CC = 15
590 IF C = 12 THEN IF R1 MOD (2) = 0 THEN CC = 15 ELSE CC = 10
600 COLOR (CC)
610 IF X = 1 THEN PRINT D1$
620 IF X = 1 THEN PLAY "L8AB-L4>CL8DL4CL4CL4CCL8DL8CL2CL4D**C 5 THEN PLAY ">L4C**