BlackJack for your Calculator!

[Vulcan]

0->W:0->X:0->Z
1->Y:0->N:0->B
0->I:0->J:0->K:0->L:0->M:0->Q
randInt(1,11)->I
randInt(1,10->)J
randInt(17,23)->Q
Disp "CARDS",I
Disp J
2->C
Input "HIT?",W
If W=Y
Then
randInt(1,11)->K
Disp K
C+1->C
End
If W=Y and (I+J+K)>21
Then
Disp "BUST!"
69->B
End
If W=Y and (I+J+K)<21
Then
Input "HIT?",X
End
If X=Y
randInt(1,11)->L
Disp L
C+1->C
End
If X=Y and (I+J+K+L)>21
Then
Disp "BUST!"
69->B
End
If X=Y and (I+J+K+L)<21
Then
Input "HIT?",Z
End
If Z=Y and (I+J+K+L)<21
Then
randInt(1,11)->M
Disp M
C+1->C
End
If Z=Y and (I+J+K+L+M)>21
Then
Disp "BUST!"
69->B
End
If W=N or X=N or Z=N or Z=Y
Then
I+J+K+L+M->Z
End
ClrHome
If C=5 and Z<21
Then
Disp "YOU WIN!"
End
If B=/=69 and C=/=5
Then
Disp "YOUR HAND",Z
Pause
Disp "DEALER",Q
End
If Z=<21 and Z>Q or Q>21 and B=/=6 and C=/=5
Then
Disp "YOU WIN!"
End
If Z=<21 and Z<Q and Q=< and C=/=5
Then
Disp "YOU LOSE!"
End
If Z>21
Then
Disp "YOU LOSE!"
End

Input this into your calculator, and you can play BlackJack on it. (TI-83+) Also, you can't bet with it, nor can you split/double-down cards.

[x_predator89]

Did you write that yourself? Thats cool. If you want more then let me know, I write programs for these things on my free time.

[Vulcan]

Did you write that yourself? Thats cool. If you want more then let me know, I write programs for these things on my free time.

I did write it myself. Took about 2 hours to do it. Had to write it out first, though. I would love to learn more.

[Jim]

I'll try it if I can find my calculator.

[LawDog]

I'll try it if I can find my calculator.

Check your pocket protector, next to the slide rule.

NERDS!!!