characters in positions 6 and 7 of string A$, for example,
MID$(A$,6,2) would be coded as A$(6,7). If your system uses this
scheme, change line 140 to:
140 A=ASC(A$(X,X))+128*Y
This program automatically prints all four parts of each letter. You
type just a single letter; it does the rest. Before you RUN, check it
against Figure 16-3.
10 LPRINT CHR$(27)"l"CHR$(27)"Ul";
20 LPRINT CHR$(27) ":"CHR$(0)CHR$(0)CHR$(0);
30
LPRINT CHR$(27)"%"CHR$(l)CHR$(0);
40 READ L: PRINT CHR$(L)
50 FOR Y=0 TO 1: FOR Z=0 TO 1: A=L+128*Y+32*Z
60 LPRINT CHR$(27)"&"CHR$(0)CHR$(A)CHR$(A);
70 LPRINT CHR$(139);
80 FOR X=1 TO 11: READ N: LPRINT CHR$(N);: NEXT X
90
NEXT Z: NEXT Y
100 A$="": INPUT "ENTER A STRING ",A$:
IF A$="" THEN 180
110 INPUT "ENTER A MASTER PRINT MODE NUMBER ",M
120 LPRINT CHR$(27)"!"CHR$(M);
130 FOR Y=0 To 1:
FOR
X=1 TO LEN(A$)
140 A=ASC(MID$(A$,X,1))+128*Y
150 LPRINT CHR$(A)CHR$(A+32);
160 NEXT X: LPRINT: NEXT Y
170 LPRINT
180 LPRINT CHR$(27)"@": END
250 ’ G
260 DATA 71
270
DATA
0,15,16,0,32,31,64,0,64,0,64
280 DATA 64,4,72,2,32,2,24,4,0,0,0
290
DATA
0,120,4,0,2,124,1,0,1,0,1
300 DATA 1,64,0,124,2,68,8,120,0,64,0
Figure 16-3. Program for giant G
When you RUN it, you should see line 100’s prompt:
ENTER A STRING
You can respond with any string of letters, but for now type GO, with
220
Summary of Contents for FX-80
Page 1: ......
Page 22: ......
Page 23: ......
Page 26: ......
Page 31: ...Figure 1 1 The FX 80 and FX 100 printers 14 ...
Page 32: ...Figure 1 2 Printer parts 1 5 ...
Page 38: ...Figure 1 8 DIP switch vent 21 ...
Page 42: ...Figure 1 11 Ribbon insertion 25 ...
Page 51: ...Figure 1 20 Paper thickness adjustment 34 ...
Page 85: ......
Page 92: ......
Page 95: ......
Page 97: ...80 ...
Page 109: ......
Page 117: ...Figure 7 3 Staggering STAIR STEPS 100 ...
Page 119: ...Table 7 1 Line spacing commands 102 ...
Page 129: ...112 ...
Page 147: ...130 ...
Page 181: ...Figure 12 4 Corner of the FX 80 design ...
Page 189: ...Figure 12 10 Most distinct version Figure 12 11 Reversed version 172 ...
Page 215: ...198 ...
Page 231: ...214 ...
Page 249: ......
Page 269: ......
Page 272: ...iv ...
Page 283: ......
Page 290: ......
Page 305: ...282 ...
Page 311: ...288 ...
Page 323: ...300 ...
Page 339: ......
Page 343: ...320 ...
Page 349: ...326 ...
Page 353: ...330 ...
Page 354: ...Schematic 331 ...