DIM IMG(1 TO 600)           'DEFINE VARIBLE FOR IMAGE
SCREEN 12                   'CHANGE SCREEN MODE
FOR I = 1 TO 30 STEP .1     'FOR..NEXT LOOP FOR FILLED CIRCLE
CIRCLE (30, 30), I, I / 2   'THE CIRCLE PART OF THE LOOP
NEXT I                      'END OF LOOP THAT TELLS IT TO LOOP
x% = 61                     'TELLS WHERE THE X POSITION TO END LOADING IMAGE
y% = 60                     'TELLS WHERE THE Y POSITION TO END LOADING IMAGE
GET (0, 0)-(x%, y%), IMG    'GET CIRCLE FROM SCREEN FOR FASTER DRAWING
CLS                         'CLEARS SCREEN
FOR DRW = 480 TO 0 STEP -1  'FOR..NEXT LOOP FOR MOVING CIRCLE
PUT (DRW, 100), IMG, PSET   'PUTS THE CIRCLE AT Y POS 100 AND VARIBLE X POS
                            'OF "DRW" AND PSET TELLS IT TO ERASE WHATS ON THE
                            'SCREEN
NEXT DRW                    'END OF LOOP AND TELLS IT TO LOOP BACK UP

SUB SLEEPA (T)
TT = TIMER + T
1 IF TIMER >= TT THEN EXIT SUB ELSE GOTO 1
END SUB