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<B-AFL4GF.P4."
530     IF X = 1 THEN GOTO 960
540     IF X > 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>CL8D<B-AFL4GF.P4."
630             IF X = 2 THEN PRINT D2$
640             IF X = 2 THEN PLAY ">L4C<L8GAL4B-"
650             IF X = 3 THEN PRINT D3$
660             IF X = 3 THEN PLAY ">L4C<L8GAL4B-"
670             IF X = 4 THEN PRINT D4$
680             IF X = 4 THEN PLAY ">L4C<L8GAL4B-"
690             X = X - 1
700     NEXT R1
710     FOR R2 = 1 TO X
720             IF C = 15 THEN IF R2 MOD (2) = 0 THEN CC = 10 ELSE CC = 12
730             IF C = 10 THEN IF R2 MOD (2) = 0 THEN CC = 12 ELSE CC = 15
740             IF C = 12 THEN IF R2 MOD (2) = 0 THEN CC = 15 ELSE CC = 10
750             COLOR (CC)
760             IF X = 1 THEN PRINT D1$
770             IF X = 1 THEN PLAY "L8B-L4>CL8D<B-AFL4GF.P4."
780             IF X = 2 THEN PRINT D2$
790             IF X = 2 THEN PLAY "L8GFEDL4CL8A"
800             IF X = 3 THEN PRINT D3$
810             IF X = 3 THEN PLAY "L4B-DF"
820             IF X = 4 THEN PRINT D4$
830             IF X = 4 THEN PLAY ">L8C<B-AGL4F"
840             IF X = 5 THEN PRINT D5$
850             IF X = 5 THEN PLAY ">L2CL4D<B>C<B-AG"
860             IF X = 6 THEN PRINT D6$
870             IF X = 7 THEN PRINT D7$
880             IF X = 8 THEN PRINT D8$
890             IF X = 9 THEN PRINT D9$
900             IF X = 10 THEN PRINT D10$
910             IF X = 11 THEN PRINT D11$
920             IF X = 12 THEN PRINT D12$
930             IF X > 5 THEN PLAY ">L4C<L8GAB-G"
940             X = X - 1
950     NEXT R2
960     CLS
970 NEXT T