Epson LX-80 User Manual - Page 67

First definition program, Appendix F.

Page 67 highlights

When you place your dots on this grid, remember that dots cannot go on horizontal lines, but they can go on vertical lines so long as they do not overlap any other dots. As you design your characters, draw the dots as large as you see them in the example on the left in Figure 8-2. If you draw them smaller, you may have overlapping dots without realizing it. .overlapping dots dot on horizontal line I Figure 8-2. Correct and incorrect designs If you do accidentally call for overlapping dots, don't worry. The program will still work, but only one of the dots will be printed. First definition program Once you. have drawn your dots on the grid, type in the following BASIC program and run it. If you are using Applesoft BASIC, see Appendix F. 100 DIM F(9) 110 FOR I=1 TO 9 120 PRINT "WHICH ROWS HAVE DOTS IN COLUMN";1 130 INPUT R: IF R=0 THEN 150 140 F(I)=F(I)+2-(R-1) 150 IF R=0 THEN NEXT I ELSE GOT0 130 160 LPRINT CHR$(27)":"CHR$(O)CHR$(O)CHR$(O); 170 LPRINT CHR$(27)"%"CHR$(l)CHR$(0); 180 LPRINT CHR$(27)"&"CHR$(O)"

  • 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

When you place your dots on this grid, remember that dots cannot
go on horizontal lines, but they can go on vertical lines so long as they
do not overlap any other dots. As you design your characters, draw
the dots as large as you see them in the example on the left in Figure
8-2. If you draw them smaller, you may have overlapping dots with-
out
realizing it.
.overlapping dots
dot on horizontal line
I
Figure 8-2. Correct and incorrect designs
If you do accidentally call for overlapping dots, don’t worry. The
program will still work, but only one of the dots will be printed.
First definition program
Once you. have drawn your dots on the grid, type in the following
BASIC program and run it. If you are using Applesoft BASIC, see
Appendix F.
100
DIM
F(9)
110
FOR
I=1
TO
9
120
PRINT
"WHICH
ROWS
HAVE
DOTS
IN
COLUMN";1
130
INPUT
R:
IF
R=0
THEN
150
140
F(I)=F(I)+2-(R-1)
150
IF
R=0
THEN
NEXT
I
ELSE
GOT0
130
160
LPRINT
CHR$(27)":"CHR$(O)CHR$(O)CHR$(O);
170
LPRINT
CHR$(27)"%"CHR$(l)CHR$(0);
180
LPRINT
CHR$(27)"&"CHR$(O)"<<";
190
LPRINT
CHR$(128);
200
FOR
X=1
TO
9
210
LPRINT
CHR$(F(X));:
NEXT
X
220
LPRINT
CHR$(B)CHR$(O);
230
LPRINT
"YOUR
CHARACTER
IN
PICA:
<
<
<"
240
LPRINT
"IN
EXPANDED
EMPHASIZED
PICA:
";
250
LPRINT
CHR$(27)"!*<
<
<"
260
LPRINT
CHR$(27)"!"CHR$(B)"YOUR
DATA
NUMBERS:"
270
FOR
K=l
TO
9:
LPRINT
F(K);:
NEXT
K
300
END
63