# MAU-MAU==================P4A (P) COMMODORE-WELT-TEAM_ (P) COMMODORE-WELT-TEAM ===========================( (C) BY DANIEL OSTROWSKI2 JENS GUDAT< KARSTEN AHRENSF BASIC V3.5P PLUS4 (C16/116 + ERW.)#Z ===========================6d0,2:4,1:1,1Bn:3860Lx3700t:15)"":15)YO$D$YO$15)YO$" MAU"D2$"MAU "YO$:15)YO$D$YO$:15)YO$D$YO$15)YO$D$YO$:15)YO$D4$"BY"D4$YO$:15)YO$D$YO$15)YO$D$YO$:15)YO$D$YO$:15)YO$D$YO$S15)YO$"SEEN"D2$"SOFT"YO$:15)YO$D$YO$:15)"x:::"WIE IST DEIN NAME ";NAM$(NAM$)15130A$(32):B$(32):C(32):S(32):K(32)ART$(32):WERT$(32):COM(32):FARB$(32):AUGE$(32)&SIEB0:HAB0:GUT0:MAU0:KARO0:HERZ0:PIK0:KREUZ0> --- ZUWEISUNG ---I18:A$(I)RE$"":A$(I8)RE$"":A$(I16)BK$"":A$(I24)BK$"":O03B$(O81)"7":B$(O82)"8"B$(O83)"9":B$(O84)"10"B$(O85)"B":B$(O86)"D""B$(O87)"K":B$(O88)"AS",OP6O18:C(O)O:C(O8)O:C(O16)O:C(O24)O:^@WAHL$"+"tJ --- MISCHEN ---T(147):I15:(17):^8)"ICH MISCHE DIE KARTEN"hI132:S(I)0::E1rE33430|R((1)32)1S(R)1380 S(R)1:K(E)REE1:3703 --- AUSTEILEN ---?(147)RR15:1340:\2120gI15FARB$(I)A$(K(I5))AUGE$(I)B$(K(I5))::GUT52300HAUF$A$(K(11)):OBEN$B$(K(11)):MAU11OBEN$"7"SIEB22650:2820 --------------! COMPUTER6& --------------U0OBEN$"B"WAHL$"+"1160p:OBEN$"B"HAUF$WAHL$D --- LIEGT-7-OBEN ? --------NMERK0XSIEB0680bI1HABlWERT$(I)"7"MERKIvMERK01520O1SIEB:1340:MERK0:2120:SIEB04 --- 8-UND-ANDERE ----AI1HABXWERT$(I)"8"750{HAUF$ART$(I)OBEN$"8"750ART$(I)RE$""KARO1MERKIART$(I)RE$""HERZ1MERKIART$(I)BK$"" PIK1MERKIART$(I)BK$""KREUZ1MERKIMERK015205 --- GUT-<-3 ---D GUT2860SHAB3860` I1HAB*WERT$(I)"7"ART$(I)HAUF$MERKI4:MERK01520>I1HAB:WERT$(I)"B"MERKIHRMERK01160:1520\OBEN$"B"920fI1HAB:ART$(I)WAHL$WERT$(I)"B"MERKI%p6zMERK01520@1030[ --- WELCHE KARTE ---hI1HABART$(I)HAUF$WERT$(I)"B"MERKIMERK01000ZAHL(OBEN$)6ZAHL0ZAHL6OBEN$"AS"ZAHL8COM(MERK)ZAHL1520#I1HAB:OBEN$WERT$(I)MERKI):MERK01520GI1HAB`WERT$(I)"B"MERKIf~$MERK01160:1520.1340:21208WERT$(MERK)"B"1160:1520BART$(MERK)HAUF$WERT$(MERK)OBEN$1520L ---- KANN--NICHT ----'V(19)(31)"ICH KANN NICHT (TASTE X !) "D$9`198,0:198,1Nj(19)D$D$D4$D3$ht(19):37)" ":2820~ --- FARBE WAEHLEN ---KAROHERZ1200KAROPIK1200KAROKREUZ1200WAHL$RE$"":1320HERZKARO1240HERZPIK1240HERZKREUZ1240,WAHL$RE$"":1320?PIKKARO1280RPIKHERZ1280fPIKKREUZ1280~WAHL$BK$"":1320KREUZPIK1320 KREUZHERZ1320KREUZKARO1320WAHL$BK$""(2 --- KARTE NEHMEN ---<MAUMAU1:MERK0FI1HAB"PMERK01380?ZC(K(MAU))COM(I)MERKIEdbnMERK0MERKHAB1:1420uxIHABMERK1ART$(I1)ART$(I):WERT$(I1)WERT$(I):COM(I1)COM(I):ART$(MERK)A$(K(MAU)):WERT$(MERK)B$(K(MAU)):COM(MERK)C(K(MAU))HABHAB1MAU321790.B$(K(MAU))"B"1500RA$(K(MAU))RE$""KAROKARO1vA$(K(MAU))RE$""HERZHERZ1A$(K(MAU))BK$""PIKPIK1A$(K(MAU))BK$""KREUZKREUZ1 ---------- LEGEN ----------(19)(31)"COMPUTER"D2$"(TASTE X !)"D$D5$<HAUF$ART$(MERK):OBEN$WERT$(MERK)WOBEN$"7"SIEBSIEB2HAUF$RE$""OBEN$"B"KAROKARO1HAUF$RE$""OBEN$"B"HERZHERZ1"HAUF$BK$""OBEN$"B"PIKPIK1,HAUF$BK$""OBEN$"B"KREUZKREUZ1 6MERKHAB16206 @IMERK1HAB:ART$(I1)ART$(I)` JWERT$(I1)WERT$(I):COM(I1)COM(I):n THABHAB1 ^198,0:198,1 h2120:2650 rHAB01700 |(19):37)" " OBEN$"8"560 OBEN$"B"(19):37)WAHL$ 2820! --- AUGEN--INSGESAMT ----#!SIEB018403!GUT01760N!I1SIEB:MAU331750X!3530j!:2300:1840!T1SIEB:MAU331780!1340!:2120:1840!(147):I15:(17):!8)"KEINE KARTEN MEHR DA"!11)"DRUECKE +""A$:A$"+"1700"&1820 "0GUT01920<":I1GUT:NI(AUGE$(I))a"DAUGE$(I)"D"AUGE$(I)"K"NI10z"NAUGE$(I)"AS"NI11"XAUGE$(I)"B"NI20"bOBEN$"B"NI2NI"lMIMINI:"vHAB01980"I1HAB:NC(WERT$(I)) #WERT$(I)"D"WERT$(I)"K"NC10"#WERT$(I)"AS"NC11:#WERT$(I)"B"NC20Q#OBEN$"B"NC2NC`#MCMCNC:#(147):NAM$15)YO$"COMPUTER"#""YM$""#MI;15)YO$MC#I15:(17)::"DRUECKE SPACE"#A$:A$" "$2020 $(147)$220*$ I13:(17):G$"NOCH EIN SPIEL ?(J/N)"[$ X$:X$"J":q$*X$"N"(147):{$41260$> ---KARTEN--ZEICHNEN--(COMP.)---$HZHAB:Z5XZ5:Z5$RZ02180$\(19);:(144)$fR1Z:"";::+%pR15:K1Z:YO$GR$ZU$ZU$ZU$ZU$BK$YO$;:K::RE%zR1Z:"";::o%Z5:(19):I17:Z6)D6$::2280%X0(19):R17:(17);::D6$%X0D6$:2280%X52250%R1(X5):O15:YO$GR$ZU$ZU$ZU$ZU$BK$YO$;:: &O15:"";:::R&&X5(X5)D6$:D6$:7&XX5(X5)d&R1X:YO$GR$ZU$ZU$ZU$ZU$BK$YO$;::D6$&R1X:"";::D6$&X0:& ---MEINE--KARTEN--ZEICHNEN----&(19):R117:(17);:& WGUT:Q0:W5QW5:W5& W02460' I1W:BK$"";::,'$ O1:R4(W62)6T'. YO$R)FARB$(O)(QL$,4)AUGE$(O)" ";p'8 R1)BK$YO$;:OO1::'B R13:K1W:YO$D4$YO$;:K::'L O1:R4(W62)6'V YO$;:FARB$(O);'` AUGE$(O)"10"AUGE$(O)"AS"R1)AUGE$(O);:2420(j R1)" "AUGE$(O);(t BK$YO$;*(~ OO1::B( I1W:"";:P( W52490m( (19):R117:(17);:( I16:W6)D6$:( W6)D6$(19):( Q02520( (19):R115:(17);::D6$( D6$:( O6:(19):R115:(17);:) Q52590-) I1(Q5):R15:BK$"";:R:O) R4286:YO$;:R)FARB$(O);w) (QL$,4)AUGE$(O)" ";:R1)BK$YO$;) OO1:R:(QU$,4):I) Q5(Q5)D6$:D6$:) QQ5(Q5))( R1Q:BK$"";::D6$*2 R4(Q6)26:YO$;:R)FARB$(O);8*< (QL$,4)AUGE$(O)" "R1)BK$YO$;:OO1:R:D6$>*F _*P --- STAPEL---ZEICHEN -----{*Z (19):R14:(17);:*d (144):33)""*n 33)YO$37)HAUF$;*x (QL$,4)OBEN$" "38)BK$YO$* R13:33)YO$D4$YO$:* 33)YO$;:HAUF$;++ OBEN$"10"OBEN$"AS"36)OBEN$;:2730>+ 36)" "OBEN$;J+ BK$YO$\+ 33)""p+ :33)""+ R15:33)YO$GR$ZU$ZU$ZU$ZU$BK$YO$:+ 33)""+ + --------------------------+ ICH BIN DRAN , --------------------------, NOD0:QS0:, OBEN$"B"WAHL$"+"3010U, OBEN$"B"HAUF$WAHL$f," SIEB02920,, --- HAB--ICH--7 ---,6 I1GUT:AUGE$(I)"7"NOD1,@ ,J NOD13010,T R1SIEB:3530::SIEB0:2300,^ --- KANN--ICH--LEGEN ----h I1GUT:FARB$(I)HAUF$NODI6-r AUGE$(I)OBEN$NODIN-| AUGE$(I)"B"NODIT- k- NOD0NOD0:3010{- 3530:2300- FARB$(GUT)HAUF$AUGE$(GUT)OBEN$AUGE$(GUT)"B"3010- 560- ----- KARTE--EINGEBEN------ QS13040C. HE$BL$"(WEG=0;"RE$""BL$"=1;"RE$""BL$"=2;"BK$""BL$"=3;"BK$""BL$"=4)"D5$D4$M. 3050. HE$BL$"("RE$""BL$"=1;"RE$""BL$"=2;"BK$""BL$"=3;"BK$""BL$"=4;NIMM=5)"D$D5$. A$"":A$:A$""3050. A$"1"OK$RE$"":3130. A$"2"OK$RE$"":3130/ A$"3"OK$BK$"":31302/ A$"4"OK$BK$"":3130H/ QS0A$"5"3450^/& QS1A$"0"3500h/0 3050/: HE$"(7=7;8=8;9=9;10=0;B=B;D=D;K=K;AS=A)"/D B$:B$""3140/N KO$""/X B$"7"KO$"7"/b B$"8"KO$"8"/l B$"9"KO$"9"0v B$"0"KO$"10"0 B$"B"KO$"B".0 B$"D"KO$"D"B0 B$"K"KO$"K"W0 B$"A"KO$"AS"h0 KO$""3140r0 NOD00 I1GUT:AUGE$(I)KO$FARB$(I)OK$NODI0 0 NOD030100 OBEN$"B"WAHL$"+"33201 AUGE$(NOD)OBEN$AUGE$(NOD)"B"FARB$(NOD)HAUF$3010G1 SIEB0AUGE$(NOD)"7"I1SIEB:3530::SIEB0Q1 3670w1 HAUF$FARB$(NOD):OBEN$AUGE$(NOD)1 INOD1GUT1 FARB$(I1)FARB$(I):AUGE$(I1)AUGE$(I)1 :GUTGUT11* (19)D$D$D$D4$D3$14 2300:26501> GUT017002H (19):37)" "#2R OBEN$"8"2820D2\ OBEN$"B"(19):37)WAHL$M2f 560l2p --- NIMM--GEDRUECKT ----{2z QS130102 SIEB034902 I1SIEB:3530::23002 QS1:SIEB0:30102 3530:2300:QS1:30102 SIEB05603 I1SIEB:3530::2300:SIEB0:560*3 --- NEUE KARTE ---B3 MAUMAU1:GUTGUT1r3 FARB$(GUT)A$(K(MAU)):AUGE$(GUT)B$(K(MAU))3 MAU3217903 3 --- BAUER ---3 HE$"WELCHE FARBE?("RE$""BL$"=1;"RE$""BL$"=2;";3BK$""BL$"=3;"BK$""BL$"=4)"D4$D4$4C$:C$""3600)4(C$)1(C$)43600C4$C$"1"WAHL$RE$""]4.C$"2"WAHL$RE$""w48C$"3"WAHL$BK$""4BC$"4"WAHL$BK$""4L4VAUGE$(NOD)"7"SIEBSIEB2:4`AUGE$(NOD)"B"GUT135804j 5tD4$""C5~D4$"7"D2$" 7"D2$" 7"D2$" 7"D2$" B "D2$""m5D4$" "5D4$" "5D4$" "5D4$" "6D4$" "N6D4$" "D2$"7 "D2$"7 "D2$"7 "D2$"7 "D2$"B"x6D4$""6:6D4$RE$D4$RN$D2$"M A U"D5$""D5$"M A U"D2$6:BK$D4$D3$"B Y"D3$"S E E N"D2$""D2$"SOFT"D4$D4$%7::9)"DRUECKE "BL$;RN$FL$"SPACE"RF$;FO$BK$" TO START"97A$:A$" "130C73830I7 k7D$(32):D2$D$D$:D3$D2$D$7D4$D3$D$:D5$D4$D$:D6$D5$D$:D$D5$D5$7(RN$(018):HE$(019)72RE$(028):GR$(030)7<BL$(031):FL$(130)8FFO$(132):BK$(144)8PC2$(145):RF$(146),8ZC1$(157)L8d *** ZEICHENSATZ/GRAPHIK *f8nZU$(191):YM$(219)u8xYO$(221)8Q1408QU$QU$C2$:QL$QL$C1$8Q8