%pcard
@Do you wish to use your credit card to purchase a
#program/BBS membership at this time?  (Yes/No)
$01;03;W;N;N;~;~;~;~;~;~;Y;EASYOUT.DAT
%cmenu
#Enter  1  for BBS Membership or  2  for Program registrations.
$01;01;W;2;N;~;~;~;~;~;~;Y;PLASTIC.DAT
#You chose the BBS membership, correct? [y/n]
$01;01;W;N;N;~;~;~;~;~;~;Y;CHARGE.DAT
#Your street/mailing address for our database:
$04;68;B;NONE;N;~;~;~;~;~;~;N;NONE.DAT
#City, State, and Zip:
$04;68;B;NONE;N;~;~;~;~;~;~;N;NONE.DAT
#Voice phone number for our database:
$07;16;D;NONE;N;~;~;~;~;~;~;N;NONE.DAT
#Will you pay by VISA, MASTERCARD, AmEx or NONE?
$04;10;W;NONE;N;~;~;~;~;~;~;Y;EASYOUT.DAT
#Type in your name as it appears on the card, please.
$03;68;B;NONE;N;~;~;~;~;~;~;N;NONE.DAT
#What is the card number?
$04;20;B;NONE;N;~;~;~;~;~;~;N;NONE.DAT
#Expiration date on card is?
$04;08;B;NONE;N;~;~;~;~;~;~;N;NONE.DAT
@@CLS@ You'd be surprised how many typos this catches!
#Again, what was that card number?
$04;20;V;NONE;;45;65;~;~;365;24;Y;PAYING.DAT
@Sorry, the credit card info you gave us did not verify.
#Please press ENTER to continue ....
$00;00;N;NONE;N;~;~;~;~;~;~;N;NONE.DAT