home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST82.PRG < prev    next >
Encoding:
Text File  |  1989-09-12  |  822 b   |  40 lines
  1. *******************
  2.  
  3. FUNCTION Insert_tog
  4.  
  5.    PARAMETERS _insa, _insb, _act
  6.  
  7.    * _insa is the insert row display
  8.    * _insb is the insert colw display
  9.    * _act is to turn the activation key
  10.  
  11.    IF PCOUNT() = 2
  12.       _act = .T.
  13.    ELSEIF PCOUNT() = 1
  14.       _insb = COL()
  15.       _act = .T.
  16.    ELSEIF PCOUNT() = 0
  17.       _insa = ROW()
  18.       _insb = COL()
  19.       _act = .T.
  20.    ENDIF
  21.  
  22.    PRIVATE _oldcolor
  23.  
  24.    _oldcolor = SETCOLOR()
  25.  
  26.    IF TYPE("_insa") + TYPE("_insb") + TYPE("_act") != "NNL"
  27.    ELSE
  28.       SET CURSOR OFF
  29.       IF _act
  30.          READINSERT(!READINSERT())
  31.       ENDIF
  32.       SETCOLOR(Set_color(Attribute(_insa, _insb)))
  33.       @ _insa, _insb SAY IF(READINSERT(), "<Insert>  ", "<Over St.>")
  34.       SET CURSOR ON
  35.       SETCOLOR(_oldcolor)
  36.    ENDIF
  37.    RETURN("")
  38.  
  39. * End of File
  40.