Epson FX Series User Manual page 252

499 ' *** BOX SUBROUTINE ***
500 FOR K=1 TO 5: READ L$(K),M$(K),N$(K),R$(K):
NEXT K
510 FOR K=1 TO C: READ W(K): NEXT K
520 FOR L=1 TO 5: IF L=4 THEN FOR G=1 TO H
530 IF FT=1 THEN LPRINT H$;
LPRINT L$(L);: FOR K=1 TO C-1
540
FOR J=1 TO W(K): LPRINT M$(L);: NEXT J
550
LPRINT N$(L);: NEXT K
560
N=W(C): A$=M$(L): GOSUB 800: LPRINT R$(L);
570
IF L<>2 THEN 640
580
590 LPRINT CHR$(27)"!H";CHR$(27)"A"CHR$(0)
FOR Q=1 TO C: READ T$: LPRINT H$;T$;: NEXT Q
600
LPRINT CHR$(27)"!@";
610
IF F=1 THEN LPRINT CHR$(27)"A"CHR$(0): N=80:
620
A$="1" : GOSUB 800
IF L<5 THEN LPRINT CHR$(27)"1"
640
IF L=4 THEN NEXT G
650
660 NEXT L: RETURN
699 ' *** DRAW LOGO ***
700 LPRINT CHR$(27)"L"CHR$(60)CHR$(0);
710 READ N: IF N=128 THEN 770
720 IF N>=0 THEN LPRINT CHR$(N);: GOT0 710
730 READ P,R: FOR J=1 TO -N: LPRINT CHR$(P)
CHR$(R);: NEXT J
740 GOT0 710
770 RETURN
799 ' *** STRING$ ROUTINE ***
800 FOR J=1 TO N: LPRINT A$;: NEXT J: RETURN
899 ' <<< LINE GRAPHICS AND SHADING >>>
DATA
900 0,0,0,0,15,0,8,0,8,0,8:
DATA
910 8,0,8,0,15,0,0,0,0,0,0:
DATA
920 8,0,8,0,120,0,0,0,0,0,0:
DATA
930 0,0,0,0,120,0,8,0,8,0,8:
DATA
940 8,0,8,0,120,0,8,0,8,0,8:
DATA
950 8,0,8,0,15,0,8,0,8,0,8:
DATA
960 0,0,0,0,127,0,8,0,8,0,8:
DATA
970 8,0,8,0,127,0,0,0,0,0,0
980 DATA 8,0,8,0,127,0,8,0,8,0,8:
DATA
990 8,0,8,0,8,0,8,0,8,0,8:
1000
0,0,0,0,127,0,0,0,0,0,0:'j:
DATA
1010 DATA
84,0,170,0,84,0,170,0,84,0,
1099 ' <<< STRATA SOFTWARE >>>
Figure
17-4.
Program STATEMENT (continued)
for
'a
'b
'c
'd
'e
'f
'g
'h
'i
"
170: '1
235