Program For Symmetry - Epson FX-80 User Manual

1~
DIM
A(48~):
X=l:
C=~ ~
2~
MAX=5: MIN=l: RE=4:
N=~~
INITIAL.IZE
\JARI~BLE:S
J~
FOR J=l TO RE
4~
N=N+1
5~ GOSUB J~~
6~ IF N(MAX THEN 4~
7~
N=N-1
8~
GOSUB
J~~
9~ IF N)MIN THEN 7~
1~~
NEXT J: PRINT _ _ _ _ -'
11~ FOR K=l TO C: PRINT A(K);: NEXT K: PRINT: PRINT"C="C
12~
LPRINT CHR$(27)"1";
1J~
LAST=INT(C/7): R=C-7*LAST
14~
FOR
PASS=~
TO LAST:
P=~:
PRINT "PASS" PASS" OF "LAST
15~ H=6: IF PASS=LAST THEN H=R-1
16~
FOR
DOT=~
TO H - - - - - - - - - - - ,
c,4 L
CUI.JQ!S
17~
IF A(7*PASS+DOT+1)=1 THEN P=P+2[(6-DOT)
P/lJ
~TTE:«,J
18~ NEXT DOT: IF P=12 THEN p=4
P..,.Po
19~ P~=127-P:
IF PASS=LAST THEN
P~=P~+1-2[(7-R)~
2~~
N1=C:
N2=~:
IF
P~=12
THEN
p~=4 J~~
210 IF C)255 THEN N1=C-256: N2=1
~cS
220 LPRINT CHR$(27)"*"CHR$(5)CHR$(N1)CHR$(N2);_
M00e;6
2J~
FOR K-1 TO C
24~
IF A(K)=l THEN LPRINT CHR$(P);
25~ IF A(K)()l THEN LPRINT CHR$(P~);
26~ NEXT K
27~
LPRINT _ _ _ _ _ _ _ _ _ _ _ --'
28~
NEXT PASS
29~
STOP
J~~
FOR K=O TO MAX-N
~
J1~
FOR L=l TO
N
J2~
C=C+1: A(C) =X
SUI3~O\JTiNE=
10
JJ0 NEXT L: X=l-X
Fi
u.. A~~~.
J4~ NEXT K: PRINT N;: RETURN
Figure 16·5. Program for SYMMETRY.
then RUN it to see if it looks like Figure 16-6.
190