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%