home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST3.PRG < prev    next >
Encoding:
Text File  |  1989-08-16  |  1.4 KB  |  61 lines
  1. ********************
  2.  
  3. FUNCTION Adjustit
  4.  
  5.    PARAMETERS _therow, _thecol, _withdelt
  6.  
  7.    * _therow = the row for the message to be displayed
  8.    * _thecol = the col for the message to be displayed
  9.    * defaults are at 24,00 respectively
  10.  
  11.    IF PCOUNT() = 0
  12.       _therow = 24
  13.       _thecol = 0
  14.       _withdelt = .F.
  15.    ELSEIF PCOUNT() = 1
  16.       _thecol = 0
  17.       _withdelt = .F.
  18.    ELSEIF PCOUNT() = 2
  19.       _withdelt = .F.
  20.    ENDIF
  21.  
  22.    IF TYPE("_therow") + TYPE("_thecol") + TYPE("_withdelt") != "NNL"
  23.       RETURN(.F.)
  24.    ENDIF
  25.  
  26.    * this function acts like ADJUST() except this one will display
  27.    * the appropriate message at given (or assigned) row/col coordinates
  28.  
  29.    _tcolor = SETCOLOR()
  30.    SETCOLOR("W*+" + SUBSTR(SETCOLOR(), AT("/", SETCOLOR())))  && Set the color
  31.    IF EOF()
  32.       @ _therow, _thecol SAY "End of File" + _Isdelt()
  33.       GO BOTTOM
  34.    ELSEIF BOF()
  35.       @ _therow, _thecol SAY "Top of File" + _Isdelt()
  36.       GO TOP
  37.    ELSE
  38.       SETCOLOR(Set_color(Attribute(_therow, _thecol)))
  39.       @ _therow, _thecol SAY "           " + _Isdelt()
  40.    ENDIF
  41.    SETCOLOR(_tcolor)   && Reset the color
  42.    RETURN( (DOSERROR()= 0) )
  43.  
  44. *******************
  45.  
  46. FUNCTION _Isdelt
  47.  
  48.    IF _withdelt
  49.       IF DELETED()
  50.          RETURN(" & Deleted ")
  51.       ELSE
  52.          RETURN("           ")
  53.       ENDIF
  54.    ELSE
  55.       RETURN("")
  56.    ENDIF
  57.  
  58. * End of File
  59.  
  60.  
  61.