66 l$X$5$ 12 i=132 :s$(i),:i   7:7:0:  3000 s$(32 ,2)  sp=31 p$(6,2) #c$(6,2) (p=0:c=0 -4502:w$(8):i=18:w$(i):i 2!"7","8","9","B","D","K","","A" 7 k=6 <(w(8):i=18:w(i):i FC0,0,0,2,3,4,10 ,11 210 ꏏ Mischen &i=14:n=18 x=(*32 )+1 s$(x,1)" "220 s$(x)=i+n n:i ,ꏏ Verteilen 6t$=s$(32 ) @i=16 J$p$(i)=s$(sp):c$(i)=s$(sp-1) Tsp=sp-2 ^i h ꏏ Hauptprogramm r=(*2) r1200:2000 (r1000:2000:1220 ꏏ Bewertung  st=2 -x$(2)="4"y$(2)"4"st=0 -y$(2)="4"x$(2)"4"st=1 =y$(2)="4"x$(2)="4"st=y$(1)>x$(1) st2550& =x$(1)=t$(1)y$(1)t$(1)st=0 =y$(1)=t$(1)x$(1)t$(1)st=1 5y$(1)=x$(1)st=y$(2)>x$(2)  st2550& x$(1)y$(1)st=r 5x$(1)=y$(1)st=y$(2)>x$(2) &#i=w(x$(2))+w(y$(2)) 0 stp=p+i 5 stc=c+i :r=st ?_21,0;("Ich bekomme den Stich. "r)+("Du bekommst den Stich. "r) @-#1;"Druecke eine Tastem":200: Dꏏ Karten ziehen Nsp>0620l X"sp=0k=1900  bk=k-1:420 lNoch Karten da qsp>1 640 vUc$(6)=s$(1):p$(6)=t$:rc$(6)=t$:p$(6)=s$(1) {sp=0:420 0c$(6)=s$(sp):p$(6)=s$(sp-1) 3rp$(6)=s$(sp):c$(6)=s$(sp-1) sp=sp-2  420 ꏏ Spiel beendet i=045-15 n=020 .004yn,i+n  n/2.83333 n:i 1:1 2p66B5,5;"Du hast gewonnen." 3c66B5,5;"Ich habe gewonnen." :c<66Bp<66B5,5;"Unentschieden." L10 ,5;"Meine Punkte: ";c;12 ,5;"Deine Punkte: ";p "Nochmal ? ";a$ 0:0 Ga$="j"20,0;"Einen Moment bitte !":20:400  ꏏ Bildschirmausgabe  #0,0;"Deine Karten: " 1i=1k:j=2:k$=p$(i):1040:i  N8,11 ;"Deine Punkte: ";p;10 ,11 ;"Meine Punkte: ";c  1100L ꏏ Kartenausgabe si*32 -1,(22-j)*8:26,0:0,-34":-26,0:0,34" 2*(k$(1)<"3") Lj,i*4;(143+k$(1));i*4+2;w$(k$(2)) $Tj+3,i*4;w$(k$(2));i*4+2;(143+k$(1)) .ok$(2)>3k$(2)<7j+1,i*4+1;"";j+2,i*4+1;"" 8 0 B `8,0;"Trumpf:" j*i=1:j=10 :k$=t$:1040 t ꏏ Spieler wirft Karte  1000 421,0;"Steuere mit 'k' und 'l'. " s=(k*4)/2+2 7,s-1;" ^ " a$= a$="x"1400x Pa$="k"a$="l"s=s+(a$="l"s5):1240 a$=13 1290   1250  j=(s/4)  y$=p$(j) r1500 n=jk-1 (p$(n)=p$(n+1) 2n <*k$=y$:j=12 :i=4:1040 F xꏏ 9 austauschen }sp1435 i=16 5p$(i)=t$(1)+"3"p$(i)=t$:t$=t$(1)+"3" i 57,0;" " 1020:1220 ꏏSpielerzug pruefen v$=x$:z$=y$ v$(2)="4"v$=t$ z$(2)="4"z$=t$ 0x=v$(1):y=z$(1):t=t$(1) a(4):i=1k .p$(i,2)"4"a(p$(i,1))=1 !p$(i,2)="4"a(t)=1 i "xya(x)1580, ' 1310 ,M21,0;"Du musst Farbe bekennen!":.2~L,20:1250 ꏏ Computerzug !t$(2)<"4"sp2035 i=16 s$(i,1)=t$(1)c$(i,2)="3"c$(i)=t$:t$=t$(1)+"3":21,0;"Ich tausche die '9' aus. ":.5,20 i 'k=1x$=c$(1):2080  r2090* kc=(*k)+1  x$=c$(kc) (i=kck-1:c$(i)=c$(i+1):i  2640P *Ad$(6,2):b(8):n=0:b(8)=10 /9y$(2)="4"y$=t$(1)+(y$(1)+8) 4 i=1k > d$(i)=c$(i) H@c$(i,2)="4"d$(i)=t$(1)+(c$(i,1)+8) RFd$(i,1)=y$(1)n=n+1:b(n)=d$(i,2)-480 \i ftr=y$(1)=t$(1) pn2400` u>n=1x$=y$(1)+(b(1)+480):2600( z2200:2260 v=y$(2)-480 0bu=0:gr=7:kl=8:c(5)  i=1n 5b(i)>8bu=bu+1:c(bu)=b(i):2250 b(i)>b(gr)gr=i b(i)vx$=y$(1)+b(gr):2600( 2buv<4x$=y$(1)+b(kl):2600( i=1bu $-c(i)>vx$=(c(i)+40()+"4":2600( .i 8"x$=y$(1)+(b(kl)+480) L 2600( `nicht bekennen j 2700 ttr2510 y[b(7):c(5):n=0:bu=0:gr=7:kl=5:c(5)=5 ~ i=1k 't$(1)d$(i,1)2480 +n=n+1:b(n)=d$(i,2)-480 b(n)<9 b(n)>b(gr)gr=n Eb(n)>8bu=bu+1:c(bu)=b(n)-8:c(bu)"6"n$(2)>"4"n>22530 x$=n$:2600( trumpfen /gr7x$=t$(1)+b(gr):2600( kl7x$=c(kl)+"4" 'Karte werfen (1x$(2)>"8"x$=(x$(2)-8)+"4" -1y$(2)>"8"y$=(y$(2)-8)+"4" 2 i=1k <1x$=c$(i)j=ik-1:c$(j)=c$(j+1):j Fi P*j=12 :i=5:k$=x$:1040 .ꏏniedrigste Karte ermitteln n$="09" i=1k 'd$(i,1)=t$(1)2750 %d$(i,2) ";a$ :"Bei gleicher Farbe entscheidet der hoehere Wert. Truempfe stechen immer. Der Gegner muss Farbe bekennen, wenn er kann. Trifft das nicht zu, so kann er beliebig abwerfen" "(dadurch verliert er den Stich) oder trumpfen. Nachdem jeder eine Karte geworfen hat, ziehe ich fuer beide je eine Karte vomStapel, solange noch Karten da sind." ?"Es spielt immer der aus, der denletzten Stich gemacht hat." &"Wichtig: Wenn Du die Trumpf-Neunhast, kannst Du sie durch Druechen von 'x' mit der Trumpf-karte vertauschen. Dieses Recht habe ich natuerlich auch." 03400H :UDG's :"Drueke Enter -> ";a$ D:4;"Kartenwerte:";2,4;"As....=11";3,4;"Zehn..=10";4,4;"Koenig= 4";5,4;"Dame..= 3";6,4;"Bube..= 2";7,4;"7,8,9 sind Luschen (=0)" Nb9 ,0;"Wer ueber 66 Punkte hat, nachdemalle Karten ausgespielt sind, hat gewonnen." b?21,0;1;"Viel Spass wuenscht STANKINSOFT!" l"Drueke Enter -> ";a$ v 400 H ꏏ UDG M 3430f R i="a""g"+7:a:i,a:i f16,568,124|,254,124|,568,16,0,68D,238,254,254,124|,568,16,0 h16,568,124|,254,254,84T,16,568,16,568,16,84T,254,84T,16,568 j0,78N,81Q,81Q,81Q,81Q,78N,0,0,62>,65A,85U,65A,34",34",127,127,34",34",65A,85U,65A,62>,0 z ' '"66"1 261947114313 @BABOJO +7(095)215-23-49 p