SKAT /&,:(0,0);" ":1000:3F,A1$(8):A2$(9):A3$(10):A4$(11)x,A5$(5,A1$)A3$:A6$A5$" ":A7$(5,A6$),A8$(5,A4$):A9$(4,A1$):AA$(32,A2$),AB$(22,A2$), 6;(1,2);"SKAT",(4,2);"ICH MISCHE DIE KARTEN, VERTEILE UND"0-(6,2);"SORTIERE SIE. ICH VERSICHERE IHNEN,"a-((8,2);"DASS ICH IHNEN NICHT IN DIE KARTEN"-2(10,2);"SCHAUE ODER DEREN VERTEILUNG MANI-"-<(12,2);"PULIERE."-F(15,2);"WENN SIE >ENTER< IN DER RECHTEN" .P(17,2);"UNTEREN ECKE SEHEN, DRUECKEN"4.Z(19,2);"SIE BITTE DIE TASTE >ENTER<."|.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((1)3)1:Q1:590.x:(0,0);" ".y7;(2,2);"EINEN MOMENT, ICH MISCHE DIE KARTEN".I132:K(I)1:I/Z13:T1106/I((1)31)132:K(I)0I:150?/560X/K(I)0:B(Z,T)W:T,Zy/Z11:I132:K(I)0I:200/560:R(Z1)W:Z12:I:Z10/Z1:2420/2470:1640:1800/2220:ZZV:RD110:630/:(6,(10))0"DIESER STICH GEHT AN SPIELER"Z;:(8);@0ZSP", DEM EINZELSPIELER.":ԞI0590_0Z2Z:RD102470q0ZZ2:FB0:RD0:I15::2:I:60""SPIELWERTUNG:"Q;A1$;". SPIEL ("((Q1)31);A1$;". RUNDE )"1,I12:Z1(((HR(I)),1)):3000:PT(SP)PT(SP)W:I6167::"EINZELSPIELER WAR SPIELER NR"SP;A1$;"."c1@:SP1"SIE ERREICHTEN"PT(SP)"PUNKTE!"1JSP1"ER ERREICHTE"PT(SP)"PUNKTE!"1T:SF1PT(SP)90FG1:3701^SF0PT(SP)60FG1:3701hFG0 2r(FG1SP1)(FG0SP1)"SIE HABEN GEWONNEN":390'2|"SIE HABEN VERLOREN">2ZVZV1:ZV4ZV1z2PT(SP)90PT(SP)30R5(SP)R5(SP)1:"SCHNEIDER";:TT12SF1TT1" & ANGESAGT"2TT0::SF1R5(SP)R5(SP)12HF1R5(SP)R5(SP)1:HF03GR1GR0:S2(SP)24(R5(SP)1):4553S2(SP)(R5(SP)1)R2(SP);36;(16,0);"SPIELSTAND"n3(PT(SP)61)(PT(SP)91SF1)S2(SP)2S2(SP)3SF0:S2(SP)GWFG05103"MOMENT...";:SP1"SIE HABEN SICH ";:5003"SPIELER"SP"HAT SICH ";4"UEBERREIZT.":"---VERLOREN!":S2(SP)2S2(SP)-4KF1S2(SP)2S2(SP):KF0L4RF1S2(SP)2S2(SP):RF04 6;(18,0);"SPIELER 1 SPIELER 2 SPIELER 3 SPIEL"4GP(SP)GP(SP)S2(SP):I02:(20,I11);GP(I1):I4(20,33);S2(SP)4&I13:PT(I)0:I:QQ1:590:120*50W(((I1)4)1)10(((I1)4((I1)4))41)F5:((I1)4)18WW200L5Di5N:6;(23,33);">ENTER<"5XP$:P$(13)6005b(23,33);" "5l5vFB0:Z640,650,65053080:3250:7505SPZ700515605H01480 6H10(H10)61590$6SK(Z)H:3250:750I61480:(((H),1))51460:720R6730}6(((H),1))5H2001560:H014606H0156066906FB(SK(Z)10):ZZ1:Z4Z16Z13080:3250:9906ZSP9106 SK(SP)083071510:H01480&7 H01((1)2)1560,1590N7*SK(Z)H:(H10)FBH100SK(Z)H]743250:990q7>SK(SP)1008907H1510:HSK(1)8107RH01530:8107\14807fH015907p8107z1480:H0159078107ZWZ1:ZW0ZW38FB997081510:HSK(ZW)810,8H01530:810?81480:H0810N81590:810c81460:H01590l88108ZZ1:Z4Z18Z13080:3250:13708ZSP119081330:H1SK(SP)10908FB10106081480:H01560811709$1510:H015609.H01480 981170/9BFB91120T9L1((1)2)1460,1480:H01170d9V1590:1170}9`1510:HSK(SP)11709jH015309tH01480:HSK(PS)14609~H015309H015909SK(Z)H:(H10)FBH100SK(Z)H:3250:1370:FB91270+:1510:1330:HH11170@:H01530:1170U:1350:SS81260p:1590:H01480:1170:H10(H10)41480:1170:1480:H01590:1350:SS101310:1480:H01590:1170: (((H),2))61170;1460:1170;1480:H01590";(1170E;2H10:I13:H1SK(I)H1SK(I)N;<I:;FSS0:I13:Z1(((SK(I)),1)):3000:SSSSW;PI:;ZZ113:I110:(SK(Z1))B(Z1,I)B(Z1,I)0;dI,Z1:SK(1)SK(2)SK(1)SK(3)Z1:1400;n1420,HB(Z,I):H1B(Z,I)10(B(Z,I)10):15704>6H110:H1000:I110g>@H1(((B(Z,I)),1))B(Z,I)100B(Z,I)01630z>JI:H1000H0>T>^HB(Z,I):H1(((B(Z,I)),1)):1610>hZ13:R10:R2(Z)0:R30:R5(Z)0>rI14:K(I)0:I:Z10?|I110:B(Z,I)200Z1Z11:K(Z1)B(Z,I)D?I:R1Z1:Z10:H24821810:1680:H:1700k?Z1Z11:I14:K(I)HK(Z14)1:~?I:K(Z14)0:?I57:K(I)K(I1)I:I8?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)IZ@I:R2(Z)8R2(Z):R4R2(Z)(R5(Z)1):R80:I110@B(Z,I)10(B(Z,I)10)7B(Z,I)10(B(Z,I)10)6R8R81@I:R8R82:R6(R31R1)(5R1)R8:R6R4R6R4:S2(Z)R4@R618R718:1790AR4:R4R6R7R4:1780"AR6R7::S1(Z)R6:Z:UA590:PGZV:Z1ZV:1810:PHZ1:1810:SPZ1:1830iAZ1Z11:Z14tAZ11:A&1890:H0SPPG:1870: 1860A01960:H11830A:PHPG:1870AD1890:H0SPPH:2030AN1960:H11860AX2030BbSP11920*BlR4::SP":"R4;:R4S1(SP).5H1:A((1)12)1:B(SP,A)100B(SP,A)10(B(SP,A)10)72110zDHHR(I)B(SP,A):B(SP,A)0DRID\Z10:I112:B(SP,I)0Z1Z11:K(Z1)B(SP,I)DfI:I110:B(SP,I)K(I):I:590:2470:Dp"__";DzP1"KARO";:EP2"HERZ";:%EP3"PIK";::EP4"KREUZ";:JE"GRAND";:ZESP12320gE:T23EH10:J110:B(T,J)100H1H11EJ:H14SFTSP"_SPIELER"T": KONTRA !":KF1EJ1700:JET:KF02400ESP12360'FJ110:(((B(SP,J)),1))6B(SP,J)200H1H11]FJ:H15"_SPIELER"SP": RE !!":RF1:J11000:JgF 2400yF :"KONTRA ";F 3600:P$"J"KF1F$ 2230F8 :"RE ";FB 3600:P$"J"RF1FL 2400F` 2470Fj Ft T110G~ I110:Z1B(Z,I)Z1B(Z,I)1G I:K(T)Z1:I110:B(Z,I)Z1B(Z,I)0@G I:Z10:T]G J110:B(Z,J)K(J):J:xG :6;"IHRE KARTEN:":G Z1:T19G T6:(5,(10))G T;:3560:TG T10:0;:3560G :(5,(10)):G 6;"HAND ";G 3600H P$"J"HF1:I12:HR(I)R(I):I:2720'H 2580[H F11:2470:6;"SKAT";:I12:B(1,10I)R(I):IuH T1112:T;:3560:TH2 K(1)13:K(2)13:" DRUECKEN NR.";K(1):AA$;:"NR.";K(2)H< K(1)0K(1)10HF K(2)0K(2)10HP K(1)K(2)AB$;A4$;A4$;:2610IZ I12/Id K(I)1K(I)12AB$;A4$;A4$;:2610FIn HR(I)B(1,K(I)):ImIx Z10:I12:B(1,K(I))0:I:I112I B(1,I)0Z1Z11:K(Z1)B(1,I)I I:I110:B(1,I)K(I):II F41:Z1:2420I 2470:6;"WAS IST TRUMPF?":"1. KARO 2. HERZ""J "3. PIK 4. KREUZ 5. GRAND"3J P$:P(P$) A$"B":34705PH A$"A":3470GPR A$"10":3470XP\ A$"K":3470iPf A$"D":3470zPp A$"9":3470Pz A$"8":3470P A$"7"P 7;"";A7$;A5$;P 7;"";A8$;A9$;P A$;A3$;A1$;P A$"10"A1$;Q B$;A3$;A3$;A2$;Q B$;A3$;A1$;%Q A$"10"A1$;6Q A$;A2$;A8$;?Q 3:]Q Q$((B(Z,T)),2):3300:Q 18,20,22,23,24,27,30,33,35,36,44,45,46,48,50,54,55,60,63,66,70Q 72,77,80,81,84,88,90,96,99,100,108,110,120,144,168Q6;"(J/N)? ";::3: RP$:P$"J""JA";:RP$"N"3610.R$"NEIN";:,84,88,90,96,99,100,108,110,120,144,168Q6;"(J/N)? ";::3: