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$="1" :
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:
”
1000 DATA
0,0,0,0,127,0,0,0,0,0,0:'j:
1010 DATA
84,0,170,0,84,0,170,0,84,0,
1099 ' <<< STRATA SOFTWARE >>>
170: ‘1
Figure
17-4.
Program
for
STATEMENT (continued)
235
To Next Page
Loading...
Need help?
General
