Wall art for 1970s lab--Snoopy?

General discussions related to the Altair 8800 Clone

Re: Wall art for 1970s lab--Snoopy?

Postby Caterman » September 9th, 2015, 10:27 am

72 Column Version of ALTAIR 8800 banner.
Hope it works OK.
Code: Select all
1 REM ALTAIR 8800 BANNNER FOR TELETYPE 72 COLUMN
2 PRINT "ALTAIR 8800 ASCII BANNER FOR TELETYPE 72 COLUMN"
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 L,A$
7 IF A$="END" THEN GOTO 12
8 FOR N=1 TO L
9 IF A=1 THEN PRINT A$ ELSE LPRINT A$
10 NEXT N
11 GOTO 6
12 END
100 Data 1," 1@0L,"
101 Data 1," SB@B@B@BZY:"
102 Data 1," X@B@B@B@@@B@B@8u:."
103 Data 1," ;B@B@B@@@B@B@B@B@@@BMUr."
104 Data 1,"     .rF@B@B@B@B@B@B@@@B@B@Mkr."
105 Data 1,"           ,7qB@B@B@B@B@B@B@B@B@B@Xv,"
106 Data 1,"                 :LS@B@B@B@@@B@B@B@B@B@BEv:"
107 Data 1,"                    .@B@B@B@B@B@B@B@B@B@B@B@B@Eu:"
108 Data 1,"                    :B@B@@@2 :u8@B@B@B@B@B@B@B@B@B@@Oui"
109 Data 1,"                    :@B@B@B1       iuOB@B@B@@@B@B@B@B@B@B@MFi."
110 Data 1,"                    :B@B@B@S             i2O@B@B@B@B@B@B@@@B@B@BBF7."
111 Data 1,"                    :@@@B@BX                   iuMB@B@B@B@@@B@@@B@B@@@B"
112 Data 1,"                    :B@B@B@X                          :vqB@@@B@@@B@B@@@"
113 Data 1,"                    :@B@B@BP                           iu@B@B@B@@@B@B@B"
114 Data 1,"                    :B@B@B@S                  .i2Z@B@B@B@B@B@B@B@B@B@B@"
115 Data 1,"                    :@B@@@Bk           .iUG@@@B@B@B@B@B@B@B@B@B@@@B@B@B"
116 Data 1,"                    :B@B@B@Y    .ij0@B@B@B@B@@@B@B@@@B@B@B@@@B@B@B@B@B@"
117 Data 1,"                     @B@B@BOU@B@B@B@B@B@B@B@B@@@B@B@B@B@B@@@@@B@B@B@B@B"
118 Data 1,"                  :rqB@B@B@@@B@B@B@B@B@B@B@B@@@B@B@B@B@B@B@B@B@B@B@B@B@"
119 Data 1,"           :7kM@B@@@B@B@@@B@B@B@B@B@B@@@@@B@B@B@B@B@B@B@@@B@B@B@B@B@B@B"
120 Data 1,"    :7SM@B@@@B@B@@@B@B@@@@@B@B@B@B@@@@@B@B@B@@@B@B@B@B@B@B@B@B@B@@@B@B@"
121 Data 1," UB@B@B@B@B@B@B@B@@@B@@@B@B@B@@@@@@@B@B@B@B@B@B@B@B@B@@@B@B@B@@@B@B@B@Z"
122 Data 1," 1@@@B@B@B@B@@@@@B@B@B@B@@@B@B@B@B@B@@@B@B@@@B@B@@@B@@@B@B@B@B@B@B@B@O"
123 Data 1," jB@B@B@B@B@B@B@B@B@@@B@B@B@@@B@B@B@B@B@B@B@B@B@B@B@B@B@B@@@B@@@@@BX,"
124 Data 1," Y@B@B@B@B@B@B@B@B@B@B@B@B@B@B@@@B@B@B@B@B@B@B@B@B@B@B@B@B@BM57,"
125 Data 1," jB@B@B@B@B@@@B@B@B@B@B@B@B@B@B@B@B@B@B@B@@@B@B@B@B@@@PL:"
126 Data 1," J@B@B@@@@@B@B@B@B@B@B@B@@@@@B@B@B@@@B@B@B@@@@@82i."
127 Data 1," JB@B@B@B@B@B@@@B@B@B@@@B@B@B@B@B@B@B@B@MX7:"
128 Data 1," J@@@B@@@@@B@B@B@B@B@@@B@B@B@@@B@BELi"
129 Data 1," jB@B@B@B@B@B@B@B@B@@@@@B@BM2r."
130 Data 1," Y@B@B@B@B@B@B@B@B@B@Xv:"
131 Data 1," uB@B@B@B@B@@@Gui."
132 Data 1," P@B@B@OFr,"
133 Data 1," 71i"
134 Data 6," "
135 Data 1,"   vBB@B@B@B@B@B@B@B@B@B@B@B@B@B@B@@@B@B@B@B@B@B@@@B@B@@@B@B@B@B@B@B@@@"
136 Data 1,"  M@B@B@B@B@B@B@B@B@B@@@B@B@B@B@B@@@B@B@B@B@B@B@B@B@@@B@@@@@B@B@B@B@B@B"
137 Data 1," .@B@B@B@@@B@@@B@B@B@B@B@B@B@B@B@B@@@B@B@B@B@B@B@B@B@B@B@@@B@@@B@B@B@B@"
138 Data 1," LB@B@B@B@@@@@B@B@B@B@B@B@B@@@B@B@B@B@B@B@@@B@B@B@@@@@@@B@B@B@B@B@B@@@@"
139 Data 1," j@@@B@B@B@B@B@B@B@@@B@@@BO."
140 Data 15," uB@@@B@@@B@@@B@B@B@@@B@B@"
141 Data 1," 5B@B@B@@@B@B@B@B@B@B@B@B@                     q1Uu2u2u2u2uUuUuUuUuUuFP"
142 Data 1," u@B@B@B@B@B@B@B@B@B@B@B@B                     B@B@B@B@B@B@B@B@B@B@B@B@"
143 Data 11,"                                               @B@B@B@@@@@B@B@B@B@B@B@B"
144 Data 1,"                                              G@@B@B@B@B@B@B@B@B@B@B@B@"
145 Data 4," PB@B@@@B@@@@@B@B@@@B@@@B@B@B@B@B@B@B@B@B@@@B@B@B@B@B@B@@@B@@@B@B@@@B@@"
146 Data 1,"                                              L@B@B@B@B@B@B@B@B@B@@@@@@"
147 Data 11,"                                               B@B@B@B@B@B@B@B@B@B@B@B@"
148 Data 1," uBu:                                          EFF211F252115212F21251kN"
149 Data 1," k@B@B@BOui"
150 Data 1," kB@B@B@B@B@B@O1i."
151 Data 1," v@B@@@B@B@B@B@@@B@BMF7."
152 Data 1,"     i1MB@B@B@B@@@B@B@@@B@BP7,"
153 Data 1,"          .rSB@@@@@B@B@B@B@B@B@B@qL:"
154 Data 1,"                .7SBB@@@B@B@B@B@B@@@B@B8Y:"
155 Data 1,"                    ,B@B@B@B@B@@@B@B@B@B@B@@@G2i."
156 Data 1,"                    .@B@B@BS L0@@@B@@@B@@@B@B@@@B@BM2r."
157 Data 1,"                    :B@B@B@u      :YGB@B@B@B@@@B@B@B@B@B@BSr."
158 Data 1,"                    :@@@B@BX            :uG@B@B@@@B@B@B@B@B@@@B@kv,"
159 Data 1,"                    :@@B@B@X                  :jOB@@@B@@@B@B@B@@@@@B@BM"
160 Data 1,"                    :@B@@@BP                        .iLk8@B@B@B@B@@@B@@"
161 Data 1,"                    :B@B@B@k                           .YB@@@B@B@@@B@B@"
162 Data 1,"                    :@B@B@BP                   ,;1G@B@@@B@B@B@B@B@B@B@@"
163 Data 1,"                    :B@B@B@F            ,i2G@B@@@B@B@@@B@B@@@B@B@B@B@B@"
164 Data 1,"                    :@B@B@Bj     .iuE@B@B@B@B@B@B@B@B@B@B@B@@@B@B@B@B@B"
165 Data 1,"                     B@B@B@0rP@B@B@B@B@B@B@B@B@@@B@B@B@B@B@B@@@B@B@B@@@"
166 Data 1,"                   ,u@B@B@B@B@@@B@B@B@B@B@@@B@B@B@B@B@B@B@B@B@B@B@B@B@B"
167 Data 1,"            :7kM@B@B@B@B@B@@@@@@@@@B@B@B@B@@@B@B@B@B@B@B@@@B@B@B@B@@@B@"
168 Data 1,"     :7kM@B@B@@@B@B@B@B@B@B@B@B@B@B@B@@@B@B@B@B@B@@@B@B@B@B@B@B@B@B@B@B"
169 Data 1," L@B@B@B@@@B@B@B@B@B@B@B@B@B@B@@@B@B@B@B@B@B@B@@@B@B@B@@@B@B@B@B@@@B@B@"
170 Data 1," SB@B@B@B@B@B@B@B@B@B@@@B@@@B@B@B@@@B@B@B@B@B@B@B@B@B@@@@@B@B@B@@@B@B@"
171 Data 1," Y@B@@@B@B@B@B@B@B@B@B@B@@@B@B@@@B@B@B@B@B@B@@@B@B@B@B@B@@@B@@@B@B@Br"
172 Data 1," JB@B@B@B@B@B@B@B@B@B@B@B@B@B@B@@@@@B@B@B@B@B@B@B@B@B@B@B@B@BM27."
173 Data 1," L@B@@@B@B@B@B@B@B@B@B@B@B@@@B@B@B@B@B@B@B@B@B@B@B@@@B@Xv:"
174 Data 1," JB@@@@@B@B@B@B@B@B@B@B@B@@@@@@@B@B@B@B@B@B@B@@@GUi."
175 Data 1," L@B@B@B@B@@@B@B@@@B@B@B@B@@@@@B@@@B@@@B@MS7,"
176 Data 1," jB@B@B@B@B@@@B@B@@@B@B@B@B@@@B@@@BNv:"
177 Data 1," J@B@B@B@B@@@B@B@@@B@B@B@B@BOU;"
178 Data 1," JB@B@B@B@B@B@B@B@B@@BSv,"
179 Data 1," J@B@B@B@B@B@@@Ej:"
180 Data 1," XB@B@B@O5r,"
181 Data 1," LMv:"
182 Data 6," "
183 Data 14," j@@B@B@B@@@@@B@@@B@B@B@B@B@B@B@B@B@B@@@B@B@B@B@@@B@B@B@B@B@B@B@B@B@B@B"
184 Data 8," "
185 Data 13," jB@B@B@B@B@@@B@B@B@B@B@@@@@B@B@B@B@B@@@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B"
186 Data 1," :Y7777r7r7r7r777r7r7r7r7r7r7;iB@B@B@O:r7r7r7r7r7r7r7r7r7r7r7rr:8B@@@@@"
187 Data 12,"                               @B@B@@F                          j@B@B@B"
188 Data 3," u@@B@B@@@B@@@B@B@B@B@B@B@B@B@B@B@B@@@B@@@B@B@B@@@B@@@B@@@B@@@@@B@@@B@B"
189 Data 1," q@B@B@B@B@B@B@B@B@@@@@B@B@B@B@B@  2@B@B@@@B@@@B@B@B@@@B@B@B@B@B@B@B@q"
190 Data 1," ,ri:i:i:i:i:i:i:i:i:i:i:i:i:i:      :ii:i:iii:i:i:i:i:i:i:i:i:i:i::"
191 Data 28," "                                                                         
192 Data 1,"    5B@B@B@B@@@B@B@B@B@B@B@B@B@B@B@B@B:  j@B@B@@@B@B@B@B@B@B@B@@@B@B7"
193 Data 1,"  ,@B@@@B@B@B@B@B@B@@@@@B@@@B@B@B@B@B@B 7@B@B@B@@@B@B@B@@@@@B@B@B@B@B@"
194 Data 1,"  @B@B@B@B@B@B@B@B@B@B@@@B@B@B@B@B@B@B@@@B@B@B@B@@@B@B@B@B@B@@@B@B@B@B@"
195 Data 2," 7B@B@B@B@B@@@B@B@@@B@B@B@B@B@B@B@B@B@B@B@B@@@@@B@B@B@B@B@B@B@@@B@B@B@B"
196 Data 1," jB@B@B@B@B@B@B@B@B@B@B@@@.         i@B@B@B;                    B@@@B@@"
197 Data 19," Y@B@@@@@B@B@B@B@B@B@B@B@@           B@B@B@                     5B@@@@@"
198 Data 1," uB@B@@@B@@@B@B@B@B@B@@@@@L         P@B@@@BN                   :B@B@B@@"
199 Data 1," L@B@B@B@B@B@B@B@B@B@@@B@B@B@@@@@B@@@B@B@B@@@@@B@B@@@B@B@B@B@B@B@@@@@B@"
200 Data 1," .@@B@B@B@B@B@@@B@@@B@B@B@B@B@B@B@B@B@B@B@B@@@B@B@B@B@B@B@B@B@B@B@B@@@@"
201 Data 1,"  FB@B@B@B@B@B@B@B@B@B@B@B@@@B@B@B@@@@@2kB@@@B@B@B@B@B@B@@@B@B@B@B@B@@:"
202 Data 1,"   7@@B@B@B@B@B@B@B@B@B@B@B@@@B@B@B@B@B  @B@B@B@B@B@B@B@B@@@B@B@B@@@B."
203 Data 9," "
204 Data 1,"   .M@@@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@7  GB@B@B@B@B@B@B@@@@@B@B@B@B@k"
205 Data 1,"  rB@@@B@B@B@B@B@B@B@B@B@@@B@B@B@B@B@B@,2B@@@B@B@B@B@B@B@@@B@B@B@B@B@B"
206 Data 1,"  B@B@B@B@B@B@@@B@B@B@B@B@@@B@@@B@B@B@B@B@B@B@@@B@B@B@B@B@B@B@B@B@@@@@B"
207 Data 2," v@B@@@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@@@B@B@"
208 Data 1," L@B@B@@@B@B@B@B@B@B@B@B@B          ,B@@@@@.                    @B@B@B@"
209 Data 19," jB@B@B@B@@@@@B@@@@@@@@@B@           @@@B@B                     2@B@B@B"
210 Data 1," u@B@@@B@B@@@B@B@B@B@B@B@B0         BB@B@@@M.                  v@B@@@B@"
211 Data 1," L@@B@@@B@B@B@B@B@B@B@B@B@B@@@B@B@B@@@B@B@B@B@B@B@B@@@B@B@B@B@B@B@B@B@B"
212 Data 1,"  @B@@@B@@@B@B@B@B@@@B@@@B@B@B@B@@@@@B@B@B@B@B@B@@@B@B@B@B@@@@@B@B@@@B@"
213 Data 1,"  r@B@B@B@B@B@B@B@@@@@B@B@B@B@B@@@B@B@BvL@B@B@B@@@B@B@B@B@@@@@B@B@B@B@"
214 Data 1,"   .BB@B@B@B@B@@@B@B@@@B@B@B@B@B@@@@@B0  P@B@B@B@B@B@B@B@B@B@B@B@B@BP"
215 Data 9," "
216 Data 1,"   r@B@B@B@B@B@B@B@@@B@B@B@B@@@B@B@B@B@B@B@B@B@B@B@B@B@B@B@@@B@@@B@B@."
217 Data 1,"  1@@@@@@@B@B@B@B@B@B@B@B@B@B@B@B@@@B@B@B@B@B@B@B@B@@@B@B@B@B@B@B@@@B@,"
218 Data 1,"  @B@B@B@B@B@B@B@@@B@B@@@B@B@B@B@B@B@@@B@B@B@@@B@B@@@B@B@B@B@B@B@B@B@B@"
219 Data 1," JB@B@@@B@B@B@@@B@B@B@B@B@@@B@B@@@@@@@@@@@B@B@B@B@@@B@B@B@B@B@@@B@B@B@B"
220 Data 1," u@B@B@B@B@B@B@B@B@B@B@B@B@i                 7@B@B@B@B@B@B@B@B@B@B@B@B@"
221 Data 20," jB@@@@@B@B@B@B@B@@@B@@@B@                     @B@B@@@@@B@B@B@B@B@B@@@B"
222 Data 1," uB@@@B@B@B@B@B@B@B@@@B@B@Bi                 rB@B@B@@@B@B@@@B@B@B@B@B@B"
223 Data 1," r@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@@@B@B@B@B@B@B@B@B@@@B@B@B@"
224 Data 1,"  B@B@B@B@B@B@B@B@B@B@B@B@@@B@@@B@B@B@@@B@B@@@B@B@B@@@@@B@B@B@B@@@B@B@B"
225 Data 1,"  :B@B@B@B@B@B@B@B@B@@@B@@@B@B@B@B@@@B@B@B@B@B@B@B@B@B@B@B@@@B@B@B@@@@"
226 Data 1,"    5@B@B@B@B@B@@@@@B@B@B@B@B@B@@@B@B@B@B@B@@@B@B@B@B@B@B@B@B@B@B@B@7"
227 Data 9," "
228 Data 1,"   FB@B@B@@@B@B@B@B@B@@@B@B@B@@@B@B@B@B@B@B@B@B@B@@@B@B@B@B@B@B@B@B@Bi"
229 Data 1,"  O@@B@B@B@B@@@B@B@B@B@B@B@B@@@B@B@B@B@@@B@B@B@B@B@B@B@B@B@B@B@@@B@B@B7"
230 Data 1," ,B@B@B@B@B@B@B@B@B@B@B@B@@@B@B@@@B@B@B@B@B@B@B@@@B@B@B@B@B@B@@@B@B@B@B"
231 Data 1," J@B@B@B@B@@@B@@@B@B@@@B@B@B@@@B@B@B@B@B@B@B@B@B@B@B@B@B@B@@@B@B@B@B@B@"
232 Data 1," uB@@@B@B@B@B@B@B@B@B@B@B@N.                 :B@B@@@B@B@B@B@B@B@B@B@B@B"
233 Data 20," Y@B@B@B@B@B@B@B@@@B@B@B@B                     @@B@B@B@B@B@B@B@B@B@B@B@"
234 Data 1," u@B@@@B@B@B@@@B@B@B@B@B@B@J7777v7777777v77771@B@B@B@B@B@B@B@B@B@B@B@B@"
235 Data 1," iB@B@B@B@B@B@B@B@B@B@B@@@B@@@B@@@B@B@B@@@@@@@B@B@B@@@B@B@B@@@B@B@B@B@B"
236 Data 1,"  @@@B@B@B@B@B@B@B@@@B@B@@@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@BG"
237 Data 1,"   @B@B@B@B@B@B@@@B@B@B@@@B@B@B@B@@@@@@@B@B@B@B@B@B@@@B@@@@@B@B@B@@@BO"
238 Data 1,"    rEBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBk"
239 DATA 1,"END"
Caterman
 
Posts: 52
Joined: May 31st, 2015, 3:07 pm
Location: UK

Re: Wall art for 1970s lab--Snoopy?

Postby AltairClone » September 12th, 2015, 6:32 pm

Thanks for the update! I never realized it, but my tractor-feed Teletype is 69 columns instead of 72. After a few tweaks to the data statements, I gave my Teletype a 6 foot workout:
Attachments
image.jpg
AltairClone
Site Admin
 
Posts: 632
Joined: April 5th, 2013, 10:55 am

Previous

Return to General Discussions

Who is online

Users browsing this forum: No registered users and 16 guests

cron