Нарисовать затмение солнца - QBasic

Формулировка задачи:

привет,ребят помогите! нужно нарисовать в QBasic затмение солнца::изобразить на экране небо, солнце и медленно надвигающуюся на неё луну, затем медленное открытие диска солнца.

Решение задачи: «Нарисовать затмение солнца»

textual
                            Листинг программы 
                        
 
                        
                          
                    
SCREEN 9, 1, 0, 1
screendata=1
col=3
x=200
STIme=TIMER
DO WHILE INKEY$=""
  DTime=TIMER-STime
  IF DTime>.02 THEN
    STime=TIMER
    x=x+1
    IF ab(320-x)<25 THEN col=0 ELSE col=3
    lne(0,0)-(639, 349), col, BF
    FOR i=0 TO 50
      CIRCLE(320, 175), i, 6, 0, 6.28, 1
    NEXT i
    FOR i=0 TO 50
      CIRCLE(x, 175), i, 1, 0, 6.28, 1
    NEXT i
    SCREEN 9, 1, 1-screendata, screendata
    screendata=1-screendata
    CLS
  END IF
LOOP
END