DIM A, B, T, M, R AS INTEGER A=-20: B=20 M=A: R=F(A) FOR T=A TO B IF F(T)< R THEN M=T R=F(T) END IF NEXT T PRINT M