MODE 20 REM Graphics screen mode ( this one seems nice)
GCOL 1
OFF REM we are not typing anything (get rid of that cursor!!)
(thebegining)
CLS
c=RND(15) REM get a random color between 0 and 15
GCOL c
r=RND(100)+100 REM get a random location and store in r
LINE r,100,640,800
MOVE 500,500 REM locate the next draw to 500,500
GCOL c
PLOT 145,r, 150 REM draw a circle (why is it PLOT? LOL)
REM I could just not use PLOT and use ELLIPSE for everything.. ( I guess)
ELLIPSE 200,300,r,50
GOTO (thebegining)
GCOL 1 :REM We are going to use logical colour 1 for our drawing
FOR x%=0 TO 255
COLOUR 1,x%,255-x%,127 :REM Here we redefine the (physical) colour of (logical) colour 1, as an RGB triad.
CIRCLE FILL 100+x%*3,200,100 :REM Note that only things drawn after the redefinition have the new colour
NEXT x%