new


10 cls
20 color0,1,2,4
30 fora=5to105
40 forb=2to77
50 c=a*2/b*2
60 plota,b,c
70 next:next
80 goto10


