A SERVICE OF

logo

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