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"