
'
' Casting 9's
'

DEFINT K
DEFLNG L
FUNCTION CAST (L)
   L1 = L
   WHILE L1 > 9
      K = K + L1 MOD 10
      IF K > 9 THEN K = K - 9
      L1 = L1 \ 10
   WEND
   K = K + L1
   IF K > 9 THEN K = K - 9
   CAST = K
END FUNCTION
