home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 27 / IOPROG_27.ISO / SOFT / CS.ZIP / CS.PRG < prev    next >
Encoding:
Text File  |  1993-02-04  |  1.1 KB  |  55 lines
  1. *_____________________________________________________________________________
  2. *
  3. *           Author: Terry Carmen
  4. * Copyright (c) 1993 by Terry Carmen, All Rights Reserved
  5. *_____________________________________________________________________________
  6. *
  7. *
  8. *     Program Name:   cs.prg
  9. *        $Revision$
  10. *            $Date$
  11. *
  12. *
  13. *
  14. * Revision History:
  15. *             $Log$
  16. *
  17. *_____________________________________________________________________________
  18.  
  19. do while lastkey() != 27
  20.     cTmp:="                "
  21.     @10, 10 get cTmp        
  22.     read
  23.     ?validcc(cTMp)
  24. enddo
  25.  
  26.  
  27.  
  28. function validcc(cCCNum)
  29.  
  30.     m:=0
  31.     CheckSum:=0
  32.     for i := len(cCCNum)-1 to 1 step -1
  33.  
  34.         if m==2
  35.             m=1
  36.         else
  37.             m=2
  38.         endif
  39.  
  40.         if val(substr(cCCNum,i,1)) * m > 9
  41.             CheckSum += (val(substr(cCCNum, i, 1)) * m) - 9
  42.         else
  43.             CheckSum +=  val(substr(cCCNum, i, 1)) * m
  44.         endif
  45.     next 
  46.  
  47.     if ((CheckSum + val(right(cCCNum, 1))) % 10) == 0
  48.         lRetval := .T.
  49.     else
  50.         lRetval := .F.
  51.     endif           
  52.  
  53. return lRetval
  54.  
  55.