: YATZEE: ORIGINAL BY JL HELMS & MF PEZOK FOR CCII: CORONADO, CA: ADAPTED TO IBM PC BY PATRICK LEABO : TUCSON, AZ:$ AZ?. C(): K(,): F(): A$()o8 S(,): M( ),TN(),DU(): : ,: PB ,: ~: N  : TN(N):L MENUV `C1 ':C2 ?:C3 !:C4 8j 4t: N~ 49,51,53,54,56,61 : draw yatzee board* ((,))5 ,^ "HOW MANY PLAYERS? ";: ,,: *v : N(KB$)0 N  N   N  p CC  h A  N ,:(F," ");: ,  "PLAYER NUMBER "A;" NAME PLEASE ";5 *: ;A$(A): A$(A) "" : KA$(A)(A$(A),)S  Ay CC  N N :A$(N) "IBM PC" ,(A 2 < NEXT ROLL PRESETF PA A : A N A ZH : d A  n K(,A)  Px ,: (<," ");3 , (A ) @ A$(A);G \ INITIAL ROLLd vH H :MR  B  J B :C(B) ( () )DIE C(B):F(B)    B A CC N \  PLAYER SELECTS QTY TO ROLL )" 9, H  6 j,: " HOW MANY DICE TO ROLL AGAIN? ";: ,,:  : :F$KB$: F$;:F(F$)0: ,,@ F  J F  F  "T F  ^ F  h r PLAYER SELECTS DICE TO ROLL| H H * E NN  :F(NN) : r " ROLL WHICH";F;"DICE AGAIN ";: ,, *: ND  F: :F$KB$::F(ND) (F$) 0: H: F(ND)  ND  ND F:  F(ND)  F(ND)   F(ND);:X :XF " J  F2 F  L F(J) F(J ) X a F()  XF  J: XF  H H : " X , & PLAYER ROLLS DICE AGAIN0 : B  D F(B)  NC(F(B)) ( () )XDIE C(F(B)):J F(B) &b 0l <vF(B) D BN U o PLAY BOARD NUMBERv   " PLAY BOARD NUMBER? ";: ,,:  : :I$KB$:I(I$) 0: ,,: I  I I  H: I  (I 7);:   I;# I  I  B I  K( ,A)  \W K(I,A)  \d ,: "NO - NO - DUMMY - - TRY AGAIN";: ND :: ,: (<," ");  ,:(<," ");: ,   HIGH PITCH CLICK* "L64T200N70":4 GLISSANDO SOUNDE> "MBt255MLL64O5CC#DD#EFF#GG#AA#B":\H: LO PITCH CLICKrR "L64T200N46":z\ f DICE LOGICp CLEAR/SET S(M,K)z  M   K  S(M,K)  K M J  X C(J):S(X,) S(X,) *P S(X,):S(X,P) J2 J: ^ SET S(0,K)=M SEQUENCE BY QTYf oX  J    M    S(M,) J . $ S(,X) M:X X . M8 JB A CC N  L I   V ` CHECK PLAYER BOARD 1-6&j 0t B~ X   ] K(I,A) I S(S(,X),)g o  CHECK PLAYER BOARD 7-13  I   , , , ,2 ,Z ,x  S(S(,),)    .:  S(S(,),)    .: @ S(S(,),)  S(S(,),)   U K(,A) :  S(,)  S(,)  S(,)  S(,)  (  S(,)  S(,)  S(,)  S(,)  (  S(,)  S(,)  S(,)  S(,)  (   ( K( ,A) : L2 S(,) S(,) S(,) S(,) S(,)  P < S(,) S(,) S(,) S(,) S(,)  P F  P K( ,A) (: Z S(S(,),)   d K( ,A)  K( ,A) 2: n K( ,A) K( ,A) d: x .:  2 SET PLAYER INVALID: J K(I,A) T \ s COMPUTER CHECKS{  I   S(S(,),)  K( ,A)  K( ,A) 2:  S(S(,),)  K( ,A)  K( ,A) K( ,A) d:  I , S(S(,),)  K(,A)  .: 5 I w S(S(,),)  S(S(,),)  K(,A)  K(,A) :  K( ,A)  T " I  , S(,) S(,) S(,) S(,) S(,)  J  6 S(,) S(,) S(,) S(,) S(,)  J @ T # J K( ,A) (: ; T K( ,A)   E ^ I  { h S(,)  S(,)  S(,)  S(,)   r S(,)  S(,)  S(,)  S(,)   | S(,)  S(,)  S(,)  S(,)    ! K( ,A) : ! H  D ! I T! S(,)  K(,A)  K(,A)  S(,): ]! I ! S(,)  K(,A)  K(,A)  S(,): ! I ! S(,)  K(,A)  K(,A)  S(,): ! I  " S(,)  K(,A)  K(,A)  S(,): " I A" S(S(,),)  K(,A)  .: J" I ~" S(,)  K(,A)  K(,A)  S(,): " I "& S(,)  K(,A)  K(,A) S(,): "0 I  : K( ,A)  D #: C() C() C() C() C()  .: #D 0#N CLEAR DICE NUMBER F(B)@#X COMPUTERH#b V#l B  b#v F(B) j# Br# # GET DICE CONTROL# COMPUTER# # H H : H  # I M(MR): I   # MR MR : MR  MR #  $ I  K( ,A)   3$ K(I,A)   C$ I  p [$ I  I   c$ {$ GET DICE 1,2,3,4$ COMPUTER$ $* M :J $4 M M : M  $> K S(,M): K  $H L  S(K,)$R F(J) S(K,L):J J %\ L%f 4 %p ,%z GET DICE FH<% COMPUTERD% R% M :J j% M M : M  % K S(,M): K  % K   % L  S(K,)% F(J) S(K,L):J J % L%  % % GET DICE LG/SM ST& COMPUTER & &M :J 1&M M : M  `K&$K S(,M): K  ``&. S(K,)  s&8 L  S(K,)&BF(J) S(K,L):J J &L L&V &` F()  &jL ( () )&tF() &~ L  F() & ' COMPUTER ROLL AGAIN' %' B  8' F(B)  W'C(F(B)) ( () )s'DIE C(F(B)):J F(B) }' ' 'F(B) ' B' \' '  COMPUTER MUST SCORE' 'MR MR : MR  MR ((I M(MR): I  (2 K(I,A)  .(< I  x8(F J(P X  a(Z K(I,A)  w(dK(I,A) S(I,) I(n K(I,A)  (x I  K( ,A)  .( K(I,A)  K(I,A) ( ( GET SCOREBOARD TOTALS( ) J  )K(J,A) ) J+) J  @) K(J,A)  ])K(,A) K(,A) K(J,A)e) J) K(,A) > K(,A) #) J   ) K(J,A)  )K(,A) K(,A) K(J,A)) J)"K(,A) K(,A) K(,A) K(,A)), *6 PRINT SCORE*@ !*J >,*T ,:*^ J  o*h K(J,A)  J, (A ) : " 0";: *r K(J,A)  *| J, (A ) : "###";K(J,A);* J* J   * K(J,A)  J, (A ) : " 0": + K(J,A)  9+ J, (A ) : "###";K(J,A)A+ Ji+ , (A ) : "###";K(,A)+ , (A ) : "###";K(,A)+ , (A ) : "###";K(,A)+ , (A ) : "###";K(,A)+ ,, A CC N 2 , 3, RESET M(I) COMPUTER PRIORITIES;, J, B   ^,& M(B)  :v,0 M(B) I M(B) ~,: B,D 2,N ,X INSTRUCTIONS,b ,l " Y A H T Z E E ",v "THIS IS THE GAME OF YAHTZEE - "-- "FROM 1 TO 7 PLAYERS MAY PLAY AT THE SAME TIME"c- "WITH EACH PLAYERS CURRENT STATUS SHOWN ON THE"- "PLAYING BOARD, INCLUDING TOTAL SCORES"- - "THE ONLY DIFFERENCE BETWEEN THIS GAME AND THE". "POPULAR HOME GAME IS THAT YOU MAY GET MULTIPLE":. "YAHTZEES HERE ..... THE FIRST YAHTZEE SCORES"p. "50 POINTS, AND EACH ADDITIONAL ONE WILL YIELD". "A BONUS OF 100 POINTS (IF THE YAHTZEE IS PUT". "INTO THE YAHTZEE BLOCK)..... IN ADDITION YOU" / "WILL BE GIVEN AN EXTRA TURN AT THE END OF"#/ "THE GAME": : V/ "THE WINNER WILL BE ANNOUNCED AT THE END OF"/ "THE GAME - - BUT I WOULDNT ADVISE ANYONE"/  "TO BE LAST......."/:/  *: "HIT RETURN TO CONTINUE ";Y$:/* /4 0>  , : "YATZEE.BAS VER 3.2"#0H  , : "27 JUN 79"@0R , : "DEVELOPED BY"n0\ , : "J.L. HELMS & M.F. PEZOK"0f,, : "1009 LEYTE RD / 1321 SAIPAN RD"0p ,: "CORONADO, CA. 92118"0z ,: "(714) 435-6992 / 437-4659"0( )1 1 !1 END - SORT WINNER(1 =1X : N  N1 J  N m1 K(,J) K(,J ) 1K K(,J):K(,J) K(,J ):K(,J ) K1A$ A$(J):A$(J) A$(J ):A$(J ) A$1X 1 J1 X ,1 2 PRINT WINNERS STANDINGS2 $2$ P22. J  NI28 ,:(<," ");c2B J  J N xs2L ,: A$2V A$;" ";A$(J);" ";2`TT  (N J ): TT  TT 2j T  TT: T2t J2~ ,:(<," ");3 ,: "+++ END OF GAME +++";'3 T  : T/3:Z3 *: ,: "PLAY AGAIN? Y/N ";Y$|3 (Y$,) "Y" : V3 (Y$,) () : 3 (Y$,) "N" : 33 3 3 CLEAR MATRICES3 3 K   4  J  4K(J,K) #4 J14(A$(K) ""942 K?4<F4F e4P "+++ THE WINNER +++"4Z " SECOND PLACE"," THIRD PLACE "4d " FOURTH PLACE "," FIFTH PLACE "4n " SIXTH PLACE "4x " DEAD LAST "4 4 ERASE DIE4 5 ,:"";:)5  J ,2:" ";F5  J ,2:" ";c5  J ,2:" ";m5 ,t5 |5 5 CHECK IF DONE5 5X 5 J  N5Y 5 K   5" K(K,J)  Y 5, K56K(,J) Y 6@ Y  X X 6J J'6T X N A .6^ 66h V6r COMPUTER PRIORITIES INFO^6| h6 |o6 v6 6 PRINT DIE6 6 ,: ,,6 6 "L32T200N=TN(DIE);"6 DIE *,,,v,:,6:6: SIX7:F7 J,2: "";( );();( );();( );();( );7 J,2: ( );( );( );( );( );( );( );7 J,2: ( );();( );();( );();( );: H7:7&: FIVE70:,8: J,2: "";( );();( );" ";( );();" ";b8D J,2: " ";( );" ";();" ";( );" ";8N J,2: " ";();" ";( );" ";();" ";: H8X:8b: FOUR8l:8v J,2: "";" ";();" ";( );();" ";9 J,2: " ";( );( );( );V9 J,2: " ";();" ";( );();" ";: H^9:n9: THREEv9:9 J,2: "";" ";();" ";9 J,2: " ";();" ";9 J,2: " ";();" ";: H9::: TWO ::0: J,2: "";" ";();" ";L: J,2: " ";v: J,2: " ";();" ";: H~: ::: ONE: ::* J,2: "";" ";:4 J,2: " ";();" ";:> J,2: " ";: H ;H GET OUT;R ,;\ ,$;f ,;p C;z COMPUTER OPTIONK; U;CC `; ,; "DO YOU WISH TO PLAY AGAINST ME? Y/N ";: *;Y$: Y$""  : ; Y$ "N" ; Y$ "Y" ;CC ; ; < CHECK FOR ACES-SIXES ANY POSITION#< .<X << J  S< S(,J) I X J[< Jb<$ j<. <8 TOTAL DICE VALUE COLUMN 18 DONE/NOT DONE STATUSM> ROW 1- 7 PLAYERS SCORE> ROW N COMPUTERS SCORE (<7 PLAYERS)> > F(5) DICE NUMBER TO ROLL AGAIN>  A$(7) PLAYERS NAMES> S(6,5) COMPUTERS DICE LOGIC5? COLUMN 0 DICE NUMBER BY QTY SEQUENCEh?( COLUMN 1 QTY/POSITION FOR ACES?2 COLUMN 2 QTY/POSITION FOR TWOS?< COLUMN 3 QTY/POSITION FOR THREES@F COLUMN 4 QTY/POSITION FOR FOURS8@P COLUMN 5 QTY/POSITION FOR FIVESl@Z COLUMN 6 QTY/POSITION FOR SIXES@d ROW 0 QUANTITY OF DICE@n ROW 1- 5 POSITION OF DICE IN C(5)@x A SAMPLE S(Y,X) FOR DICE OF 5,2,4,6,4 A )A Y/X 0 1 2 3 4 5`A 0 4 6 5 2 IN QTY/VALUE SEQUENCEA 1 NO DIE=1A 2 1 2 1 TWO POSITION 2A 3 NO DIE=3!B 4 2 3 5 2 FOURS POSITIONS 3 AND 5TB 5 1 1 1 FIVE POSITION 1B 6 1 4 1 SIX POSITION 4B + +B + + ++++++++++++++++ SECTION FOR POSITION DATAC + +------------------ COLUMN INDICATES QTYQC +------------------------ INDEX EQUATES TO DIE VALUEYC C M(13) PRIORITY NUMBERS FOR MUST SCORE WHERE VALUEC" REFERS TO PLAY BOARD NUMBERC, D6 TO RUN INTERNAL CHECKS SECTION - ENTER A -1 FOR3D@ PLAYING BOARD NUMBER OR QTY OF DICE TO ROLLeDJ AGAIN - - DATA WILL NOT BE LOST AND SCREENDT WILL BE RESET WITH CURRENT DICE SHOWN - -D^ PLAYERS/COMPUTERS SCORE WILL NOT SHOW UNTILDh AFTER THEIR TURNDr E| COMPUTER PRIORIRIESE 2E 11,9,12,8,1,2,3,4,5,6,10,7,13QE Y   : M(Y): : : fE player's boardlEE" ͸E"ACES........1..................1"E"TWOS........2..................2"&F"THREES......3..................3"UF"FOURS.......4..................4"F"FIVES.......5..................5"F"SIXES.......6..................6"F" ͵"G"TOTAL UPPER...................."=G" ͵"lG"3 OF A KIND.7..................7"G&"4 OF A KIND.8..................8"G0"FULL HOUSE..9..................9"G:"SM STRAIGHT.A..................A"(HD"LG STRAIGHT.B..................B"WHN"YATZEE......C..................C"HX"CHANCE......D..................D"Hb" ͵"Hl"TOTAL LOWER...................."Iv"TOP BONUS......................">I"GRAND TOTAL...................."lI" ;"I N : N,.: N;:II ,:(F," ");: ,:I: KB INPUT AND ESCAPEIKB$"": KB$"":KB$:J KB$()  : II ,:(F," ");: ,:I: KB INPUT AND ESCAPEIKB$"": KB$"":KB$:J