.enable substitution
.sets me <filspc>
;
; I am "'me'".
;		I untangle an indexed (RMS) file into a new text file,
;		which can be edited by EDT.
;
.goto go1
.retry1:
; (You may strike ^Z to quit now.)
;
.go1:
.asks	infil	What is the indexed file you want to dump
.if <strlen> = 0 .exit <severe>
.testfile 'infil'
.sets filnam <filspc>
@[1,2]ballsup/lo ; Find file -'filnam'-
.if <exstat> <> <succes> .goto retry1
.;.ok1:
.retry2:
.asks	outfil	What is the text file you want to create
.ok2:
.ifnins ...atr ins $atr/task=...atr
.ifnins ...cnv ins $rmscnv
cnv 'outfil'/ca:'me'='infil'
