10 cls
11 line 0,28,120,28,1
12 line 60,0,60,31,1
15 x=-60
20 y=x * x / 100
30 pset x+60,28-y,1
40 x=x+1
50 if x<60 then goto 20
