10 DIM A(480): X=1: C=0

20 MAX=5: MIN=1: RE=4: N=0

30 FOR J=1 TO RE

40 N=N+1

50 GOSUB 300

60IF N<MAX THEN 40

70N=N-1

80GOSUB 300

90IF N>MIN THEN 70

100NEXT J: PRINT

110FOR K=1 TO C: PRINT A(K);:

 

NEXT K:

PRINT: PRINT

"C = "c

120

LPRINT

CHR$(27)"1";

 

130

LAST=INT(C/7): R=C-7*LAST

140

FOR PASS=0 TO LAST: P=0: PRINT "PASS"; PASS;

 

"0F";LAST

 

150

H=6: IF PASS=LAST THEN H=R-1

160

FOR DOT=0 TO H

 

170IF A(7*PASS+DOT+1)=1 THEN P=P+2^(6-DOT)

180NEXT DOT

190P0=127-P: IF PASS=LAST THEN P0=P0+1-2^(7-R)

200N1=C: N2=0

210IF C>255 THEN N1=C-256: N2=1

220LPRINT CHR$(27)"*"CHR$(5)CHR$(N1)CHR$(N2);

230FOR K=1 TO C

240IF A(K)=1 THEN LPRINT CHR$(P);

250IF A(K)01 THEN LPRINT CHR$(P0);

260NEXT K

270LPRINT

280NEXT PASS

290LPRINT CHR$(27)"2": END

308 FOR K=0

TO MAX-N

310FOR L=1 TO N

320C=C+1: A(C)=X

330NEXT L: X=1-X

340 NEXT K: PRINT N;: RETURN

Figure 14-3. Program for SYMMETRY

then RUN it to see if it looks like Figure 14-4.

194