Epson FX-80 User Manual - FX-80/100 Vol. 1 - Page 211
If A7*pass+dot+l=l Then P=p+2^6-dot
View all Epson FX-80 manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 211 highlights
10 DIM A(480): X=1: C=0 20 MAX=5: MIN=l: RE=4: N=0 30 FOR J=l TO RE 40 N=N+l 50 GOSUB 300 60 IF NMIN THEN 70 100 NEXT J: PRINT 110 FOR K=l 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+l)=l THEN P=P+2^(6-DOT) 180 NEXT DOT 190 P0=127-P: IF PASS=LAST THEN P0=P0+1-2^(7-R) 200 Nl=C: N2=0 210 IF C>255 THEN Nl=C-256: N2=1 220 LPRINT CHR$(27)"*"CHR$(5)CHR$(Nl)CHR$(N2); 230 FOR K=l TO C 240 IF A(K)=1 THEN LPRINT CHR$(P); 250 IF A(K)1 THEN LPRINT CHR$(P0); 260 NEXT K 270 LPRINT 280 NEXT PASS 290 LPRINT CHR$(27)"2": END 300 FOR K=0 TO MAX-N 310 FOR L=l TO N 320 C=C+l: 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