Casio Basic "BLACK JACK"
(c) produced by Keppa

Lbl 0
"YEN":Int Z.
Z<1ĖGoto 8
0ØA`X
"BET"?ØY
Y…0ĖGoto 0
Y>ZĖGoto 0
"COM"
Int 10Ran#+2ØI.
"YOU"
Int 10Ran#+2ØA`B.
Lbl 1
Int 10Ran#+1ØC.
"SUM":A+CØA.
If X=0:Then If B+C=21
Then Goto 6:IfEnd:IfEnd
A>21ĖGoto 4
Isz X
X=6ĖGoto 2
"HITØ0,STANDØ1"?ØW
W=0ĖGoto 1
Lbl 2
"COM"
I.
Lbl 3
Int 10Ran#+1ØJ.
I+JØI
I…16ĖGoto 3
"SUM":I.
X=6ĖGoto 7
X=5ĖGoto 6
I>21ĖGoto 5
A<IĖGoto 4
A>IĖGoto 5
"DRAW":Goto 0
Lbl 4:"LOSE"
Z-YØZ:Goto 0
Lbl 5:"WIN"
Z+YØZ:Goto 0
Lbl 6
"6CARDS,B.JACK"
Z+2YØZ:Goto 0
Lbl 7:"7CARDS"
Z+3YØZ:Goto 0
Lbl 8
500ØZ
"---GAME OVER---"