systemroutinespec  etoi(integer  ad,len)
externalintegerfnspec  rdfilead(string (255) s)
externalroutinespec  prompt(string (255) s)
externalroutinespec  define(string (255) s)
externalroutinespec  clear(string (255) s)
system  routine  spec  move(integer  len, from, to)
externalroutinespec  ucstrg(stringname  s)

record  format  srcf(integer  nextfreebyte, txtrelst, maxlen, zero)

externalroutine  econvert(string (255) s)
record (srcf)name  h
integer  fad, pt, ad
string (63) file, out
byteintegerarray  aa(0:80)
stringname  ss

   ad=addr(aa(1))
   ss==string(addr(aa(0)))
   fad=rdfilead(s)
   return  if  fad=0
   h==record(fad)

   prompt("Output file: ")
   ucstrg(out)
   define("9,".out)
   selectoutput(9)
   pt=h_txtrelst
   while  pt<h_nextfreebyte cycle 
      move(80, fad+pt, ad)
      etoi(ad, 80)
      aa(0)=80
      length(ss)=length(ss)-1 while  length(ss)>0 and  charno(ss,length(ss))=' '
      ss=ss.tostring(nl)
      printstring(ss)
      pt=pt+80
   repeat 
end  {econvert}
endoffile