' CIRCMOVE.BAS
' This program "moves" a circle across the screen.

CONST DELAY% = 50

SCREEN 1               ' change this value as needed for your adapter

CIRCLE (20, 100), 20

FOR i% = 21 TO 299     ' assumes 320 x 200 resolution
    CIRCLE (i% - 1, 100), 20, 0     ' erase previous circle
    CIRCLE (i%, 100), 20            ' draw new circle
   
    FOR j% = 1 TO DELAY%            ' delay loop
    NEXT j%

NEXT i%

