N.Wallace \ 0#hh# <@TT(__\\\&]\__]___\z'X![!@P!!(( W K SR PW"N.Wallace"23552\,(7962-23552\):251255:110n *5:5:x=6:y=0: Z=021 -z,8;X;Y;1;" STOP THE TAPE " W=X:X=Y:Y=W:Z :#0;7;2;" PRESS ANY KEY TO CONTINUE "  0 <7:7::'''''" YOU DO NOT HAVE A PRINTER" ("" CONNECTED IF YOU HAVE ONE" 2" SWITCH OFF AND CONNECT" <" THEN RELOAD." F9'''7;2;" IF YOU DO NOT HAVE A PRINTER " P67;2;" PRESS ANY KEY TO CONTINUE " Z 0 d::10 ,8;0;5;" START THE TAPE " n7#1 ;1;"LOADING MAIN PROGRAM PLEASE WAIT" x""23552\ xyw1 N.Wallace \\ -23552\):251255:110n THE CRIBB #*\%* # # <@TT8#ꅶ\\\]\] *\l2X![!@P!!88  41W K SR P"THE CRIBB"23552\,(7962-23552\):23659k\,0:"""a":23659k\,2::23659k\,0:10 ,6;" PLEASE STOP THE TAPE ":G=120:װ".1",0:G:VIEW=0 3"23658","8":"4":ڰ"4":ٰ"0":"1000":"1005" װ".1","10":23659k\,2:;:#0;" PRESS ""C""opy or ""P""roceed ":23659k\,0:0:b$=:b$="C":"10" b$"P""10"  d;li,co;:a="1"̱a$:a$(a);:a$(a)32 װ".01","0" ia: W23659k\,2::23659k\,0:"0","9";" INSTRUCTIONS ": 9li="2":co="0":a$=" Welcome to THE CRIBB a computer" (a$=a$+"Simulation of the popular card" +a$=a$+" game cribbage.The six card game" *a$=a$+" for two players is the version " Ha$=a$+" played here.You play one player and the computer opposes you." "100" LOli="9":a$=" The object of the game is to score 121 before your opponent." VAa$=a$+" The game is made up of six partswhich are as follows:-" `"100":li="14":CO="10" ja$="(1) THE DEAL.":"100" t&A$="(2) THE CRIB.":LI="15":"100" ~%A$="(3) THE CUT.":LI="16":"100" %A$="(4) SCORING.":LI="17":"100" &A$="(5) THE PLAY.":LI="18":"100" &A$="(6) THE SHOW.":LI="19":"100" "10" "1000":li="2":co="0" 'a$=" THE DEAL:-The deal is made from" Ha$=a$+"a standard pack of 52 cards and consists of six cards dealt to" a$=a$+" each player." "100" Kli="7":a$=" THE CRIB:- The crib is an extrahand made up by each of the" Ya$=a$+" two players discarding 2 cards thus leaving each player with a four card hand." a$=a$+"The crib hand is givento each player alternately with each hand. The player who gets the 1st crib is chosen randomly at the start of the game." "100" "10" c"1000":CO="0":li="2":A$=" THE CUT:- After the cards have been discarded by the players an" a$=a$+"extra card is dealt an is known as THE START card. If the start is a JACK then the player who has the crib scores TWO POINTS FOR HIS HEELS." ("100" FVIEW=1VIEW=0: xrli="10":a$=" SCORING:- Scoring takes place during play and at the show the scoring criteria are as follows:-" ="100":lI="14":co="1":a$="(1) FIFTEEN SCORES 2 POINTS" 1"100":LI="15":A$="(2) PAIR SCORES 2 POINTS" 7"100":LI="16":A$="(3) PAIR ROYAL SCORES 6 POINTS" 8"100":LI="17":A$="(4) PAIR ROYAL DOUBLE SCORES 12" 3"100":LI="18":A$="(5) RUNS 1 POINT PER CARD " 3"100":LI="19":A$="(6) FLUSH 1 POINT PER CARD" 8"100":A$="EXAMPLES OF EACH NOW FOLLOW.":LI=21 "100" "10" "1000":co="1":li="12" a$="(1) FIFTEENS -:Any combination of 2 or more cards which have a face value of FIFTEEN scores TWOpoints for each combination." 8:"100":po1="6":po2="10":q="1"̰"2":"5000":q uli="17":co="0":"17","0";"For example 9 + 6=15":co="22":a$=" and wouldscore TWO points.":"100" "10" @ "1000" Jco="1":li="12":a$="(2) PAIR -:A pair is made up ofany two cards of the same face value and each pair scores TWO points.":100d T'po1="6":po2="10":"5000":"5000" ^"17","0";"For example 8 & 8":li=17:co=19:a$=" are the sameface value therfore would score TWO points." h"100":"10":"1000" co="1":li="12":a$="(3) PAIR ROYAL-:A pair royal ismade up of 3 cards of the same face value and scores SIX points ie. 2 points for each pair thatis possible." "100" -po1="6":po2="8":q="1"̰"3":"5000":q ˆ"18","1";"For example 8,8 and 8":li="18":co="26":a$="have the same face value and therforewould score SIX points." "100":"10":"1000" co="1":li="12":a$="(4) PAIR ROYAL DOUBLE-: A pair royal double is made up of FOUR cards of the same face value andscores TWELVE points in total. ie. 2 points for each pair thatis possible." "100" -po1="6":po2="4":q="1"̰"4":"5000":q &"19","1";"For example 8,8,8 and 8":li="19":co="28":a$=" allhave the same face value and thus would score TWELVE points." 0"100":"10":"1000" lco="1":li="12":a$="(5) A RUN-:A run is made up of 3 or more cards in sequence ONE points is scored for each of thecards in the sequence." v"100" -po1="6":po2="4":q="1"̰"4":"5000":q "17","1";"For example 4,5,6 and 7":li="17":co="29":a$="areall in sequence and therfore ONEpoint is scored for each card inthe sequence making a score of FOUR points." "100":"10":"1000" Иco="1":li="12":a$="(6) A FLUSH-:A flush is made upof 4 or more cards of the same suit ONE point is scored for each of the cards in the flush." "100" -po1="6":po2="4":q="1"̰"4":"5000":q "17","1";"For example 4,5,7,9 and ss":li="17":co="29":a$="areall of the same suit and thus ONE point is scored for each of the cards in the flush making a score of FOUR points." &"100":VIEW=1VIEW=0: "10":"1000" 4:a$="THE PLAY-:The play begins afterthe discard and cut." 9a$=a$+"The player who does not have the crib playsfirst by choosing a card from his hand.This is placed face up and its value is added to the hand total.( FACE cards have thevalue of TEN.)" >co="1":li="2":"100" Hco="1":li="10" Ma$="The other player then plays andif any of the scoring criteria are met (except flush) then the appropriate number of points areawarded and added to the SCORE of that player." R"100" \li="17":a$="Play then alternates between players (scoring if appropriate)until 31 is reached or until neither player can play without going over 31." f"100":"10":"1000"  li="2":a$="THE PLAY Cont.:IF 31 is reachedthen the player who played the last card scores TWO FOR 31.IF 31 is not reached and neither ofthe players can continue to playwithout going over 31 then the player who played the last card scores ONE FOR LAST CARD." "100" li="11":a$="The cards are turned face down and the player who did not play last now plays (if they have anycards).Play alternates until allthe cards are played." "100" (li="18":a$="THE SHOW IS NOW SCORED." &"100":VIEW=1VIEW=0: "10":"1000" 6001q:li="2":co="2":a$="THE SHOW -:After all the cardshave been played the players score their hand plus the START starting with the player withoutthe crib":100d li="8":a$="Points are scored for any of the scoring criteria met except that a four card flush must not include the START card.If any ofthe players has a JACK of the same suit as the START then theyscore ONE FOR HIS NOBS.":100d {li="16":a$="Once the hands are scored the crib is scored in the same way except only five card flushes are allowed." "100" ;CO="1":li="21":a$="A SAMPLE SHOW NOW FOLLOWS":"100" MLI="12":"10":"1000":PO1="6":PO2="2":W=15:"5000":W `"10","26";"START":A$="This hand scores 24 and is made up as follows-:":"100" %"13","15";" 15'S SCORE 8 " ?"15","2";"6+4+5=15 SCORES 2 POINTS" $3"16","2";"6+4+5=15 SCORES 2 POINTS" .3"17","2";"6+4+5=15 SCORES 2 POINTS" 8>"18","2";"6+4+5=15 SCORES 2 POINTS":"10" &"13","15";" RUNS SCORE 12 " @"15","2";"4+5+6=RUN SCORES 3 POINTS" >"16","2";"4+5+6=RUN SCORES 3 POINTS" >"17","2";"4+5+6=RUN SCORES 3 POINTS" I"18","2";"4+5+6=RUN SCORES 3 POINTS":"10" &"13","15";" PAIRS SCORE 4 " ;G="15"̰"20":G,"2";" ":G <"15","2";"4+4=PAIR SCORES 2 POINTS" :"16","2";"5+5=PAIR SCORES 2 POINTS" /"18","2";" PAIRS SCORES 4 POINTS" /"19","2";" RUNS SCORE12 POINTS" /"20","2";"FIFTEENS SCORE 8 POINTS" 5"21","2";" TOTAL SCORE 24 POINTS " "10" h"1000":CO="1":LI="2" YA$="Please choose what you would like to do next by pressing the option you require."  100d 0(''4;"(1) READ ALL INSTRUCTIONS" :$''4;"(2) READ INTRODUCTION" D''4;"(3) READ SCORING" N''4;"(4) READ PLAY" X''4;"(5) READ SHOW" ]$''4;"(6) LOAD MAIN PROGRAM" b]23659k\,2:#0;" PLEASE PRESS YOUR CHOICE ":23659k\,0:"0" F$= F$="1"VIEW="0":"2" ,F$="2"VIEW=1:"2":"10":"4200" 8F$="3"VIEW=1:"1000":"1400":"10":"4200" 8F$="4"VIEW=1:"1000":"2100":"10":"4200" 1F$="5"VIEW=1:"1000":"3000":"4200" qF$="6"23659k\,2::23659k\,0::10 ,5;" PLEASE START THE TAPE ":""  "4500"  IX$:INK=0:V$=C$(X$,2,2):V$=""V$=""INK=2 >a="1"̰"7":ܰ"1";ް"1";ڰ"7";ink;"2"+a,po2;C$(x$,a):a װ".1","10":po2=po1+po2 | pR"1","2","3","4","3","4","5","3","4","5","6","7","8","9","12","10","11","12","13" q"7","10","8","11","2" '123627K\+256*23628L\-23755\  9 9 9 96 6 6 68 8 8 88 8 8 88 8 8 88 8 8 84 4 4 45 5 5 56 6 6 64 4 4 45 5 5 57 7 7 79 9 9 9oo  n Rd ieF5X2VBPARPlease choose what you would like to do next by pressing the option you require.1 THE CRIBB #*\\#*23552\):23659k\,0:"""a":23659k\,2::23659k\,0:10 ,6;" PLEASE STOP THE TAPE ":G=120:װ".1",0:G:VIEW=0 s Xעl||88|888||8 qᑉyyժժ|BB|@@???????B????R?????? ????H???????B????R??????????H????????B????R????????H????? ???B????R???? ????H??????~???<????$????~????>????????????????????` H6m H !  H< ! 0  ! ٪`( !  h@  ! B><BB<6m HB%%I HB| %I@ @ %I(.~ %I h@0@ %I0B @bBBH@BBDbB HB ! H ! ߠp  ! (* !  h@ ! H~ H<RBB`H@BBBR@m H~ %IH?T<A %I\( %Io @?qH?BHJBB H@B~BJNm HB !  ! Ү ! F(@* ! ` ~ ! IxB HBFBZml H@BBDFB HB %I  %I٪? %I#( @: %I? @ %IIH? H~><B<$ml H~~B<o H ! B| ! Ԫ0b  ! ! `~ ! >@ ! @ H Ho H %I< %IҪ0/?  %I@ %I)@ ! %@? ! &? ! ? ! ??<B %IC~ %IAz~ %I"B %I   BB<|BbBBfBbBB@@BB@(BB*R %IB@* %IBH*R %IK1À??*  %I ??  %I???R%%I@ ???R???FBDBBFZB@@BB@B~~ ! K@B~ ! ?~ ! 0~ ! @$~BB<<?Ij %I %I <--(*******))))))...(((((((((()((--********))))))...(((((((((()((--***************************)((--***************************)((--***************************)*(--***************************)*(--***************************)*(--.**************************)*(--..((((((((((((((((((((((((()((--.(.(((((((((((((((////((((()((--)))))((((////((((()((--)))))(((((((((((((((((((((()((--)))))(((((((((((((((((((((()((--)))))((((((((((((((((((((((***--))))))))(((((((((((((((((((((*--)))))))(((((((((((((((((((((*2--))))))(((((((((((((((((((((*24--))))))((((((((((((((((((((*24,--))))))(((((((((((((((((((*24,(--))))))((((((((((((((((((*24,((--)))))((((((((((((((((((*24,(((--((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((  <@(;\\\O]\ֻݻ\|\, vX![!@@P!!-(  K SR P"S"16384@,(48380-16384@):5:6,0:""48390:23561 \,255:"59100" :23658j\,8::BOX=*2:BOX=(BOX+1) &J$(32 ):GT=-:CT=-:PT=- W:58000:600X:1000:PRINT1=/:1003:1100L:1110V PT90Z14,14;"YOU";15,14;"NEED";16,14;" ";121y-PT;" ";17,13 ;"TO WIN" IBOX=/9 ,2;" IT IS YOUR CRIB THIS HAND " GBOX=/+/9 ,4;" IT IS MY CRIB THIS HAND " 210 ,5;" THESE ARE YOUR CARDS " ;:#0;" PLEASE WAIT A MOMENT WHILE I CHOOSE MY CARDS FOR THE CRIB ":.2~L,30:300, M10 ,4;" I HAVE CHOSEN MY CARDS ":.1}L,20 #X;:#0;" PLEASE CHOOSE YOUR CARDS FOR THE CRIB  PRESS CARD NO. 1-6 " ( - 2CO$=:O$>546ůO$<491.1}L,-10 :40( "6"O$<"1".1}L,-10 :70F P610 ,0;"YOUR SECOND CRIB CARD IS NO. ";Y$ U}O$=Y$;:#0;"INCORRECT SAME CARD":.3,-10 :100d:9 ,0;J$;10 ,0;J$:35# Zu.2~L,10 :;:#0;" ARE CARDS ";O$;" AND ";Y$;" CORRECT "'" PLEASE PRESS (Y)es(N)o " \-:x$= ]X$="Y"150 ^OX$="N".1}L,20:9 ,0;J$;10 ,0;J$:35# _.1}L,-10 :92\ hcard=1136 jcard=14136 lcard=27136 ncard=13 136 pcard=40(136 rcard=26136 tcard=39'136 vcard=524136 xcard=25138 zcard=38&138 |card=513138 ~card=11 138 card=24138 card=37%138 card=502138 card=12 138 face=0: face=1: face=2: ȵ600X:B(3)=(59090+O$):B(4)=(59090+Y$):A(3)=(59100+O$):A(4)=(59100+Y$):(59090+O$),-:(59090+Y$),- ҉AST=1:D(4):E(4):G=/6:(59090+G)ɧ-D(AST)=(59090+G):E(AST)=(59100+G):AST=AST+/ G:700 tot=tot+59320: ,rtot=-:54150:z(15):a=/15:x=/4:k=i$(a)(x):(59100+x),(59020+k) -"(59090+x),(59010+k) 6x:59095,15 @53000:250 J56100$:250 T55500:250 ^51800X:250 r Z(A)=TOT:tot=-:a:HAND=/ |x=/15 z(x)>handhand=z(x):gh=x x:z$=i$(gh) X(6):z=/4: X(z$(z))=/:Z p(4):q(4):x=/4:k=z$(x):po=(59020+k):(59100+x),po:q(x)=po:OP=(59010+K):(59090+X),OP:P(X)=OP:X ;boxcomp=59401 :boxcompsu=59411:z=/6 nX(z)=-boxcomp,(59010+z):boxcompsu,(59020+z):boxcomP=boxcomp+/:boxcompsu=boxcompsu+/ z ~B(5):B(1)=59401 :B(2)=59402 :A(5):A(1)=59411:A(2)=59412: XfG=/6:OP=(59040+G):PO=(59050+G):(59090+G),OP:(59100+G),PO:G: >::DD=((*524))+/:(59200@+DD)=/700 DD13 A(5)=/ -DD26DD14A(5)=2 -DD39'DD27A(5)=3 !DD40(A(5)=4 `B(5)=(DD-(13 *A(5)))+13 :59350,B(5):59360,A(5) HCARD=DD:V=6:PRINT1=-:POS=13 :1006:57600 EDD=11 DD=24DD=37%DD=502NOB=/:740  NOB=- YBOX=/NOB=/;:#0;" YOU GET 2 FOR HIS HEELS ":1300:PT=PT+2 ]BOX=2NOB=/;:#0;" I GET 2 FOR HIS HEELS ":1300:CT=CT+2 9;:#0;" PRESS ANY KEY TO PLAY ":250:  2000 %9000(#:ENDGAME=/4900$ g.3,30:;:BOX=/#0;" I WILL NOW SCORE YOUR CRIB ":CRIB=/:950 WBOX=2#0;" I WILL NOW SCORE MY CRIB ":CRIB=1:980 70F:9600%:9630%::2800 :18,10 ;" YOUR CRIB ":502:2705 :4300 ~70F:9600%:9630%::2800 :18,10 ;" MY CRIB ":502:2905Y :4300 'print1=-:4:٧-:4 :pos=/:v=14 ,print1=/pos=6:v=56 Pcard=(59090+v)+((13 *(59100+v))-13 ):59300,card  ink=2 !100d:236077\,60< !face=/236077\,188 %face=2236077\,196 Gprint1=/x=12 18:card14card26ink=- 5x=/7:card14card26ink=- Gprint1=/x=12 18:card14card26ink=- CARD40(INK=- Gprint1=/ܧ/;7;ink;x,pos;r$(card,x-11 ):1026 5x=/7:card14card26ink=- *ܧ/;7;ink;x,pos;r$(card,x) x:print1=/pos=12 K236077\,60<:.05|L,20:pos=pos+8:v:v=7  Lf8,3;"1";8,11 ;"2";8,19;"3";8,27;"4": V<19,8;"5";19,22;"6":  10 ,4;" COMPUTER ";10 ,18;" PLAYER ";12 ,13 ;"TOTAL";6;٧-;13 ,13 ;" ";GT;" ";14,-;"SCORE";14,26;"SCORE";6;٧-;15,2;CT;15,28;PT: -.2~L,20:W=/150:W: ENDGAME=-:G=14:(59090+G),D(G):(59100+G),E(G):G:1000:1100L:LAST=-:W(8):CP=-:CEND=-:PEND=-:GT=-:T(4):H(4):1200 BOX=/21004 BOX=2;:.1}L,20:#0;" PLEASE CHOOSE YOUR CARD 1-4 "'" PRESS YOUR CHOICE ":-:O$=:O$524ƯO$491TA=O$:T(TA)=/:CP=CP+/:Z=/7:Z,(8*TA)-7;" ":Z:2040 .1}L,20:2010 CARD=(D(TA)+(13 *E(TA))-13 ):V=/̧/:POS=20:PRINT1=/:1006:2500 :6000p:2300 4EE=((*4))+/:1200:H(EE)=/:CARD=P(EE)+((13 *Q(EE))-13 ):CP=CP+/:69600:POS=6:PRINT1=/:V=/̧/:1006:2510 :6000p:6970::1200:2400` ;:1200:GT=31PT=PT+2:;:#0;" YOU GET TWO FOR 31 ":7600:1200:2560 :4100:CA1=4CA2=49000(#:2600( ENDGAME=/4900$ L4100:CA1=4CA2=4PT=PT+/:5900 :2600( KLAST=/PEND=/CEND=/5920 :PT=PT+/:2560 :2300 OLAST=2PEND=/CEND=/5930*:CT=CT+/:2560 :2400` cCA1=4;:#0;" I HAVE PLAYED ALL MY CARDS ":.2~L,20:502 (Z=/4:H(Z)=/Z:2370B ,PO=P(Z):AA=P(Z):AA>10 AA=10 AA+GT>31Z:2370B AA+GT=152350. AA+GT=312350. CPȧ/PO=W(CP)2350. JCP3PO=W(CP-/)-/W(CP-/)=W(CP-2)-/2350. FCP3PO=W(CP-/)+/W(CP-/)=W(CP-2)+/2350. Z:2370B $\Z=5CEND=/:;:#0;" I CANNOT PLAY ":7600:2400` .;:#0;" I PLAY ":LAST=2:AA=Z:Z=5:POS=6:H(AA)=/:CP=CP+/:CARD=P(AA)+((13 *Q(AA))-13 ):V=/̧/:PRINT1=/:1006:EE=AA:2510 :69600:6000p:6970::1200:9000(#:ENDGAME=14900$ 82400` B(Z=/4:H(Z)=/Z:2340$ D#AA=P(Z):AA10 AA=10 FAA+GT>31Z:2340$ H 2350. `1200:GT=31CT=CT+2:;:#0;" I GET TWO FOR 31 ":7600:2560 :4100:CA1=4CA2=49000(#:2600( bENDGAME=/4900$ dH4100:CA1=4CA2=4CT=CT+/:5930*:2600( fUCA2=4;:#0;" YOU HAVE PLAYED ALL YOUR CARDS ":7600 hZ=/4:T(Z)=/Z iZ=5CEND=/LAST=2;:#0;" YOU CANNOT PLAY ":7600:5930*::CT=CT+/:1200:2560 :2400` jXZ=5;:#0;" YOU CANNOT PLAY ":7600:PEND=1:2300 o(D(Z)10 AS=10 :2425y t(AS=D(Z):AS+GT>31Z:2409i yAS+GT>31Z:2409i 69600:1200:;:#0;" PLEASE CHOOSE YOUR CARD 1-4 "'" PRESS YOUR CHOICE ":.1}L,20 -:O$= O$>5242460 O$<4912460 T(O$)=/2460 2462 .1}L,-10 :2450 AS=O$:LAST=/::9500% W(CP)=D(TA): W(CP)=P(EE): 1200:LAST=-:GT=-:PEND=-:CEND=-:CP=-:Z=12 18:Z,6;"";Z,20;"":Z: B(5)=11 G=/5:L(G)=11 M(G)=A(5)13 ,0;J$;13 ,5;" ONE FOR HIS NOBS ":7600:TOT=TOT+1:G=6: G:TOT=-: (%9000(#:ENDGAME=/4800 )5CRIB=-:COMP=-:PLA=-:L(5):M(5) 2BOX=/2900T 7BOX=22700 v;:.1}L,20:#0;" IT IS  MY CRIB  THERFORE I WILL"'" SCORE YOUR HAND FIRST " 09600%:9610%::2800 :502 2750 :53000:2770 :2760 :2750 :56100$:2780 :2760 :2750 :51800X:2785 :2760 :2750 :55500:CRIB=1ƾ59320559320,0 $2790 :2760 :2750 #2570 :PT=PT+TOT:2750 PLA=/ CRIB=/ %9000(#:ENDGAME=/4500 eCOMPɧ/;:#0;" I WILL NOW SCORE MY HAND ":.3,30:70F:2901U 900 i10 ,6;" SCORING YOUR HAND ";16,4;" YOUR TOTAL SCORE ";PT;" ": TOT=59320:PT=PT+TOT: t59320ɧ-13 ,0;J$;13 ,4;" RUNS SCORE ";59320;" ":7600:  z59320ɧ-13 ,0;J$;13 ,4;" PAIRS etc. SCORE ";59320;" ":7600:  t59320ɧ-13 ,0;J$;13 ,4;" 15,s SCORE ";59320;" ":7600:  s59320ɧ-13 ,0;J$;13 ,4;" FLUSH SCORE ";59320;" ":7600:  fPO=2:Z=15:CARD=L(Z)+((13 *M(Z))-13 ):100d:236077\,60< !FACE=/236077\,188 %FACE=2236077\,196 "AINK=2:CARD14CARD26CARD40(INK=- ,V=/7:1;7;INK;V,PO;R$(CARD,V):V:236077\,60<:CARD=59350+((13 *59360)-13 )8,PO;"START" 6*PO=PO+6:Z:236077\,60<: Tt;:.1}L,20:#0;" IT IS  YOUR CRIB  THERFORE I "'" WILL SCORE MY HAND FIRST " X09600%:9620%::2800 :502 Z2950 :53000:2770 :2960 :2950 :56100$:2780 :2960 :2950 :51800X:2785 :2960 :2950 :55500:CRIB=1ƾ59320559320,0 \$2790 :2960 :2950 c#2570 :CT=CT+TOT:2950 d COMP=/ e CRIB=/ g%9000(#:ENDGAME=/4500 hfPLAɧ/;:#0;" I WILL NOW SCORE YOUR HAND ":.3,30:70F:2701 r 900 m10 ,6;" SCORING MY HAND ";16,4;" COMPUTER'S TOTAL SCORE ";CT;" ": TOT=59320:CT=CT+TOT: !CA1=-:CA2=-:Z=/4 H(Z)=/CA1=CA1+/ T(Z)=/CA2=CA2+/ "Z: %9000(#:ENDGAME=/4900$ I100d::10 ,4;" COMPUTERS TOTAL SCORE ";CT;" " 712 ,6;" YOUR TOTAL SCORE ";PT;" " Ҍ;:#0;" PRESS ANY KEY FOR NEXT HAND ":250:65278=254ƿ32766=253ƿ49150=254 BOX=/BOX=2:4 BOX=2BOX=/  4 $56500:/+/  Q;:#0;" YOU GET ONE FOR LAST CARD ":7600:1200: *O;:#0;" I GET ONE FOR LAST CARD ":1200:7600: >Z=/4:T(Z)=/Z ?Z=5;:#0;" YOU CANNOT PLAY ":7600:CT=CT+/:5930*:2560 :1200:2400` @(D(Z)10 AX=10 :5956D B AX=D(Z) DAX+GT312400` FZ:5951? pCP>/6050 zACP=/W(/)10 GT=10 :DD1=10 :1200: ,CP=/DD1=W(CP):GT=GT+DD1:1200:  &CP=262008:1200: &CP=36300:1200: &CP=46400:1200: &CP=56500d:1200: &CP=66600:1200: &CP=76700,:1200: ^CP=4:DD1=DD5:DD2=DD6:DD3=DD7:G=14:W(G)=W(G+4):G:6000p: 8*W(CP)10 DD2=10 :6220L B DD2=W(CP) L0GT=GT+DD2:GT=157000X:7100 V/W(1)=W(2)7200 :7000X  2W(CP)10 DD3=10 :6320  DD3=W(CP)  GT=GT+DD3 %GT=157000X:7100 gW(2)=W(3)W(3)=W(1)7300:V=13:7000X:V:6370 /W(2)=W(3)7200 :7000X XW(/)=W(2)-/W(2)=W(3)-/7400:7000X:CTOT=CTOT+/ XW(/)=W(2)+/W(2)=W(3)+/7400:7000X:CTOT=CTOT+/  *W(CP)10 DD4=10 :6420  DD4=W(CP)  GT=GT+DD4 %GT=157000X:7100 (rW(2)=W(3)W(3)=W(/) W(4)=W(/)7550~:V=/6:7000X:V:6480P 2cW(3)=W(4)W(3)=W(2)7300:V=/3:7000X:V:6480P L(W)SW=L(W):L(W)=L(W-/):L(W-/)=SW:SWS=M(W):M(W)=M(W-/):M(W-/)=SWS %W:V: &H@G=/5:(59090+G),L(G):(59100+G),M(G):G: #4YaaaYaaaaaaEaFaaaaGHaaaDaaYaaaY2 2 2 23 3 3 34 4 4 45 5 5 56 6 6 67 7 7 78 8 8 89 9 9 9 "#$%&()*+,-./0123456789:;<>?@ABEFGHIKLMNOPQRSTUVWXYZ[\]^_abcde"#$%&()*+,-./0123456789:;<>?@ABYaaaYaaaaaaaNaaaORPaaaQaaaaaaaYaaaY2 2 2 23 3 3 34 4 4 45 5 5 56 6 6 67 7 7 78 8 8 89 9 9 9 "#$%&()*+,-./0123456789:;<>?@ABEFGHIKLMNOPQRSTUVWXYZ[\]^_abcde"#$%&()*+,-./0123456789:;<>?@ABYaaaYaaXaaaSTaaUVaaaWaaaaaaaYaaaY2 2 2 23 3 3 34 4 4 45 5 5 56 6 6 67 7 7 78 8 8 89 9 9 9 "#$%&()*+,-./0123456789:;<>?@ABEFGHIKLMNOPQRSTUVWXYZ[\]^_abcde"#$%&()*+,-./0123456789:;<>?@ABYaaaYaaIaaaJKaaaaLMLaaaaaaYaaaY2 2 2 23 3 3 34 4 4 45 5 5 56 6 6 67 7 7 78 8 8 89 9 9 9 "#$%&()*+,-./0123456789:;<>?@ABEFGHIKLMNOPQRSTUVWXYZ[\]^_abcde"#$%&()*+,-./0123456789:;<>?@ABA123412351236124512461256134513461356145623452346235624563456o@H&rinto , ar naco,kan  oxcomh oxcompshs ondgamas@enentodaad L2ddrioml%wd d d# N Z1456!  @Y3XY+  O4 "":0 S |@@|_ػ:6,0:""48390:23561 \,255:"59100" :59100 U MM.XWMT= P  P  (3\Wq MQ CODE BB>J1>DA))7VRJ(kH4үMSkUqJ1>DA))7VRJ(kH4үMSkUqJ1>DA))7VRJ(kH4үMSkUq%=? =- iaȤ-$4Pn)VEF@ 4mf`;5jҥJ,TK-MM,ABQ Bc4MM-%*4iRK;VEqQ=f--m/--蹱,Xнb!jv ,$-/--/)%!!?@״ YHH(H A* wp 3I ;΁5I8y!!!?̌$"DF000 ba`"D$!113c3?c?`qsap?T@@@ @@0Xح @@>!"%!+o!+!"!~o&"*! ѧR(! "!~o&"*! ѧR(! "!~o&"*! ѧR(! "!~o&"*! ѧR(! "!~o&"*! ѧR(! "**!ѧR6͔**!ѧRM͔**!ѧRd͔**!ѧR{͔**!ѧR’͔**!ѧR©͔**!ѧR͔**!ѧR͔**!ѧR͔**!ѧR͔***DMi`!ѧR(͔***DMi`!ѧRK͔***DMi`!ѧRn͔***DMi`!ѧR‘͔***DMi`*DMi`!ѧR͔***DMi`!ѧR͔***DMi`*DMi`!ѧR͔***DMi`!ѧR5͔***DMi`!ѧRX͔***DMi`*DMi`!ѧR‡͔***DMi`*DMi`!ѧR¶͔***DMi`*DMi`!ѧR͔***DMi`*DMi`*DMi`!ѧR ͔***DMi`!ѧRC͔***DMi`!ѧRf͔***DMi`!ѧR‰͔!*s*!" >!"%!]+o!]+!"e!"i!~o&"m!~o&"q!~o&"u!~o&"y!~o&"}*m*q!ѧRѧR*q*u!ѧRѧR*u*y!ѧRѧR*i!"i!"e*y*}!ѧRѧR*i!"i@*q*u!ѧRѧR;*u*y!ѧRѧR;*y*}!ѧRѧR;*i!"i!"e*m*q!ѧRѧR’*q*y!ѧRѧR’*y*}!ѧRѧR’*i!"i!"e*m*u!ѧRѧR*u*y!ѧRѧR*y*}!ѧRѧR*i!"i!"e*m*q!ѧRѧR@*q*u!ѧRѧR@*u*}!ѧRѧR@*i!"i!"e*e!ѧRY!*is*u*y!ѧRѧRŠ*y*}!ѧRѧRŠN*q*y!ѧRѧR»*y*}!ѧRѧR»N*q*u!ѧRѧR*u*y!ѧRѧRN*m*y!ѧRѧR*y*}!ѧRѧRN*m*u!ѧRѧRN*u*}!ѧRѧRNN*m*u!ѧRѧR*u*y!ѧRѧRN*m*q!ѧRѧR°*q*}!ѧRѧR°N*m*q!ѧRѧR*q*y!ѧRѧRN*m*q!ѧRѧR*q*u!ѧRѧRN*q*u!ѧRѧRC*u*}!ѧRѧRCN!*is*i!"i >!"%!+o!+!!#S"!!#S"!*!ѧR~o&"!*~o&"**ѧR!*s!**s!*!ѧR!~o&s!!*~o&s!*!*!ѧR~o&s!*!ѧR!~o&s*#"[ԧR*#"[ԧR >!"%! +o!+!"!"!"!"!"!!#S"!*~o&"*!ѧRE*!"*!ѧR_*!"*!ѧRy*!"*!ѧR“*!"*#"[ڧR!~o&"*!ѧR*!ѧR*!"*!ѧR*!ѧR*!"*!ѧR&*!ѧR&*!"*!ѧRN*!ѧRN*!"*!ѧRh*!"*!ѧR‚*!"*!ѧRœ*!"*!ѧR¶*!"!*s>!"%!+o!+!"!~o&"!~o&"!~o&"!~o&"!~o&"**ѧRŽ̓**ѧRŸ̓**ѧR°̓**ѧR̓**ѧR**ѧR̓**ѧR**ѧR̓**ѧR**ѧR̓**ѧRK**ѧRK**ѧRK̓**ѧRx**ѧRx**ѧRx̓!*s*!" >!"%!+o!+!}͛"M >!}ͭock o!~o&!ѧRÌ!~o&!ѧRo!! I WELL DONE .sCC}  YOU HAVE WON THIS GAME ["sCo!! ø HARD LUCK sCC  I HAVE WON THIS GAME  sCo!!  THE CRIBB sCCK COMPUTER CRIBBAGE SIMULATION *!sCo! !Æ  COMPUTERS TOTAL SCORE hs!~o&@Ý sCoCC  YOUR TOTAL SCORE s!~o&@ sC!!#S"!!"#S"!!8**#"[ߧR!!#S"!!8**#"[ߧRJ*#"[ߧRo!!û PRESS ANY KEY TO PLAY NEXT GAME&sC! H MG P P P 3}]MbVaV\GWq !v>!"%!+o!+o! ! D THE START /sCoCé DURING THE SHOW THIS CARD IS ADDED TO YOUR HAND MY HAND AND THE CRIB HAND. YPsC>!"%!T+o!T+!x!U#S\"^*\!s*\#"\[^R*x\"v\!!4#S`"b!@*`!s*`#"`[bR!"d!ѧR!f!ѧR|"h*h!ѧRR!@*h~o&!ѧRm!@*h!s!*d*hs*d!ѧRží*d!"d!"d!ѧR!f!ѧR|"h*h!ѧRó!@*h~o&!ѧRó!@*h!s!*d*hs*d!ѧR8G*d!"dó!!#S`"b!*`~o&"l!*`~o&"p*l! ѧR!*`!s*p! ѧR!*`!s*l!ѧR*l!ѧR(!*`!s*p!ѧR*p!ѧR(!*`!s*l!ѧR(=*l!'ѧR=!*`!s*p!ѧR(k*p!'ѧRk!*`!s*l!(ѧR(!*`!s*p!(ѧR(!*`!s!*`*l! !*`~o&JѧR! s!*`!*`~o&s!*`*p! !*`~o&JѧR! s!*`!*`~o&s*`#"`[bRWVV 2  %4  &-2 >!"%!k+o!}͛"M >!}ͭoM >!}ͭock oo!! R THE CRIBB AsCCøWELCOME TO THE CRIBB A COMPUTER SIMULATION OF THE POPULAR CARD GAME CRIBBAGE.dTsCC IF YOU REQUIRE INSTRUCTIONS %sCPLEASE READ CASSETTE INLAY CARDsCCP PRESS ANY KEY TO START A GAME./!sC!xOB((e\d "!ok o,>s> *\#6#ͫͪ> *("ͪ:G~ > YYYl s> Yzs*([\RPs> Ys*\P> YYY,>sK($S]-]  ZX COMPILER V2.0  1983 THRELFALL and HODGSON Compiled OK Program Length = bytes To run enter RAND USR "[!!G!"#"%">2**"(*#>!t!%>"t !or2X<2*S\###"]\>2\͕$(̣i~V ̃̾̊M̯ʕ̪̫by̴ 80!M r!r!or*]\~:Y ͕*]\~:Y J͕*]\#~# ͕͕;}2*!Z++6>!*t.:gw!+r w# ! "(*e\d ""z(J{!90){ ͲKB#))yx0|g}o(yxyOxGxD||G||/g}/o#!r=| }l&@R0?jj\jgW< U>?YU*6!7͵!r K(y( *T]6 >Y>2'Y>"Y2͍[(*w (ZSS :j\2j\) :A\2A\) 8 0{(y8Yw#2͍>?͍ͦyS+~(-()6 >Y>Y> YY>YYY2͍S2'6 + 6 >?͍ͦS>"Y> YLq#px y*2>Y:A\ :j\_(>C >L¯>Gͦ˗2'y8ï6#y8ï>YYw#>Y:'Y2͍S>Y:'Y>"Y>YYUYUU>LY>YUw (. (e+(-( 0^:^ y nY* w* 6 !* ~ (+(-(0)))_*~-yʶ> Y>YY> Y>Y öU>?YU>YxY *(w#"([[Rѯɯ͂+( -( *(/2>~͕+(- #gx !DMw>!i`t/(*-!Jr-!f>~+(-!w!Rw->~>~) ͕!͕( ( J:00O *]\"]\>~}~|~V#^"l\"I\C@> YQG[(G[R"[\RK(:*(>*l\t!r!r>To*\*\>ׯ>U,s>ׯ>PU"\"\h!|+s#r#^#V#*!#LB*R#>͕;QLt>*]\#~: > ͕*]\#~ ("]\ (( 8:(Y:> !r>2+͕!r>DM >2\2\o:k\GD>2k\Do[v\c.zRR_PR0#"v\˼DM͂ (>*!x\t>"!v\t|( >-Y'͏0͏0d͏0 ͏0͕͕d͕ ͕͕R>0R8<Y͕R>!t>~>[!t!Gr͘!r)#*J8 T]*\%R06S!Kww!) w>~!Lr!w͕R>*t!#"ww##>~>[t>!Rt>Lt͕R͕>#~!Sww>"##t[(G͏!sw,*6#6'#[(Gͪ>~!cr!k r!or!r| =͘!r*]\#~ (((PP"P#~$P !r>I !w>!Rt= >Y >Y>(< >e !(w>>e͕~*I\#QLw|z7|(7z7͚.K&Ew!"r!cr͕8 ͕͕ ͕͏m!srLL!or͕ +>2+͕ 1"ʘ'H,;(~3:+(@R(!r ">~!Gr>!t͕!r>"t*]\#~$ʾ !@rp!r(ͣ!sr]>~*(w*]\#~Y"(~"]\[(G>t>t͘!r>}|͏!r>{}͕, >>.&t;+'+!Cr!Cr>}~!Yr> Y!CrA˯[[*]\#~08:8 A8˯[0͕˯(2($  Ͳ&o))K G:$(( x>!Z[2 o :n +n+([!4~ w+[[Ro(w":͕ >!t!r:!FwLz[GG*(["T]*\%R͕R >~&͕=͘1| !w!Gr>"t !~ow!&w C͕"( !r͕˯A&o>t>*!{\t͕"> ~`i!>*t>~.8>~!r*SRgoo#!r !|w>!t]͕R͕>!t!Vr##L !jr||.&“>~>&h.t!&w !r "!%͕.K&Ewr!r.`&iw !"ç͕(0>!&jte͕͘>~͘>~͕-̕((0 A5B/͌͘!rR >*t;>!tN#F #:K\:L\o:\2\>M n(:\ > :\ <͎ 0_3>ͽ͏ͽ!r1!r͕/!r>.&8tÕ_|(ULGö*o>>&t͘.}&w͘>}~!"r>͏ͽ !w$r ͏ͽ!#r>.&t1>.&t!cr͕8͕ >͏ͽ͏ͽ!-#r*l\#QL>t*#| *("#*%[(G͕" ͣ>~-̕;w͕ ( ͏>~ί~*("%!w1͕;QL###>!t>"!%t͕R !Wr>~!Gr' ͕!tr>!t!r !Wr>"t͕ 1*%| L~# L"%!*%|  ~Lx(8*%  ~# L"%͏>~>!it!r>2+͕>!r͕͂(s!w!#r͕6!w!-r͕6>!t!r*]T6 *x.+͕((" ͣü !rü !rümüR͕͂( 4͕͘*]\~) !]Tw ͕!r>!t!r>!t!r!r͂)( ͕6͕͕"͍2 ɧRDML*"x*S*[RLx(*q#pH""*>w#!r> G^>>GV::\(8Ͱ*Y\R#>w4 p\!D\ ~( 6 MMW`WM8Z\8 P P P 8 MOO\GWq !v>U,U M= P P P 8 MOO\GWq !Vv>l||88|888||8 qᑉyyժժ~<????<~