/*
   $VER: DSVisageSlide.dsrx 1.0 (8.3.00) Copyright (c) Nils Görs.
*/

Visage = "s:Visage.bat"		/* Visage.bat is a frontend with several Visage settings i prefer */
OutPut = "t:DS_VisageSlide."	/* the PortName from DirScanner will be added after the dot. */

options results

PARSE ARG DSPort
IF DSPort = "" THEN DSPort = DIRSCANNER.1
address value DSPort

unique=TIME('s')
Catalog = output||unique||"."||DSPort

SET LOCKGUI 1
GET MATCH_AMM
amount = result
GET MATCH_CURS
curpos = result

open(outfile,catalog,'W')

SET MATCH_CURS 0

DO i = 0 TO amount -1
	GET MATCH_FILE i
	writeln(outfile,result)
END
close(outfile)

ADDRESS COMMAND Visage "LIST" Catalog
ADDRESS COMMAND "Delete >NIL:" Catalog
SET LOCKGUI 0