home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_02_04 / 2n04039a < prev    next >
Text File  |  1991-02-17  |  247b  |  19 lines
  1.  
  2. '
  3. ' Casting 9's
  4. '
  5.  
  6. DEFINT K
  7. DEFLNG L
  8. FUNCTION CAST (L)
  9.    L1 = L
  10.    WHILE L1 > 9
  11.       K = K + L1 MOD 10
  12.       IF K > 9 THEN K = K - 9
  13.       L1 = L1 \ 10
  14.    WEND
  15.    K = K + L1
  16.    IF K > 9 THEN K = K - 9
  17.    CAST = K
  18. END FUNCTION
  19.