/* $VER: SaveClipAs.ttx 1.0 (20.02.93) */

OPTIONS RESULTS

GetFilePath
DirName = RESULT
Index = LastPos( '/', DirName )

IF Index = 0 THEN Index = Index( DirName, ":" )
IF Index ~= 0 THEN DirName = Left( DirName, Index )
ELSE DirName = ""

FileName = rtFileRequest( DirName, , "Select file to save as clip", "_Save", "RTFI_Flags=FREQF_PatGad|FREQF_Save RT_PubScrName=TURBOTEXT" )

IF rtResult = 1 THEN SaveClip NOBACKUP FileName

CALL rtFreeFileBuffer