Epson LX-90 User Manual - IBM PC Jr. 8690 PIC for LX-90 - Page 43

Definition program 2, FOR P=58 TO 63: LPRINT CHR$P;: NEXT P

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 43 highlights

123456789 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=1: IF K>3 THEN A=58 ELSE A=60 110 LPRINT CHR$(27) ":"CHR$(0)CHR$(0)CHR$(0); 120 LPRINT CHR$(27)"%"CHR$(1)CHR$(0); 130 LPRINT CHR$(27)"&"CHR$(0)CHR$(A)CHR$(A-1+K); 140 FOR Z=1 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. 38

  • 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
123456789
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=1: IF K>3 THEN A=58 ELSE A=60
110 LPRINT CHR$(27) ":"CHR$(0)CHR$(0)CHR$(0);
120 LPRINT CHR$(27)"%"CHR$(1)CHR$(0);
130
LPRINT CHR$(27)"&"CHR$(0)CHR$(A)CHR$(A-1+K);
140
FOR Z=1 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.
38