zatmenie.BAS

{* Затмение *}

REM basic

' Затмение


SCREEN 9
CLS
For x = 120 To 480
CIRCLE (300, 150), 90, 15
PAINT (300, 150), 15
CIRCLE (x, 150), 90, 0
PAINT (x, 150), 0
For t = 1 To 10000
Next t
Next x