lcFile = FORCEEXT(SYS(16),'prg')
lnRows = APROCINFO(laproc,lcFile)

lcProcedures = ""
FOR i = 1 TO lnRows
	IF LOWER(laproc[i,3]) = 'procedure'
		lcProcedures = lcProcedures + laproc[i,1] + CHR(13) + CHR(10)
	ENDIF
ENDFOR
MESSAGEBOX(lcProcedures)

PROCEDURE test1

ENDPROC && test1


PROCEDURE test2

ENDPROC && test2

PROCEDURE test31

ENDPROC && test31