Programa 5 - Dibujar un circulo con relleno

De nuevo un sencillo código que dibuja un circulo, con líneas de radio, por lo que tiene "relleno".

Código BASIC

10 CLS
20 DEG
30 FOR a = 1 TO 360
40 MOVE 320,200
50 DRAW 320+190*COS(a),200+190*SIN(a)
60 NEXT