Epson LX-90 User Manual - IBM PC Jr. 8690 PIC for LX-90 - Page 61
If N>=0 Then Lprint Chr$n;: Got0 610, Read P, R: For J=1 To -n
View all Epson LX-90 manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 61 highlights
8 10 8 8 8 8 8 8 4 2 1 0 0 0 0 0 0 0 0 0 23 4 1 0 0 4 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 8 2 0 0 0 Figure 8-5. First line of arrow figure The numbers for the second and third lines were calculated in the same manner. Once the numbers for the pin patterns are calculated, they go in DATA statements, separated by commas. First is the whole program and its printout, then an explanation of two techniques not used before: NEW 90 WIDTH "LPT1:",255 100 LPRINT CHR$(27)"A"CHR$(7) 590 FOR K=1 TO 3 600 LPRINT CHR$(27)"Y"CHR$(50)CHR$(0); 610 READ N: IF N=128 THEN 650 620 IF N>=0 THEN LPRINT CHR$(N);: GOT0 610 630 READ P,R: FOR J=1 TO -N 632 LPRINT CHR$(P)CHR$(R);: NEXT J 640 GOT0 610 650 LPRINT: NEXT K: LPRINT CHR$(27)"@": END 800 DATA 8, 4, 10, 1, -6, 8, 0, 4, 0, 2, 0, 1, -9, 0, 0, 0 805 DATA 23, 8, 4, 2, 1, -2, 0, 0, 0, 128 810 DATA 0, 0, 0, 0, 64, 32, 17, 10, 4, 0, -6, 0, 0, -10 815 DATA 64, 0, 0, 0, 0, 64, 32, 17, 10, 4, 128 820 DATA 2, 4, 10, 16, 34, 64, -5, 2, 0, 4, 0, 8, 0, 16 825 DATA 0, -9, 32, 0, 61, 2, 4, 8, 16, 32, 64, 0, 0, 0, 128 56