2 POKER$ HEIKO WUESTNER: NEUBRANDENBURGM JANUAR 1987S:Y:_: 0,31,0,39: 0,4::(15,5);"P O K E R"(16,5);(13,"=")2(10):4,26,4,37: G10 G0 480"SOLL ICH DIE SPIELREGELN"!"NOCH EINMAL ERKLAEREN ? (J/N)"* T$= T$"N" 460h:"DIE REIHENFOLGE IST:":"ROY-FLASH""POKER":"FULL HOUSE":"DREIER":"2 ZWEIER""ZWEIER":""ES KANN NUR EINMAL GETAUSCHT":"WERDEN.","EINE KARTE KOSTET 1$":"ES IST MOEGLICH,1,2,3 ODER 5"/1"KARTEN ZU TAUSCHEN."T6::"GIB BITTE AUF ABFRAGE DIE"y@"NUMMERN DER KARTEN EIN,DIE DU"J"TAUSCHEN WILLST (OHNE KOMMATA)!"T:"WEITER NACH >ENTER<"^ T$h:"DER MINDESTEINSATZ IST 5$."r"ES KANN MAXIMAL UM 20$"!|"ERHOEHT WERDEN.":D"EIN EINSATZ VON 0 BEDEUTET,"a"DASS DU AUSSTEIGST.":"WENN DU SEHEN WILLST,MUSST DU""UM 50$ ERHOEHEN.":"WENN DU BEGINNEN WILLST,""DRUECKE DIE >ENTER<-TASTE!" T$ :"ICH HABE 1000$,WIEVIEL")"HAST DU ?";G1:G21000:@ I1 100:I,0:U J10 40 10c I1 8t(JI),(JI)}I,J(3,5);"DEIN GELD":(3,25);"MEIN GELD"(4,5);G1;"$":(4,25);G2;"$"Q1:Q155000: SPIELERKARTEN AD50:SP2:2000 5060: RECHNER- "? 6000: - " - ORDNENM 8,9,5,35a &G1G15:G2G25 0(4,5);G1;"$ ":(4,25);G2;"$ " :"WELCHE KARTEN MOECHTEST DU" D"TAUSCHEN ?";I1$ N I1$"" 660 XM(I1$): M4 M5 "NANA !!":570 b I1 M) lJ$(I1$,I,1):Q(J$):Q1QD v5000:AD50:SP2:2000J f G1G1M:(4,5);G1;"$ " 6200:RECHNERKARTEN ZAEHLEN ::"ICH TAUSCHE DIE KARTEN ";:M10  I1 5 N(60I): N1 720 QI:Q1I:AD55:SP25 5060 I;:M1M11 :(20)8 :G2G2M1:(4,25);G2;"$ "B 6000L 6200]  REIZGRENZEg 6300y :10,11,5,35 G1G15:G2G25:G320MM1 (15,5);"GESAMTEINSATZ:";G3;"$ ":E15 %(14,5);"EINSATZHOEHE:";E1;"$" '(4,5);G1;"$ ":(4,25);G2;"$ "# *"DEIN EINSATZ:";E7 4 E0 :7100f > EE150 E1E150:G3G3E:G1G1E:7000 H EE120 "NA,NICHT SO VIEL!":810 M EE1 "NICHT SO WENIG !!!":810 RE1E:G1G1E:(4,5);G1;"$ ":(14,5);"EINSATZHOEHE:";E1;"$ " \ G10 G1 9005 fO VIEL HAST DU NICHT MEHR!"W k"WILLST DU SCHULDEN MACHEN?"i m" (J/N)";X$} p X$"N" 9000 zG1 G3G3E:(15,5);"GESAMTEINSATZ:";G3;"$" E150MAX "ICH WILL SEHEN.":G3G3E150:G2G2E150:7000E1E110@"ICH SETZE";E1;"$ ":(14,5);"EINATZHOEHE:";E1;"$ ":(10)VG3G3E1:G2G2E1(4,25);G2;"$ ":(15,5);"GESAMTEINSATZ:";G3;"$ "810 J1Q Q1Z(ADJ1)F(Z10) F 2026,2027,2028,20297,2:F$"KARO ":20307,2:F$"HERZ ":203027,0:F$"PIK ":2030G7,0:F$"KREUZ "UF1ZF10g F14 2050vF2$" "F1$(F16)F2$:2060F1F14 F1 2056,2057,2058,2059F1$"BUBE ":2060 F1$"DAME ":2060 F1$"KOENIG ":2060 F1$"AS "< (152J1,SP);J1;" ";F$;F1$:0,4BH W JQ Q1kA((8)39)10Z(A): Z0 5010 (50J),Z: A,0 JQ Q1A((8)39)10Z(A): Z0 5070(55J),Z: A,0:(152J,25);"[[[[[[[[[[[["$pF02z I1 4pR1(55I):R2(56I):R3R1(R110)10:R4R2(R210)10 R4R3 (55I),R2:(56I),R1:F1 F1 60008J1: 61,1B I1 4LR1(55I):R2(56I):N(60I)QR3R1(R110)10:R4R2(R210)10PV R3R4 (61I),(N1):(60I),0: (61I),1V`\jkV10:V210y I1 5N(60I): N2 6350 V10 V1I:6350V2IN1(60V1):N2(60V2) N2N1 HV1:V1V2:V2HR1(55V1):R2(55V2)8R3R1(R110)10:R4R2(R21)10TN1(60V1):N2(60V2)g N20 6420} N12 MAX5R3 N13 MAX10010R3 N14 MAX50040R3  N12 6450 R4R3 HR3:R3R4:R4H(MAX505R32 N13 MAX20025R3<'XQ1:Q158bAD55:SP20 Bl2000MvM1MAXq I1 5:S(50I):(55I),S:{600062006300 MAXM1 "DEIN SPIEL":G1G1G3:(20):7110"MEIN SPIEL":G2G2G3:(20) (4,5);G1;"$ ":(4,25);G2;"$ ";5,10,5,35::"NOCH EIN SPIEL ? (J/N)";X$O X$"N" 9000j100,G1:102,G2:105,GpG1(100):G2(102):G(105)0,31,0,39:  473(#:2#(15,5);"WAR NETT,MIT DIR"<#(17,8);"ZU SPIELEN."F#(23,15);"BIS ZUM NAECHSTEN MAL"1P#(20):7,1:0,31,0,39:2#(15,5);"WAR NETT,MIT DIR"<#(17,8);"ZU SPIELEN."F#(23,15);"B