Prosedur Bantuan

*********
PROC HELP
*********
PRIVATE LAYHELP,WARNA
SAVE SCRE TO LAYHELP
WARNA=SETCOLOR()

IF !FILE('HELP.TXT')
SET PRINTER TO HELP.TXT
do help
ENDIF
LIHATFILE('HELP.TXT')

REST SCRE FROM LAYHELP
SETCOLOR(WARNA)
RETURN
*-----