Category : Pascal Source Code
Archive   : VCARD.ZIP
Filename : VC.PAS

{$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,crt,Vericard;

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

Procedure Squawk(Noise : byte);
Begin
Case Noise of
1 : Begin
Sound(400);
Delay(200);
Sound(200);
Delay(200);
Nosound;
End;
2 : Begin
Sound(392);
delay(55);
nosound;
delay(30);
Sound(523);
delay(55);
nosound;
delay(30);
Sound(659);
delay(55);
nosound;
delay(30);
Sound(784);
delay(277);
nosound;
delay(30);
Sound(659);
delay(55);
nosound;
delay(30);
Sound(784);
delay(1200);
nosound;
end;
end; { case }
end;

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

writeln;
writeln;

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

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

case k of

#0 : Writeln(' Could NOT verify this number with any card type.');
'3' : Writeln(' Card was verified as a valid Amex Card Number.');
'4' : Writeln(' Card was verified as a valid VISA Card Number.');
'5' : Writeln(' Card was verified as a valid Mastercard Number.');

end;

end.