home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 509.lha / ATS_v2.0 / pltcvt.icn < prev    next >
Encoding:
Text File  |  1991-05-07  |  213 b   |  12 lines
  1. procedure main()
  2.  
  3. while (s:=read()) do {
  4.     while(s ? (a := tab(find("e-")) &
  5.             b := tab(match("e-")) &
  6.             c := tab(many('0123456789')) &
  7.             d := tab(0))) do
  8.         s := a || "*10^(-" || c || ")" || d
  9.     write(s);
  10.     }
  11. end
  12.