5 1 HHJNtl=0:s(5):k(5):k$(5,6):s$(5,6) #c$(32 ,6):c(32 ) k" A",1," K",4," D",3," B",2,"10",-10 ," 9",0," 8",8," 7",7 "i=18:c$(i)=" ":i #i=9 16:c$(i)=" ":i $i=1724:c$(i)=" ":i #$i=2532 :c$(i)=" ":i ' 10 (kj=03:i=18:d$:c$(i+j*8)(35)=d$+" ":a:c(i+j*8)=a:i - 10 :j d :180 n::: xN"Kennen Sie die Spielregeln?";j$:j$(1)="j"j$(1)="J"200 },j$(1)"n"j$(1)"J"100d (:180::1;"Spielregeln:" }:"Beim Ablegen der Handkarten ist darauf zu achten, dass der Ge- samtwert der Karten des Talons nicht ueber 50 zaehlt -" :"Wer zuerst 51 oder mehr er- reicht, hat verloren!!" c:"Die Karten zaehlen wie folgt:"''" A=1 * K=4 * D=3 * B=2 10=-10* 9=0 * 8=8 * 7=7" "Alles klar?";j$:200 2;0,0;" ****************************** ** ** ** 51 ** ** **" .2;" ******************************": D:180::1;"Wer die hoehere Karte zieht beginnt." ab1=(*32 +1)::"Mit einem Tastendruck Karte ziehen":1:1:0 ,b2=(*32 +1):b2=b1215 a1=b1:a2=b2 &a1>8a1=a1-8:230 #a>8a2=-8:235 f1=0:a2 Taste druecken." J1:0 karten verteilen  az=10 .i=15:k$(i)=c$(i):k(i)=c(i):i >i=15:s$(i)=c$(i+5):s(i)=c(i+5):i :spieler spielt aus .f1=0az=10 180:600X 180:az=az+1 ^8,0;s$(1);" ";s$(2);" ";s$(3);" ";s$(4);" ";s$(5)  &:" '1' '2' '3' '4' '5'" #"Welche Karte spielen Sie aus?";a  a<1a>5530 s$(a)=" "530 ! tl=tl+s(a) &Ot$=s$(a):s$(a)=" ":s(a)=0:az<33!s$(a)=c$(az):s(a)=c(az) +az>32 s$(a)=" " /812 ,0;" " 0q=(a-1)*7 :;12 ,q;"";:q=288;" ":575? ?:14,10 ;"Talon: ";1;t$;0;" ";tl DFtl>502::2;1;"Sie haben Verloren!!":800  FCf1=1az41)::1;"Unentschieden !":800  N 100d Xcompi spielt aus ]1i=25:k(i)>k(i-1)690 bi:az=az+1 cek(1)+tl<513k(1)-20t$=k$(1):tl=tl+k(1):l=1:620l dek(2)+tl<513k(2)-20t$=k$(2):tl=tl+k(2):l=2:620l eek(3)+tl<513k(3)-20t$=k$(3):tl=tl+k(3):l=3:620l fek(4)+tl<513k(4)-20t$=k$(4):tl=tl+k(4):l=4:620l gek(5)+tl<513k(5)-20t$=k$(5):tl=tl+k(5):l=5:620l hMi=51-1:k(i)-20t$=k$(i):tl=tl+k(i):620l ii l'az<33!k$(l)=c$(az):k(l)=c(az) q-az>32 k$(l)="":k(l)=-20 vN14,10 ;"talon: ";1;t$;0;" ";tl:1:120x Dtl>502::1;7;"Ich habe verloren!":800  Bf1=0az41)::1;"Unentschieden!":800   500 \q=k(i):k(i)=k(i-1):k(i-1)=q:q$=k$(i):k$(i)=k$(i-1):k$(i-1)=q$  605]  #f1=0f1=1:810* %f1=1f1=0 *N"Noch ein Spiel?(j/n)";j$:j$"n"j$"N":180:tl=0:270 4 H1:6:0: R0"":1;10 ,5;"Band stoppen" 'yy=20:xs=10 :ys=10 )2:p$="51"::9000(#:0 3p$=" 1983":yy=110n:xs=3:ys=3  9000(# =1:yy=140:p$="Th. Dargel":9000(#:0 L"a",8,62>,28,73I,127,73I,8,28 M"b",8,28,62>,127,127,73I,8,28 L"c",0,34",119w,127,62>,28,8,0 K"d",8,28,62>,127,62>,28,8,0 #1000:i=14:a$ n=07:a a$+n,a:n:i  2 #(>CLS . LET yy= . LET xs= . LET ys= . LET p$=" " . GOSUB 9000 #'xx=(256-8*xs*p$)/2 #i=23306 [:i,xx:i+1,yy:i+2,xs:i+3,ys:i+4,8:i=i+4:w=p$:n=1w:i+n,p$(n):n:i+w+1,255:w=32256~: '" 5 1"840H ' "c"32256~,300,  (wP Th. DargelaAd# #   8 K B B 9 B 10 10 D K 8 K 9 10 8 A 7 B 7 D 10 9 7 8 K A D 7 D 9 A A  (D 7Jjz cZ A c ,~.![~#"[o<&)))K6\ >2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[~2[: [G: [2 [*[ ~2[: [G: [2[: [Oͤ~:[<2[ :[<2[ :[0~@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!~xO F![F(// Pa