Let's Print; Program For Large G - Epson FX-80 User Manual

Let's Print
Here's the printing routine:
11313 A$="": INPUT "ENTER A STRING"; A$:
IF A$="" THEN 1813
1113 INPUT "ENTER A MASTER PRINT MODE NUMBER";M
1213 LPRINT CHR$(27)"!"CHR$(M);
1313 FOR
Y=~
TO 1: FOR X=l TO LEN(A$)
1413 A = ASC(MID$(A$,X,l)) + 128*Y
1513 LPRINT CHR$(A)CHR$(A+32);
1613 NEXT X: LPRINT: NEXT Y
1713 LPRINT: GOTO 11313
This program automatically prints all four parts of each letter. You
type just a single letter in the text; it does the rest. Before you RUN,
check it against Figure 18-3.
1ftJ LPRINT CHR$(27)"1";
2ftJ LPRINT CHR$(27)":"CHR$(ftJ)CHR$(ftJ)CHR$(ftJ)CHR$(ftJ);
3ftJ LPRINT CHR$(27)"%"CHR$(1)CHR$(ftJ);
4ftJ READ L: PRINT CHR$(L)
5ftJ FOR Y=ftJ TO 1: FOR Z=ftJ TO 1: A
=
L + 128*Y + 32*Z
6ftJ LPRINT CHR$(27)"&"CHR$(ftJ)CHR$(A)CHR$(A);
7ftJ LPRINT CHR$(139);
8ftJ FOR X=l TO 11: READ N: LPRINT CHR$(N);: NEXT X
9ftJ NEXT Z: NEXT Y
1ftJftJ A$="": INPUT "ENTER A STRING";A$: IF A$='"' THEN 18ftJ
llftJ INPUT "ENTER A MASTER PRINT MODE NUMBER";M
12ftJ LPRINT CHR$(27)"!"CHR$(M);
13ftJ FOR Y=ftJ TO 1: FOR X=l TO LEN(A$)
14ftJ A = ASC(MID$(A$,X,l)) + 128*Y
15ftJ LPRINT CHR$(A)CHR$(A+32);
160 NEXT X: LPRINT: NEXT Y
17ftJ LPRINT: GO TO 1ftJftJ
18ftJ LPRINT CHR$(27)"@": STOP
25ftJ ' G
26ftJ DATA 71
27ftJ DATA ftJ,15,16,ftJ,32,31,64,ftJ,64,ftJ,64
28ftJ DATA 64,4,72,2,32,2,24,4,ftJ,0,ftJ-
29ftJ DATA ftJ,12ftJ,4,ftJ,2,124,1,ftJ,1,ftJ,1
3ftJftJ DATA 1,64,ftJ,124,2,68,8,12ftJ,ftJ,64,ftJ
Figure 18·3. Program for large G.
217