home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / s / s9302.zip / RUBEL.ZIP / HP_POP.PRG next >
Text File  |  1993-01-06  |  423b  |  21 lines
  1. PROCEDURE hp_pop
  2.  
  3. IF found()            &&  if help record found
  4.   junk = memo_pop(ul_row,ul_col,lr_row,;
  5.                   lr_col,'help_mess')
  6. ELSE
  7.   ?? chr(7)
  8.   DEFINE WINDOW no_got FROM 10,17 ;
  9.                        TO 14,62 DOUBLE
  10.   ACTIVATE WINDOW no_got
  11.   @ 01,02 SAY 'No help is available for '+;
  12.               'this situation.'
  13.   junk = inkey(3)
  14.   RELEASE WINDOW no_got
  15. ENDIF
  16.  
  17. RETURN
  18.  
  19. *******
  20.  
  21.