home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST187.PRG < prev    next >
Encoding:
Text File  |  1989-10-19  |  771 b   |  37 lines
  1. *******************
  2.  
  3. FUNCTION Toerr
  4.  
  5.    PARAMETERS _condit, _atrow, _atcol, _atstr, _wsound, _wwait
  6.  
  7.    IF PCOUNT() = 4
  8.       _wsound = .T.
  9.       _wwait  = .F.
  10.    ELSEIF PCOUNT() = 5
  11.       _wwait = .F.
  12.    ELSEIF TYPE("_condit") + TYPE("_atrow") + TYPE("_atcol") + ;
  13.           TYPE("_atstr") + TYPE("_wsound") + TYPE("_wwait") != "LNNCLL"
  14.       RETURN(.F.)
  15.    ENDIF
  16.  
  17.    _oldcolor = SETCOLOR()
  18.    SETCOLOR(Set_color(Attribute(_atrow, _atcol)))
  19.  
  20.    IF _condit
  21.       RID(_atrow, _atcol, _atstr)
  22.    ELSE
  23.       @ _atrow, _atcol SAY _atstr
  24.       IF _wsound
  25.          ERRSOUND()
  26.       ENDIF
  27.       IF _wwait
  28.          INKEY(0)
  29.          RID(_atrow, _atcol, _atstr)
  30.       ENDIF
  31.    ENDIF
  32.  
  33.    SETCOLOR(_oldcolor)
  34.    RETURN( _condit )
  35.  
  36. * End of File
  37.