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