Epson FX-185 User Manual - Page 211
P0=127-p: If Pass=last Then P0=p0+1-2^7-r, If A7*pass+dot+1=1 Then P=p+2^6-dot
View all Epson FX-185 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=1: RE=4: N=0 30 FOR J=1 TO RE 40 N=N+1 50 GOSUB 300 60 IF NMIN 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