0 REM  ELLIPSE-DEMO
10 (null)1:(null):(null)1:(null)1:(null):(null)1:(null)1,0:POKE53280,0
20 (null)160,100,99,99,0,0,234,3.1
30 FORI=0TO5000:NEXT
40 (null)
50 (null)160,100,99,99,-.34,0,260,2.1
60 FORI=0TO5000:NEXT
70 (null)
80 FORK=0TO(null)STEP(null)/11:(null)160,100,99,50,K,0,2*(null),(null)/30:NEXT
90 FORI=0TO5000:NEXT
100 (null)
110 FORK=0TO2*(null)-.1STEP(null)/10:(null)160,100,99,99,K,0,2*(null)+.1,2/3*(null):NEXT
120 FORI=0TO5000:NEXT
130 (null)0