Code:

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

## Comment