100' NAME--XMAS 110' 120' DESCRIPTION--CHRISTMAS SING-A-LONG 130' 140' SOURCE--STANLEY RASBERRY AND DR. MARGOSHES, NBS,12/21/65. 150' 160' INSTRUCTIONS--TYPE "RUN" AND FOLLOW DIRECTIONS. 170' 180' 190' * * * * * * * MAIN PROGRAM * * * * * * * * * 200' 210 PRINT" E V E R Y B O D Y S I N G" 220 PRINT 230 LET C=1 240 PRINT "ON THE"; 250 IF C=1 THEN 290 260 IF C=2 THEN 310 270 IF C=3 THEN 330 280 IF C>3 THEN 350 290 PRINT C"ST"; 300 GO TO 360 310 PRINT C"ND"; 320 GO TO 360 330 PRINT C"RD"; 340 GO TO 360 350 PRINT C"TH"; 360 PRINT " DAY OF CHRISTMAS" 370 PRINT "MY TRUE LOVE SENT TO ME" 380 IF C=1 THEN 600 390 IF C=2 THEN 590 400 IF C=3 THEN 580 410 IF C=4 THEN 570 420 IF C=5 THEN 560 430 IF C=6 THEN 550 440 IF C=7 THEN 540 450 IF C=8 THEN 530 460 IF C=9 THEN 520 470 IF C=10 THEN 510 480 IF C=11 THEN 500 490 PRINT "TWELVE LORDS A-LEAPING," 500 PRINT "ELEVEN LADIES DANCING," 510 PRINT "TEN PIPERS PIPING," 520 PRINT "NINE DRUMMERS DRUMMING," 530 PRINT "EIGHT MAIDS A-MILKING," 540 PRINT "SEVEN SWANS A-SWIMMING," 550 PRINT "SIX GEESE A-LAYING," 560 PRINT "FIVE GO-OLD RINGS," 570 PRINT "FOUR COLLY BIRDS," 580 PRINT "THREE FRENCH HENS," 590 PRINT "TWO TURTLEDOVES AND" 600 PRINT "A PARTRIDGE IN A PEAR TREE." 610 PRINT 620 GOSUB 660 630 IF C=12 THEN750 640 LET C = C+1 650 GO TO 240 660 PRINT 670 PRINT" 0" 680 PRINT " *" 690 PRINT " ***" 700 PRINT " *****" 710 PRINT" I" 720 PRINT 730 RETURN 740 LET X=0 750 PRINT 760 PRINT 770 LET N=0 780 LET X=X+1 790 PRINT " "," "," 0" 800 PRINT" "," "," *" 810 PRINT " "," ", " ***" 820 PRINT " "," ", " *0***" 830 PRINT " "," ", " *****0*" 840 LET N=N+1 850 IF N=1 THEN 820 860 PRINT " "," "," **0******" 870 PRINT " "," ", " **0**0***0*" 880 PRINT " ", " ", " *0***********" 890 LET N=N+1 900 IF N=3 THEN 860 910 PRINT " "," ", "***0**0***0**0*" 920 PRINT " ", " *0****0*****0****" 930 PRINT " "," ****0***0******0***" 940 IF N=4 THEN 880 950 PRINT " "," *0********0***0***0**" 960 PRINT " ", " ****0**0********0******0" 970 PRINT " ", " *0***0*0***0**0**0***0***" 980 PRINT " ", " ****0***0**0***0*****0*****" 990 PRINT " "," ","0 0 III 0 0" 1000 FOR S=1TO3 1010 PRINT " "," ", " III" 1020 NEXT S 1030 PRINT 1040 PRINT 1050 IF X=2 THEN 1520 1060 PRINT"* * **** * * * **** * * * * ** * *" 1070 PRINT "* * * * * * * * * * * * * * * * *" 1080PRINT"* * * * *** * * * * * ** **** * * * * *" 1090 PRINT "** ** * ** ** * * * * * * * * *" 1100 PRINT "* * **** * * * **** * * * ** **" 1110 FOR M=1 TO 4 1120 PRINT 1130 NEXT M 1140 PRINT" * * * **** *** *** * *" 1150 PRINT " * * ** ** * * * * * * *" 1160 PRINT " * * * * * * *** *** *** *" 1170 PRINT" ***** * * * * * * * * *" 1180 PRINT " * * * * **** * * * * *" 1190 FOR M=1 TO 4 1200 PRINT 1210 NEXT M 1220 PRINT" *** * * *** * **** ***** * * * ****" 1230 PRINT " * * * * * * * * ** ** * * *" 1240 PRINT " * **** *** * ** * * * * * * * **" 1250 PRINT" * * * * * * * * * * * ***** *" 1260 PRINT " *** * * * * * **** * * * * * ****" 1270 FOR M=1 TO 4 1280 PRINT 1290 NEXT M 1300 PRINT " * * * ***" 1310 PRINT " * * ** * * *" 1320 PRINT" * * * * * * *" 1330 PRINT " ***** * ** * *" 1340 PRINT" * * * * ***" 1350 FOR M=1 TO 4 1360 PRINT 1370 NEXT M 1380 PRINT" * * * * *** *** * *" 1390 PRINT " * * * * * * * * * * * *" 1400 PRINT " * * ***** * * *** *** *" 1410 PRINT" ***** * * ***** * * *" 1420 PRINT " * * * * * * * * *" 1430 FOR M=1 TO 4 1440 PRINT 1450 NEXT M 1460 PRINT " * * **** * * * * **** * ***" 1470 PRINT" ** * * * * * * * * * * * *" 1480 PRINT " * * * *** * * * * * *** * * ***" 1490 PRINT" * ** * ** ** * * ***** * *" 1500 PRINT " * * **** * * * **** * * * *" 1510 GO TO 750 1520END