1 CURSOR 0

10 COLOR 14,15: CLS

20 FOR I=0 TO 16

30 C=I

100 RECTANGLE C,C,50,8*I,80,8*I+6,1

110 RECTANGLE C,-1,90,8*I,120,8*I+6,1

120 RECTANGLE C,C+1,270,8*I,310,8*I+6,1

140 ELIPSE C,150,8*I+3,16,6,-1

150 LINE C,180, 8*I,210,8*I+6,1

160 LINE C,220, 8*I+6,250,8*I,4

170 D=GET(285,8*I+3)

180 POINT D,330,8*I+3

190 ELIPSE C,350,8*I+3,16,6,C+1

195 PRINT C

200 NEXT I

210 COLOR 14,15

220 AT 1,18

230 TONE 880,20

240 INKEY

260 COLOR 6,15: CLS

270 FOR I=1 TO 200

280 C=RND(15)

290 W=RND(40,200):H=RND(10,50)

300 X=RND(440): Y=RND(150)

310 RECTANGLE C,C,X,Y,X+W,Y+H,1

315 DELAY(1)

320 NEXT I

330 INKEY: CLS

340 FOR I=1 TO 100

345 C=RND(15)

350 ELIPSE C,RND(20,620),RND(10,190),RND(40,200),RND(10,50),C

355 DELAY(1/2)

360 NEXT I

490 INKEY: CLS

500 FOR I=0 TO 10

510 LINE 6,I*64,0,I*64,200,1

515 DELAY(1)

520 LINE 6,0,I*20,640,I*20,1

530 NEXT I

540 RECTANGLE 6,-1,2,2,637,197,5

590 V=320+COS(25)/4: W=100

600 FOR I=0 TO 360

610 X=320+1000*COS(2*I+25)/4: Y=100+1000*SIN(3*I)/12

630 LINE 9,X,Y,V,W,1

640 V=X: W=Y

650 DELAY(1)

660 NEXT I

670 INKEY: CURSOR 1: END