Filter
Top Products
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