0 REM BBC TELESOFTWARE TEST 2
 10 *KEY0 "MODE7 ||M VDU14 ||M LIST ||M"
 20 MODE 1
 30 DIM X(10)
 40 DIM Y(10)
 50 FOR C=1 TO 25
 60 xorigin=RND(1200)
 70 yorigin=RND(1000)
 80 radius=RND(300)
 90 sides=RND(8)+2
100 GCOL 0,0
110 VDU29,xorigin;yorigin;
130 MOVE radius,0
140 FOR SIDE=1 TO sides
150 angle=(SIDE-1)*2*PI/sides
160 X(SIDE)=radius*COS(angle)
170 Y(SIDE)=radius*SIN(angle)
180 MOVE 0,0
190 PLOT 85,X(SIDE),Y(SIDE)
200 NEXT SIDE
210 MOVE 0,0
220 PLOT 85,radius,0
240 GCOL 0,RND(3)
250 FOR SIDE=1 TO sides
260 FOR line=SIDE TO sides
270 MOVE X(SIDE),Y(SIDE)
280 DRAW X(line),Y(line)
290 NEXT line
300 NEXT SIDE
310 NEXT C
320 END
RUN