Home, 83+ Games, 83+ Math, 83+ Other, 86 Math, 86 Other, Downloads
B
lack Jack
A one player black jack game with ace detection.
:Lbl S
:ClLCD
:randInt(1,13->A
:randInt(1,13->B
:randInt(1,13->C
:randInt(1,13->D
:randInt(1,13->E
:randInt(16,24->F
:
:If A>10:10->A
:If B>10:10->B
:If C>10:10->C
:If D>10:10->D
:If E>10:10->E
:
:If A==1 and B==10
:Then
:Outpt(5,3,"BLACK JACK
:Pause
:Goto S
:Else
:If B==1 and A==10
:Then
:Outpt(5,3,"BLACK JACK
:Pause
:Goto S
:End
:End
:
:If A==1
:Then
:B->T
:Disp "TOTAL IS
:Disp T
:Input "1 or 11?",A
:If A==1
:Then
:1->A
:Else
:11->A
:End
:End
:
:If B==1
:Then
:A->T
:Disp "TOTAL IS
:Disp T
:Input "1 or 11?",G
:If G==1
:Then
:1->B
:Else
:11->B
:End
:End
:
:ClLCD
:A+B->T
:Outpt(1,5,"YOU DREW
:Outpt(3,1,A
:Outpt(3,4,B
:Outpt(5,3,"TOTAL OF
:Outpt(5,13,T
:Outpt(7,3,"STAY=1 HIT=2
:Disp "","","","","","",""
:If T>21:Goto B
:Input G
:
:If G==1
:Then
:Goto E
:
:Lbl E
:ClLCD
:If F>21
:Then
:Outpt(3,4,"HOUSE BUST
:Outpt(5,5,"YOU WIN
:Pause
:Goto S
:End
:
:Outpt(1,3,"YOUR TOTAL IS
:Outpt(2,9,T
:Outpt(4,2,"HOUSE TOTAL IS
:Outpt(5,9,F
:If T>F
:Then
:Outpt(7,6,"YOU WIN
:Pause
:Goto S
:End
:If F>T
:Then
:Outpt(7,5,"YOU LOSE
:Pause
:Goto S
:End
:If F==T
:Then
:Outpt(7,4,"TIE/PUSH
:Pause
:Goto S
:End
:
:Else
:If C==1
:Then
:ClLCD
:Disp "TOTAL IS
:Disp T
:Input "1 or 11?",C
:If C==1
:Then
:1->C
:Else
:11->C
:End
:End
:
:A+B+C->T
:Disp "","","","","","",""
:Outpt(1,5,"YOU DREW
:Outpt(3,1,A
:Outpt(3,4,B
:Outpt(3,7,C
:Outpt(5,3,"TOTAL OF
:Outpt(5,13,T
:Outpt(7,3,"STAY=1 HIT=2
:If T>21:Goto B
:Input G
:If G==1
:Then
:Goto E
:Else
:
:If D==1
:Then
:ClLCD
:Disp "TOTAL IS
:Disp T
:Input "1 or 11?",D
:If D==1
:Then
:1->D
:Else
:11->D
:End
:End
:
:A+B+C+D->T
:Disp "","","","","","",""
:Outpt(1,5,"YOU DREW
:Outpt(3,1,A
:Outpt(3,4,B
:Outpt(3,7,C
:Outpt(3,10,D
:Outpt(5,3,"TOTAL OF
:Outpt(5,13,T
:Outpt(7,3,"STAY=1 HIT=2
:If T>21:Goto B
:Input G
:If G==1
:Then
:Goto E
:Else
:
:If E==1
:Then
:Disp "TOTAL IS
:Disp T
:Input "1 or 11?",E
:If G==1
:Then
:1->E
:Else
:11->E
:End
:End
:
:A+B+C+D+E->T
:Disp "","","","","","",""
:Outpt(1,5,"YOU DREW
:Outpt(3,1,A
:Outpt(3,4,B
:Outpt(3,7,C
:Outpt(3,10,D
:Outpt(3,13,E
:Outpt(5,3,"TOTAL OF
:Outpt(5,13,T
:If T>21
:Then
:Goto B
:Else
:Pause
:Goto E
:
:Lbl B
:ClLCD
:Outpt(1,7,"BUST
:Outpt(3,5,"YOU LOSE
:Outpt(5,3,"TOTAL OF
:Outpt(5,12,T
:Pause
:Goto S
Top of Page,
Black Jack,
Guess
G
uess
A simple guessing game with a range of 1-100.
:ClLCD
:randInt(1,100->A
:Disp "GUESS 1-100
:0->X
:Lbl A
:Input B
:If A>B
:Then
:Goto B
:Else
:If A
:Then
:Goto C
:Else
:If A==B
:Goto D
:Lbl B
:1+X->X
:Disp "HIGHER
:Goto A
:Lbl C
:1+X->X
:Disp "LOWER
:Goto A
:Lbl D
:ClLCD
:1+X->X
:Outpt(3,5,"CORRECT!
:Outpt(5,8,X
:Outpt(7,6,"TURNS
:Pause
:ClLCD
Top of Page, Black Jack, Guess
Home, 83+ Games, 83+ Math, 83+ Other, 86 Math, 86 Other, Downloads