BLACK JACK

"FIRST DRAW"
Int 21Ran#+2->A_
A=21=>Goto 1
A>21=>Goto 2
Lbl 5
"DRAW"?->B
B=0=>Goto 3
Int 11Ran#+1+A->A
A=21=>Goto 3
A<21=>Goto 5
A>21=>Goto 2
Lbl 2
"L O S E R"
"ME":D_
Goto 0
Lbl 1
"B L A C K  J A C K"
Goto 4
Lbl 4
"Y O U  W I N"
"ME":D_
Goto 0
Lbl 3
Int 8Ran#+16->D
D>21=>Goto 4
D<A=>Goto 4
D>=A=>Goto 2
Lbl 0
" "

