/*
	PerfectPaint Script
	Make text Preview
*/

name="ram:script"
path='perfectpaint:rexx/text'
	
ADDRESS COMMAND 'List >'||name||' '||path||' PAT=#?.rx NOHEAD LFORMAT="%s"'
ADDRESS COMMAND 'Sort 'name' 'name'.s'

i=0
IF OPEN('listfile',name'.s') THEN DO
	DO FOREVER
		fline = READLN('listfile')
		IF EOF('listfile') THEN BREAK
		i=i+1
		nom.i=fline
	END
	CALL CLOSE('listfile')
END

file='T:HELP.guide'
CALL OPEN(out,file,write)

CALL WRITELN(out,"@DATABASE HELP.guide")
CALL WRITELN(out,'@NODE "Main" "Help"')
CALL WRITELN(out,' ')
CALL WRITELN(out,'   @{B}Select a script@{UB}')
CALL WRITELN(out,' ')
CALL WRITELN(out,"__________________________________________________________________________")
CALL WRITELN(out,"@{FG SHINE}ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ@{FG TEXT}")
do j=1 to i
	data2= LEFT(nom.j, LENGTH(nom.j) - 3)||'.iff'
	data='@{" '||nom.j||' "  link "perfectpaint:rexx/text/preview/'||data2||'/Main" 0}'
	CALL WRITELN(out,data)
end
CALL WRITELN(out,"__________________________________________________________________________")
CALL WRITELN(out,"@{FG SHINE}ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ@{FG TEXT}")

CALL WRITELN(out,"@ENDNODE")

CALL CLOSE(out)

ADDRESS COMMAND	'delete >nil: ram:script'
ADDRESS COMMAND	'delete >nil: ram:script.s'