* Get comment from first line, make it a 4DOS description
ARG '(' A
FT=FTYPE.1()
IF FT='BAS' THEN COM="'"
ELSE IF FT='KEX' THEN COM="*"
ELSE IF FT='R' THEN COM="/"
ELSE IF FT='BAT' | FT='BTM' THEN COM=':'
ELSE CALL ERR 'Unknown filetype:' FT

':1'
L=CURLINE.3()
IF SUBSTR(L,1,1)<>COM THEN DO
   SAY 'No comment in first line'
   IF A<>'' THEN 'QUIT'
   EXIT 1
END
L='"'STRIP(DELSTR(L,1,1))'"'
SAY 'Described as' L
'DOSQUIET IF "%@DESCRIPT['FILEID.1()'"]=="" DESCRIBE' FILEID.1() L
IF A<>'' THEN 'QUIT'
EXIT

ERR: PROCEDURE
'ALERT' DELIMIT(ARG(1))
EXIT