10 LPRINTCHR$(27)"@":CLS:E$=CHR$(27):PRINT:PRINT"Defining FX-80 printer for M100 chracters..."
15 PRINT:PRINT"Program written by David A. Cloutier..."
20 LPRINTE$":"CHR$(0)CHR$(0)CHR$(0);E$"%"CHR$(1)CHR$(0);
30 LPRINTE$"6";E$"&"CHR$(0)CHR$(128)CHR$(255);
40 READA:IFA=256THENBEEP:GOTO80
50 IFA<0THENREADB:FORX=1TO-A:CALL27967,B:NEXTX:A=B:ELSECALL27967,A
70 GOTO40
80 INPUT"Reduce line spacing";Q$
85 Q$=LEFT$(Q$,1):IFQ$="Y"ORQ$="y"THENLPRINTCHR$(27)"A"CHR$(8);
87 INPUT"Set Uni-directional mode";Q$
89 Q$=LEFT$(Q$,1):IFQ$="Y"ORQ$="y"THENLPRINTCHR$(27)"U1";
90 BEEP:END
128 DATA 139,102,0,238,16,130,16,134,16,238,0,102
129 DATA 139,63,0,97,0,235,0,119,0,63,0,0
130 DATA 139,56,198,0,198,0,40,0,16,0,40,0
131 DATA 139,30,0,14,112,6,64,2,80,0,112,0
132 DATA 139,119,0,34,0,255,0,255,0,34,0,119
133 DATA 139,48,0,50,0,254,0,50,0,48,0,0
134 DATA 139,62,0,106,0,254,0,106,0,62,0,0
135 DATA 139,190,0,238,0,226,0,238,0,254,0,0
136 DATA 200,-4,0,79,-6,0
137 DATA 139,16,8,4,8,16,32,64,0,64,0,64
138 DATA 139,42,4,40,0,56,0,40,64,168,0,0
139 DATA 139,130,0,198,0,170,0,146,0,198,0,0
140 DATA 139,36,0,72,0,72,0,36,0,72,0,0
141 DATA 139,34,0,34,0,250,0,34,0,34,0,0
142 DATA 139,4,2,0,2,124,128,0,128,64,0,0
143 DATA 171,0,0,16,0,56,0,124,-4,0
144 DATA 139,25,0,47,0,72,0,72,0,47,0,25
145 DATA 139,31,0,41,0,72,0,72,0,41,0,31
146 DATA 139,40,0,68,0,254,0,68,0,40,0,0
147 DATA 139,5,0,74,32,156,32,74,0,5,0,0
148 DATA 139,49,0,82,0,188,0,82,0,17,0,0
149 DATA 139,12,18,0,18,128,18,140,32,192,0,240
150 DATA 169,0,0,104,0,188,0,104,-4,0
151 DATA 139,66,0,164,0,168,0,20,0,42,0,68
152 DATA 139,32,0,64,0,252,0,64,0,32,0,0
153 DATA 139,8,0,4,0,126,0,4,0,8,0,0
154 DATA 139,16,0,16,0,84,0,56,0,16,0,0
155 DATA 139,16,0,56,0,84,0,16,0,16,0,0
156 DATA 139,56,0,234,0,134,0,234,0,56,0,0
157 DATA 139,16,0,40,0,68,0,40,0,16,0,0
158 DATA 154,0,56,68,0,34,0,68,56,0,0,0
159 DATA 154,0,48,72,0,158,0,72,48,0,0,0
160 DATA 200,-4,0,64,128,-5,0
161 DATA 139,4,10,32,138,96,10,32,28,2,0,0
162 DATA 10,56,68,1,68,1,70,0,68,0,0,0
163 DATA 139,18,0,126,128,18,128,2,128,66,0,0
164 DATA 166,-3,0,128,64,-6,0
165 DATA 26,0,127,0,4,0,4,0,120,4,0,0
166 DATA 168,0,0,64,160,0,160,64,-4,0
167 DATA 139,32,0,48,0,56,0,48,0,32,0,0
168 DATA 169,0,0,32,0,254,0,32,0,0,0,0
169 DATA 137,0,80,170,0,170,0,170,20,0,0,0
170 DATA 139,254,0,130,0,166,0,138,0,254,0,0
171 DATA 139,254,0,130,0,186,0,146,0,254,0,0
172 DATA 139,8,224,16,12,32,4,64,14,128,4,0
173 DATA 139,168,2,168,116,0,8,6,16,2,32,7
174 DATA 139,8,224,16,0,42,16,70,16,138,0,0
175 DATA 139,0,96,144,0,254,0,128,0,254,0,128
176 DATA 139,168,0,104,0,62,0,104,0,168,0,0
177 DATA 139,6,136,20,32,68,32,20,136,6,0,0
178 DATA 139,28,162,0,34,0,34,0,162,28,0,0
179 DATA 139,60,130,0,2,0,2,0,130,60,0,0
180 DATA 138,29,34,4,42,16,34,84,128,0,0,0
181 DATA 139,64,128,0,128,64,32,0,32,64,0,0
182 DATA 139,4,10,160,10,32,10,160,28,2,0,0
183 DATA 138,0,28,162,0,34,0,162,28,0,0,0
184 DATA 139,0,60,128,2,0,2,128,60,2,0,0
185 DATA 138,126,128,0,128,18,128,18,108,0,0,0
186 DATA 139,142,0,136,0,230,0,136,0,142,0,0
187 DATA 139,28,34,8,34,72,162,8,34,24,0,0
188 DATA 139,0,60,0,130,64,2,0,60,2,0,0
189 DATA 139,28,34,8,162,72,34,8,34,24,0,0
190 DATA 139,0,0,128,0,0,0,128,0,0,0,0
191 DATA 139,18,0,126,128,18,128,0,128,64,0,0
192 DATA 139,4,74,32,138,32,138,32,84,2,0,0
193 DATA 139,28,98,8,162,8,162,8,98,24,0,0
194 DATA 154,0,64,18,128,30,128,2,64,0,0,0
195 DATA 154,0,92,34,128,34,128,34,92,0,0,0
196 DATA 155,0,60,64,2,128,2,64,60,2,0,0
197 DATA 139,0,64,0,128,0,128,0,64,0,0,0
198 DATA 139,28,34,136,34,8,34,136,34,24,0,0
199 DATA 169,0,0,82,0,30,0,66,0,0,0,0
200 DATA 139,4,10,32,10,96,138,32,28,2,0,0
201 DATA 169,0,0,18,0,94,128,2,0,0,0,0
202 DATA 139,0,28,34,0,98,128,34,28,0,0,0
203 DATA 139,0,60,0,2,64,130,0,60,2,0,0
204 DATA 11,64,32,17,10,68,136,16,32,64,0,0
205 DATA 139,64,158,0,144,64,16,78,128,0,0,0
206 DATA 139,68,138,32,138,96,10,96,156,2,0,0
207 DATA 139,64,156,34,128,98,0,98,156,0,0,0
208 DATA 139,6,8,84,160,4,160,84,8,6,0,0
209 DATA 139,62,0,106,128,42,128,106,0,34,0,0
210 DATA 139,0,34,64,162,28,162,64,34,0,0,0
211 DATA 139,28,34,64,162,0,162,64,34,28,0,0
212 DATA 139,60,2,64,130,0,130,64,2,60,0,0
213 DATA 139,0,34,128,34,28,34,128,34,0,0,0
214 DATA 139,62,0,170,0,42,0,170,0,34,0,0
215 DATA 139,62,0,42,0,106,128,42,0,34,0,0
216 DATA 139,6,8,20,32,68,160,20,8,6,0,0
217 DATA 139,0,34,0,34,92,162,0,34,0,0,0
218 DATA 139,28,34,0,34,64,162,0,34,28,0,0
219 DATA 139,60,2,0,2,64,130,0,2,60,0,0
220 DATA 139,0,64,32,16,78,144,32,64,0,0,0
221 DATA 139,60,2,0,130,64,2,0,2,60,0,0
222 DATA 139,62,0,170,0,106,0,42,0,34,0,0
223 DATA 139,6,8,20,160,68,32,20,8,6,0,0
224 DATA -12,0
225 DATA 139,240,0,240,0,240,-6,0
226 DATA 139,-6,0,240,0,240,0,240
227 DATA 139,15,0,15,0,15,-6,0
228 DATA 139,-6,0,15,0,15,0,15
229 DATA 139,240,0,240,0,240,0,15,0,15,0,15
230 DATA 139,15,0,15,0,15,0,240,0,240,0,240
231 DATA 139,240,0,240,0,240,0,240,0,240,0,240
232 DATA 139,15,0,15,0,15,0,15,0,15,0,15
233 DATA 139,255,0,255,0,255,-6,0
234 DATA 139,-6,0,255,0,255,0,255
235 DATA 139,255,0,255,0,255,0,240,0,240,0,240
236 DATA 139,240,0,240,0,240,0,255,0,255,0,255
237 DATA 139,255,0,255,0,255,0,15,0,15,0,15
238 DATA 139,15,0,15,0,15,0,255,0,255,0,255
239 DATA 139,255,0,255,0,255,0,255,0,255,0,255
240 DATA 139,-4,0,15,0,8,0,8,0,8
241 DATA 139,8,0,8,0,8,0,8,0,8,0,8
242 DATA 139,8,0,8,0,15,-6,0
243 DATA 139,8,0,8,0,15,0,8,0,8,0,8
244 DATA 139,-4,0,127,0,8,0,8,0,8
245 DATA 139,-4,0,127,-6,0
118 DATA 139,-4,0,120,0,8,0,8,0,8
247 DATA 139,8,0,8,0,120,-6,0
248 DATA 139,8,0,8,0,120,0,8,0,8,0,8
249 DATA 139,8,0,8,0,127,-6,0
250 DATA 139,8,0,8,0,127,0,8,0,8,0,8
251 DATA 139,255,0,254,0,248,0,240,0,192,0,128
252 DATA 139,1,0,3,0,15,0,31,0,127,0,255
253 DATA 139,128,0,192,0,240,0,248,0,254,0,255
254 DATA 139,255,0,127,0,31,0,15,0,3,0,1
255 DATA 139,170,0,85,0,170,0,85,0,170,0,85
300 'Line 310--upside down question mark
305 ' not available in M100 set
310 'DATA 139,6,0,9,0,89,0,1,0,2,0,0
1000 DATA 256