Epson LX-90 User Manual - Parallel 8620 PIC for LX-90 - Page 48

Definition Program 2, LPRINT CHR$27&CHR$0CHR$ACHR$A-l+K

Get Epson LX-90 - Impact Printer PDF manuals and user guides View all Epson LX-90 manuals
Add to My Manuals
Save this manual to your list of manuals

Page 48 highlights

Figure 7-5. Using the bottom eight rows Definition program 2 Once the character looks right, type in the next program. The pro- gram as listed creates the symbol for Mercury, but you can use it for any characters you create if you make one or two changes explained after the program listing. NEW 90 FOR P=58 TO 63: LPRINT CHR$(P);: NEXT P 95 LPRINT 100 K=l: IF K>3 THEN A=58 ELSE A=60 110 LPRINT CHR$(27) ":"CHR$(@)CHR$(@)CHR$(@); 120 LPRINT CHR$(27)"%"CHR$(l)CHR$(@); 138 LPRINT CHR$(27)"&"CHR$(0)CHR$(A)CHR$(A-l+K); 140 FOR Z=l TO K 150 LPRINT CHR$(139); 160 FOR X=1 TO 9 170 READ R 180 LPRINT CHR$(R);: NEXT X 190 LPRINT CHR$(0)CHR$(0); 200 NEXT Z 210 DATA 0,80,170,0,47,0,170,80,0 290 FOR P=58 TO 63: LPRINT CHR$(P);: NEXT P 300 LPRINT: END To use program 2 for your own character or characters, change the DATA numbers in line 210 by substituting the numbers generated by program 1. If you have created more than one character, put the DATA numbers for each character on separate lines as you see in the example on the next page. 46

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31
  • 32
  • 33
  • 34
  • 35
  • 36
  • 37
  • 38
  • 39
  • 40
  • 41
  • 42
  • 43
  • 44
  • 45
  • 46
  • 47
  • 48
  • 49
  • 50
  • 51
  • 52
  • 53
  • 54
  • 55
  • 56
  • 57
  • 58
  • 59
  • 60
  • 61
  • 62
  • 63
  • 64
  • 65
  • 66
  • 67
  • 68
  • 69
  • 70
  • 71
  • 72
  • 73
  • 74
  • 75
  • 76
  • 77
  • 78
  • 79
  • 80
  • 81
  • 82
  • 83
  • 84
  • 85
  • 86
  • 87
  • 88
  • 89
  • 90
  • 91
  • 92
  • 93
  • 94
  • 95
  • 96
  • 97
  • 98
  • 99
  • 100
  • 101
  • 102
  • 103
  • 104
  • 105
  • 106
  • 107
  • 108
  • 109
  • 110
  • 111
  • 112
  • 113
  • 114
  • 115
  • 116
  • 117
  • 118
  • 119
  • 120
  • 121
  • 122
Figure
7-5.
Using the
bottom
eight
rows
Definition program 2
Once the character looks right, type in the next program. The pro-
gram as listed creates the symbol for Mercury, but you can use it for
any
characters you create if you make one or two changes explained
after the program listing.
NEW
90 FOR P=58 TO 63: LPRINT CHR$(P);: NEXT P
95 LPRINT
100 K=l: IF K>3 THEN A=58 ELSE A=60
110 LPRINT CHR$(27) ":"CHR$(@)CHR$(@)CHR$(@);
120 LPRINT CHR$(27)"%"CHR$(l)CHR$(@);
138 LPRINT CHR$(27)"&"CHR$(0)CHR$(A)CHR$(A-l+K);
140
FOR Z=l TO K
150 LPRINT CHR$(139);
160
FOR X=1 TO 9
170 READ R
180 LPRINT CHR$(R);: NEXT X
190 LPRINT CHR$(0)CHR$(0);
200 NEXT Z
210
DATA
0,80,170,0,47,0,170,80,0
290 FOR P=58 TO 63: LPRINT CHR$(P);: NEXT P
300 LPRINT: END
To use program 2 for your own character or characters, change the
DATA numbers in line
210
by substituting the numbers generated by
program
1.
If you have created more than one character, put the
DATA numbers for each character on separate lines as you see in the
example on the next page.
46