Toshiba HX-10 Owner's Manual page 35

(3) Colouring
Тһе following program example раіпі ап
аегоріапе on the screen with qifferent colours.
To stop program execution, simultaneously
press and stor | keys.
16 SCREEN 2 Places the screen іп Graphic mode.
20 DIM Α(3β) ,Βί30θ),0(309)
38 LINE(20,10)-(245,180),15,BF Draws the frame
40 FOR G=1 TO 30 Specifies the location and size of the
50 A=RND(1) :A(G)=A>215+20 circles.
60 B=RND(1):B(G)=B*150+28
78 C=RND(1):C(G)=CX5+1
80 NEXT 6
98 FOR G=1 TO 30 Draws the circles.
100 D=RND(1):D=D*15
118 CIRCLECA(G),B(G))>,C(G)>,D
120 PAINT (ACG) ,B(G)),D
138 NEXT G
148 E=RND(1):E=INT(E*15)
170 LINE(138,98)-(128,108),E
189 (.1ІМЕ(100,1002-(90,1102,Е
198 LINEC180,118>)-(98,118),E
200 LINE(107,11Ø)-(107,113),E
210 PAINT(99,1@5),E
220 PAINT(125,98),E
238 CIRCLE(1@7,115),2,€
240 СІБСІЕ(110,1002,5,Е,0,3.14
250 LINE(105,108)-(115,100),E
260 PAINT(118,98),E
276 FOR G=1 TO 500:МЕХТ G
288 GOTO 98