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

Definition Program 1, FOR K=l TO 9: LPRINT FK;: NEXT K - lx 300

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

Definition program 1 The BASIC program below will help you translate your design into a character your LX-90 can print. Type it in now so that you can run it soon. NEW 100 DIM F(9) 110 FOR I=1 TO 9 120 PRINT "WHICH ROWS HAVE DOTS IN COLUMN";I 130 INPUT R: IF R=0 THEN 150 140 F(I)=F(I)+2ˆ(R-1) 150 IF R=0 THEN NEXT I ELSE GOTO 130 160 LPRINT CHR$(27) ":"CHR$(0)CHR$(0)CHR$(0); 179 LPRINT CHR$(27)"%"CHR$(l)CHR$(0); 180 LPRINT CHR$(27)"&"CHR$(0)"

  • 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
Definition program
1
The BASIC program below will help you translate your design into
a character your LX-90 can print. Type it in now so that you can run it
soon.
NEW
100 DIM F(9)
110 FOR I=1 TO 9
120 PRINT "WHICH ROWS HAVE DOTS IN COLUMN";I
130
INPUT R
: IF R=0 TH
E
N 150
140 F(I)=F(I)+2ˆ(R-1)
150
IF
R=0
THEN
NEXT I ELSE GOTO
130
160 LPRINT CHR$(27) ":"CHR$(0)CHR$(0)CHR$(0);
179 LPRINT CHR$(27)"%"CHR$(l)CHR$(0);
180 LPRINT CHR$(27)"&"CHR$(0)"<<";
190 LPRINT CHR$(128);
200
FOR X=1 TO 9
210 LPRINT CHR$(F(X));: NEXT X
220 LPRINT CHR$($l)CHR$(0);
239
LPRINT
"YOUR CHARACTER IN PICA: <<<"
240 LPRINT "IN EXPANDED EMPHASIZED PICA: ";
250 LPRINT CHR$(27)"!*<<<"
260 LPRINT CHR$(27) "!"CHR$(0)"YOUR DATA NUMBERS:"
270 FOR K=l TO 9: LPRINT F(K);: NEXT K
300 LPRINT: END
So that you can see how the program works, the next paragraphs
present the steps used to create the symbol for Mercury. First is the
grid used to design the character.
Figure
7-4.
Design
for
character
44