... с маджонгом и гейшами :)
Код:
C:FOCAL-11,TEST
50.05 T !"WELCOME TO BLACKJACK!"!
50.10 E
50.20 S H=5
50.30 T !!" PLAYER DEALER"!
50.40 S Z=FNEW(FNEW(6,52),53)
50.50 S Z=FNEW(1,52);T " XXX"!;D 50.4
50.55 S Z=? ?FNEW(FNEW(1,52),53)
50.60 S A=FNEW(6,51)
50.70 I (FNEW(1,51))50.76,50.75,50.80
50.75 T "DEALER WINS! XXX WAS ";S Z=FNEW(C(1),53);G 50.1
50.76 I (A)50.75,50.85,50.85
50.80 I (A)50.75,50.85,50.90
50.85 T "PLAYER WINS!"!; G 50.1
50.90 A "HIT? ";S A=FCHR(-1)-192-0Y;T !;I (A)50.92;D 50.4
50.92 I (FNEW(1,51)-18)50.55;I (A)50.94;G 50.6
50.94 I (FNEW(1,51)-FNEW(6,51))50.85;G 50.75
51.05 C-SCORE COUNT INDEX
51.10 S &1=0; S &2=0; S Z=&-1
51.20 S Z=Z+1;I (Z-&-5)51.3;I (&1-22)51.5;S &=-1;R
51.30 I (C(Z))8,51.2;S &2=&2+1
51.35 I (C(Z)-37)51.37;S &1=&1+10;G 51.2
51.37 S &1=&1+ 1+ FITR<(C(Z)-1)/4>;G 51.2
51.50 I (&2-5)51.6;G 51.7
51.60 S Z=Z-1;I (Z-&)51.8;
51.61 I (FITR<(C(Z)-1)/4>)51.6,51.62,51.6
51.62 I (&1-11)51.6,51.7,51.6
51.70 S &=0;R
51.80 S &=&1;R
52.05 C-DEAL
52.10 S Z=FITR(53*(FRAN()));IF (Z)8,52.1;
52.20 S &1=1
52.30 I (Z-C(&1))52.4,52.1;
52.40 S &1=&1+1;I (&1-H)52.3;
52.50 S &1=&
52.60 I (C(&1))8,52.7;S &1=&1+1;G 52.6
52.70 S C(&1)=Z;S &=Z
53.01 S Z=53.11+FITR((&-1)/4)/100;D Z;T " OF
53.02 S Z=53.24+[&-FITR(<&-1>/4)*4-1]/100;D Z;T !;R
53.11 T "ACE
53.12 T "DEUCE
53.13 T "THREE
53.14 T "FOUR
53.15 T "FIVE
53.16 T "SIX
53.17 T "SEVEN
53.18 T "EIGHT
53.19 T "NINE
53.20 T "TEN
53.21 T "JACK
53.22 T "QUEEN
53.23 T "KING
53.24 T "CLUBS
53.25 T "DIAMONDS
53.26 T "HEARTS
53.27 T "SPADES
