.enable substitution
.sets me <filspc>
;
; I am "'me'".
;		I create an empty RMS (indexed usually) file, with
;		the same "shape" as an existing RMS file.
;
.goto go1
.retry1:
; (You may strike ^Z to quit now.)
;
.go1:
.asks	infil	What is the (existing) indexed file you want to imitate
.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 ...cnv ins $rmscnv
cnv 'outfil'/ca:'infil'/pd:" "/tr=nl:
