`=R?(!6:\\ffffffffffffffff00 0 < 0 0 00<  00 0?? 000 0 0 0?0 88888888888888888<<8800 0 < 0 0 00< << 00 0?? 00880 0 0 0?0 << 88<|||||||||||||||||||00 0 < 0 0 00<  00 0?? 00||0 0 0 0?0  |D|D88 ||ZZ00 0 < 0 0 00< ZZ 00 0?? 000 0 0 0?0 ZZ DTD0 Z0 0 ??0 0?3 0 0 ?3 0 0 0 0<0 00 00< DTx ~~~~~~~~~~~~~~~~|ZZ0 0 ??0 ||0?3 0 0 ?3 ZZ0 0 0 0<0 00 00<||ZZ D T@ ||ZT<< || DB@B8x8B8x<<<  DB@B8x8B8xZZ<BH 88"D@D NBH ~~"D@D N~@B|B@@H@J>Z||Z~~|ZZ||ZZ|~~~~~~~~~~~~~~~~)BB@DDB@BD@F 88<<8T888.5):twenty=0:forty=0:9300T$:9200# H:f$="":b$="BDKA":p$="AKDBAKDBAKDBAKDB" over=0:w$(18,2,2):w$(1,1)="11":w$(1,2)="11":pzx=11 :psp=11 :games=0 cl=0:ctr=0:exa=30:closezx=0:closesp=0:win=bgn:stack=0:clear=0:resp=0:scsp=0:sczx=0:anz=5 /k=311 :k,0;6;l$:k .05|L,-10 :14,5;"MISCHEN":500:o$=p$:.05|L,-12 :16,11 ;"TEILEN":600X:.08}# =,-17:18,16;"SORTIEREN":x$=h$:800 :h$=x$:x$=z$:800 :z$=x$ Ganz<5l=12 19:l,(anz+1)*5;" ":l  l=1anz:550&:k=1519:k,(l*5);"":k:14,l*5;"";20,l*5;"":700:l  900 t#0;1,5;"Dein Blatt! - ";("du beginnst"bgn=0)+("ich beginne"bgn=1):k=̰"300":k bgn=11500 Tastaturabfrage u#0;1,0;l$:12 ,7;2;"";13 ,7;"":.05|L,20:s=7 !0:.004yn,40(:co=:co=13 twenty0forty0(p$=""win=1)flg=1:12 ,s;" ";13 ,s;" ":3051:flg=0:4000:ill=1ill=0:30 "ico=13 .05|L,0:12 ,s;" ";13 ,s;" ":300,:1006+744*resp #co=502win=0twenty=-twenty+1:10 ,27;0;6;(""twenty=0)+("20"twenty=1):33! $co=119wwin=0scsp+20*twenty+40(*forty>65Aflg=1:3051:4001:flg=0:scsp>65A#0;1,s;7;"O.K.":k=130:k:8990# %co=119w#0;1,6;"Dein Stand ist ";scsp;" Punkte":k=̰"300":k:#0;1,0;l$:33! &co=524win=0forty=-forty+1:10 ,27;0;6;(""forty=0)+("40"forty=1):33! 'co=99c(p$""win=0closesp=0)cl=-cl+1:11 ,24;0;6;(""cl=0)+("Dreh' zu"cl=1):100d-67C*(cl=0) )#co=116t950:33! 6#co568co53533! 77s+5*(co=568)>5*anz+233! 9+s-5*(co=535)<533! ;12 ,s;" ";13 ,s;" ":s=s+5*(co=568)-5*(co=535):12 ,s;3;"";13 ,s;"" Y 33! dscsp<30(105i+(*4)+1):y$:#0;1,0;1;y$:k=07:.02{# =,40(-k*2:k:2:(7-k):k:10 :1:#0;1,0;l$ j$" Bist du noch zu retten ?!! " k$" Wer jemand eine Grube graebt..." l$" Was du traust dich ?!! " m$" Was faellt dir ein !!! " n 33! **UDG** iw=8:g=170:h=85U:j=36$:l=42*:205:k="a""p"+7:i:k,i:k: %0,j,106j,l,l,l,j,0 M16,568,124|,254,254,254,84T,16 M16,568,124|,254,254,124|,568,16 O102f,231,255,255,255,126~,60<,24 K24,60<,24,90Z,255,90Z,24,126~ C0,0,0,0,1,7,15,15 I0,0,0,0,128,224,240,240 I240,240,224,128,0,0,0,0 D15,15,7,1,0,0,0,0  g,h,g,h,g,h,g,h w,w,w,w,w,w,w,w A0,0,0,0,0,0,5,6 G0,0,0,0,0,128,192,224 G11 ,21,42*,85U,42*,84T,0,0 N176,216,252,126~,255,63?,31,31 ,Ausspiel Spieler -.i=13 20:i,s-2;" ":i 0g$=h$ 1ss=(s-2)/5:l=3:j=ss*2-1:rr=6:d$=h$(ss*2-1ss*2):flg0:*vorzeitiges Verlassen, falls im 20/40er Testmode(aufgerufen von Zeile 33) 2/bb=6:bc=15:450:710 6]y$=d$(2):3300 :valsp=value:h$=h$(ss*2-2)+h$(ss*2+1) ; 350^ @Bcl=1closesp=0closesp=1:p$="":frsczx=sczx J K2exa(=Punkte der im Spiel befindl. Atout) updaten c(d$(1)=t$(1)exa=exa-valsp e h(e$(1)=t$(1)exa=exa-value m Atoutkarte darstellen Ybb=5:bc=5:450:g$=t$:l=1:j=1:rr=5:710: &allg. Kartendarst.rout. am Tisch i=bbbb+4:i,bc;6;"":i:bb-1,bc;6;"";bb+5,bc;6;"": j=120:aa=((*20)+1)*2-1:ab=((*20)+1)*2-1:c$=p$(aaaa+1):p$(aaaa+1)=p$(abab+1):p$(abab+1)=c$:j: &Comp. Karten darst. +K7;l*5*8+4,160:7;31,0: X$Austeilen+Atoutkarte festlegen lexc=0:t$=p$(2122):h$="":z$="":j=15:h$=h$+p$(j*4-3j*4-2):z$=z$+p$(j*4-1j*4):z$(z$-1̱z$)=t$exc=1 q"j:p$=p$(2340()+t$: Kartenwerte darstellen )j=l*2-1:rr=15:g$=h$ K*Routine 710 stellt Kartenwert g$ auf Karte der Position ( rr,l*5 ) dar.  730 err,l*5+1;7;ink;g$(j+1);rr+2,l*5+2;7;ink;g$(j)  ;ink=2*(g$(j)=""g$(j)="")+(g$(j)=""g$(j)=""):  Sortieren eines Blattes ' n=1 * flg=0 /;j=1̱x$/2-n:i=j*2:c$=x$(i):860\ 4*aa=k-10 *(x$(i-1)-145) 9c$=x$(i+2):860\ ;+aaa=k-10 *(x$(i+1)-145) >naa>aaaflg=1:c$=x$(i-1i):x$(i-1i)=x$(i+1i+2):x$(i+1i+2)=c$ Hj Mflg=0 Rn=n+1:810* \_k=502*(c$="A")+513*(c$="")+524*(c$="K")+535*(c$="D")+546*(c$="B"): Kartenpaket+Atoutkarte  400 ڰ"6":"3",;ٲ;"Atout:";ink;t$():"":k=̰"4":"";ڰ"7";ټ;"";ٰ"6";"":k:"":k;ٲ;"":ڲ  Test Spieleraustausch p$=""win=1970 Gk=19 2:h$(kk+1)=t$(1)+"B"956 :k:970 J0.01z# =,40(:h$(k+1)=p$(p$):p$(p$)="B":t$(2)="B" fx$=h$:800 :h$=x$:g$=t$:j=1:730:5,6;ink;7;"B":5505 .01z# =,30  ʜ#0;1,5;6;0;"Du kannst nicht tauschen":2,-9 :#0;1,5;1;"": **Spielstrategie HP** -- Draufspiel -- Aww=0:max=0:cardnr=0:3500 :bon1=bonus $i=1̱z$/2:k=i*2 "="w"scsp>65A8990# ww=0:eval=0:e$=z$(k-1k):y$=e$(2):3300 :z$=z$(k-2)+z$(k+1):1450 p$=""7000X:1390n  i3500 :bon10eval=((bonus+13 -value+valsp)*(w=1)*(1+2*(e$(1)=t$(1))+(bonus-value*(bonus0))*(w=0))*((13 -value)*(w=0valsp<4scsp<40(ctr<3))+1)+(30+13 -value)*(bonus0w=1sczx=0)+(100d+(13 -value))*(w=1bonus=40() bon1=0eval=(23-value+valsp+(10 e$(1)=d$(1)d$(1)t$(1))+5*ctr)*(w=1)+(13 -value+15*(valsp<10 scsp<60<))*(w=0) n,eval>maxmax=eval:cardnr=k-1:ww=w x(z$=z$(k-2)+e$+z$(k-1):i win=ww  2000 .w=0:* w wird 1 falls Comp Stichsieger )d$(1)e$(1)1456-flg (e$(2)="A"(e$(2)=""d$(2)"A")(e$(2)="K"(d$(2)""d$(2)"A"))(e$(2)="D"d$(2)="B"))w=1  Je$(1)=t$(1)(d$(1)t$(1)win=1)w=1  -- Ausspiel --  exc=1p$""6000p p$""7500L 3500 :stack0cardnr=stack:stack=0:4,27;("20"bonus=20)+("40"bonus=40():sczx=sczx+bonus:1700+7300*(sczx>65A) cardnr=0 /p$=""7800x:cardnr01700 1flg=1:2003:resp=1:30 -resp=0:1450:win=w:2006 cardnr=03200 e$=z$(cardnrcardnr+1):z$=z$(cardnr-1)+z$(cardnr+2):bb=4:bc=20:1,anz*5;" ":450:l=4:rr=4:j=1:g$=e$:710:flg=1flg=0: $anz=anz-(p$=""):p$""5000 !e$=t$(1)+"B"exc=0 $2500 :5500|:2090* win=0ctr=ctr+1 Pwin=1ctr=0:sczx>65Aclosesp=060<:9000(# z$=""h$=""8990#+10 *((win=0closesp=1scsp65A)(win=1closezx=0closesp=1scsp65A)(win=1closezx=1sczx>65A)(win=1closezx=0closesp=0)) 30+1470*win )Ende HP - div. UPRO *:y$=e$(2):3300 :360h:value=value+valsp 4 win=0scsp=scsp+value: 9sczx=sczx+value: Tisch clearen j=070F*(p$=""):j ;j=311 :j,15;6;l$(17):j _10 ,25;6;"";3,25;"";4,25;"": #Uebersetzung der Farben in Zahlen Kclr=(1c$="")+(2c$="")+(3c$="")+(4c$=""): kleinste NA-Karte finden min=11 i=2̱z$2 'z$(i-1)=t$(1)3230 mvalue=(11 z$(i)="A")+(10 z$(i)="")+(4z$(i)="K")+(3z$(i)="D")+(2z$(i)="B") (valueminmin=value:cardnr=i-1 i: Kartenwert y$ value=0 jvalue=value+(11 y$="A")+(10 y$="")+(4y$="K")+(3y$="D")+(2y$="B"): * 20 ? / 40 ? ;bonus=0:j=1̱z$/2-1:l=j*2 z$(l)="K"(z$(l+1)=z$(l-1)z$(l+2)="D"bonus<20+20*(z$(l-1)=t$(1)))bonus=20+20*(z$(l-1)=t$(1)):stack=l+1 j  Splransage 20/40 ,ill=0:p$=""win=14100 :d$(2)"K"d$(2)"D"ill=1:4050 id$(1)t$(1)forty=1(d$(1)=t$(1)twenty=1)ill=1:4050 <c$=d$(1)+("K"d$(2)="D")+("D"d$(2)="K") 6k=1̱h$-12:h$(kk+1)c$k  k>h$ill=1:4050  4070 ׌flg=0#0;1,3;"F A L S C H E K A R T E":2,-12 :2515 :#0;1,0;l$ escsp=scsp+20*twenty*(ill=0)+40(*forty*(ill=0):twenty=0:forty=0  d$(1)=e$(1)  Kk=1̱h$-12:h$(k)=e$(1)ill=1:4050 gk:d$(1)t$(1)k=1̱h$-12:h$(k)=t$(1)ill=1:4050 k:  Abheben eww=win*2:z$=z$+p$(-ww+3-ww+4):h$=h$+p$(ww+1ww+2):p$=p$(5) /z$(z$-1)=t$(1)+"B"exc=1 2x$=z$:800 :z$=x$:x$=h$:800 :h$=x$ p$=""clear=1  |Lanz<5k=(anz+1)*5:l=13 20:l,k;" ":l }Wclear=1l=411 :l,0;6;" ":l:clear=0 ~>p$>011 ,5;6;0;p$/2 zssanz+1i=s-2:k=1519:k,i;"":k:14,i;"";20,i;"" Bf1=1:l=1anz:700:550&:l:f1=0: pAustausch Comp r@exc=0:4,20;0;6;"Ich tausche" uTl=1̱z$/2:z$(l*2-1l*2)=t$(1)+"B"6020 zl Rz$(l*2)=t$(2):p$(p$)="B":t$(2)="B":x$=z$:800 :z$=x$ g$=t$:j=1:730:5,6;7;ink;"B":k=170F:k:4,20;6;l$(11 ): XEndspiel Draufspiel b\e$(1)=d$(1)eval=502+eval+(valuew=1)+(13 -valuew=0): d0e$(1)=t$(1)eval=20+value: geval=13 -value: L zudrehen ? My$=t$(2):3300 Qsum=0:suma=0:k=1̱z$-12:y$=z$(k+1):3300 :sum=sum+value:z$(k)=t$(1)suma=suma+value Vk:3500 :sum=sum+bonus [sum>.85Y*(66B-sczx)suma>(exa-value)*.4Lclosezx=1:close=1:frscsp=scsp:p$="":7520`:k=14:i,j:i,j:k:3,25;0;6;"Dreh zu" `E.3,4,.1}L,0,.1}L,0,.5,4 j xEndspiel Ausspiel ,max=0:k=1̱z$-12 Gy$=z$(k+1):3300 :z$(k)=t$(1)value=value+20  value>maxmax=value:cardnr=k k: #P10 ,18;"Dein Sieg ":gwin=0:9090# #(E2510 :4,20;"Mein Sieg":gwin=1 #closezx=1scsp=frscsp #closesp=1sczx=frsczx:scsp65A16,1;"Du hast zugedreht und nicht";17,1;"genug Punkte gemacht." #13 ,1;"Du hast ";scsp;",ich habe ";sczx;" Punkte":k=1100d:k:9100#:1,1;l$(3):k=12 20:k,1;l$(3):k #'p$=o$:bgn=-bgn+1:6-over #Spielstand anzeigen #games=games+1 #}gwin=0psp=psp-1-(sczx<33!)-(sczx=0):psp0psp=0:dotszx=dotszx+1:over=1 #}gwin=1pzx=pzx-1-(scsp<33!)-(scsp=0):pzx0pzx=0:dotssp=dotssp+1:over=1 #w$(games+1,1)=(pzxgwin=1)+("--"gwin=0):w$(games+1,2)=(pspgwin=0)+("--"gwin=1) #_2500 :3,15;4;1;" ZX|Du";3,15;1;"_" #kk=1games+1:k+3,15;4;1;" ";w$(k,1);"";w$(k,2);" ":k #over=11,2;1;1;1;7;1;("Dein"psp=0)+("Mein"pzx=0);" Spiel !";0;15;"STAND: ";dotssp;" : ";dotszx #O23617A\,236:5;" Bereit fuers naechste Blatt ";q$:q$"n" # #s5:0,0:255,0:0,175:-255,0:0,-175:7: $TTastaturbelegung $U $Y'8;"_";1,8;1;"Tastaturbele";0;"g";1;"un";0;"g":6,3;"Taste";19;"Wirkung" $[H9330r$:j=16::c$:4;c$;:c$:15;c$:j $] 200 $^h#0;1,0;1;"Druecke eine Taste um anzufangen":0:.02{# =,26:: $r"2,4","20/40 ansagen"+13 +6+"(vor Ausspiel)","t","austauschen","w","Sieg deklarieren","c","zudrehen","5,8","Karte waehlen","ENTER","Ausspiel" '"Schnapsen"1: ' 0: xx schnxx @'@ WMMP ;9P;9P ;9P  MrB|3M`=v>>BB<DHpHDB@~BfZBBBBbRJFB