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
Wall art for 1970s lab--Snoopy?
-
mail@gabrielegan.com
- Posts: 104
- Joined: October 11th, 2014, 8:12 am
- Contact:
-
gmh
- Posts: 38
- Joined: August 12th, 2014, 5:19 am
- Contact:
Re: Wall art for 1970s lab--Snoopy?
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/com ... 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);
edit: changed the code to look even more like the original
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
Last edited by gmh on August 24th, 2015, 4:40 pm, edited 4 times in total.
-
toml_12953
- Posts: 305
- Joined: June 7th, 2013, 12:54 pm
- Contact:
Re: Wall art for 1970s lab--Snoopy?
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.mail@gabrielegan.com wrote: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?
Original Photo:
http://www.spacegamejunkie.com/wp-conte ... 7-copy.jpg
ASCII Art:
http://www.atariarchives.org/bcc1/showpage.php?page=274
-
Tor
- Posts: 12
- Joined: June 20th, 2013, 5:34 pm
- Location: Norway/Japan
- Contact:
Re: Wall art for 1970s lab--Snoopy?
A 1969 calendar printed on wide fan paper was also popular.. I have the old Fortran program around somewhere.
-
Caterman
- Posts: 52
- Joined: May 31st, 2015, 3:07 pm
- Location: UK
- Contact:
Re: Wall art for 1970s lab--Snoopy?
Here is a Deputy Dawg ASCII
Altair 8800 Clone large text
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.
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"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"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
- Posts: 104
- Joined: October 11th, 2014, 8:12 am
- Contact:
Re: Wall art for 1970s lab--Snoopy?
Thanks everyone for those programs -- will give them a spin and print out the results. Much obliged.
Gabriel Egan
Gabriel Egan
-
Caterman
- Posts: 52
- Joined: May 31st, 2015, 3:07 pm
- Location: UK
- Contact:
Re: Wall art for 1970s lab--Snoopy?
Found another Snoopy this one sitting in front of a computer!
Hope you like.
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"-
Caterman
- Posts: 52
- Joined: May 31st, 2015, 3:07 pm
- Location: UK
- Contact:
-
gmh
- Posts: 38
- Joined: August 12th, 2014, 5:19 am
- Contact:
Re: Wall art for 1970s lab--Snoopy?
I love it, that's fantastic!Caterman wrote:Snoopy on Paper Tape
-
mail@gabrielegan.com
- Posts: 104
- Joined: October 11th, 2014, 8:12 am
- Contact:
Re: Wall art for 1970s lab--Snoopy?
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
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
Who is online
Users browsing this forum: Google [Bot] and 2 guests