Développement BasicCard/GamblingCard/ISSUER.BAS

Rem Gambling BasicCard Source Code
Rem ------------------------------------------------------------------
Rem Copyright (C) 2002 Didier DONSEZ
Rem ------------------------------------------------------------------

Rem  GAMBLING CARD

Rem  Personalisation program for the Gambling Card
Rem
Rem  Prompts the user for name, PIN, and balance, and personalises a Gambling Card

Option Explicit
Option Base Explicit

#Include GAMBLING.DEF  ' Declarations common to BasicCard and Terminal programs
rem #Include DEALER.KEY
rem #Include ISSUER.KEY

#Include CARDUTIL.DEF
#Include COMMERR.DEF
#Include COLOURS.DEF

Call WaitForCard()
ResetCard : Call CheckSW1SW2()

Rem  Check that the application name is correct
Private Name$ : Call GetApplicationID (Name$) : Call CheckSW1SW2()
If Name$ <> ApplicationName$ Then Print "This is not a Gambling Card !" : Exit

Rem  Get the customer name

Private PIN$, Balance$, Amount&, Len@
Private SRatio$, Ratio&

FgCol = Cyan : Print "Customer name (Enter to abort): ";
FgCol = BrightYellow : Line Input Name$
If Name$ = "" Then Exit

Rem  Get the PIN

Do
    FgCol = Cyan : Print "PIN (Enter to abort): ";
    FgCol = BrightYellow : Line Input PIN$
    If PIN$ = "" Then Exit
    If Len (PIN$) = 4 Then Exit Do
    FgCol = Red : Print "PIN must be 4 characters long"
Loop

Rem  Get the initial balance

Do
    FgCol = Cyan : Print "Initial balance (e.g. 12.50): ";
    FgCol = BrightYellow : Line Input Balance$
    FgCol = BrightWhite
    Balance$ = Trim$ (Balance$)
    If Balance$ = "" Then Print "Personalization aborted" : Exit

    Rem  Convert Balance$ to Long via a Single value (in marks)
    Amount& = (100 * Val! (Balance$, Len@)) + 0.5
    If Len@ = Len (Balance$) Then Exit Do ' Exit if all characters were used
    Print "Invalid number"
Loop

Do
    FgCol = Cyan : Print "Winning ratio (e.g. 0.75): ";
    FgCol = BrightYellow : Line Input SRatio$
    FgCol = BrightWhite
    SRatio$ = Trim$ (SRatio$)
    If SRatio$ = "" Then Print "Personalization aborted" : Exit

    Rem  Convert SRatio$ to Long via a Single value (in marks)
    Ratio& = (100 * Val! (SRatio$, Len@)) + 0.5
    If Len@ = Len (SRatio$) Then Exit Do ' Exit if all characters were used
    Print "Invalid number"
Loop

Rem  Send the data to the card. The card only accepts issuer data that is
Rem  encrypted with the Issuing Key (Key 00):

Rem  Try automatic algorithm selection first:
Rem Call StartEncryption (P1=0, P2=0, Rnd)
Rem If SW1SW2 = swUnknownAlgorithm Then
  Rem  That didn't work, so it must be a Compact BasicCard:
  Rem Call StartEncryption (P1=&H12, P2=0, Rnd)
Rem End If
Rem Call CheckSW1SW2()

Open Log File "issuer.log"

Call PersonaliseCard (Amount&, PIN$, Name$) : Call CheckSW1SW2()
Call SetWinRatio(Ratio&) : Call CheckSW1SW2()

Rem Call EndEncryption() : Call CheckSW1SW2()

Close Log File

Print "Personalization successful."