Epson LX-80 User Manual - Page 70

Running the program, ters you are defining instead of the 1 in line 100. You can define

Page 70 highlights

90 FOR P=58 TO 63: LPRINT CHR$(P);: NEXT P 100 K=l: IF K>3 THEN A=58 ELSE A=60 110 LPRINT CHR$(27)":"CHR$(0)CHR$(B)CHR$(PI); 120 LPRINT CHR$(27)"%"CHR$(l)CHR$(O); 130 LPRINT CHR$(27)"&"CHR$(O)CHR$OCHR$(A-1tK); 140 FOR Z=l TO K 150 LPRINT CHR$(128); 160 FOR X=1 TO 9 170 READ R 180 LPRINT CHR$(R);: NEXT X 190 LPRINT CHR$(O)CHR$(O); 200 NEXT Z 210 DATA 130,68,170,16,130,0,130,0,198 290 FOR P=58 TO 63: LPRINT CHR$(P);: NEXT P 300 SYSTEM To use this program for your own character or characters, change the DATA numbers in line 210 by substituting the numbers generated by the first program when you created your own character. If you have created more than one character, put the DATA numbers for each character on a separate line as you see in the example below: 210 DATA 112,8,0,138,116,138,0,8,112 220 DATA 58,68,2,128,0,128,2,68,58 Check your work by making sure that there are nine numbers in each line and that the numbers are separated by commas. To define more than one character, use the total number of characters you are defining instead of the 1 in line 100. (You can define as many as six characters at a time. Just run the first program several times and enter all the DATA numbers in this program.) Running the program When you run this second program, it prints six characters, then re-defines some or all of them and prints them again, as in the example below. 66

  • 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
  • 123
  • 124
  • 125
  • 126
  • 127
  • 128
  • 129
  • 130
  • 131
  • 132
  • 133
  • 134
  • 135
  • 136
  • 137
  • 138
  • 139
  • 140
  • 141
  • 142
  • 143
  • 144
  • 145
  • 146
  • 147
  • 148
  • 149
  • 150
  • 151
  • 152
  • 153
  • 154
  • 155
  • 156
  • 157
  • 158

90
FOR
P=58
TO
63:
LPRINT
CHR$(P);:
NEXT
P
100
K=l:
IF
K>3
THEN
A=58
ELSE
A=60
110
LPRINT
CHR$(27)":"CHR$(0)CHR$(B)CHR$(PI);
120
LPRINT
CHR$(27)"%"CHR$(l)CHR$(O);
130
LPRINT
CHR$(27)"&"CHR$(O)CHR$OCHR$(A-1tK);
140
FOR
Z=l
TO
K
150
LPRINT
CHR$(128);
160
FOR
X=1
TO
9
170
READ
R
180
LPRINT
CHR$(R);:
NEXT
X
190
LPRINT
CHR$(O)CHR$(O);
200
NEXT
Z
210
DATA
130,68,170,16,130,0,130,0,198
290
FOR
P=58
TO
63:
LPRINT
CHR$(P);:
NEXT
P
300
SYSTEM
To use this program for your own character or characters, change
the DATA numbers in line 210 by substituting the numbers gener-
ated by the first program when you created your own character. If
you have created more than one character, put the DATA numbers
for each character on a separate line as you see in the example below:
210
DATA
112,8,0,138,116,138,0,8,112
220
DATA
58,68,2,128,0,128,2,68,58
Check your work by making sure that there are nine numbers in
each line and that the numbers are separated by commas.
To define more than one character, use the total number of charac-
ters you are defining instead of the 1 in line 100. (You can define as
many as six characters at a time. Just run the first program several
times and enter all the DATA numbers in this program.)
Running the program
When you run this second program, it prints six characters, then
re-defines some or all of them and prints them again, as in the exam-
ple below.
66