SSKAT sH@sH!uH Skat / BASIC  Version Oct. '83  * Sinclair ZX Spetrum *   2 7700 d7:7:0 Țb(3,12 ):P(3):k(32 ):w(2):H(2):u(3):r(3):c(3):s(3):S(3):t(3):G(3) f1=0:sp=0 f2=0 f4=0 hf=0 rf=0 gr=0 hy=0:ly=0 zw=0 kf=0 >z(3):i=13:z(i)=7:i:lulu=0  $zv=(*3)+1:q=1 &Popo=1:6000p:6020 Popo=0 ,=#1;0,0;"Moment, ich mische die Karten !" 6%i=132 :k(i)=1:i @'z=13:t=110 J>i=(*31)+132 :k(i)=0i:330J T360h:390 hlw=(((i-1)/4)+1)+10 *(((i-1)/4-((i-1)/4))*4+1) r7((i-1)/4)+1=8w=w+200 | k(i)=0:b(z,t)=w:t:z <z1=1:i=132 :k(i)=0i:420 /360h:w(z1)=w:z1=2:i:z1=0 #z=1:6100:1000 $62008:5000:5140 25510:z=zv:d=110 :2000 X100d:18,18;"Stich geht an ";19,18;"Spieler ";z;" " 1502:z2=z:62008:z=z2:fb=0:d L09000(#:10 ,8;"Spielwertung :" VFi=12:z1=(H(i))(H(i)):6600:P(sp)=P(sp)+w:i `M12 ,0;"Der Spieler (";sp;") hat ";P(sp);" Punkte. ":70F j3sf=1P(sp)>90Zfg=1:1160 t3sf=0P(sp)>60<fg=1:1160 ~ fg=0 85004!:(fg=1sp=1)(fg=0sp1)12 ,0;" Du hast gewonnen ":70F:8800`":1170 N8600!:12 ,0;" Du hast verloren. ":8700! 'zv=zv+1:zv=4zv=1 P(sp)>90ZP(sp)<30r(sp)=r(sp)+1:12 ,0;" Schneider ":70F:sf=112 ,16;"& angesagt":70F -sf=1r(sp)=r(sp)+1:sf=0 -hf=1r(sp)=r(sp)+1:hf=0 Dgr=1gr=0:S(sp)=24*(r(sp)+1):1220 S(sp)=(r(sp)+1)*c(sp) D(P(sp)<61=)(P(sp)<91[sf=1)S(sp)=-2*S(sp) !S(sp)gwfg=01260 g12 ,0;"Moment. ";:sp=112 ,8;"Du hast dich ";:1250 "Spieler ";sp;" hat sich"; d"berreizt.":70F:12 ,0;" Verloren ! ":S(sp)=-2*S(sp)  9500% -kf=1S(sp)=2*S(sp):kf=0 -rf=1S(sp)=2*S(sp):rf=0 G(sp)=G(sp)+S(sp)  <i=13:P(i)=0:i:q=q+1:300, Dfb=0:iq=2000+z*10 :iq=2030iq=2020 iq $6700,:6800:21004 sp=z2040 /44000:h=04100:2030 .h-10 *(h/10 )=64500  u(z)=h:6800:21004 q4100:(h)((h))>54000:(h)(h)>5h<20044000:h=04000 h=044000  2030 48fb=(u(z)/10 ):z=z+1:z=4z=1 >/z=16700,:6800:2400` Hz=sp2260 Ru(sp)>02180 \#4200h:h=04100 f.h=044000+100d*(*2) pCu(z)=h:(h/10 )fbh<100du(z)=-1*h:2170z uu(z)=h z6800:2400` u(sp)>100d2240 &4200h:h>u(1)2160p #h>04300:2160p  4100 h=04500  2160p #4100:h=04500  2160p &zw=z-1:zw=0zw=3 fb>9 2320 !4200h:h>u(zw)2160p #h>04300:2160p #4100:h>02160p 4500:2160p #4000:h=04500  2160p `#z=z+1:z=4z=1 j/z=16700,:6800:3000 tz=sp2600( ~"2800 :h1=u(sp)2500 fb<10 2470 #4100:h=044000 2580 #4200h:h=044000 h=04100 2580 fb<9 2530 :4000+100d*(*2):h>02580 4500:2580 !4200h:h>u(sp)2580 h>04300 ,h=04100:h9 2680x 2*4200h:2800 :h>h12580 <#h>04300:2580 F$2900T :st>82670n P/4500:h=04100:2580 Z.h-10 *(h/10 )>44100 d 2580 n#4100:h=04500 x%2900T :st>10 2710 /4100:h=04500:2580 0(h)((h-1)(h))<62580 4000:2580 #4100:h=04500 2580 1h1=0:i=13:h1u(2)u(1)>u(3)z=1:3020 3030 <(u(1)/10 )fbu(1)<100d3030 3040 .u(2)>u(3)z=2:3040 z=3 @st=0:i=13:z1=(u(i))(u(i)):6600 *st=st+w:u(i)=0:i:P(z)=P(z)+st: Dh=0:i=110 :h100dh=b(z,i) i: Gh=1000:i=110 :h>b(z,i)b(z,i)>100dh=b(z,i) i:h=1000h=0  hIh=0:i=110 :hb(z,i)ƺ(b(z,i)/10 )=fbh=b(z,i) i:h=1000h=0  0h1=0:h=0:i=110 :h1(b(z,i))(b(z,i))b(z,i)<100db(z,i)>0h=b(z,i):h1=(b(z,i))(b(z,i)) i:h=1000h=0  Gz=13:r1=0:c(z)=0:r3=0:r(z)=0 si=14:k(i)=0:i:z1=0:i=110 :b(z,i)>200z1=z1+1:k(z1)=b(z,i) Ri:r1=z1:z1=0:h=248218-10 :5030:h:5040 Cz1=z1+1:i=14:k(i)=hk(z1+4)=1: i:k(z1+4)=0: 4i=57:k(i)=k(i+1)i:i=8 ?r(z)=i-4:t(z)=r(z):i=14:k(i)=0:i Ri=110 :b(z,i)<100dfb=(b(z,i)/10 ):k(fb)=k(fb)+1 0i:i=14:r3r4r6=r4:S(z)=r4 &r6<18r7=18:5130  r4:r4r6r7=r4:5120  r6=r7::s(z)=r6:z: @pg=zv:z1=zv:5150:ph=z1:5150:sp=z1:5160( )z1=z1+1:z1<4:5160( #z1=1: (*5200P:h=0sp=pg:5180< 2#5240x:h=15160( 7ph=pg:5190F <*5200P:h=0sp=ph:5270 F#5240x:h=15180< K 5270 Psp=15230n ZZ40(:19,10 ;sp;" : ";:r4:r4100db(sp,a)-10 *(b(sp,a)/10 )=75340 H(i)=b(sp,a):b(sp,a)=0 i Oz1=0:i=112 :b(sp,i)>0z1=z1+1:k(z1)=b(sp,i) 6i:i=110 :b(sp,i)=k(i):i:62008: p=1"Karo";: p=2"Herz";: p=3"Pik";: p=4"Kreuz";: "G r a n d";: |contra sp15590 t=23 Ah1=0:j=110 :b(t,j)>100dh1=h1+1 bj:h1>4-sftsp#0;0,0;"Spieler ";t;": Contra !":kf=1:502 t:kf=05620 sp=15610 ah1=0:j=110 :(b(sp,j))(b(sp,j))>6b(sp,j)>200h1=h1+1 gj:h1>5#0;0,0;" Spieler ";sp;": Re !! ":rf=1:502  5620 >"Contra Ja/Nein ";p$:p$=p$+" ":p$(1)="j"kf=1  5520 /"Re Ja/Nein ";p$:p$(1)="j"rf=1 kf=162008  o p9000(#: 9000(#:8,0;"Ich mische die Karten, verteile und sortiere sie. Da sie im Grunde ein ehrlicher Mensch sind, nehme ich an, da ich ihreSpielzge nicht zu berprfen brauche." 14,0;"Wenn es ihnen also Spa macht zuSchummeln, knnen sie dies nach Herzenslust tun."''"Und nun viel Spa!"'"Drcken sie irgendeine Taste !" =""6040  >#0;0,0;"Ich sortiere... " t=110 *i=110 :z108,9 ;P(sp):6210B BNz=1:t=110 :t<10 9 ,t*2;t;:6220L G9 ,t*2;"0"; L".";:7050::t ` re=12 e1:re<240Ʃ(re,90Z)=0re,91[:15,0:re,41):15,0:re=re+16:6245e j 0  U"Hand Ja/Nein ";p$:p$="j"hf=1:i=12:H(i)=w(i):i:6360 f1=1:62008:19,13 ;"Skat ":i=12:b(1,10 +i)=w(i):i:t=11 12 :9 ,2*t;t;:7050::t p1:192,91[:0,-502:0:32 ,0:0,502:-32 ,0 y20,0;"Drcken Nr.";:i=12:k(i):H(i)=b(1,k(i)):k(i)<1k(i)>12 6310 i z1=0:i=12:b(1,k(i))=0:i:i=112 :b(1,i)0z1=z1+1:k(z1)=b(1,i) -i:i=110 :b(1,i)=k(i):i <21,5;H(1);21,10 ;H(2)  f4=1 *6000p:12 ,2;"Was ist Trumpf ? (1) Karo (2) Herz (3) Pik (4) Kreuz (5) Grand (6) Nichts mehr, du hast keine Lust mehr.":p:p=564502 gr=0:p=6 !p>5p<16360 TS(1)=(p+8)*(t(1)+1):z=13:t=110 @b(z,t)<100dƺ(b(z,t)/10 )=pb(z,t)=100d+b(z,t) t:z  Yt=11 12 :b(sp,t)<100dƺ(b(sp,t)/10 )=pb(sp,t)=100d+b(sp,t) 2t:z=1:6100:f1=062008 ]f4=1f4=0:sf=0:"Schneider ansagen ";p$:p$="j"sf=1:6440( # sf=0 (6500d:62008: 2egr=1:S(1)=24*(t(1)+1):z=1:6100:f1=062008 <6430: d9z1=1:R(sp)=8+p:p=5R(sp)=234 n$t=14:k(t)=0:t xSt=14:i=110 :b(sp,i)=258-10 *tk(t)=1 >i:t:t=13:k(t)=k(t+1)z1=z1+1:t hf=1z1=z1+1 'r(sp)=z1:S(sp)=(r(sp)+1)*R(sp) gw=zw  #z1=1w=0:6670 #z1=2w=0:6670 #z1=3w=0:6670 #z1=4w=3:6670 #z1=5w=4:6670 $z1=6w=10 :6670 $z1=7w=11 :6670  w=2  ,"19,18;"Karte Nr.?"; 6p$=:p$=""67106 @ p=(p$):p=0p=10 J5b(1,p)=0.8L,-5:6700, O.1}L,8 Tu(1)=b(1,p) ^]fb>0ƺ(u(1)/10 )fbu(1)<100du(1)=-1*(u(1)) h .17,z*2;:z=sp"*";:6820 z; Aq$=(u(z))(((u(z))-1)((u(z)))):u(z)>100d"+"; xhy=103g:ly=13 :12 ,28:72H,0:0,-28:10 ,0:-92\,0 Qa=z:t=z:lulu=8:6840:lulu=0:z=a:hy=0:ly=0: q$""g$=q$(1):z1=g$ z1=0 g-4+16*t,(91[lulu=0):0,(-502lulu=0)+(28lulu>0) 35-z1=111 +lulu,t*2;""; 35-z1=211 +lulu,t*2;""; <5-z1=32;11 +lulu,t*2;""; <5-z1=42;11 +lulu,t*2;"";  .05|L,t 10 ,0; !f2=1f2=0: &z1=0:z1=(q$((q$))) 010 ,0; 5z1=0 :-z1=812 +lulu,t*2;"B";: D-z1=712 +lulu,t*2;"A";: N-z1=612 +lulu,t*2;"";: X-z1=512 +lulu,t*2;"K";: b-z1=412 +lulu,t*2;"D";: l-z1=312 +lulu,t*2;"9";: v-z1=212 +lulu,t*2;"8";: -z1=112 +lulu,t*2;"7";:   xx=b(z,t) *xx>99cxx=xx-100d:7051  q$=(xx)  6840 M12 ,91[:180,0:0,-502:-180,0 10 ,0: v:2,0 ;" - SKAT " E2,0;:i=1100d:1;٥*6;" ";:i '''" Das Skat-Programm fr den"''" Sinclair ZX Spectrum"'' " berhaupt !!"''' " Drcken sie irgendeine Taste!" (8.02{# =,*45--10 :c$=:c$=""7720( -Sc$="s"44634Z,245:44645e,253+(*1.9s333):44632X 2 @44631W:"":"": J.18,20,22,24,27,30,33!,36$,40(,44,,45-,480,502,546,557,60<,63?,66B,70F,72H,77M,80P,81Q,84T,88X,90Z,96`,99c,100d,10 ,120x,144,168 !4'2,.2~L,2,.2~L,7,.4L,7,.4L,9 ,.4L,9 ,.4L,14,.6,11 ,.2~L,7,.3,7,.1}L,11 ,.3,7,.1}L,4,.4L,12 ,.8L,9 ,.3,6,.1}L,7,1.2 !5,.2~L,5,.2~L,5,.2~L,2,.8L,4,.2~L,4,.2~L,4,.2~L,0,1 !4i=18:tone,length:length,tone:i:: "`5i=117:tone,length:length,tone:i:: #(Hi=821:i,0;" ":i: %c$="s"9700% %&S(sp)<09600% %0ni=13:isp"Spieler ";i;" hat verloren ->";:z(i)=z(i)-1:z(i):z(i)=09580l% %:i %D %lC18,0;"Das war's, was ich sehen wollte.":300,: %n"Der Einzelspieler (";sp;") hat verloren! -> ";:z(sp)=z(sp)-1:z(sp):z(sp)=09580l% % %S(sp)<09850z& %zi=13:isp"Spieler ";i;" hat verloren ->";:z(i)=z(i)-1:z(i):9750&:z(i)=09580l% &i &  &i=19800H& & \44634Z,175+10 *z(i):44645e,181+10 *z(i)+i:44632X: &HI"Sie stehen "+("nackt"z(1)=0)+("in der Unterhose"z(1)=1)+("in Unterhemd und Unterhose"z(1)=2)+("ohen Hemd"z(1)=3)+("ohne Schuhe, Socken und Krawatte"z(1)=4)+("ohne Socken und Krawatte"z(1)=5)+("ohne Krawatte"z(1)=6)+" da." &R &z9sp=1z(1)=z(1)-1:9800H&: &%i=sp:z(i)=z(i)-1:9760 & & ' '9"SSKAT"8000@:"Zeichens."44632X,20904Q Z PXqP!@!X!@6@!X6?X@`?z>??~C/ `?0@?(?0? @@~? ? `|@  0/`? ? ? ? 0/?0? }g??3700700000000000000070000000000000007770000000000330000700000000000300700000000000000000;;;;;;;;;88888888888::::::>>3>>>880000777777777707>>070000077777000077000000000000003300000220000000003000788882200000000000007::::>>>>>:<@`?>?0?~C?`?0@??80? @@~?  ? `| @  0?? ? ? ? 0/?0? g?`?3700770000000000000007707770000000000077777770000000300007777777700000330007777770000000000>>;;;;;;;;;;;;;;888888::>>>>>>3>>>>8000088777777777777>>000000000000000077000020000000000030070200000000000030788880000000000000007????666>>>9888@`??0?C?`?0@???80? @@?  ? `   0??? ? ? ??0/?0? ?`?7007000000077770000707770777777700007777777777777777007777777777777777707777777777777700>>>>>>>>>>>>>>>8888888888888888888888888888888>880000777777700007>>00000000000000007700000000000000000007002000000000000007888820000000000000078888>><<<<@`P?UGS ?0?C`?0@??X?U9L80? @@?l0   ? V`TFx0 8   0?|`@?@? ? ?U U~@??0/?0? ?`?700700000007777000077777077777700000777777777777777700777777777777777707777777777777770>>>>>>>>>>>>>>88888888888888888888:8888888888>880000777777700007>>0000000000000000770000000000000000000700000000000000007888800000000000000078888><<<<?@`P?UGS ???C`?0@?X?U9L?0? @@?l0  ? V`TF0 8  0?`@?@  ?U U@?0/?0? ??7007000(((((-5500007755(-((--550000077775------5555500777555-----55555077755------55500.....----.....;;;;;;;;;;;888888888::;;;;;;;;;>880000777337>>000003333077000000333307000333333378888000333333378888>>><<<<?@`P?UG?S ?8?C`?0@?X?U9L?0? @?l0  ?VTF0 8 0?`@??@  ?UU@??0/?0 ??x??700700002200077777222220007777772200777777222220777772222220>>>>>22229999999999988888888899999999999>880000777771111>>000077771 1111000077771 1170777771 1111178888777771 1111778888>>>>>1999>>>><<<<?@`? ???C`?0@?? 0? @? ? 0??  ? `??0/?0 @ ????70077 2220007 "222200077 "20077 """"22220 """"222220 """";;;;;;;;;;;888888888:;;;;;;;;;;>880000''''733>>0000'''##333300000''''#3370######3333378888"#####33333378888'#####;;;>><<<<?@` ? ÿ ??OC `?0AO0@?? a0O? @>?0O ?p O 0O?? O ?#`C??O0O/?0 @!?`???OO70077 2220007 "222200077 "20077 """"22220 """"222220 """";;;;;;;;;;;888888888:;;;;;;;;;;>880000''''733>>0000''###333300000'''##3370######3333378888"#####33333378888'#####;;;>><<<<Zeichens. Xq֪$8>BB<DHpHDBFIIIBfZBBBBbRJFB$