home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST319.PRG < prev    next >
Encoding:
Text File  |  1989-10-04  |  1.4 KB  |  42 lines
  1. *******************
  2.  
  3. FUNCTION Palate
  4.  
  5.    PARAMETERS _whichp, _whichback, _whichtop, _whichleft, _whichbot, _whichright
  6.  
  7.    _whichp     = IF( (TYPE("_whichp")    != "N"), 1, _whichp )
  8.    _whichback  = IF( (TYPE("_whichback") != "N"), 177, _whichback )
  9.    _whichtop   = IF( (TYPE("_whichtop") != "N"), 0, _whichtop )
  10.    _whichleft  = IF( (TYPE("_whichleft") != "N"), 0, _whichleft )
  11.    _whichbot   = IF( (TYPE("_whichbot") != "N"), 24, _whichbot ) 
  12.    _whichright = IF( (TYPE("_whichright") != "N"), 79, _whichright )
  13.  
  14.    IF EMPTY(_whichback)
  15.       _whichback = 177
  16.    ENDIF
  17.  
  18.    IF     _whichp = 1
  19.       SETCOLOR( IF( ISCOLOR() .AND. !(IF(TYPE("scrmono")="U", .T., scrmono)), IF( TYPE("scrcolor") = "U", "W/B", scrcolor), "W/N"))
  20.       @ _whichtop, _whichleft CLEAR TO _whichbot, _whichright
  21.  
  22.    ELSEIF _whichp = 2
  23.       SETCOLOR(IF(ISCOLOR() .AND. !(IF(TYPE("scrmono")="U", .T., scrmono)), "W/B", ""))
  24.       @ _whichtop, _whichleft, _whichbot, _whichright BOX REPLICATE(CHR(_whichback), 9)
  25.  
  26.    ELSEIF _whichp = 3
  27.       SETCOLOR("")
  28.       @ _whichtop, _whichleft CLEAR TO _whichbot, _whichright
  29.  
  30.    ELSEIF _whichp = 4
  31.       SETCOLOR(IF(ISCOLOR() .AND. !(IF(TYPE("scrmono")="U", .T., scrmono)), IF(TYPE("scrcolor") = "U", "W/B", scrcolor), "W/N"))
  32.       @ _whichtop, _whichleft, _whichbot, _whichright BOX REPLICATE(CHR(_whichback), 9)
  33.  
  34.    ENDIF
  35.  
  36.    RETURN(SETCOLOR())
  37.  
  38. * End of File
  39.    
  40.  
  41.    
  42.