... с маджонгом и гейшами :)

[Hunta]

 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

[Advertiser]

[svinka]

Код:

Где украл? Права на публикацию есть?

[Hunta]

Где украл? Права на публикацию есть?

Давно из бана?

- - - Добавлено - - -

Модераторам: может его уже забанить навсегда?

[goodboy]

Rick Merrill
Digital Equipment Corporation
Maynard, Massachusetts
January 1, 1971
https://archive.org/stream/bitsavers...FOCAL_djvu.txt

[Hunta]

У меня источник покачественнее