home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / progbas / cs.arj / CS.BAS next >
Encoding:
BASIC Source File  |  1991-09-01  |  825 b   |  19 lines
  1. 10 ' **************************************
  2. 20 ' *  Verify Checksums on Charge Cards  *
  3. 30 ' *                                    *
  4. 40 ' *  Useful for data entry routines    *
  5. 50 ' *   involving charge card numbers    *
  6. 60 ' *                                    *
  7. 70 ' *  By Frank Cox   FidoNet 1:140/53   *
  8. 80 ' *         September 1, 1991          *
  9. 90 ' **************************************
  10. 100 INPUT "Input Charge Card Number";A$
  11. 110 FOR X = 1 TO LEN(A$)
  12. 120 IF MID$(A$,X,1) >="0" AND MID$(A$,X,1) <="9" THEN B$=B$+MID$(A$,X,1)
  13. 130 NEXT X
  14. 140 FOR X = LEN(B$)-1 TO 1 STEP -1
  15. 150 IF M=2 THEN M=1 ELSE M=2
  16. 160 IF VAL(MID$(B$,X,1)) * M > 9 THEN CS = CS + VAL(MID$(B$,X,1)) * M -9 ELSE CS= CS + VAL(MID$(B$,X,1)) * M
  17. 170 NEXT X
  18. 180 IF (CS + VAL(RIGHT$(B$,1))) MOD 10 = 0 THEN PRINT "OK" ELSE PRINT "Error"
  19.