Wall art for 1970s lab--Snoopy?

[mail@gabrielegan.com]

We've got a lab of Altair clones and a couple of Teletypes (amongst other old terminals) and want to give it that 1970s lab flavour. My recollection is that such labs often had a Snoopy ASCII-art printout on the wall. There's a Snoopy BASIC program on one of the Altair BASIC disks on this site, but it's quite small. Does anyone here know:

1) Was Snoopy the typical bit of such ASCII-art on lab walls, and if so was there a particularly favoured image? (I'm not interested in any 'blue' images, so if they were the most common I'll just forget it.)

2) Does anyone know where there are more Snoopy ASCII-art BASIC programs to download?

Gabriel Egan
Minimal Computing Lab, De Montfort University

[gmh]

I did a bit of searching and found an archive of PDP-11 SIG tapes with a copy of snoopy in PDP-11 paper tape BASIC (http://www.ibiblio.org/pub/academic/computer-science/history/pdp-11/rt/sigtapes/spri78/snoopy.bas).

This won't work on the Altair so I did a quick conversion (CP/M's BASIC-80) and here it is (I have kept the wording/line numbers as close to the original as possible);

Code: Select all

1 PRINT "DIRECT YOUR DOG TO ANY OF THE FOLLOWING FILES:"
2 PRINT "KEYBOARD =1;LINEPRINTER =2;WHICH ONE DO YOU WANT"
3 INPUT A
4 IF A<1 OR A>2 THEN 3
5 WHILE A$<>"CLOSE #1"
6 IF A=1 THEN PRINT A$ ELSE LPRINT A$
7 READ A$
8 WEND
10 DATA ""
20 DATA ""
30 DATA ""
40 DATA "                      XXXX"
50 DATA "                     X    XX"
60 DATA "                    X  ***  X                XXXXX"
70 DATA "                   X  *****  X            XXX     XX"
80 DATA "                XXXX ******* XXX      XXXX          XX"
90 DATA "              XX   X ******  XXXXXXXXX                XX XXX"
100 DATA "            XX      X ****  X                           X** X"
110 DATA "           X        XX    XX     X                      X***X"
120 DATA "          X         //XXXX       X                      XXXX"
130 DATA "         X         //   X                             XX"
140 DATA "        X         //    X          XXXXXXXXXXXXXXXXXX/"
150 DATA "        X     XXX//    X          X"
160 DATA "        X    X   X     X         X"
170 DATA "        X    X    X    X        X"
180 DATA "         X   X    X    X        X                    XX"
190 DATA "         X    X   X    X        X                 XXX  XX"
200 DATA "          X    XXX      X        X               X  X X  X"
210 DATA "          X             X         X              XX X  XXXX"
220 DATA "           X             X         XXXXXXXX\     XX   XX  X"
230 DATA "            XX            XX              X     X    X  XX"
240 DATA "              XX            XXXX   XXXXXX/     X     XXXX"
250 DATA "                XXX             XX***         X     X"
260 DATA "                   XXXXXXXXXXXXX *   *       X     X"
270 DATA "                                *---* X     X     X"
280 DATA "                               *-* *   XXX X     X"
290 DATA "                               *- *       XXX   X"
300 DATA "                              *- *X          XXX"
310 DATA "                              *- *X  X          XXX"
320 DATA "                             *- *X    X            XX"
330 DATA "                             *- *XX    X             X"
340 DATA "                            *  *X* X    X             X"
350 DATA "                            *  *X * X    X             X"
360 DATA "                           *  * X**  X   XXXX          X"
370 DATA "                           *  * X**  XX     X          X"
380 DATA "                          *  ** X** X     XX          X"
390 DATA "                          *  **  X*  XXX   X         X"
400 DATA "                         *  **    XX   XXXX       XXX"
410 DATA "                        *  * *      XXXX      X     X"
420 DATA "                       *   * *          X     X     X"
430 DATA "         =======*******   * *           X     X      XXXXXXXX\"
440 DATA "                *         * *      /XXXXX      XXXXXXXX\      )"
450 DATA "           =====**********  *     X                     )  \  )"
460 DATA "             ====*         *     X               \  \   )XXXXX"
470 DATA "        =========**********       XXXXXXXXXXXXXXXXXXXXXX"
480 DATA ""
490 DATA ""
500 DATA "COMPLIMENTS OF THE COMPONENTS GROUP VIA THE LSI-11"
510 DATA ""
517 DATA "CLOSE #1"
520 END


edit: changed the code to look even more like the original

[toml_12953]

We've got a lab of Altair clones and a couple of Teletypes (amongst other old terminals) and want to give it that 1970s lab flavour. My recollection is that such labs often had a Snoopy ASCII-art printout on the wall. There's a Snoopy BASIC program on one of the Altair BASIC disks on this site, but it's quite small. Does anyone here know:

1) Was Snoopy the typical bit of such ASCII-art on lab walls, and if so was there a particularly favoured image? (I'm not interested in any 'blue' images, so if they were the most common I'll just forget it.)

2) Does anyone know where there are more Snoopy ASCII-art BASIC programs to download?

Another popular image was a digitization of Mr. Spock holding a model of the Enterprise. The original photo was used as a publicity still in 1966.
Original Photo:
http://www.spacegamejunkie.com/wp-content/uploads/2015/02/kgrhqroge9c080iq9bpokdqjftw60_57-copy.jpg

ASCII Art:
http://www.atariarchives.org/bcc1/showpage.php?page=274

[Tor]

A 1969 calendar printed on wide fan paper was also popular.. I have the old Fortran program around somewhere.

[Caterman]

Here is a Deputy Dawg ASCII

Code: Select all

1 REM CLASSIC DEPUTY DAWG
2 PRINT "CLASSIC ASCII DEPUTY DAWG"
3 PRINT "FOR TERMINAL PRESS 1    FOR LINEPRINTER PRESS 2"
4 INPUT A
5 IF A<1 OR A>2 THEN GOTO 3
6 READ A$
7 IF A$="END" THEN GOTO 10
8 IF A=1 THEN PRINT A$ ELSE LPRINT A$
9 GOTO 6
10 END
100 DATA"             7"
110 DATA"            @B@i"
120 DATA"           GB@B@@7"
130 DATA"             L@@@@@,"
140 DATA"               .S@B@B"
150 DATA"                  .2@BB:      :Bv"
160 DATA"                      UBB0r:   @@@B@Gr"
170 DATA"                         :vOOELB@B@B@B@B@BOFJ:,"
180 DATA"                               @7@@5M@B@B@B@B@B@B@GFuu"
190 DATA"                              vP  @B  .LOB@B@B@B@@@@@X                     r8B@"
200 DATA"                              B@  5G       .r0B@B@@@q                .:1M@B@B@F"
210 DATA"                   B@B@NL:ivLY@1 vO               ;BMOBj27X2YJ51qB@B@B@@@@@B@@"
220 DATA"                  r@B@@@BEv7, rLv@2j2J.      .     @   .iYSSF@BX1FjL7ir:"
230 DATA"                   B@B@Br           .rXM7    5M    B"
240 DATA"                   :B@F                 Y@v   B    B"
250 DATA"                    q,                    N@  @.   B"
260 DATA"                    uM7uYOMv.              rB 8,   @,"
270 DATA"                     L.  ,@B@B              ,@@    OF"
280 DATA"                         7B@@@P              :B    ,B"
290 DATA"                     .@uiXOZOu                @     M7"
300 DATA"                      :ku                    ,B     .@"
310 DATA"                        SM                  ,B@      B"
320 DATA"                         BJ               :ZB@B      @;"
330 DATA"                          @Oi          ;S1:B@B@O     Er"
340 DATA"                         u0;LSFFuULvLFN1  u@B@PZL    2r"
350 DATA"                       :@J      .:iii.   :@B@B  @i  iB"
360 DATA"                      L@.                @B@B.  .@vE2@"
370 DATA"                     JB                 8@@Bu     7  uj"
380 DATA"                    L@                 :@@B@         ,@"
390 DATA"                   7@                  B@B@B  2       @"
400 DATA"                  r@                  B@B@B@r B.      Bv"
410 DATA"                  @                  B@B@B@@@ LL      rO"
420 DATA"                 ML                 Bi:@@@B@B@B@       @"
430 DATA"               iMB             UFruB;  M@B@B@B@B,      B:"
440 DATA"             .BXi@             ;B@i.      .U@@B@P      SM"
450 DATA"       .    :B: 7k               B       1@B@B@B@,      @"
460 DATA"     7BJvU:jB   0i              0i 7BO   @@@B@B@B@      GL"
470 DATA"      Fv..7Fj   @              j@juL@B@.7B@B@B@B@B@     j5"
480 DATA"    .rvBXJ7    :@              ii   B@B@B@B@B@B@B@BS    i@"
490 DATA"   8u   Bi i  r@7                  N@B@B@BB5r,     BL   ,@"
500 DATA"  :@::;@1 :@ Jk@                   @B@kr            B    @"
510 DATA"   .;.5J  @X 0rP                                    k8   Bi"
520 DATA"     YB .@ki OuN                                     @   78"
530 DATA"     :8XX  BJO @u:.                                   B   @"
540 DATA"           .i  .B@M@B@@BOZFSUJ7rii:::,..     ..,,:,iu8B:  MX"
550 DATA"                 BB22UFSXX0NGGOOMM@M@B@B@@@@@B@B@M@BU:     :@v"
560 DATA"                  U@M0F5U12122U2U2u2u2u2u2U1u2u2uuB, ik@7    XF"
570 DATA"                    r8@MBOGk5J2U1U2uUu2u2u1U2uUSEZ@B@B@B J@ GL7F"
580 DATA"                        :jFZ2BuUUUFBB@EUu2U1uSBBS2i@  YZ Mq:;OL@BYB"
590 DATA"                            YBuuuO@r.r1Bku2uFB:    .O,u  B1YiFr: 5B"
600 DATA"           .712L:,         :BMOZM@     :@ujjBE       XB:N::XYr r0L"
610 DATA"          MZ7:::iv00E7:   .B:  u@       @BGP@r        rBGJL@@P5i"
620 DATA"         @.          :J@q Ov   8        .@iJ0@"
630 DATA"        MO i            r0@   YB         O   @"
640 DATA"        :@ @                  @          @.  qN."
650 DATA"         :PB                 BU        LBL    :M8"
660 DATA"           JBrLUu51FUYjYLYLL58       :Mv    :7  i@U"
670 DATA"             .,.      ..:,,.         B:      B.   O0"
680 DATA"                                     @L      17   ON"
690 DATA"                                     .P0P0M5JB@SGji"
700 DATA"END"

Altair 8800 Clone large text

Code: Select all

1 REM ALTAIR 8800 CLONE
2 PRINT "ALTAIR 8800 ASCII"
3 PRINT "FOR TERMINAL PRESS 1    FOR LINEPRINTER PRESS 2"
4 INPUT A
5 IF A<1 OR A>2 THEN GOTO 3
6 READ A$
7 IF A$="END" THEN GOTO 10
8 IF A=1 THEN PRINT A$ ELSE LPRINT A$
9 GOTO 6
10 END
100 DATA"                 d8888 888   88888888888     d8888 8888888 8888888b."
110 DATA"                d88888 888       888        d88888   888   888   Y88b"
120 DATA"               d88P888 888       888       d88P888   888   888    888"
130 DATA"              d88P 888 888       888      d88P 888   888   888   d88P"
140 DATA"             d88P  888 888       888     d88P  888   888   8888888P"
150 DATA"            d88P   888 888       888    d88P   888   888   888 T88b"
160 DATA"           d8888888888 888       888   d8888888888   888   888  T88b"
170 DATA"          d88P     888 88888888  888  d88P     888 8888888 888   T88b"
180 DATA" "
190 DATA" "
200 DATA" "
210 DATA"                    .d8888b.   .d8888b.   .d8888b.   .d8888b."
220 DATA"                   d88P  Y88b d88P  Y88b d88P  Y88b d88P  Y88b"
230 DATA"                   Y88b..d88P Y88b..d88P 888    888 888    888"
240 DATA"                    'Y88888'   'Y88888'  888    888 888    888"
250 DATA"                   .d8P''Y8b. .d8P''Y8b. 888    888 888    888"
260 DATA"                   888    888 888    888 888    888 888    888"
270 DATA"                   Y88b  d88P Y88b  d88P Y88b  d88P Y88b  d88P"
280 DATA"                    'Y8888P'   'Y8888P'   'Y8888P'   'Y8888P'"
290 DATA" "
300 DATA" "
310 DATA" "
320 DATA"              .d8888b.  888       .d88888b.  888b    888 8888888888"
330 DATA"             d88P  Y88b 888      d88P' 'Y88b 8888b   888 888"
340 DATA"             888    888 888      888     888 88888b  888 888"
350 DATA"             888        888      888     888 888Y88b 888 8888888"
360 DATA"             888        888      888     888 888 Y88b888 888"
370 DATA"             888    888 888      888     888 888  Y88888 888"
380 DATA"             Y88b  d88P 888      Y88b. .d88P 888   Y8888 888"
390 DATA"              'Y8888P'  88888888  'Y88888P'  888    Y888 8888888888"
400 DATA"END"

I have a number of others including a classic Spock one that I would need to convert if you are interested.
Also a Playboy Calendar that is not too racey! Lady on Bar Stool. It has an interesting calendar generator built in to print any year and is y2k compatible, this is a TRS80 program that would need to be converted. You could extract just the calendar generator if you like.
If you have any requests please let me know.

[mail@gabrielegan.com]

Thanks everyone for those programs -- will give them a spin and print out the results. Much obliged.

Gabriel Egan

[Caterman]

Found another Snoopy this one sitting in front of a computer!

Code: Select all

1 REM SNOOPY SITTING AT COMPUTER
2 PRINT "CLASSIC ASCII SNOOPY AT COMPUTER"
3 PRINT "FOR TERMINAL PRESS 1    FOR LINEPRINTER PRESS 2"
4 INPUT A
5 IF A<1 OR A>2 THEN GOTO 3
6 READ A$
7 IF A$="END" THEN GOTO 10
8 IF A=1 THEN PRINT A$ ELSE LPRINT A$
9 GOTO 6
10 END
100 DATA"                                            :7XP@B@B@"
110 DATA"                              ,.:SG@B@B@@@B@qL2J.   i@"
120 DATA"           .  .,:;         2@@@B@PFrrri,             B@"
130 DATA"     @B@B@MGB@MMM@B        @B                         O@"
140 DATA"    7B:           @        B7                          @@"
150 DATA"    ,@            BLr.     @j                           M@"
160 DATA"    iB            @MMM     BP                            M@"
170 DATA"    v@            B. @   7B@i                             BB"
180 DATA"    iB            @: Br 8GLBv                             ,B0"
190 DATA"    J@            @, uB,B ,@Y                              ,B7"
200 DATA"    LB            @:  @B   Br                               ,BL"
210 DATA"    L@            BN  q@   @G                                .@L"
220 DATA"    SB            @,  @r   @1                                 .Bv"
230 DATA"    k@           .B.  B,   @r                                  PBUB:"
240 DATA"    FB            @.  @:   Bv                          :rUOBMX2jF7G@"
250 DATA"    B@           .B   BO   @N              .r2JjF@B@B@B@@S7:       @:"
260 DATA"    SB           :@   LB   M@     ;7Y1@B@B@B@Z@BZu:                8@"
270 DATA"    i@           EB   E@:  uB8uB@@MM0Xi                             Bv"
280 DATA"    UB           u@   @E@ :Bri,.                                    @B"
290 DATA"    r@r           @: Oq B5 @                                         @:"
300 DATA"     B0          .@. BU :BrB7                                        BM"
310 DATA"     @2          :B  @   :B@u                             ,7L0BMB@@@B@:"
320 DATA"    ,B:          .@q@X     Bj                     ..i288@B@BOJr7,"
330 DATA"    i@            @M.      @L         .;r5OMB@B@B@B@UJrr,"
340 DATA"    LB.        . :@        B@rLk@B@B@B@B@BO177:"
350 DATA"    ,@B@@@B@B@B@B@:         uPMGv1r;."
360 DATA"    rB .rri7NSu7@B"
370 DATA"    i@          B@ii"
380 DATA"    Y@         v@  Bu"
390 DATA"    @O         @Buu@"
400 DATA"    @8         BOYZ                  :i:."
410 DATA"    BL        ,@ ;B                 BX:..1:7qBPqNqU7i"
420 DATA"    @7        @87u                 :@P@O,B@Sr     :i201L."
430 DATA"    Bu        B2j                   8@B@B:             rMM"
440 DATA"    @J       .@:@      iuPv1Oku       @B                 :@7"
450 DATA"    BU       FBP      :@,.r@. Y@      B                    @X"
460 DATA"    @L       BPM2    Z@B,      B.    B2                     vB,"
470 DATA"    B2      :@ @i   Z8  L7i ,LBP    .@                       iBr"
480 DATA"  iu@BLjr   @@S:    :M:u@rLB@.,M;   .B                         MZ"
490 DATA" @07.:rjFPO@B@E     L@iFB   v  :B    @i                         YOF: 2"
500 DATA".M          .7MM@k7 JL  ,.     Eu    7B                   ;       7qZB@L:"
510 DATA"5j               @qB2@       LN:     .B                 .@B           .ijMS"
520 DATA"X5              8B  E8,     MB        @:                JM                rMi"
530 DATA"L@              v:   @Bk    @7G:      u8                                    Bv"
540 DATA",B                  @: Z@   0i M.      B                                     B."
550 DATA" @                      @   .@  P:.    @                                     0u"
560 DATA" Br      E@Xv,        :Oi    :@BkB@BJ2@q.                                    S0"
570 DATA" ZU      PB:7FSF2uL7N0i       .i   @B                                        8U"
580 DATA" 1u      uM     ... iMr            ,@.                                       B:"
590 DATA" M:      GB           2@2,          O@                  ...                  @"
600 DATA" B       ,M             YNi        .:B77v;i.       .JJNjuvU7J.              LB"
610 DATA" @B                            :L@@07E@7775OB0r  iMX.  NME2;S1.rLr:         BL"
620 DATA" k@OLL.           .:i:..,:r;7B@O2:           ,L7@Bi 7uNBqNN1@X15MG@vv      L@"
630 DATA" OPM@@BMMui:.:M@B@@@B@B@B@B@J;                 vB M@BMNME8B@B@BO@MB@Mi     @."
640 DATA" B    @ ,rL1qMMOPFu7::i:                       B, @B@@12OB@8MEv5PuJrE8k  .@r"
650 DATA" @.   @                                        @ :B@qur@B@r.72i7B@@8BB  7@r"
660 DATA" B    NY                                       B; @B@B@B8B@2;J@M@BB8  .B@"
670 DATA" @    Lk                                       .Br.5B@@@B@B@B@BMJ   :8B7"
680 DATA" @    Gj                                         rXi:.,v0Pri:    i@BM,"
690 DATA" @:   @                                            :r7rrLr:775qG0u,"
700 DATA" rN  B1                                                .::r:,."
710 DATA" :N U@"
720 DATA"  @ Jr"
730 DATA"   7X"
740 DATA"END"

Hope you like.

[Caterman]

Snoopy on Paper Tape

[gmh]

Snoopy on Paper Tape

I love it, that's fantastic!

[mail@gabrielegan.com]

That paper-tape Snoopy is brilliant, I agree. In fact, I'm thinking of setting it as a Altair machine-code exercise for my students to reproduce. I notice that there a places in the tape where no holes are punched at all and I realize that I don't know what character to send to the punch to do that. (It's not a space, as in ASCII that is 00100000 not 00000000.) I wonder if sending ASCII Null will do this. No need for anyone who knows to tell me -- let me figure it out.

If I were to critique the paper-tape Snoopy at all it's that we're looking at the side of the tape that has the tape-direction arrows printed on it. It would be an interesting exercise for a student to take the code that produces this and transform it so that Snoopy appears when we look at the other side of the paper-tape. I guess that means mirroring each byte so that the least-significant-bit goes to the most-significant-bit, the second-least to the second-most, and so on. That's just the kind of beginner's exercise my students should enjoy, competing to make the most efficient coding. (My first instinct is to use eight masking operations in a row to pull out each bit, but I wonder if there's some mathematical relationship that makes it simpler).

Thanks again, everyone, for this stimulating stuff.

Gabriel Egan