28 lines
527 B
Text
28 lines
527 B
Text
|
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
|