10 'DOG   (VER 11/20/1979)
20 CLEAR500
30 LPRINTCHR$(27)CHR$(14)CHR$(27)CHR$(28)
40 POKE16424,66
50 CLS
60 INPUT"ENTER 1ST LINE OF MESSAGE";A$
70 INPUT"ENTER 2ND LINE OF MESSAGE";B$
80 FORI=1TO12
90 LPRINT" "
100 NEOT
110 LPRINT"                 OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO         "
120 LPRINT"                O                                              O        "
130 LPRINT"               O";
140 LPRINTTAB(40-LEN(A$));CHR$(31);A$;CHR$(30);
150 LPRINTSTRING$(50/2-LEN(A$)-1,32);"O"
160 LPRINT"              O                                                  O      "
170 LPRINT"               O";
180 LPRINTTAB(40-LEN(B$));CHR$(31);B$;CHR$(30);
190 LPRINTSTRING$(50/2-LEN(B$)-1,32);"O"
200 LPRINT"                O                                              O        "
210 LPRINT"                 OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO       OOOOO         "
220 LPRINT"                                                   O     O              "
230 LPRINT"                                                    O   O               "
240 LPRINT"                                                     O O                "
250 LPRINT"                 OOOO                                 V                 "
260 LPRINT"                O    OO                                                 "
270 LPRINT"               O  ***  O                OOOOO                           "
280 LPRINT"              O  *****  O            OOO     OO O                       "
285 C$="We Wish You"
290 LPRINT"           OOOO ******* OOO      OOOO          OO                       ";
295 LPRINTCHR$(31);STRING$(11-LEN(C$)/2,32)C$CHR$(30)
300 LPRINT"         OO   O ******  OOOOOOOOO                OO OOO                 "
310 LPRINT"       OO      O ****  O                           O** O                "
320 LPRINT"      O        OO    OO     O                      O***O                "
330 LPRINT"     O         //OOOO       O                      OOOO                 "
335 C$="a"
340 LPRINT"    O         //   O                             OO                     ";
345 LPRINTCHR$(31);STRING$(11-LEN(C$)/2,32)C$CHR$(30)
350 LPRINT"   O         //    O          OOOOOOOOOOOOOOOOOO/                       "
360 LPRINT"   O     OOO//    O          O                                          "
370 LPRINT"   O    O    O    O         O                                           "
380 LPRINT"   O    O     O   O        O                                            "
385 C$="Merry Christmas"
390 LPRINT"    O   O     O   O        O                    OO                      ";
395 LPRINTCHR$(31);STRING$(11-LEN(C$)/2,32)C$CHR$(30)
400 LPRINT"    O    O    O   O        O                 OOO  OO                    "
410 LPRINT"     O    OOO      O        O               O  O O  O                   "
420 LPRINT"     O             O         O              OO O  OOOO                  "
430 LPRINT"      O             O         OOOOOOOO>     OO   OO  O                  "
435 C$="and a"
440 LPRINT"       OO            OO              O     O    O  OO                   ";
445 LPRINTCHR$(31);STRING$(11-LEN(C$)/2,32)C$CHR$(30)
450 LPRINT"         OO            OOOO   OOOOOO/     O     OOOO                    "
460 LPRINT"           OOO             OO***         O     O                        "
470 LPRINT"              OOOOOOOOOOOOO *   *       O     O                         "
480 LPRINT"                           *---* O     O     O                          "
485 C$="Happy New Year"
490 LPRINT"                          *-* *   OOO O     O                           ";
495 LPRINTCHR$(31);STRING$(11-LEN(C$)/2,32)C$CHR$(30)
500 LPRINT"                          *- *       OOO   O                            "
510 LPRINT"                         *- *O          OOO                             "
520 LPRINT"                         *- *O  O          OOO                          "
530 LPRINT"                        *- *O    O            OO                        "
535 C$="THE SHAPIRO'S"
540 LPRINT"                        *- *OO    O             O                       ";
545 LPRINTCHR$(31);STRING$(11-LEN(C$)/2,32)C$CHR$(30)
550 LPRINT"                       *  *O* O    O             O                      "
560 LPRINT"                       *  *O * O    O             O                     "
570 LPRINT"                      *  * O**  O   OOOO          O                     "
580 LPRINT"                      *  * O**  OO     O          O                     "
590 LPRINT"                     *  ** O** O     OO          O                      "
600 LPRINT"                     *  **  O*  OOO   O         O                       "
610 LPRINT"                    *  **    OO   OOOO       OOO                        "
620 LPRINT"                   *  * *      OOOO     O      O                        "
630 LPRINT"                  *   * *          O    O      O                        "
640 LPRINT"    =======*******   * *           O    O       OOOOOOOO>               "
650 LPRINT"           *         * *      /OOOOO     OOOOOOOOO>      ,              "
660 LPRINT"      =====**********  *     O                     , >   ,              "
670 LPRINT"        ====*         *     O              >  >    ,OOOOO               "
680 LPRINT"   =========**********       OOOOOOOOOOOOOOOOOOOOOO                     "
690 LPRINTCHR$(12)
700 LPRINTCHR$(12)
1000 LPRINTCHR$(31);STRING$(11-LEN(C$)/2,32)C$CHR$(30)
