home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / PDXOS2-1.ZIP / SAMPLE / LOOKSLCT.SC < prev    next >
Encoding:
Text File  |  1988-12-29  |  1.5 KB  |  35 lines
  1. ; Contains Licensed Material Copyright (C) 1987 Ansa Software -- MJP
  2.  
  3. ; This procedure mimics a WAIT command in lookup help.  Unfortunately, although
  4. ; you can enter into lookup help from within a WAIT, you cannot enter into a
  5. ; WAIT from within lookup help.  Thus if the programmer wishes to provide the
  6. ; user access to the lookup help table, and a WAIT is not currently in effect,
  7. ; he/she must call this procedure.  THIS PROCEDURE WILL FUNCTION ONLY ON LOOKUP
  8. ; HELP TABLES.
  9. ;
  10. ; Please note that the procedure turns echo to normal in order to display the
  11. ; lookup table, and turns echo off upon exit.  This is different from the WAIT
  12. ; command which leaves the echo status unchanged.
  13. ;
  14. ; The procedure will return the ASCII value of the key that was pressed which
  15. ; caused the wait to be left (either Esc or Do_It!).  As with the WAIT comand,
  16. ; control will be passed back to the caller BEFORE the key is acted upon.
  17. ;
  18. Proc LookupSelect()
  19.    Echo   Normal             ;Display the table to the user
  20.    While True
  21.       Retval=getchar()
  22.       If menuchoice()="Error" and     ;We could be in HELP, HELP INDEX, or ZOOM
  23.            (Retval=-60 or Retval=27 or Retval=0)
  24.          Then Quitloop
  25.          Else Keypress Retval
  26.       Endif
  27.    Endwhile
  28.    Echo Off
  29.    Synccursor
  30.    If Retval=0               ;CtrlBreak functions the same as Esc. Thus return
  31.       Then Retval=27         ; the code for Esc unless Do_It! is pressed
  32.    Endif
  33.    Return Retval
  34. Endproc
  35.