! erfile.tes - macro to accept a filespec and open for read ! !erfile.tec! 13:@EI%gettext%"F 0F> ' ! iif no text take failure exit ! ^YX* ! place the input data into the filespec buffer ! :::@ER%%"S -1F> ' ! iif open take success exit ! @I% - File not found.% ! display error message ! W ! refresh screen ! ^T$ ! wait for keystroke ! ^S-(:Q*)D ! delete message and filespec ! F< ! try again !