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

530IF 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)

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

610LPRINT 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"

650IF L=4 THEN NEXT G

660NEXT L: RETURN

699' *** DRAW LOGO ***

700LPRINT CHR$(27)"L"CHR$(60)CHR$(0);

710READ N: IF N=128 THEN 770

720IF N>=0 THEN LPRINT CHR$(N);: GOT0 710

730READ P,R: FOR J=1 TO -N: LPRINT CHR$(P)

CHR$(R);: NEXT J

740GOT0 710

770RETURN

799' *** STRING$ ROUTINE ***

800FOR J=1 TO N: LPRINT A$;: NEXT J: RETURN

899' <<< LINE GRAPHICS AND SHADING >>>

900DATA 0,0,0,0,15,0,8,0,8,0,8: ‘a

910DATA 8,0,8,0,15,0,0,0,0,0,0: ‘b

920DATA 8,0,8,0,120,0,0,0,0,0,0: ‘c

930DATA 0,0,0,0,120,0,8,0,8,0,8: ‘d

940DATA 8,0,8,0,120,0,8,0,8,0,8: ‘e

950DATA 8,0,8,0,15,0,8,0,8,0,8: ‘f

960DATA 0,0,0,0,127,0,8,0,8,0,8: ‘g

970DATA 8,0,8,0,127,0,0,0,0,0,0 ‘h

980DATA 8,0,8,0,127,0,8,0,8,0,8: ‘i

990DATA 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, 170: ‘l

1099 ' <<< STRATA SOFTWARE >>>

Figure 17-4.Program for STATEMENT (continued)

235