Filter
Top Products
First definition program
The next few sections explain the steps used to create the symbol for
Mercury. The figure below
shows
the grid used to design the character.
123456789
Once you
have
drawn your dots
on
the grid, type the following BASIC
program.
l00 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 GOT0 130
160 LPRINT CHR$(27)
":"CHR$(0)CHR$(0)CHR$(0);
170 LPRINT CHR$(27)"%
n
CHR$(1)CH$(0);
180 LPRINT CHR$(27)"&"CHR$(0)CHR$(60)CHR$(60);
190 LPRINT CHR$(128);
200 LPRINT CHR$(27)"x0";
210
FOR X=1 TO 9
220 LPRINT CHR$(F(X));:NEXT X
230 LPRINT CHR$(0)CHR$(0);
240 LPRINT "YOUR CHARACTER IN 10 CPI: < < <"
250 LPRINT "IN DOUBLE-WIDE EMPHASIZED 10 CPI: ";
260 LPRINT CHR$(27)"!*< < <"
270 LPRINT CHR$(27)"!"CHR$(0)"IN NLQ:";
280 LPRINT CHR$(27)"xl< < <"
290 LPRINT CHR$(27)
"!"CHR$(0) "YOUR DATA NUMBERS:"
300 FOR K=l
TO
9:
LPRINT F(K);: NEXT
K
310 LPRINT: END
4-22
Using Software and Graphics