dim a1 as long ,a2 as long ,b1 as long,b2 as long
dim c1 as long,c2 as long ,c as long
dim i as long,j as long
c1=20
c2=0
for i=1 to 10
for j=1 to 10
c=2*a-b
if c<c1 then
c1=c
a1=i
b1=j
end if
if c>c2 then
c2=c
a2=i
b2=j
end if
next j ,j
? "Max C =";c1;":A=" ; a1 ;"B=" ;b1
? "Min C =";c2;":A=" ; a2 ;"B=" ;b2