Epson FX-100 User Manual Page 211

  • Download
  • Add to my manuals
  • Print
  • Page
    / 268
  • Table of contents
  • BOOKMARKS
  • Rated. / 5. Based on customer reviews
Page view 210
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
60
IF N<MAX THEN 40
70
N=N-1
80
GOSUB 300
90
IF N>MIN THEN 70
100 NEXT J: PRINT
110 FOR 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
170
IF A(7*PASS+DOT+1)=1 THEN P=P+2^(6-DOT)
180 NEXT DOT
190 P0=127-P: IF PASS=LAST THEN P0=P0+1-2^(7-R)
200 N1=C: N2=0
210 IF C>255 THEN N1=C-256: N2=1
220 LPRINT CHR$(27)"*"CHR$(5)CHR$(N1)CHR$(N2);
230 FOR K=1 TO C
240
IF A(K)=1 THEN LPRINT CHR$(P);
250
IF A(K)01 THEN LPRINT CHR$(P0);
260 NEXT K
270 LPRINT
280 NEXT PASS
290 LPRINT CHR$(27)"2": END
308
FOR K=0 TO MAX-N
310
FOR L=1 TO N
320
C=C+1: A(C)=X
330
NEXT 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
Page view 210
1 2 ... 206 207 208 209 210 211 212 213 214 215 216 ... 267 268

Comments to this Manuals

No comments