{$A-,B+,D-,E-,F-,I+,L-,N-,O-,R+,S+,V+}
{$M 2048,0,4096}


Program valicard;



{ Test routine for the Mod 10 Check Digit CC validator... }


uses dos,portfolio,Vericard;

  var
   card : string[22];
      k : char;


   Begin
  k:=#0;
  clrscr;
  fillchar(Card,22,#0);
  Writeln('VC: Integer Modulo-10 Visa/Mastercard');
  writeln('    Ameican Express Check-Digit');
  Writeln('    verification routine. ');
  writeln('    (c) 1990 Daniel J. Karnes');
  Writeln('Please enter a Credit Card number');
  write(': ');
  Readln(card);

  if length(Card)>12 then k:=Vc(card);

(*  if k IN ['3','4','5'] then Squawk(2) else Squawk(1);  *)

  case k of

  #0  : Write('Could NOT verify this Card number.');
  '3' : Write('Card is a valid Amex Card Number.');
  '4' : Write('Card is a valid VISA Card Number.');
  '5' : Write('Card is a valid Mastercard Number.');

   end;

     end.