H COPYRIGHT 1989 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVEDf""12)"COPYRIGHT 1989"7)"COMPUTE! PUBLICATIONS, INC."(53287,0210)"ALL RIGHTS RESERVED"<TT03000:F1740:1490:1640P1210:KN0:TN0$ Z(CD$,VT(DL)1)21(DL1DL4)9)"DEALER"7 dTNTN1:L14w nPU150,420,420,420:CD$" " xPUPU1(PU41)4:KNPUDP52:100 720:DLDL1(DL41)4:80 ======== P L A Y E R ============ PT(1)11 SH,152:SV,154:SP,1:T11:T2152:T348:T4154:WC3b CD$" CHOOSE FROM DISCARDS OR DECK":320n MV200 DPDP1:UCDP:(CD$,12)21);:C3DK(DP,3):C4DK(DP,1):1420 SH,40:SV,114:T12:T240:T324:T4114 CD$" CHOOSE CARD TO DISCARD ":320 UP0270T (CD$,12)21);:C3DK(HN(1,MV1),3):C4DK(HN(1,MV1),1)^ 1420 WCMV1:(CD$,7)MV31);:C3DK(UC,3):C4DK(UC,1):1420 TUC:UCHN(1,MV1):HN(1,MV1)T SP,0:KN300 CD$" DO YOU WANT TO KNOCK? [Y/N]":1010:390C "Q$"Y"JS30(CD$,8)12)"KNOCK!":KN1:KTTN:1070I ,p 6======== C H O O S E ============ @MV0:UP1:198,0:1010 J390:L1199::Q$(13)JS15 TQ$"^"JS23MVMV1:MVT1MV0 ^Q$"*"JS27MVMV1:MV0MVT1. hQ$"="JS29SH,200:SV,154:UP0:MV1:330P rUP1:SH,T2MVT3:SV,T4:330w |========= I N P U T ============= Q$:JS(56320)31:Q$""JS31390 56320,16,15: ====== C O M P U T E R ========== PT(PU)1SC(PU)0: 650%(DK(UC,2)5KN)SC(PU)21(PL2)490<T99:XCLC:L114[DK(HN(PU,L1),3)CSXCL1aXC4CD$" "PL$(PU)" TAKES THE DISCARD ":1040:550DPDP1:UCDP:CD$" "PL$(PU)" PICKS FROM THE DECK "1040:650T99:XCLC:L114&DK(HN(PU,L1),3)CSXCL16:XC4550r(CD$,12)21);:C3DK(UC,3):C4DK(UC,1):WC3:1420:580&(CD$,12)21);:C3DK(HN(PU,XC),3):C4DK(HN(PU,XC),1):WC301420:TUC:UCHN(PU,XC):HN(PU,XC)TDT21(TN2)1(TN4)1(TN6)1(PL2):PT(1)0610DNL113:(CD$,VT(PU))HT(PU)(L133));|XC3DK(HN(PU,L1),3):C4DK(HN(PU,L1),1):WCL1:1420:bKN0CCT630lKNPU:KTTN:(CD$,VT(PU)1)21(PU4)9)"KNOCK!":1070vL112000::========= S C O R E =============CC0:HN(PU,4)UC1L114:L214LT0:L314:L2L3690xDK(HN(PU,L3),3)L1TTDK(HN(PU,L3),2):TCCCCT:CSL1:LCL2:SC(PU)CC::========= K N O C K =============198,0 DP52CD$" NO MORE CARDS!":10401PU1:SC(1)0:UC0:650:SC(1)CCYT0:T10:T20:L114:PT(L1)1810(CD$,VT(L1)3)23(L11L14)11)""SC(L1):1010L1KNSC(L1)SC(KN)TT1:SC(L1)T1T1SC(L1) L213(CD$,VT(L1))HT(L1)(L233));1 C3DK(HN(L1,L2),3):C4DK(HN(L1,L2),1):WCL2:1420:7*u4DP52CD$" HANDS DUMPED -- NO WINNERS ":1040:920>T0860HCD$" "PL$(KN)" LOST TWO POINTS ":PT(KN)PT(KN)2R(CD$,VT(KN)2)HT(KN)6)(PT(KN)0)PT(KN);:1040:920\T1:KT1SC(KN)31T2UfT1CD$" "PL$(KN)" WON THE ROUND "pT1CD$" "PL$(KN)" WON A DOUBLE ROUND! "z1040:L114:PT(L1)PT(L1)(L1KN)T:L1KNPL(L1)1910(CD$,VT(L1)2)HT(L1)6)(PT(L1)0)PT(L1);;PL4:L114:PLPL(PT(L1)1):PL(L1)(PT(L1)1):RL113000::1010PL1CD$" GAME OVER -- PRESS ANY KEY ":390:PT(1)0980CD$" DO YOU WANT TO WATCH? [Y/N]":390(Q$"Y"JS30)990:CD$" PRESS ANY KEY TO CONTINUE ":390F========== B E E P ==============mSR,240:WV,17:HF,50:LF,35:AT,0S1199::WV,16:SR,0:========== B O O P ==============VL,15:AT,0:SR,225:WV,17:HF,33:LF,33S1199::WV,16:$========= K N O C K =============G.S113:SR,10:WV,129:HF,30:AT,3c8S21250::WV,128::B======= S H U F F L E ===========LCD$" SHUFFLING THE DECK ":1040VRD(1)0L152:RD(L)L:`L152:T((1)521)jT1RD(L):RD(L)RD(T):RD(T)T1:&tL152K~DK(L,1)RD(L)13((RD(L)1)13)DK(L,2)(DK(L,1)9)10(DK(L,1)1)11:DK(L,2)0DK(L,2)DK(L,1)DK(L,3)((RD(L))13.99)========== D E A L ==============1100:900:RD(TI)'TDL:PT(DL)1DLDL1(DL41)4:1220BL114:PT(L1)11290k(CD$,VT(L1)3)HT(L1))""HT(L1))""(PL$(L1)" ",5)" "((PT(L1)),2)HT(L1))""L213:HT(L1))"   ":HT(L1))"" `(CD$,12)14)" "CR$"  "CR$"";"  "CR$"  "CR$" "(L114:L213:HN(L1,L2)0::2DP0:L113:L214<TT1(T41)4:PT(T)11380-FDPDP1:HN(T,L1)DP:T1PT(1)01380nP(CD$,VT(T))HT(T)(L133));:C3DK(DP,3):C4DK(DP,1):WCL1xZ1420d::DPDP1:UCDPn(CD$,12)21);:C3DK(DP,3):C4DK(DP,1):1420xPUT1(T41)4:== D I S P L A Y C A R D ====== WC31450OT$""CO$(C3):""CO$(C3)C1$(C4)" "T$SU$(C3)" ";T$" "T$" "SU$(C3)T$" "C2$(C4)T$"":T$""""CO$(C3)C1$(C4)""T$CO$(C3)SU$(C3)" "T$" "T$" "T$" "======= O P T I O N S ===========53281,15:53280,6^"Ғ K N O C K ";"T H I R T Y O N E CD$" "%" "36)" ".900fCD$" STARTING POINTS [10] ":1010:T10390:Q$(13)JS151600"Q$"\"JS30TT5:T25T5,Q$"="JS29TT5:T5T256CD$28)""((T),2)"":1560 @L14:PT(L)T:(CD$,VT(L)3)HT(L))""SJHT(L))""(PL$(L)" ",5)" "((PT(L)),2):YT^======== D E A L E R ============h1100:T0:WC3rCD$" FIRST ACE DEALS ":1040|L1152:TT1(T41)4 (CD$,VT(T))HT(T));:C3DK(L1,3):C4DK(L1,1):1420* L21350:? DK(L1,1)11720Y (CD$,VT(T))HT(T)); "     ": DLT: ==== I N I T I A L I Z E ========!PL4:PL$" 20 5 0":CR$"":CD$""Q!LF54272:HF54273:WV54276:AT54277:SR54278:LF24,15!SH53248:SV53249:SP53269:2040,13:SP,0:SH,85:SV,85! CC,C3,C4,CS,DL,DP,TN,KN,T,T1,T2,T3,T4,L,L1,L2,L3,PL,XC,LC,MV,UC,WC,Q$! C1$(13),C2$(13),PL$(4)2" DK(52,3),HT(4),VT(4),HN(4,4),PT(4),PL(4),RD(52),SC(4)S"L14:PL$(L),HT(L),VT(L):p"L113:C1$(L),C2$(L):"L14:CO$(L),SU$(L):"&(895)1881860"0L033:D:900L,D:":L063:D:832L,D:"D#N "YOU ",1,7,COMP1,28,7,COMP2,28,17,COMP3,1,17Z#X"A "," A","2 "," 2","3 "," 3","4 "," 4","5 "," 5","6 "," 6","7 "," 7"#b"8 "," 8","9 "," 9","10","10","J "," J","Q "," Q","K "," K"#l "","","","","","","","" $v 162,190,169,160,157,119,4,157,53,5,157,243,5,157,177,6,169,6,157,119H$ 216,157,53,217,157,243,217,157,177,218,202,208,225,96m$255,240,000,255,224,000,131,192$000,135,128,000,143,192,000,153$224,000,188,248,000,247,060,000$225,159,000,192,231,128,000,051%128,000,031,000,000,006,000,000&%000,000,000,000,000,000,000,000K%000,000,000,000,000,000,000,000p%000,000,000,000,000,000,000,188