Epson FX-80 User Manual page 195

164
1~
LPRINT CHR$(27)"1"
2~
G$=CHR$(27)+"L"+CHR$(51)+CHR$(3): GOSUB
16~
3~
FOR D=l TO 17: PRINT "ROW";D
4~
LPRINT G$;
5~
READ L,H
6~ L=L*7: H=H*7
7~
IF
L=~
THEN
9~
8~
FOR X=l TO L: LPRINT CHR$(l};: NEXT X
9~
IF
H(~
LPRINT: GOTO
14~
1~~
LPRINT CHR$(1)CHR$(2)CHR$(4)CHR$(8)CHR$(16)CHR$(32)
CHR$(64);
11~
FOR X=l TO H: LPRINT CHR$(64);: NEXT X
12~
LPRINT CHR$(64)CHR$(32)CHR$(16)CHR$(8)CHR$(4)CHR$(2)
CHR$(l);
13~
GO TO
5~
14~
NEXT D: GOSUB
16~
15~
LPRINT CHR$(27)"@": STOP
16~
FOR X=l TO 3: LPRINT G$;
17~ FOR Y=l TO 819: LPRINT CHR$(l);: NEXT Y
18~
LPRINT: NEXT X: RETURN
19~
DATA
3,2~,2,3,12,3,22,14,8,14,6,-1
2~~
DATA
3,2~,3,3,1~,3,21,18,4,18,4,-1
21~ DATA 3,2~,4,3,8,3,21,5,8,5,2,5,8,5,3,-1
22~
DATA 3,3,22,3,6,3,22,3,12,3,2,3,12,3,3,-1
23~
DATA 3,3,23,3,4,3,23,3,12,3,2,3,12,3,3,-1
24~
DATA 3,3,24,3,2,3,24,3,12,3,2,3,12,3,3,-1
25~
DATA
3,3,25,3,~,3,25,3,12,3,2,3,12,3,3,-1
26~ DATA 3,2~,9,6,5,15,5,18,3,3,12,3,3,-1
27~ DATA 3,20,10,4,6,15,7,14,5,3,12,3,3,-1
280 DATA 3,2~,9,6,5,15,5,5,6,5,3,3,12,3,3,-1
290 DATA
3,3,25,3,~,3,25,3,12,3,2,3,12,3,3,-1
300 DATA 3,3,24,3,2,3,24,3,12,3,2,3,12,3,3,-1
310 DATA 3,3,23,3,4,3,23,3,12,3,2,3,12,3,3,-1
32~
DATA 3,3,22,3,6,3,22,3,12,3,2,3,12,3,3,-1
330 DATA 3,3,21,3,8,3,21,5,8,5,2,5,8,5,3,-1
340 DATA
3,3,2~,3,10,3,21,18,4,18,4,-1
350 DATA 3,3,19,3,12,3,22,14,8,14,6,-1
Figure 14·6. Program for FX·aO design.