:( SKAT====================16I (P) COMMODORE WELT ===j ========================== (C) 1/87 === BY JENS BURCKHARDT === BASIC V3.5 === C16/116 PLUS4 === ==========================$ ""18)"SKAT"T" ICH MISCHE DIE KARTEN, VERTEILE UND"" SORTIERE SIE. ICH VERSICHERE IHNEN,"(" DASS ICH IHNEN NICHT IN DIE KARTEN"2" SCHAUE ODER DEREN VERTEILUNG MANI-"<" PULIERE."F" ZUM BEDIENEN DRUECKEN SIE BITTE DIE"6P" JEWEILIGEN TASTEN."fZ" NACH JEDEM STICH ' SPACE ' DRUECKEN!"dB(3,12),PT(3),K(32),R(2),HR(2),SK(3),R5(3),R2(3),S1(3),S2(3),S3(3)nGP(3):ZV((0)3)1:Q1:590x" EINEN MOMENT, ICH MISCHE DIE KARTEN"I132:K(I)1:I)Z13:T110PI((0)31)132:K(I)0I:150Y560rK(I)0:B(Z,T)W:T,ZZ11:I132:K(I)0I:200560:R(Z1)W:Z12:I:Z10Z1:24202470:1640:18002220:ZZV:RD110:630 :"", "DIESER STICH GEHT AN SPIELER"Z".";S ZSP", DEM EINZELSPIELER."\ 590r Z2Z:RD102470 ZZ2:FB0:RD ""SPIELWERTUNG: "Q". SPIEL ("((Q1)31)". RUNDE ) ,I12:Z1(((HR(I)),1)):3000:PT(SP)PT(SP)W:I(!6"EINZELSPIELER WAR SPIELER NR"SP"."S!@SP1"SIE ERREICHTEN"PT(SP)"PUNKTE!"}!JSP1"ER ERREICHTE"PT(SP)"PUNKTE!"!TSF1PT(SP)90FG1:370!^SF0PT(SP)60FG1:370!hFG0!r(FG1SP1)(FG0SP1)"SIE HABEN GEWONNEN":390"|"SIE HABEN VERLOREN"0"ZVZV1:ZV4ZV1m"PT(SP)90PT(SP)30R5(SP)R5(SP)1:"SCHNEIDER";:TT1"SF1TT1" & ANGESAGT""TT0::SF1R5(SP)R5(SP)1"HF1R5(SP)R5(SP)1:HF0"GR1GR0:S2(SP)24(R5(SP)1):460#S2(SP)(R5(SP)1)R2(SP)S#"SPIELSTAND":(PT(SP)61)(PT(SP)91SF1)S2(SP)2S2(SP)q#SF0:S2(SP)GWFG0510#"MOMENT...";:SP1"SIE HABEN SICH ";:500#"SPIELER"SP"HAT SICH ";#"UEBERREIZT.":"---VERLOREN!":S2(SP)2S2(SP)$KF1S2(SP)2S2(SP):KF02$RF1S2(SP)2S2(SP):RF0q$""1,2,3,"SPIEL":GP(SP)GP(SP)S2(SP):I13:GP(I),:I}$S2(SP)$&I13:PT(I)0:I:QQ1:590:"":120$0W(((I1)4)1)10(((I1)4((I1)4))41)$:((I1)4)18WW200$D%N:%XP$:P$" "600%b:$%l<%vFB0:Z640,650,650Q%3080:3250:750_%SPZ700i%1560x%H01480%H10(H10)61590%SK(Z)H:3250:750%1480:(((H),1))51460:720%730&(((H),1))5H2001560:H01460&H01560&690<&FB(SK(Z)10):ZZ1:Z4Z1V&Z13080:3250:990d&ZSP910v& SK(SP)0830&1510:H01480& H01((0)2)1560,1590&*SK(Z)H:(H10)FBH100SK(Z)H&43250:990&>SK(SP)100890 'H1510:HSK(1)810!'RH01530:810+'\1480:'fH01590C'p810X'z1480:H01590a'810w'ZWZ1:ZW0ZW3'FB9970'1510:HSK(ZW)810'H01530:810'1480:H0810'1590:810'1460:H01590'810(ZZ1:Z4Z1(Z13080:3250:1370.(ZSP1190H(1330:H1SK(SP)1090X(FB101060m(1480:H01560w(1170($1510:H01560(.H01480(81170(BFB91120(L1((0)2)1460,1480:H01170(V1590:1170)`1510:HSK(SP)1170)jH015300)tH01480:HSK(PS)1460?)~H01530N)H01590v)SK(Z)H:(H10)FBH100SK(Z)H)3250:1370)FB91270)1510:1330:HH11170)H01530:1170)1350:SS81260)1590:H01480:1170*H10(H10)41480*1170.*1480:H01590D*1350:SS101310_*1480:H01590:1170x* (((H),2))61170*1460:1170*1480:H01590*(1170*2H10:I13:H1SK(I)H1SK(I)*<I:+FSS0:I13:Z1(((SK(I)),1)):3000:SSSSW+PI:?+ZZ113:I110:(SK(Z1))B(Z1,I)B(Z1,I)0l+dI,Z1:SK(1)SK(2)SK(1)SK(3)Z1:1400v+n1420+x(SK(1)10)FBSK(1)1001420+1440+SK(2)SK(3)Z2:1440+Z3+SS0:I13:Z1(((SK(I)),1)):3000,SSSSW:SK(I)0:I:PT(Z)PT(Z)SS:G,H0:I110:HB(Z,I)B(Z,I)100HB(Z,I)P,I:,H1000:I110:HB(Z,I)B(Z,I)100HB(Z,I),I:H1000H0,,H0:I110:HB(Z,I)(B(Z,I)10)FBHB(Z,I),I: -H1000:I110:HB(Z,I)(B(Z,I)10)FBHB(Z,I)-I:H1000H0%-e-H10:H0:I110:H1B(Z,I)10(B(Z,I)10)B(Z,I)1001580s-"I:H10:-,HB(Z,I):H1B(Z,I)10(B(Z,I)10):1570-6H110:H1000:I110-@H1(((B(Z,I)),1))B(Z,I)100B(Z,I)01630-JI:H1000H0.T-.^HB(Z,I):H1(((B(Z,I)),1)):1610R.hZ13:R10:R2(Z)0:R30:R5(Z)0l.rI14:K(I)0:I:Z10.|I110:B(Z,I)200Z1Z11:K(Z1)B(Z,I).I:R1Z1:Z10:H24821810:1680:H:1700.Z1Z11:I14:K(I)HK(Z14)1:/I:K(Z14)0:"/I57:K(I)K(I1)I:I8M/R5(Z)I4:S3(Z)R5(Z):I14:K(I)0:I/I110:B(Z,I)100FB(B(Z,I)10):K(FB)K(FB)1/I:I14:R3K(I)R3K(I):R2(Z)I/I:R2(Z)8R2(Z):R4R2(Z)(R5(Z)1):R80:I1100B(Z,I)10(B(Z,I)10)7B(Z,I)10(B(Z,I)10)6R8R81Z0I:R8R82:R6(R31R1)(5R1)R8:R6R4R6R4:S2(Z)R4q0R618R718:17900R4:R4R6R7R4:17800R6R7::S1(Z)R6:Z:0590:PGZV:Z1ZV:1810:PHZ1:1810:SPZ1:18300Z1Z11:Z140Z11:1&1890:H0SPPG:1860(101960:H1183081:PHPG:1870S1D1890:H0SPPH:2030g1N1960:H11860q1X20301bSP119201lSP":";:R4:R4S1(SP).5R4,:H1:1v"WEG":H0:1R4:R4"(J/N)? ";:167,01P$:P$"J"167,1:"JA":H1:!2P$"N"167,1:"NEIN":H0:ZWR4:+21930B2PH":";:PH11990d2R4S1(PH)"JA":H1:ZWR4:{2"WEG":H0:ZWR4:2"(J/N)? ";:167,02P$:P$"J"167,1:"JA":H1:2P$"N"167,1:"NEIN":H0:ZWR4:220003"SPIEL GEHT AN SPIELER";SP!3SP1590:2530:220?3I12:B(SP,I10)R(I):Im3 I14:K(I)0:I:I112:FB(B(SP,I)10)3FB10K(FB)K(FB)13 I:F10:FB0:I14:F1K(I)FBI:F1K(I)3*I:PFB:2800:2160:" IST TRUMPF":S1(SP)8P 44S2(SP)(1S3(SP))S1(SP):I12J4>A((0)12)1:B(SP,A)100B(SP,A)10(B(SP,A)10)72110f4HHR(I)B(SP,A):B(SP,A)0m4RI4\Z10:I112:B(SP,I)0Z1Z11:K(Z1)B(SP,I)4fI:I110:B(SP,I)K(I):I:590:2470:4p"";4zP1"KARO";:4P2"HERZ";:5P3"PIK";:&5P4"KREUZ";:65"GRAND";:F5SP12320S5:T23x5H10:J110:B(T,J)100H1H115J:H14SFTSP"SPIELER"T": KONTRA !":KF15J1700:J5T:KF024005SP123606J110:(((B(SP,J)),1))6B(SP,J)200H1H11I6J:H15"SPIELER"SP": RE !!":RF1:J11000:JS6 2400s6 :"KONTRA (J/N)? ";:167,06 P$:P$"J"167,1:"JA":KF1:22306$ P$"N"167,1:"NEIN":22306. 233068 :"RE (J/N)? ";:167,0 7B P$:P$"J"167,1:"JA":RF1:2400+7L P$"N"167,1:"NEIN":240057V 2370?7` 2470E7j Q7t T110r7~ I110:Z1B(Z,I)Z1B(Z,I)7 I:K(T)Z1:I110:B(Z,I)Z1B(Z,I)07 I:Z10:T7 J110:B(Z,J)K(J):J:7 "IHRE KARTEN:"7 Z1:T198 T6:""8 T;:3560:T'8 T10:0;:3560B8 "":_8 "HAND (J/N)? ";:167,0|8 P$:P$"J"167,1:"JA"8 P$"J"HF1:I12:HR(I)R(I):I:27208 P$"N"167,1:"NEIN":25808 25409 F11:2470:"SKAT ";:I12:B(1,10I)R(I):I 9 T1112:T;:3560:T/9( :""_92 "DRUECKEN NR.1";K(1):" NR.2";K(2)s9< K(1)0K(1)109F K(2)0K(2)109P K(1)K(2)"":26109Z I12::HR(I)B(1,K(I))9d K(I)1K(I)12"":26109n I:x Z10:I12:B(1,K(I))0:I:I1122: B(1,I)0Z1Z11:K(Z1)B(1,I)P: I:I110:B(1,I)K(I):Ic: F41:Z1:2420: 2470:"WAS IST TRUMPF?":"1. KARO": "2. HERZ":"3. PIK":"4. KREUZ":"5. GRAND": "6. NICHTS, SIE HABEN KEINE LUST MEHR": P$:P(P$); GR0:P6"": ; P5P12750.; "NR."P<; P52910e; S2(1)(P8)(S3(1)1):Z13:T110; B(Z,T)100(B(Z,T)10)PB(Z,T)100B(Z,T); T,Z; T1112:B(SP,T)100(B(SP,T)10)PB(SP,T)100B(SP,T); T:Z1:2420:F102470 <" F402900=<, F40:SF0:"SCHNEIDER ANSAGEN (J/N)? ";:167,0e<6 P$:P$"J"167,1:"JA":SF1:2900<@ P$"N"167,1:"NEIN":2900= T14:I110:B(SP,I)25810TK(T)1f= I,T:T13:K(T)K(T1)Z1Z11:Tx= HF1Z1Z11= R5(SP)Z1:S2(SP)(R5(SP)1)R2(SP)= GWZW:= Z13010,3010,3010,3020,3030,3040,3050,3060= W0:3070= W3:3070> W4:3070> W10:3070#> W11:3070+> W21> K> 158,0:"KARTE NR.?";_> P$:P$""3090u> P(P$):P0P10>& B(1,P)03090>0 SK(2)0SK(3)03220>: GE2:SK(2)0GE3>D F0:G110>N B(1,G)100FF1>X G ?b F0B(1,P)100SK(GE)1003210)?l F0:G110:B(1,G)100Gh?v (B(1,G)10)(SK(GE)10)(B(1,P)10)(SK(GE)10)3210u? G:3220? "BEDIENEN! ";:590:"";:3080? SK(1)B(1,P)? FB0(SK(1)10)FBSK(1)100SK(1)SK(1)@ " ";:'@ "SPIELER";?@ ZSP" * ";:3280G@ Z;j@ "";:Q$((SK(Z)),2)@ 3300:"";:@ Z1((Q$,1)):Z10@ 5Z13320,3330,3340,3350@ B$"ؐ":FB$"S":3360@ B$"":FB$"S":3360 A B$"Ӑ":FB$"R":3360!A B$"ڐ":FB$"R"2A F21F20:DA* Z1((Q$,1))vA4 9Z13390,3400,3410,3420,3430,3440,3450,3460A> A$"B":3470AH A$"A":3470AR A$"10":3470A\ A$"K":3470Af A$"D":3470Ap A$"9":3470Az A$"8":3470A A$"7"B FB$"R" 4478!B "ɒ";YB "ݝݝ˝ʝݝݝݝݝݒ";hB A$;"";}B A$"10""";B B$;B "";B$;"";B (A$)1 A$"B""";B A$;"";B B Q$((B(Z,T)),2):3300:8C 18,20,22,23,24,27,30,33,35,36,44,45,46,48,50,54,55,60,63,66,70pC 72,77,80,81,84,88,90,96,99,100,108,110,120,144,168C~"ɒ";C"ݝݝ˝ʝݝݝݝݝݒ";CA$;"";CA$"10""";CB$;C"";B$;"";D(A$)1 A$"B""";0DA$;"";6DVD =========================vD 012277 BYTES MEMORY ==D 011550 BYTES PROGRAMM ==D 000000 BYTES VARIABLES ==D 000000 BYTES ARRAYS ==D 000000 BYTES STRINGS ==E  000727 BYTES FRE(0) ==6E ========================= 4