* Program   : HELP.PRG
* Version   : V4.2
* Author(s) : Joe Tomas 
* Date      : 07/31/86
* Notice    : 
* Called by : VARIOUS .PRG FILES
* Call(s)   :   
* Notes     : ONSCREEN HELP PROGRAM
*           : 
PARAMETERS KEY
CLEAR
call paint with "help.img"
USE HELP INDEX HELP
FIND &KEY
STORE TRIM(FUNCTION) TO TITLE
SET COLOR TO +
@ 01,20 SAY TRIM(TITLE)
@ 01,70 SAY TRIM(PAGE)
SET COLOR TO
@ 05,06 SAY T1
@ 06,06 SAY T2
@ 07,06 SAY T3
@ 08,06 SAY T4
@ 09,06 SAY T5

DO WHILE INKEY() = 0
   SET COLOR TO I
   @ 22,28 SAY ' PRESS ANY KEY TO EXIT '
   SET COLOR TO +I
   @ 22,28 SAY ' PRESS ANY KEY TO EXIT '
ENDDO
SET COLOR TO
USE
CLEAR
SET INTENSITY ON
RETURN