home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / VCARD.ZIP / VC.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-07-17  |  1.6 KB  |  82 lines
  1. {$A-,B+,D-,E-,F-,I+,L-,N-,O-,R+,S+,V+}
  2. {$M 2048,0,4096}
  3.  
  4.  
  5. Program valicard;
  6.  
  7.  
  8.  
  9. { Test routine for the Mod 10 Check Digit CC validator... }
  10.  
  11.  
  12. uses dos,crt,Vericard;
  13.  
  14.   var
  15.    card : string[22];
  16.       k : char;
  17.  
  18.  Procedure Squawk(Noise : byte);
  19.  Begin
  20.  Case Noise of
  21.  1 :  Begin
  22.       Sound(400);
  23.       Delay(200);
  24.       Sound(200);
  25.       Delay(200);
  26.       Nosound;
  27.     End;
  28.  2 :  Begin
  29.       Sound(392);
  30.        delay(55);
  31.          nosound;
  32.        delay(30);
  33.       Sound(523);
  34.        delay(55);
  35.          nosound;
  36.        delay(30);
  37.       Sound(659);
  38.        delay(55);
  39.          nosound;
  40.        delay(30);
  41.       Sound(784);
  42.       delay(277);
  43.          nosound;
  44.        delay(30);
  45.       Sound(659);
  46.        delay(55);
  47.          nosound;
  48.        delay(30);
  49.       Sound(784);
  50.      delay(1200);
  51.          nosound;
  52.              end;
  53.             end; { case }
  54.           end;
  55.  
  56.    Begin
  57.   k:=#0;
  58.   clrscr;
  59.   fillchar(Card,22,#0);
  60.   Writeln('VC: Integer Modulo-10 Visa/Mastercard/Amex Check-Digit');
  61.   Writeln('    verification routine. (c) 1990 Daniel J. Karnes');
  62.   Writeln;
  63.   Write('    Please enter a Credit Card number: ');
  64.   Readln(card);
  65.  
  66.     writeln;
  67.     writeln;
  68.  
  69.   if length(Card)>12 then k:=Vc(card);
  70.  
  71.   if k IN ['3','4','5'] then Squawk(2) else Squawk(1);
  72.  
  73.   case k of
  74.  
  75.   #0  : Writeln('    Could NOT verify this number with any card type.');
  76.   '3' : Writeln('    Card was verified as a valid Amex Card Number.');
  77.   '4' : Writeln('    Card was verified as a valid VISA Card Number.');
  78.   '5' : Writeln('    Card was verified as a valid Mastercard Number.');
  79.  
  80.    end;
  81.  
  82.      end.