8-Bit Software Online Conversion

:0.$.Circle - Listing

10N=6 20X=600 30Y=400 40R=300 50T=0 60DP=PI/N 70DT=2*DP 80MODE5 90MOVEX+R,Y 100FOR I%=0 TO N 110DRAW X+R*COS(T),Y+R*SIN(T) 120T=T+DT 130NEXT I%