npub1k6…49kqc on Nostr: #bbcmicrobot MODE 2 COLOUR 0 COLOUR 135 CLS X=248:DX=200 Y=548: DY=-200 R=180 FOR N=0 ...

#bbcmicrobot
MODE 2
COLOUR 0
COLOUR 135
CLS
X=248:DX=200
Y=548: DY=-200
R=180
FOR N=0 TO 4
READ I
GCOL 0,I
PROCCIRCLE(X, Y, R)
X=X+DX
Y=Y+DY
DY=-DY
NEXT

PRINT "Not endorsed by the IOC"
END

DATA 4,3,0,2,1

DEF PROCCIRCLE(X,Y,R)
MOVE X,Y+R
TAU=2*PI+0.1
FOR T = 0 TO TAU STEP 0.1
DRAW X+(R*SIN(T)),Y+(R*COS(T))
NEXT
ENDPROC