Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
decus/20-0020/xmas.dem
There are 2 other files named xmas.dem in the archive. Click here to see a list.
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