-'A1$"HEIMCOMPUTER robotron Z9001"<A2$"SPIEL":A92OA3$"R+TRUMPF"kA4$"TRUMPF-8 ODER MAU"A5$"EIN KARTENSPIEL" VERFASSER:KITTELMANN ANSCHRIFT:MKD/1EKG DATUM 26.09.1984 VERSION 4.0:A9:8:1::(0,0);" ";D$(52),N$(8),Y(4):I((31)1):US528:GS581:HS634:ZS687JZ100:1000td(2,2);A1$:(4,2);"",(34,""),""f(5,2);"":(5,37);""h(6,2);"",(34,""),""j(5,3);A2$:3;(5,29);A3$lA9:(8,2);(36,"")nI913:(I,2);"":(I,37);"":I(p(14,2);(36,"")Yr8:(10,36(A4$));A4$:(12,36(A5$));A5$t3:(18,2);"VEB ROBOTRON-MESSELEKTRONIK"v(20,2);">OTTO SCHOEN< DRESDEN":8x4;(22,31);">ENTER<"zT$:T$""122|T$(13)(20,27);(11," "):~130:12212;(20,27);"WIE BITTE ?":X4;(18,(32(KY$)));KY$,":(J)/N"lT$:T$""1512;(18,37);T$(T$)13(T$)74T1:(T$)78T2:2;(16,27);"WIE BITTE ?":150 K0:L0:I18:(N$(I),Z$)0LI4(I4):I8:K16I:("8",C$)K1W0C$N$(L)" ":qI113:((D$(I),3,2),Z$)0L(L1)13I:I13:KK1I:K2Z$D$(L)2,14,0,39::(2,0);" ":I152JQ:Q((I1)13):JQR0(GSI)14;(2R,210Q);D$(I):RR1 I:Q0:R0:C "K(52(5)1):JK52:(USJ)1MJ:J52:350f @J:J1K1:(USJ)1MJ:JK ^J:USM,0:D1D11: |180 19,19,2,39:Z$"":6:"WELCHE KARTE SPIELEN SIE ?";Z$:3 16,18,2,39: Z$""480 D10H1H11:290:GSM,1:3805 BZ0"KARTEN SIND ALLE !":BZ1:410\ "SIE MUESSEN AUSSETZEN !":BB1: W1:160:K2Z$;" IST KEINE KARTE !":410 (GSL)0Z$;" HABEN SIE NICHT !":410 ((C$,2),Z$)0((C$,1),Z$)0580 (Z$,1)"8"580( 0Z$;" KANN NICHT GESPIELT WERDEN !":410[ DGSL,0:C$D$(L):H1H11:(0,24);C$," "q N(C$,1)"8"645 X19,19,2,39:6:"WELCHE FARBE WUENSCHEN SIE ?";Z$:3 ]16,18,2,39 b:W0:160:K1Z$;" IST KEINE KARTENFARBE !":600 (0,24);C$," ":20:B0:& I5211I (HSI)0("8",D$(I))0710z ((C$,2),D$(I))0((C$,1),D$(I))0790 I:I46713 (HSI)1790 I:D10290:HSM,1:H2H21:660 BZ0"KARTEN SIND ALLE !":BZ1 BZ1"ICH MUSS AUSSETZEN !":BB1:> C$D$(I):B0:HSI,0:H2H21:I1:I| :H20"ICH HABE";H21;"KARTEN":Ԟ"ICH HABE EINE KARTE" *(C$,1)"8""ICH SPIELE ";C$: 4I14:Y(I)0:I:K0:I15213:KK1:JII12 R(HSJ)1Y(K)Y(K)1\J:I:P1:J24:Y(J)Y(P)PJNJ:"ICH SPIELE ";C$;:C$N$(P):" UND WAEHLE ";C$:u:0,19,1,39:(0,1);" ":136,4:3(6,2);"MOMENT BITTE - ICH MISCHE"N$(1)"":N$(2)"":N$(3)"":N$(4)""N$(5)"Y":N$(6)"X":N$(7)"C":N$(8)"V")I03:J113:KJ1:A1$(K):K11A1$" BUBE"?K12A1$" DAME"WK13A1$" KOENIG"kK14A1$" AS"zK10K10K8K50D$(I13J)N$(I1)A1$:ZSI13J,K:J:II152:GSI,0:HSI,0:USI,1:I:D152 I17:290:GSM,1:290:HSM,1:I2290:C$D$(M):H17:H27:B0:BZ0:d(0,2);"AUSGESPIELTE KARTE : ",C$," " (H20B2)380:(H10B2)660:1028 :30::2,19,2,39::(2,2);" ":C10:C20H20(0,2);"MEINE KARTEN :",(16," ")&H10H20(0,2);"IHRE KARTEN :",(18," "):180NI152:JQ:Q((I1)13):JQR0(HSI)1(2R,210Q);D$(I):RR1:C1C1(ZSI)(GSI)1C2C2(ZSI)I:Q0:R0:S1S1C1:S2S2C2 2;(15,2);"IHRE PUNKTE :",C1," MEINE PUNKTE :",C26"C2C1(16,2);"SIE HABEN GEWONNEN !":N1N11:1064b$(16,2);"SIE HABEN VERLOREN !":N2N21(N3N31:KY$"WEITER SPIELEN":150*0,19,0,39::(0,0);" ":T11020,(3,3);"ANZAHL DER SPIELE :",N3.7;(5,3);"SIE HABEN GEWONNEN :",N1'/7;(7,3);"SIE HABEN VERLOREN :",N2P02;(9,3);"IHRE GESAMTPUNKTE :",S1z22;(11,3);"MEINE GESAMTPUNKTE :",S24S1S2(13,3);"GROSSE KLASSE !"6S1S2(13,3);"TROESTEN SIE SICH !"86;(19,31);">ENTER<":120 :7:::(0,0);" ":3;(8,2);"AUF WIEDERSEHEN !",<50::3,3);"TROESTEN SIE SICH !"86;(19,31);">ENTER<":120 :7:::(0,0);"