#
NUMBER d
FOR d FROM 1 UPTO ndocs
DO
WITH Doc PATH REP.Document
WHERE PAR(1) = docs[d]
IF compare_characters (Doc.DocType; "MODELDOC") = 0
THEN
@(Doc.Name)
FI
OD
END