Epson FX-100 User Manual download pdf (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$;

540

LPRINT L$(L);:

FOR K=1 TO C-1

550

FOR J=1 TO W(K): LPRINT M$(L);: NEXT J

560

LPRINT N$(L);: NEXT K

570

N=W(C): A$=M$(L): GOSUB 800: LPRINT R$(L);

580

IF L<>2 THEN 640

590 LPRINT CHR$(27)"!H";CHR$(27)"A"CHR$(0)

600

FOR Q=1 TO C: READ T$: LPRINT H$;T$;: NEXT Q

610

LPRINT CHR$(27)"!@";

620

IF F=1 THEN LPRINT CHR$(27)"A"CHR$(0): N=80:

A$="l" :

GOSUB 800

640

IF L<5 THEN LPRINT CHR$(27)"1"

650

IF L=4 THEN NEXT G

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 >>>

900

DATA

0,0,0,0,15,0,8,0,8,0,8:

‘a

910

DATA

8,0,8,0,15,0,0,0,0,0,0:

‘b

920

DATA

8,0,8,0,120,0,0,0,0,0,0:

‘c

930

DATA

0,0,0,0,120,0,8,0,8,0,8:

‘d

940

DATA

8,0,8,0,120,0,8,0,8,0,8:

‘e

950

DATA

8,0,8,0,15,0,8,0,8,0,8:

‘f

960

DATA

0,0,0,0,127,0,8,0,8,0,8:

‘g

970

DATA

8,0,8,0,127,0,0,0,0,0,0

‘h

980 DATA 8,0,8,0,127,0,8,0,8,0,8:

‘i

990

DATA

8,0,8,0,8,0,8,0,8,0,8:

'j

1000 DATA

0,0,0,0,127,0,0,0,0,0,0: 'k:

1010 DATA

84,0,170,0,84,0,170,0,84,0,

1099 ' <<< STRATA SOFTWARE >>>

170: ‘l

Figure

17-4.

Program

for

STATEMENT (continued)

235

1 2 ... 247 248 249 250 251 252 253 254 255 256 257 ... 267 268

Comments to this Manuals

No comments