home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST12.PRG < prev    next >
Encoding:
Text File  |  1989-09-08  |  857 b   |  38 lines
  1. ********************
  2.  
  3. FUNCTION Strvalue
  4.          
  5.    PARAMETERS _showstr, _showlen
  6.  
  7.    * This function returns the string representation of the given
  8.    * parameter.
  9.  
  10.    IF PCOUNT() < 1
  11.       RETURN("")
  12.    ENDIF
  13.  
  14.    DO CASE
  15.    CASE TYPE("_showstr") = "C"
  16.       RETURN(_showstr)
  17.    CASE TYPE("_showstr") = "N"
  18.       RETURN(STR(_showstr))
  19.    CASE TYPE("_showstr") = "M"
  20.       IF LEN(_showstr) > (MEMORY(0) * 1024) * .80
  21.          RETURN( SUBSTR(_showstr, 1, INT((MEMORY(0) * 1024) * .80)) )
  22.       ELSE
  23.          RETURN(_showstr)
  24.       ENDIF
  25.    CASE TYPE("_showstr") = "D"
  26.       RETURN(DTOC(_showstr))
  27.    CASE TYPE("_showstr") = "L"
  28.       IF PCOUNT() = 1
  29.          RETURN(IF(_showstr, "True", "False"))
  30.       ELSE
  31.          RETURN(IF(_showstr, "T", "F"))
  32.       ENDIF
  33.    OTHERWISE
  34.       RETURN("")
  35.    ENDCASE
  36.    
  37. * End of File
  38.