5 '"Ползущий" эллипс
10 COLOR 1,15,8:SCREEN2
20 PSET(0,95):FOR K=1 TO 25:CIRCLE STEP(10,0),50,4,,,.5:CIRCLE STEP(0,0),50,15,,,.5:NEXT:GOTO20