home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / pocketbk / developmen / oplexamp / E12R.OPL < prev    next >
Text File  |  1994-03-30  |  384b  |  21 lines
  1.  
  2. PROC RE12calc:
  3. LOCAL counter,mult,E(12)
  4. E(1)=1.2 :E(2)=1.5 :E(3)=1.8 :E(4)=2.2
  5. E(5)=2.7 :E(6)=3.3 :E(7)=3.9 :E(8)=4.7
  6. E(9)=5.6 :E(10)=6.8 :E(11)=8.2 :E(12)=10
  7.  
  8. counter=1
  9. mult=10**(INT(LOG(Res)/LOG(10)))
  10. low=mult
  11. Loop::
  12. hi=mult*E(counter)
  13.        IF hi>Res
  14.          GOTO Done
  15.        ENDIF
  16. counter=counter+1
  17. low=hi
  18. GOTO Loop
  19. Done::
  20. ENDP  
  21.