Difference between revisions of "Développement BasicCard/GamblingCard/GAMBLING.DEF"
Jump to navigation
Jump to search
(Created page with "<pre> Rem Gambling BasicCard Source Code Rem ------------------------------------------------------------------ Rem Copyright (C) 2002 Didier DONSEZ Rem ----------------------...") |
|||
Line 1: | Line 1: | ||
+ | <source lang="blitzbasic"> |
||
− | <pre> |
||
Rem Gambling BasicCard Source Code |
Rem Gambling BasicCard Source Code |
||
Rem ------------------------------------------------------------------ |
Rem ------------------------------------------------------------------ |
||
Line 49: | Line 49: | ||
Const MaxPINErrors = 3 ' Allow the user three unsuccessful attempts |
Const MaxPINErrors = 3 ' Allow the user three unsuccessful attempts |
||
− | </ |
+ | </source> |
Latest revision as of 15:57, 3 December 2014
Rem Gambling BasicCard Source Code
Rem ------------------------------------------------------------------
Rem Copyright (C) 2002 Didier DONSEZ
Rem ------------------------------------------------------------------
Rem GAMBLING CARD
Rem Commands
Declare Command &H80 &H00 PersonaliseCard (Amount As Long, NewPIN As String*4, Name$)
Declare Command &H80 &H02 VerifyPIN (TestPIN As String*4)
Declare Command &H80 &H04 IncreaseAmount (Diff As Long)
Declare Command &H80 &H06 DecreaseAmount (Diff As Long)
Declare Command &H80 &H08 ChangePIN (NewPIN As String*4)
Declare Command &H80 &H0A GetCardData (Amount As Long, PINCount, Customer$)
Declare Command &H80 &H20 GetBalance (Balance As Long)
Declare Command &H80 &H22 Debit (Amount As Long)
Declare Command &H80 &H24 Credit (Amount As Long)
Declare Command &H80 &H26 Bet(betAmount As Long)
Declare Command &H80 &H30 SetWinRatio(ratio As Long)
Declare Command &H80 &H32 GetWinRatio(ratio As Long)
Declare Command &H80 &H34 GetBounds(numbounds@, bound0&,bound1&,bound2&,bound3&,bound4&,bound5&,bound6&,bound7&,bound8&,bound9&)
Declare Command &H80 &H36 SetBounds(numbounds@, bound0&,bound1&,bound2&,bound3&,bound4&,bound5&,bound6&,bound7&,bound8&,bound9&)
Declare Command &H80 &H38 GetWinnings(numwinnings@, winning0&,winning1&,winning2&,winning3&,winning4&,winning5&,winning6&,winning7&,winning8&,winning9&)
Declare Command &H80 &H3A SetWinnings(numwinnings@, winning0&,winning1&,winning2&,winning3&,winning4&,winning5&,winning6&,winning7&,winning8&,winning9&)
Rem Status codes. All of these have SW1 = &H6B, to avoid clashes with
Rem the built-in status codes (see "1.4.2 Procedure Definitions" in the
Rem BasicCard documentation).
Const swNotPersonalised = &H6B00
Const swInsufficientFunds = &H6B01
Const swEncryptionRequired = &H6B02
Const swIssuingKeyRequired = &H6B03
Const swPINRequired = &H6B04
Const swInvalidPIN = &H6B05
Const swPINErrorsExceeded = &H6B06
Const swInconsistentBoundsAndWinnings = &H6B07
Const swInconsistentWinningRatio = &H6B08
Rem Other constants
Const ApplicationName$ = "GAMBLING"
Const MaxPINErrors = 3 ' Allow the user three unsuccessful attempts