;Version 3.00
;FLAG!.PPE - Flag all files on screen

Byte line
String file,cmd

ScrFile line,file
While (line<>0) do
	cmd = cmd+","+file
	Inc line
	ScrFile line,file
EndWhile
cmd = LTrim(cmd,",")+";"
KeyFlush
KbdStuff "001"+cmd

;Commands to PASS to FLAG+ (IMPORTANT!)
;     Passed by use of the KbdStuff command.
;
;#1 = Redraw (0=FALSE, 1=TRUE)
;#2 = Reprint prompt (0=FALSE, 1=TRUE)
;#3 = Modify flagged files (0=FALSE, 1=FLAG, 2=UNFLAG, 3=TOGGLE)
;     Command format: (status)FILE1.EXT,FILE2.EXT;
;                      ^(1-3)  ^(file) ^(comma)  ^(semi colon)
;     #3 = 0, leave no further arguments
;#4 = (optional) stack key input (KEYS to stack)
;
;REMEMEBER; Commands passed to FLAG+ must be <=255 characters in length!