_________________________________________________________________________

           Title: Black Jack 9850
         Version: v0.9b 
          Author: Hidetake Jo
            Size:
	     Model: 9850+
     Description: A Black Jack game with graphical interface

...nothing fancy yet...controls are all done through the function keys,
and each function keys are defined so you can start playing it as soon as you finish typing em in.

________________________________________________________________________

 Program :

Cls
ViewWindow 1, 126, 1, 1, 64, 1
0->A~Z
Text 20, 44, "BLACK JACK"
While GetKey =/= 31
Text 30,44, "PUSH [EXE]"
Text 30,44, "             "        {13 spaces}
WhileEnd
Cls
1->Z
1->C
300->B
Plot 1, 8
Plot 125, 8
Line
For 1->A To 6
21A->C
Plot C, 1
Plot C, 8
Line
Next
Text 57, 3, "QUIT"
Text 57, 70, "+10"
Text 57, 48, "-10"
Text 57, 27, "BET"
Text 57, 91, "HIT"
Text 57, 108, "STAY"
Plot 123, 62
While Z=1
If (GetKey=69) And (P=0)
Then For 1->C to 50 Step 5
Text C, 1, "                           "       {27 spaces}
Next
0->D
Text 30, 20, "CURRENT BUDGET:"
Text 30, 90, B
Text 40, 20, "YOUR BET:"
Text 40, 60, D
Plot 1, 40
Plot 125, 40
Line
Text 10, 25, "[EXE] TO EXIT BET MENU"
Plot 1,1
1->E
Do
If GetKey=59
Then D-10->D
D<0->D+10->D
Text 40, 60, "                       "          {23 spaces}
Text 40, 60, D
IfEnd
If GetKey=49
Then D+10->D
D>B=>D-10->D
Text 40, 60, "                       "           {23 spaces}
Text 40, 60, D
IfEnd
GetKey=31 => 0->E
1->P
Plot 1,1
LpWhile E=1
5->A				{there was an extra Ifend here please take it out}
If P=1
Then For 1->C To 50 Step 5
Text C,1, "                                       "    {40 spaces}
Next
Text 20,1, "DEALER"
Int 10Ran#+1->M
Text 20, 30, M
Int 10Ran#+1->N
Text 20, 38, N
M+N->M
Text 40,1,"PLAYER"
Int 10Ran#+1->N
Text 40, 30, N
Int 10Ran#+1->O
Text 40, 38, O
Plot 1,1
N+O->O
48->Q
Do
If GetKey=39
Then Int 10Ran#+1->N
Text 40, Q, N
Plot 1, 1
8+Q->Q
N+O->O
O>21=>0->P
IfEnd
GetKey29=>4->P
LpWhile 1=P
If P=4			{there was an extra IfEnd here please take it out}
Then 46->Q
While ((M<18) Or (M<O)) And (M<22)
Int 10Ran#+1->N
Text 20, Q, N
N+M->M
Q+8->Q
Plot 1,1
WhileEnd
0->P
O=M => Text 10,55,"PUSH"
Plot 1,1
If (O>M) Or <M>21)
Then 2D+B->B
Text 10,50,"YOU WIN"
Plot 1,1
IfEnd
IfEnd
If (O>21) Or ((O<M) And (M<22))
Then B-D->B
Text 10,50,"YOU LOSE"
Plot 1,1
IfEnd
0->M
0->O
GetKey=79=>0->Z
WhileEnd
B=<0 =>"---BANKRUPT---"

_________________________________________________________________________