Programa 9 - Dibujar un círculo - AMSTRAD

Código para dibujar un sencillo círculo por pantalla

Código BASIC

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