10 REM Drawing circle
20 MODE 2
30 |DEG
40 n=0:x=1:y=2:radio=3:despx=4:despy=5 ' Indexes of real values
50 |CREAL,radio,150:|CREAL,despx,320:|CREAL,despy,200
60 FOR i=0 TO 359
70 |CREAL,n,i
80 |SIN,x,n:|MUL,x,x,radio:|ADD,x,x,despx:|CINT,@px,x ' px=sin(i)*100+320
90 |COS,y,n:|MUL,y,y,radio:|ADD,y,y,despy:|CINT,@py,y ' py=cos(i)*100+200
100 PLOT px,py
110 NEXT
