User's Manual
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.
I
123456789
Once you have drawn your dots on the grid, type the following BASIC
program.
l!$i3
DIM F(9)
110
FOR
I=1
TO 9
120
PRINT "WHICH ROWS HAVE DOTS IN
COLUMN";1
130
INPUT R: IF
R=@
THEN
150
140
F(I)=F(I)+2"(R-1)
150
IF
R=jJ
THEN NEXT I ELSE GOT0
130
160
LPRINT
CHR$(27)
":"CHR$(0)CHR$(0)CHR$(0);
170
LPRINT
CHR$(27)~%nCHR$(1)cH$(0);
180
LPRINT
CHR$(27)"&"CHR$(@)CHR$(60)CHR$(60);
190
LPRINT
CHR$(128);
200
LPRINT
CHR$(27)"x$v';
210
FOR
X=1
TO 9
220
LPRINT CHR$(F(X));:NEXT X
230
LPRI
NT
CHR$(~)CHR$(~);
240
LPRINT "YOUR CHARACTER IN
10
CPI:
(
(
("
250
L
P
RINT
"
IN
D
OUB
LE-
WI
DE E
M
PH
A
SIZED
10
CPI:
'1;
260
LPRINT
CHR$(27)"!*(
(
("
270
LPRINT
CHR$(27)"!"CHR$(@)"IN
NLQ:";
280
LPRINT
CHR$(27)"xl(
(
("
290
LPRINT
CHR$(27)
"!"CHR$(rjl)
"YOUR DATA NUMBERS:"
300
FOR
~=l
TO
9:
L
PR
INT F
(
K
);:
N
EXT
K
310
L
P
RINT
: E
ND
4-22
Using Software and Graphics