home *** CD-ROM | disk | FTP | other *** search
/ Resource for Source: C/C++ / Resource for Source - C-C++.iso / codelib2 / v_02_04 / 2n04039a < prev    next >
Encoding:
Text File  |  1995-11-01  |  247 b   |  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.