home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST200.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  470 b   |  26 lines
  1. ********************
  2.  
  3. FUNCTION Flushright
  4.  
  5.    PARAMETERS _string, _size, _padding
  6.  
  7.    IF EMPTY(PCOUNT())
  8.       RETURN("")
  9.    ELSEIF PCOUNT() = 2
  10.       _padding = " "
  11.    ENDIF
  12.  
  13.    IF TYPE("_string")+TYPE("_size")+TYPE("_padding") != "CNC"
  14.       RETURN("")
  15.    ENDIF
  16.  
  17.    IF LEN(_string) >= _size
  18.       RETURN(RIGHT(_string, _size))
  19.    ELSE
  20.       RETURN( REPLICATE(SUBSTR(_padding, 1, 1), _size - LEN(_string)) + _string)
  21.    ENDIF
  22.  
  23. * End of File
  24.  
  25.  
  26.