home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST227.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  578 b   |  38 lines
  1. ********************
  2.  
  3. FUNCTION Sjsread
  4.  
  5.    PARAMETERS _withoutpg, _update
  6.  
  7.    IF EMPTY(PCOUNT())
  8.       _withoutpg = .F.
  9.       _update = .F.
  10.    ELSEIF PCOUNT() = 1
  11.       _update = .F.
  12.    ENDIF
  13.  
  14.    IF _withoutpg
  15.       SET KEY 3 TO Nogo
  16.       SET KEY 18 TO Nogo
  17.    ENDIF
  18.    scrcursor = .T.
  19.    SET CURSOR ON
  20.    READ
  21.    SET CURSOR OFF
  22.    SET KEY 3 TO 
  23.    SET KEY 18 TO 
  24.    scrcursor = .F.
  25.    IF !_update
  26.       RETURN( LASTKEY() != 27 )
  27.    ELSE
  28.       RETURN(UPDATED())
  29.    ENDIF
  30.  
  31. *******************
  32.  
  33. PROCEDURE Nogo
  34.  
  35.    KEYBOARD ""
  36.  
  37. * End of file
  38.