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 >
Wrap
Text File
|
1991-05-06
|
213b
|
12 lines
procedure main()
while (s:=read()) do {
while(s ? (a := tab(find("e-")) &
b := tab(match("e-")) &
c := tab(many('0123456789')) &
d := tab(0))) do
s := a || "*10^(-" || c || ")" || d
write(s);
}
end