Top 10k strings from cribbag1.tap in <root> / bin / z80 / software / ZxTapGames.zip / games /

Back to the directory listing

   5 C(H(F,G),2
   3 B$="PAIR":
   3 ;"              "
   2 H(F,G)=H(F,G+1
   2 G(A)=G(A)+1
   2 C(H(F,G),1
   2 A$="12345":
   2 A$="12345"
   2 ;"             ======"
   2  ----------------------
   2       I SCORE 3 'FOR LAST'      
   2        YOU GET FIRST CRIB       
   1 scr       
   1 gggggggggggggggggggggggggggggggggggggggggggggggggggGGggggggggggggfffffffffffffgggggGggggfffffbgggffffffffffffffffffffffffffggggggffffffgggggfgggggggfffffffggggggffffffgfgWgggggggggggggggggg`gggggggggggWWggggggggggggggggggggggggggggggWWWWggggggggggggggggggggggggggggWWWWggggggggggggggggbgggggggggggWWWWWgggggggggggggggggggggggggggWWgWWggggggggggggggggggggggggggggggWWggggggggggggggg`ggggggggggggggWg`ggggggggggggggggggggggggggggggg```````````bgggggggggggggbbbbb`````````bbbbbgggbgggggggggb``````````bbbbbbbbgggggfgggggb````````bbbbbbbbbbbbgggggfgggg```````bbbbbbbbbbbbbbbggg`gfgggggggb```bbbbbbggggggggggggggffffffffffbffbbffffffffffffffggggfffffffffffffffffffffffffffffbffffffffffffffffffffffffffffffgggg``````````````fffffffff`````gggg````bbbb`bbbbb`bbbbb`bbbbb`b````
   1 WINNER-----------------
   1 USER PLAY--------------
   1 USER DISCARDS----------
   1 UDGS      @
   1 This program is written         by D J West and is              copyright of                    GAMMA SOFTWARE                  18 MILVERTON ROAD  
   1 THE 'CRIB' AND 
   1 TABLE------------------
   1 T=T+C(H(F,G),3
   1 T=T+C(H(A,PY),3
   1 T-C(H(F,G),3
   1 SORT-------------------
   1 SHOW-SCORE-------------
   1 SHOW-------------------
   1 SHIFTDOWN--------------
   1 SCORE------------------
   1 S(A)=S(A)+1
   1 RUNS...................
   1 Q=Q+(C(H(1
   1 Q=C(H(F,X(G,4
   1 Q=C(H(F,X(7
   1 PRINT SUB-TOT----------
   1 PR'S...................
   1 PLAY-SCORE DETECTOR----
   1 PLAY-------------------
   1 PLAY CARDS-------------
   1 OPTIONS?-------
   1 NEW GAME---------------
   1 NEW DEAL---------------
   1 N$="A23456789
   1 MACHINE PLAY-----------
   1 MACHINE DISCARDS-------
   1 INSTRUCTIONS-----------
   1 HIS NOB................
   1 H(F,G)>100
   1 H(F,G)=H(F,G)-100
   1 H(A,PY)=H(A,PY)+100
   1 H(A,F)>100
   1 GIVEN F & A
   1 FLUSHES................
   1 DIS       
   1 D$=D$+" THIRTY-ONE +"
   1 D$=D$+" RUN ("+
   1 D$=D$+" FIFTEEN +"
   1 D$="  PAIRS  ROYAL +"
   1 D$="  PAIR +"
   1 D$="  DOUBLE PAIRS ROYAL +"
   1 Cribbage  
   1 CRIBBAGE                        
   1 CRIBBAGE  
   1 CRIB-BOARD-------------
   1 CG=C(H(F,G+1
   1 CARDS     
   1 C(H(A,F),3
   1 B$="PAIRS  ROYAL":
   1 B$="FLUSH":
   1 B$="FIFTEEN"
   1 B$="DOUBLE PAIRS ROYAL":
   1 B$="'ONE FOR HIS NOBS'":
   1 A$=A$+"- DOUBLE GAME ":
   1 A$=A$+"- - SCORE - "+
   1 A$=A$+" WIN "
   1 A$=A$+" - YOU ARE WINNING"
   1 A$=A$+" - YOU ARE LOSING"
   1 A$=A$+" - - [ PRESS ANY KEY FOR NEW GAME ]"
   1 A$="-----*-----"
   1 A$=" - - YOU"
   1 A$=" - - I"
   1 A$,B$,Q,Z:
   1 A$(PY)="0"
   1 A$(H);"  ":
   1 =======================
   1 ;"[ PRESS ANY KEY ]":
   1 ;"YOUR  HAND";
   1 ;"THE SHOW"
   1 ;"THE PLAY"
   1 ;"SHOW - SCORES"
   1 ;"REPEAT INSTRUCTIONS ? [ Y / N ]":
   1 ;"PLAY - SCORES"
   1 ;"PAIRS, PAIRS ROYAL AND          DOUBLE PAIRS ROYAL"
   1 ;"PAIRS ROYAL"
   1 ;"HIS NOBS"
   1 ;"FLUSHES"
   1 ;"FIVE-CARD CRIBBAGE"
   1 ;"FIFTEENS AND RUNS"
   1 ;"FIFTEEN"
   1 ;"DOUBLE PAIRS ROYAL"
   1 ;"DEAL AND DISCARDS"
   1 ;"BY D J WEST ";
   1 ;"5-CARD  CRIBBAGE";
   1 ;"'TWO FOR HIS HEELS'":
   1 ;"'ONE FOR LAST'":
   1 ;"""GO""";#0
   1 ;" [ PRESS ANY KEY FOR NEW DEAL ] ":
   1 ;" THE CRIB ";
   1 ;" MY  HAND ";
   1 ;"   [ PRESS ANY KEY FOR SHOW ]   ":
   1 ;"    INSTRUCTIONS ? [ Y / N ]    ":
   1 ;"       [ PRESS ANY KEY ]        ":
   1 ;"         DISCARDS ?? 
   1 ;"              ":
   1 23692,255:
   1 2*2;11223,11233,12233
   1 15'S...................
   1 ------PLAY-LOOP------
   1 ,CP)=H(A,PY)
   1 +(H*G))="-"
   1 +(H*G))="+"
   1 *(H(F,G)=TU);
   1 *(C(H(X,Y),1
   1 )>C(H(F,G+1
   1 )=C(H(F,G+3
   1 )=C(H(F,G+2
   1 )=C(H(F,G+1
   1 )-C(H(F,G),2
   1 )+C(H(F,X(G,5
   1 )+C(H(F,X(7
   1 )),S(A)-(S(A)>30
   1 ))+N$(C(H(X,Y),2
   1 (no. of cards in   run)
   1 (F),H(4,F):
   1 (C(H(X,Y),1
   1 'two   for his heels'
   1 'three for  last'
   1 'one for last'
   1 '"When a player reaches 61 the    game ends.  If the loser has    scored less than 31, a Double-  game or 'lurch' is scored."
   1 '"What you discard depends largelyon whether or not it is your    crib."
   1 '"Type 2 numbers (1-5) and ENTER."
   1 '"This continues until all cards  are showing, or no card can be  played without making the total more than 
   1 '"These discards go towards form- ing the 'crib' or 'box'..."
   1 '"The object of this two-player   game is to score 61 before your opponent, the Spectrum."
   1 '"The discards having been made,  the 'start' is turned up.  This is the card which later becomes common to both hands and the    crib.  (see 'Show')"
   1 '"The crib is scored to alternate players at the end of each deal.";
   1 '"Starting with whoever DOESN'T   have the crib, the players take turns in laying their cards, oneby one, on the table, keeping a running-total of the cards' pip-values.";
   1 '"Scoring in the Show is similar  to that of the Play and goes as follows..."
   1 '"Scores are made during the Play as follows..."
   1 '"If you're new to the game and/or all is not clear, read these in-structions again and try playinga game, it's probably easier    than you think."
   1 '"If you're new to the game and/or all is not clear, don't worry,  the easiest way to learn Crib-  bage is to play it."
   1 '"Good luck..."
   1 '"Five cards are dealt to both    players from a standard 52-card pack.  When the Spectrum has    made two discards, you are promp-ted to do likewise:"
   1 '"Again, starting with the player who doesn't have the crib, the  hands are layed on the table,   along with the start, evaluated and scored."
   1 #pp;" ";x(a,4);x(a,5):
   1 "as Play except cards are in handor crib"
   1 "as Play except ANY combinations in hand or crib score"
   1 "You play, when prompted, by typ-ing a card number (1-3) and thenENTER.  "'"All invalid inputs are ignored."
   1 "Who gets the first crib is deter-mined at random, and, to offsetany possible dissadvantage, the other player scores 
   1 "Total pip count = 15  - 
   1 "Then the crib-holder's hand is  scored and, finally, the crib   itself."
   1 "The last 3 or more cards can be arranged in sequence eg. A32 or 
   1 "The computer deals and keeps    score automatically."
   1 "Jack (in hand or crib) is the   same suit as the start - score 
   1 "If the start is a Jack then who-ever has the crib scores 
   1 "CRIBBAGE"
   1 "At the end of the Show, you are asked to press a key for the    next deal; if you missed a scoreand are unclear about how it wasmade, you can repeat the Show bypressing [ R ]."
   1 "All cards in hand (inc. start)  are the same suit - score 
   1 "All cards in hand (exc. start)  are the same suit - score 
   1 "All cards in crib (inc. start)  are the same suit - score 
   1 "4 cards of the same denominationplayed in turn  - 
   1 "3 cards of the same denominationplayed in turn  - 
   1 "2 cards of the same denominationplayed in turn  - 
   1 " (Aces always count low,J,Q and K count 10)."
   1 "  The last to play scores 
   1 "         DISCARDS ?? ";
   1 "          YOUR PLAY ? ";
   1  unless thetotal is exactly 
   1  is  scored."
   1  GAMMA SOFTWARE ";
   1  GAMMA SOFTWARE                1984
   1      YOU SCORE 3 'FOR LAST'     
   1        FIRST CRIB IS MINE       
   1            YOUR  CRIB           
   1             MY  CRIB            
   1              LONDON NW6 7AS.            *** PROGRAMMERS ***             If you just have written        something that could be a       Hot Seller, send it to us       NOW for instant evaluation.
   1