Filename:7-NCARD
If Not (X>21) And Not (X<Y) And Not (Y>18)
Then Int (Ran#*13)+1->T
Y+T->Y
Mat B[1,4]+1->Mat B[1,4]
Locate 13,2,"  "
Locate 18,2,"  "
Locate 13,2,T
Locate 18,2,Y
IfEnd
If (X>21 And Y>21) Or X=Y
Then Mat B[1,3]+1->Mat B[1,3]
Locate 1,6,"DRAW"
Goto 1
IfEnd
If ((Y>21) Or (X>Y)) And Not (X>21)
Then Mat B[1,1]+1->Mat B[1,1]
Locate 1,6,"YOU WIN!"
Goto 1
IfEnd
If ((X>21) Or (Y>X)) And Not (Y>21)
Then Mat B[1,2]+1->Mat B[1,2]
Locate 1,6,"YOU LOSE!"
Goto 1
IfEnd
Lbl 1
Prog "7-NEWG"
Return