Table of Contents
Advertisement
Colouring
(3)
following
program example paints
The
the screen
aeroplane
on
To
stop program execution, simultaneously
stoe
2
1e
SCREEN
A(38)
20
DIM
LINE(28,18)-(245,188) 15,BF
36
40
FOR G=1
sa
1)
A=RND(
B=RND(1):B(G)=Bx158+2a
<a
7a
C=RND(1):C(G)=Cx5+1
8e
NEXT
G
78
FOR G=1
108
D=RND(
CIRCLE(A(G)
118
120
PAINT
NEXT
1386
G
140
E=RNDC
LINE(188,188)-(136,118),E,BF
158
LINE(138,1880)-(1380,90),E
168
LINE(138,98)-(126,188),E
178
LINE(1898,108)-(98,119),E
188
LINE(188,118)-(98,
198
LINE(1987,118)-(187,113),E
200
218
PAINT(99,
220
PAINT(125,98)
CIRCLE(167,115),2,E
238
CIRCLE(118,188),5,E,0,3.14
240
LINE(185,188)-(115,180@),E
256
PAINT(118,98),E
268
278
G=i
FOR
280
98
GOTO
an
different colours.
with
keys.
,B(38) ,C(38)
36
TO
1A(G)=Ax215+426
38
TO
1) :D=Dx15
,B(6)) ,C(6),D
,B(6)),D
(A(G)
:E=INT(Ex15)
1)
118>,E
i@65),E
,E
S88:NEXT
TO
Places
Draws the frame
Draws
G
the
screen
in
Graphic mode.
the
location
and
Specifies
circles.
the
aeroplane.
size
of
the
Advertisement
Table of Contents
