home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST128.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  2.2 KB  |  80 lines
  1. ********************
  2.  
  3. FUNCTION Chkamnt
  4.  
  5.    PARAMETERS _figure
  6.  
  7.    PRIVATE _chkcents, _chkfinal, _chknew, _chktemp
  8.  
  9.    _chkfinal = ""
  10.    IF _figure < 0
  11.        _chkfinal = "Unable to Print"
  12.        RETURN(_chkfinal)
  13.    ENDIF
  14.    _chkcents = SUBSTR(STR(_figure, 15, 2), 14, 2)
  15.    _chknew = INT(_figure)
  16.    
  17.    _chktemp = INT(_chknew/1000000000)
  18.    IF _chktemp > 0
  19.       _chkfinal = _chkfinal + GRP_EXPAND(_chktemp) + " Billion "
  20.       _chknew = _chknew - (_chktemp * 1000000000)
  21.    ENDIF
  22.    _chktemp = INT(_chknew/1000000)
  23.    IF _chktemp > 0
  24.       _chkfinal = _chkfinal + GRP_EXPAND(_chktemp) + " Million "
  25.       _chknew = _chknew - (_chktemp*1000000)
  26.    ENDIF
  27.    _chktemp = INT(_chknew/1000)
  28.    IF _chktemp > 0
  29.       _chkfinal = _chkfinal + GRP_EXPAND(_chktemp) + " Thousand "
  30.       _chknew = _chknew - (_chktemp*1000)
  31.    ENDIF
  32.    _chktemp = _chknew
  33.    IF _chktemp > 0
  34.       _chkfinal = _chkfinal + GRP_EXPAND(_chktemp)
  35.    ENDIF
  36.   
  37.    IF SUBSTR(_chkfinal,1,3) = "One" .AND. LEN(_chkfinal) = 3
  38.       _chkfinal = IF(EMPTY(_chkfinal), "No", _chkfinal)
  39.       _chkfinal = _chkfinal + " Dollar and " + _chkcents + "/100"
  40.    ELSE
  41.       _chkfinal = IF(EMPTY(_chkfinal), "No", _chkfinal)
  42.       _chkfinal = _chkfinal + " Dollars and " + _chkcents + "/100"
  43.    ENDIF   
  44.    RETURN(_chkfinal)
  45.  
  46. ********************
  47.  
  48. FUNCTION Grp_expand
  49.  
  50.    PARAMETERS _gval
  51.  
  52.    PRIVATE _ones, _tens, _gstr, _gval, _new1
  53.  
  54.    _ones = "One      Two      Three    Four     Five     Six      Seven    Eight    Nine     Ten      Eleven   Twelve   Thirteen Fourteen Fifteen  Sixteen  SeventeenEighteen Nineteen "
  55.    _tens = "Twenty Thirty Forty  Fifty  Sixty  SeventyEighty Ninety "
  56.    _gstr = ""
  57.   
  58.    IF _gval > 99
  59.       _new1 = INT(_gval/100)
  60.       _gstr = _gstr + TRIM(SUBSTR(_ones,(_new1*9)-8,9))
  61.       _gval = _gval - (_new1 * 100)
  62.       _gstr = _gstr + " Hundred "
  63.    ENDIF
  64.    IF _gval > 19
  65.       _new1 = INT(_gval/10)-1
  66.       _gstr = _gstr + TRIM(SUBSTR(_tens,(_new1*7)-6,7))
  67.       _new1 = INT(_gval/10)*10
  68.       _gval = _gval - _new1
  69.       IF _gval > 0
  70.          _gstr = _gstr + "-"
  71.       ENDIF
  72.    ENDIF
  73.    IF _gval > 0
  74.       _gstr = _gstr + TRIM(SUBSTR(_ones,(_gval*9)-8,9))
  75.    ENDIF
  76.   
  77.    RETURN(_gstr)
  78.  
  79. * End of File
  80.