home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / clipper / debug / prg_help / help.prg < prev    next >
Encoding:
Text File  |  1987-04-07  |  936 b   |  35 lines
  1. ************************************************************************
  2. *                HELP.PRG                                              *
  3. *           This is where you would write your help routines.          *
  4. *   The REPEAT variable is to prevent recurrsive calls of this module  *
  5. ************************************************************************
  6. parameters call_prg,Line_num,input_var
  7. A = "HELP"
  8. set console on
  9. if repeat
  10.    repeat = .F.
  11.    return
  12. else
  13.    repeat = .T.
  14.    save screen to help
  15.        
  16.    do case
  17.    case help_code = "00"
  18.         do hlp_mes with "YOU HAVE TO PLACE YOUR OWN HELP MESSAGE HERE"
  19.  
  20.    case help_code = "01"
  21.       select 2
  22.       use done
  23.       do follow
  24.       select 1
  25.  
  26.     case help_code = "02"
  27.        do hlp_mes 
  28.    endcase
  29.    repeat = .F.
  30.    @ 0,0 clear
  31.     restore screen from help
  32.    return
  33. endif
  34. *******************************HELP.PRG**********************************
  35.