1 PRINT "DIRECT YOUR DOG TO ANY OF THE FOLLOWING FILES:"
2 PRINT "KB:--KEYBOARD,   LP:--PRINTER,  PP:--HIGH SPEED PUNCH"
3 INPUT "WHICH ONE";A$
4 IF LEN(A$)=0 THEN A$="KB:"
5 IF INSTR(1,A$,":")=0 THEN A$=A$+":"
7 OPEN A$ AS FILE 1
10 PRINT#1,
20 PRINT#1,
30 PRINT#1,
40 PRINT#1,"                      XXXX"
50 PRINT#1,"                     X    XX"
60 PRINT#1,"                    X  ***  X                XXXXX"
70 PRINT#1,"                   X  *****  X            XXX     XX"
80 PRINT#1,"                XXXX ******* XXX      XXXX          XX"
90 PRINT#1,"              XX   X ******  XXXXXXXXX                XX XXX"
100 PRINT#1,"            XX      X ****  X                           X** X" 
110 PRINT#1,"           X        XX    XX     X                      X***X" 
120 PRINT#1,"          X         //XXXX       X                      XXXX"
130 PRINT#1,"         X         //   X                             XX"
140 PRINT#1,"        X         //    X          XXXXXXXXXXXXXXXXXX/"
150 PRINT#1,"        X     XXX//    X          X" 
160 PRINT#1,"        X    X   X     X         X"
170 PRINT#1,"        X    X    X    X        X" 
180 PRINT#1,"         X   X    X    X        X                    XX" 
190 PRINT#1,"         X    X   X    X        X                 XXX  XX" 
200 PRINT#1,"          X    XXX      X        X               X  X X  X"
210 PRINT#1,"          X             X         X              XX X  XXXX" 
220 PRINT#1,"           X             X         XXXXXXXX\     XX   XX  X" 
230 PRINT#1,"            XX            XX              X     X    X  XX"
240 PRINT#1,"              XX            XXXX   XXXXXX/     X     XXXX" 
250 PRINT#1,"                XXX             XX***         X     X" 
260 PRINT#1,"                   XXXXXXXXXXXXX *   *       X     X"
270 PRINT#1,"                                *---* X     X     X" 
280 PRINT#1,"                               *-* *   XXX X     X"
290 PRINT#1,"                               *- *       XXX   X" 
300 PRINT#1,"                              *- *X          XXX"
310 PRINT#1,"                              *- *X  X          XXX" 
320 PRINT#1,"                             *- *X    X            XX" 
330 PRINT#1,"                             *- *XX    X             X"
340 PRINT#1,"                            *  *X* X    X             X" 
350 PRINT#1,"                            *  *X * X    X             X"
360 PRINT#1,"                           *  * X**  X   XXXX          X"
370 PRINT#1,"                           *  * X**  XX     X          X"
380 PRINT#1,"                          *  ** X** X     XX          X" 
390 PRINT#1,"                          *  **  X*  XXX   X         X"
400 PRINT#1,"                         *  **    XX   XXXX       XXX" 
410 PRINT#1,"                        *  * *      XXXX      X     X" 
420 PRINT#1,"                       *   * *          X     X     X" 
430 PRINT#1,"         =======*******   * *           X     X      XXXXXXXX\"
440 PRINT#1,"                *         * *      /XXXXX      XXXXXXXX\      )" 
450 PRINT#1,"           =====**********  *     X                     )  \  )" 
460 PRINT#1,"             ====*         *     X               \  \   )XXXXX"
470 PRINT#1,"        =========**********       XXXXXXXXXXXXXXXXXXXXXX"
480 PRINT#1,
490 PRINT#1,
500 PRINT #1,,"COMPLIMENTS OF RSTS-11"
510 PRINT#1,
517 PRINT #1,CHR$(12);:CLOSE 1
520 END