Google
 

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