Epson LX-90 User Manual download pdf (Page 41)

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)+2A(R-1)

150 IF R=0 THEN NEXT I ELSE GOT0 130

160 LPRINT CHR$(27)":"

CHR$(0)CHR$(0)CHR$(0);

170 LPRINT CHR$(27)"%"CHR$(1)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$(0)CHR$(0);

230 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=1 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.

123456789

Figure

7-4.

Design for character

1 2 ... 36 37 38 39 40 41 42 43 44 45 46 ... 99 100

No comments

Epson LX-90 User Manual Page 41