DECLARE SUB SLEEPA (T!)
DECLARE SUB FRAME1 (A!, B!)
SCREEN 12
CLS
FOR I = 320 TO 20 STEP -2
FRAME1 I, 4
SLEEPA .01
FRAME1 I, 0
NEXT

SUB FRAME1 (A, B)
CIRCLE (A, 240), 65, B
END SUB

SUB SLEEPA (T)
A = TIMER + T
9 IF TIMER > A THEN GOTO 10 ELSE GOTO 9
10 END SUB