10 WIDTH 80,25
30 DEFFNX(X)=X*PX:DEFFNY(Y)=Y*PY
40 CONSOLE0,25,0,1:COLOR7,0,1:PRINTCHR$(12)
50 C=220:D=150
70 PX=160/C:PY=100/D
100 GOSUB 160
110 GOSUB 400
140 GOTO 140
150 END
160 '
170 READ CL,Y0,X0,Y,X
180 LINE(FNX(X0),FNY(Y0))-(FNX(X),FNY(Y)),PSET,CL
190 X0=X:Y0=Y:READ Y,X
200 IF X<0 AND Y<0 THEN GOTO 170
210 IF X<=500 OR Y<=500 THEN GOTO 180
240 RETURN
400 '-- circle sub --
401 CX=16:W=2*3.14/CX
403 DIM RX(CX-1),RY(CX-1)
405 FOR T=0 TO (CX-1)
407  WT=W*(T+1):RX(T)=COS(WT):RY(T)=SIN(WT)
409 NEXT T
410 READ X,Y,CL,R,H
420 IF (X<1)+(Y<1) THEN 450
430 X0=FNX(X+R*H):Y0=FNY(Y)
431 FOR T=0 TO (CX-1)
433  X1=FNX(X+R*RX(T)*H):Y1=FNY(Y+R*RY(T))
435  LINE(X0,Y0)-(X1,Y1),PSET,CL
437  X0=X1:Y0=Y1
439 NEXT T
440 GOTO 410
450 RETURN