Donsez at 13:57, 3 December 2014

2014-12-03T13:57:48Z

← Older revision		Revision as of 13:57, 3 December 2014
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

	</~~pre~~>		</source>

Donsez: Created page with "

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

2014-12-03T07:14:53Z

New page

<pre>
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

</pre>

Développement BasicCard/GamblingCard/GAMBLING.DEF - Revision history

Donsez at 13:57, 3 December 2014

Donsez: Created page with "
Rem Gambling BasicCard Source Code Rem ------------------------------------------------------------------ Rem Copyright (C) 2002 Didier DONSEZ Rem ----------------------..."