100 REM
110 REM MAU MAU
120 REM
130 REM BY  S E E N - S O F T
140 REM
150 REM VON DANIEL OSTROWSKI
160 REM     JENS   GUDAT
170 REM     KARSTEN AHRENS
180 REM
190 POKE53281,1:POKE53280,0:POKE646,0
200 PRINTCHR$(147);:GOSUB3920
210 GOTO 3760
220 PRINTCHR$(147);:PRINTSPC(15)"[213][195][195][195][195][195][195][195][195][195][195][201]":PRINTSPC(15)"[221]"D$"[221]"
230 PRINTSPC(15)"[221] MAU"D2$"MAU [221]":PRINTSPC(15)"[221]"D$"[221]":PRINTSPC(15)"[221]"D$"[221]"
240 PRINTSPC(15)"[221]"D$"[221]":PRINTSPC(15)"[221]"D4$"BY"D4$"[221]":PRINTSPC(15)"[221]"D$"[221]"
250 PRINTSPC(15)"[221]"D$"[221]":PRINTSPC(15)"[221]"D$"[221]":PRINTSPC(15)"[221]"D$"[221]"
260 PRINTSPC(15)"[221]SEEN"D2$"SOFT[221]":PRINTSPC(15)"[221]"D$"[221]":PRINTSPC(15)"[202][195][195][195][195][195][195][195][195][195][195][203]
270 [153]:[153]:[153]:[133]"WIE IST DEIN NAME ";NAM$
280 [139][195](NAM$)[177]15[167]220
290 [134]A$(33):[134]B$(33):[134]C(33):[134]S(33):[134]K(33)
300 [134]ART$(33):[134]WERT$(33):[134]COM(33):[134]FARB$(33):[134]AUGE$(33)
310 SIEB[178]0:HAB[178]0:GUT[178]0:MAU[178]0:KARO[178]0:HERZ[178]0:PIK[178]0:KREUZ[178]0
320 [143] ---ZUWEISUNG---
330 [129]I[178]1[164]8:A$(I)[178]"(null)":A$(I[170]8)[178]"(null)":A$(I[170]16)[178]"STOPATN":A$(I[170]24)[178]"STOP(null)":[130]
340 [129]O[178]0[164]3
350 B$(O[172]8[170]1)[178]"7":B$(O[172]8[170]2)[178]"8"
360 B$(O[172]8[170]3)[178]"9":B$(O[172]8[170]4)[178]"10"
370 B$(O[172]8[170]5)[178]"B":B$(O[172]8[170]6)[178]"D"
380 B$(O[172]8[170]7)[178]"K":B$(O[172]8[170]8)[178]"AS"
390 [130]O
400 [129]O[178]1[164]8:C(O)[178]O:C(O[170]8)[178]O:C(O[170]16)[178]O:C(O[170]24)[178]O:[130]
410 WAHL$[178]"+"
420 [143] ---MISCHEN---
430 [153][199](147):[129]I[178]1[164]5:[153][199](17):[130]
440 [153][163]8)"ICH MISCHE DIE KARTEN"
450 [129]I[178]1[164]32:S(I)[178]0:[130]:E[178]1
460 [139]E[178]33[167]520
470 R[178][181]([187](1)[172]32)[170]1
480 [139]S(R)[178]1[167]470
490 S(R)[178]1:K(E)[178]R
500 E[178]E[170]1:[137]460
510 [143] ---AUSTEILEN---
520 [153][199](147)
530 [129]R[178]1[164]5:[141]1430:[130]
540 [141]2210
550 [129]I[178]1[164]5
560 FARB$(I)[178]A$(K(I[170]5))
570 AUGE$(I)[178]B$(K(I[170]5)):[130]:GUT[178]5
580 [141]2390
590 HAUF$[178]A$(K(11)):OBEN$[178]B$(K(11)):MAU[178]11
600 [139] OBEN$[178]"7"[167]SIEB[178]2
610 [141]2740:[137]2910
620 [143] --------------
630 [143]    COMPUTER
640 [143] --------------
650 [139]OBEN$[178]"B"[175]WAHL$[178]"+"[167][141]1250
660 [139]OBEN$[178]"B"[167]HAUF$[178]WAHL$
670 [143] ---LIEGT-7-OBEN ?--------
680 MERK[178]0
690 [139]SIEB[178]0[167]770
700 [129]I[178]1[164]HAB
710 [139]WERT$(I)[178]"7"[167]MERK[178]I
720 [130]
730 [139]MERK[177]0[167]1610
740 [129]O[178]1[164]SIEB:[141]1430:MERK[178]0:[130]
750 [141]2210:SIEB[178]0
760 [143] ---8-UND-ANDERE----
770 [129]I[178]1[164]HAB
780 [139]WERT$(I)[179][177]"8"[167]840
790 [139]HAUF$[179][177]ART$(I)[175]OBEN$[179][177]"8"[167]840
800 [139]ART$(I)[178]"(null)"[175]KARO[177]1[167]MERK[178]I
810 [139]ART$(I)[178]"(null)"[175]HERZ[177]1[167]MERK[178]I
820 [139]ART$(I)[178]"STOPATN"[175]PIK[177]1[167]MERK[178]I
830 [139]ART$(I)[178]"STOP(null)"[175]KREUZ[177]1[167]MERK[178]I
840 [130]
850 [139]MERK[177]0[167]1610
860 [143] ---GUT-<-3---
870 [139]GUT[177]2[167]950
880 [139]HAB[179]3[167]950
890 [129]I[178]1[164]HAB
900 [139]WERT$(I)[178]"7"[175]ART$(I)[178]HAUF$[167]MERK[178]I
910 [130]:[139]MERK[177]0[167]1610
920 [129]I[178]1[164]HAB:[139]WERT$(I)[178]"B"[167]MERK[178]I
930 [130]
940 [139]MERK[177]0[167][141]1250:[137]1610
950 [139]OBEN$[179][177]"B"[167]1010
960 [129]I[178]1[164] HAB:[139]ART$(I)[178]WAHL$[175]WERT$(I)[179][177]"B"[167]MERK[178]I
970 [130]
980 [139]MERK[177]0[167]1610
990 [137]1120
1000 [143] ---WELCHE KARTE---
1010 [129]I[178]1[164]HAB
1020 [139]ART$(I)[178]HAUF$[175]WERT$(I)[179][177]"B"[167]MERK[178]I
1030 [130]
1040 [139]MERK[178]0[167]1090
1050 ZAHL[178][197](OBEN$)[171]6
1060 [139]ZAHL[178]0[167]ZAHL[178]6
1070 [139]OBEN$[178]"AS"[167]ZAHL[178]8
1080 [139]COM(MERK)[177][178]ZAHL[167]1610
1090 [129]I[178]1[164]HAB:[139]OBEN$[178]WERT$(I)[167]MERK[178]I
1100 [130]
1110 [139]MERK[177]0[167]1610
1120 [129]I[178]1[164]HAB
1130 [139]WERT$(I)[178]"B"[167]MERK[178]I
1140 [130]
1150 [139]MERK[177]0[167][141]1250:[137]1610
1160 [141]1430:[141]2210
1170 [139]WERT$(MERK)[178]"B"[167][141]1250:[137]1610
1180 [139]ART$(MERK)[178]HAUF$[176]WERT$(MERK)[178]OBEN$[167]1610
1190 [143] ----KANN--NICHT----
1200 [153][199](19)[199](31)"ICH KANN NICHT (TASTE X !) "D$
1210 [151]198,0:[146]198,1
1220 [153][199](19)D$D$D4$D3$
1230 [153][199](19):[153][163]37)" ":[137]2910
1240 [143] ---FARBE WAEHLEN---
1250 [139]KARO[179]HERZ[167]1290
1260 [139]KARO[179]PIK[167]1290
1270 [139]KARO[179]KREUZ[167]1290
1280 WAHL$[178]"(null)":[137]1410
1290 [139]HERZ[179]KARO[167]1330
1300 [139]HERZ[179]PIK[167]1330
1310 [139]HERZ[179]KREUZ[167]1330
1320 WAHL$[178]"(null)":[137]1410
1330 [139]PIK[179]KARO[167]1370
1340 [139]PIK[179]HERZ[167]1370
1350 [139]PIK[179]KREUZ[167]1370
1360 WAHL$[178]"STOPATN":[137]1410
1370 [139]KREUZ[179]PIK[167]1410
1380 [139]KREUZ[179]HERZ[167]1410
1390 [139]KREUZ[179]KARO[167]1410
1400 WAHL$[178]"STOP(null)"
1410 [142]
1420 [143] ---KARTE NEHMEN---
1430 MAU[178]MAU[170]1:MERK[178]0
1440 [129]I[178]1[164]HAB
1450 [139]MERK[177]0[167]1470
1460 [139]C(K(MAU))[179]COM(I)[167]MERK[178]I
1470 [130]
1480 [139]MERK[178]0[167]MERK[178]HAB[170]1:[137]1510
1490 [129]I[178]HAB[164]MERK[169][171]1
1500 ART$(I[170]1)[178]ART$(I):WERT$(I[170]1)[178]WERT$(I):COM(I[170]1)[178]COM(I):[130]
1510 ART$(MERK)[178]A$(K(MAU)):WERT$(MERK)[178]B$(K(MAU)):COM(MERK)[178]C(K(MAU))
1520 HAB[178]HAB[170]1
1530 [139]MAU[178]32[167]1880
1540 [139]B$(K(MAU))[178]"B"[167]1590
1550 [139]A$(K(MAU))[178]"(null)"[167]KARO[178]KARO[170]1
1560 [139]A$(K(MAU))[178]"(null)"[167]HERZ[178]HERZ[170]1
1570 [139]A$(K(MAU))[178]"STOPATN"[167]PIK[178]PIK[170]1
1580 [139]A$(K(MAU))[178]"STOP(null)"[167]KREUZ[178]KREUZ[170]1
1590 [142]
1600 [143] ---------LEGEN----------
1610 [153][199](19)[199](31)"COMPUTER"D2$"(TASTE X !) "D$D5$
1620 HAUF$[178]ART$(MERK):OBEN$[178]WERT$(MERK)
1630 [139]OBEN$[178]"7"[167]SIEB[178]SIEB[170]2
1640 [139]HAUF$[178]"(null)"[175]OBEN$[179][177]"B"[167]KARO[178]KARO[171]1
1650 [139]HAUF$[178]"(null)"[175]OBEN$[179][177]"B"[167]HERZ[178]HERZ[171]1
1660 [139]HAUF$[178]"STOPATN"[175]OBEN$[179][177]"B"[167]PIK[178]PIK[171]1
1670 [139]HAUF$[178]"STOP(null)"[175]OBEN$[179][177]"B"[167]KREUZ[178]KREUZ[171]1
1680 [139]MERK[178]HAB[167]1710
1690 [129]I[178]MERK[170]1[164]HAB:ART$(I[171]1)[178]ART$(I)
1700 WERT$(I[171]1)[178]WERT$(I):COM(I[171]1)[178]COM(I):[130]
1710 HAB[178]HAB[171]1
1720 [151]198,0:[146]198,1
1730 [141]2210:[141]2740
1740 [139]HAB[178]0[167]1790
1750 [153][199](19):[153][163]37)" "
1760 [139]OBEN$[178]"8"[167]650
1770 [139]OBEN$[178]"B"[167][153][199](19):[153][163]37)WAHL$
1780 [137]2910
1790 [143] ---AUGEN--INSGESAMT----
1800 [139]SIEB[178]0[167]1930
1810 [139]GUT[178]0[167]1850
1820 [129]I[178]1[164]SIEB:[139]MAU[178]33[167]1840
1830 [141]3600
1840 [130]:[141]2390:[137]1930
1850 [129]T[178]1[164]SIEB:[139]MAU[178]33[167]1870
1860 [141]1430
1870 [130]:[141]2210:[137]1930
1880 [153][199](147):[129]I[178]1[164]5:[153][199](17):[130]
1890 [153][163]8)"KEINE KARTEN MEHR DA"
1900 [153][166]11)"DRUECKE +"
1910 [161] A$:[139]A$[178]"+"[167]1790
1920 [137]1910
1930 [139]GUT[178]0[167]2010
1940 [129]I[178]1[164]GUT:NI[178][197](AUGE$(I))
1950 [139]AUGE$(I)[178]"D"[176]AUGE$(I)[178]"K"[167]NI[178]10
1960 [139]AUGE$(I)[178]"AS"[167]NI[178]11
1970 [139]AUGE$(I)[178]"B"[167]NI[178]20
1980 [139]OBEN$[178]"B"[167]NI[178]2[172]NI
1990 MI[178]MI[170]NI:[130]
2000 [139]HAB[178]0[167]2070
2010 [129]I[178]1[164]HAB:NC[178][197](WERT$(I))
2020 [139]WERT$(I)[178]"D"[176]WERT$(I)[178]"K"[167]NC[178]10
2030 [139]WERT$(I)[178]"AS"[167]NC[178]11
2040 [139]WERT$(I)[178]"B"[167]NC[178]20
2050 [139]OBEN$[178]"B"[167]NC[178]2[172]NC
2060 MC[178]MC[170]NC:[130]
2070 [153][199](147):[153]NAM$;:[153][163]15)"(null)";:[153]"COMPUTER"
2080 [153]"LENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN"
2090 [153]MI;:[153][163]15)"(null)"MC
2100 [129]I[178]1[164]5:[153][199](17):[130]:[153]"DRUECKE SPACE"
2110 [161]A$:[139]A$[178]" "[167][138]
2120 [137]2110
2130 [153][199](147)
2140 [137]310
2150 [129]I[178]1[164]3:[153][199](17):[130]
2160 [153]"NOCH EIN SPIEL ?(J/N)"
2170 [161]X$:[139]X$[178]"J"[167][156]:[138]
2180 [139]X$[178]"N"[167][153][199](147):[128]
2190 [137]1350
2200 [143]---KARTEN--ZEICHNEN--(COMP.)---
2210 Z[178]HAB:[139]Z[177]5[167]X[178]Z[171]5:Z[178]5
2220 [139]Z[178]0[167]2270
2230 [153][199](19);:[153][199](144)
2240 [129]R[178]1[164]Z:[153]"(null)LENLENLENLENRIGHT$";:[130]:[153]
2250 [129]R[178]1[164]5:[129]K[178]1[164]Z:[153]"(null)SINSINSINSINSTOP(null)";:[130]K:[153]:[130]R
2260 [129]R[178]1[164]Z:[153]"MID$LENLENLENLEN(null)";:[130]:[153]
2270 [139]Z[179]5[167]:[153][199](19):[129]I[178]1[164]7:[153][163]Z[172]6)D6$:[130]:[137]2370
2280 [139]X[178]0[167][153][199](19):[129]R[178]1[164]7:[153][199](17);:[130]:[153]D6$
2290 [139]X[178]0[167][153]D6$:[137]2370
2300 [139]X[179]5[167]2340
2310 [129]R[178]1[164][181](X[173]5):[129]O[178]1[164]5:[153]"(null)SINSINSINSINSTOP(null)";:[130]:[153]
2320 [129]O[178]1[164]5:[153]"MID$LENLENLENLEN(null)";:[130]:[153]:[130]R
2330 [139]X[173]5[178][181](X[173]5)[167][153]D6$:[153]D6$:[142]
2340 X[178]X[171]5[172][181](X[173]5)
2350 [129]R[178]1[164]X:[153]"(null)SINSINSINSINSTOP(null)";:[130]:[153]D6$
2360 [129]R[178]1[164]X:[153]"MID$LENLENLENLEN(null)";:[130]:[153]D6$
2370 X[178]0:[142]
2380 [143]---MEINE--KARTEN--ZEICHNEN----
2390 [153][199](19):[129]R[178]1[164]17:[153][199](17);:[130]
2400 W[178]GUT:Q[178]0:[139]W[177]5[167]Q[178]W[171]5:W[178]5
2410 [139]W[178]0[167]2550
2420 [129]I[178]1[164]W:[153]"STOP(null)LENLENLENLENRIGHT$";:[130]:[153]
2430 O[178]1:[129]R[178]4[164](W[172]6[171]2)[169]6
2440 [153]"(null)"[163]R)FARB$(O)"CMDCMDCMDCMD"AUGE$(O)" ";
2450 [153][163]R[170]1)"STOP(null)";:O[178]O[170]1:[130]:[153]
2460 [129]R[178]1[164]3:[129]K[178]1[164]W:[153]"(null)"D4$"(null)";:[130]K:[153]:[130]
2470 O[178]1:[129]R[178]4[164](W[172]6[171]2)[169]6
2480 [153]"(null)";:[153]FARB$(O);
2490 [139]AUGE$(O)[178]"10"[176]AUGE$(O)[178]"AS"[167][153][163]R[171]1)AUGE$(O);:[137]2510
2500 [153][163]R[171]1)" "AUGE$(O);
2510 [153]"STOP(null)";
2520 O[178]O[170]1:[130]:[153]
2530 [129]I[178]1[164]W:[153]"MID$LENLENLENLEN(null)";:[130]
2540 [139]W[178]5[167]2580
2550 [153][199](19):[129]R[178]1[164]17:[153][199](17);:[130]
2560 [129]I[178]1[164]6:[153][163]W[172]6)D6$:[130]
2570 [153][163]W[172]6)D6$[199](19):[142]
2580 [139]Q[177]0[167]2610
2590 [153][199](19):[129]R[178]1[164]15:[153][199](17);:[130]:[153]D6$
2600 [153]D6$:[142]
2610 O[178]6:[153][199](19):[129]R[178]1[164]15:[153][199](17);:[130]
2620 [139]Q[179]5[167]2680
2630 [129]I[178]1[164][181](Q[173]5):[129]R[178]1[164]5:[153]"STOP(null)LENLENLENLENRIGHT$";:[130]R:[153]
2640 [129]R[178]4[164]28[169]6:[153]"(null)";:[153][163]R)FARB$(O);
2650 [153]"CMDCMDCMDCMD"AUGE$(O)" ";:[153][163]R[170]1)"STOP(null)";
2660 O[178]O[170]1:[130]R:[153]"ONONONON":[130]I
2670 [139]Q[173]5[178][181](Q[173]5)[167][153]D6$:[153]D6$:[142]
2680 Q[178]Q[171]5[172][181](Q[173]5)
2690 [129]R[178]1[164]Q:[153]"STOP(null)LENLENLENLENRIGHT$";:[130]:[153]D6$
2700 [129]R[178]4[164](Q[172]6)[171]2[169]6:[153]"(null)";:[153][163]R)FARB$(O);
2710 [153]"CMDCMDCMDCMD"AUGE$(O)" "[163]R[170]1)"STOP(null)";:O[178]O[170]1:[130]R:[153]D6$
2720 [142]
2730 [143] ---STAPEL---ZEICHEN-----
2740 [153][199](19):[129]R[178]1[164]4:[153][199](17);:[130]
2750 [153][199](144):[153][163]33)"(null)LENLENLENLENRIGHT$"
2760 [153][163]33)"(null)"[163]37)HAUF$;
2770 [153]"CMDCMDCMDCMD"OBEN$" "[163]38)"STOP(null)"
2780 [129]R[178]1[164]3:[153][163]33)"(null)"D4$"(null)":[130]
2790 [153][163]33)"(null)";:[153]HAUF$;
2800 [139]OBEN$[178]"10"[176]OBEN$[178]"AS"[167][153][163]36)OBEN$;:[137]2820
2810 [153][163]36)" "OBEN$;
2820 [153]"STOP(null)"
2830 [153][163]33)"MID$LENLENLENLEN(null)"
2840 [153]:[153][163]33)"(null)LENLENLENLENRIGHT$"
2850 [129]R[178]1[164]5:[153][163]33)"(null)SINSINSINSINSTOP(null)":[130]
2860 [153][163]33)"MID$LENLENLENLEN(null)"
2870 [142]
2880 [143]--------------------------
2890 [143]    ICH  BIN  DRAN
2900 [143]--------------------------
2910 NOD[178]0:QS[178]0
2920 [139]OBEN$[178]"B"[175]WAHL$[178]"+"[167]3100
2930 [139]OBEN$[178]"B"[167]HAUF$[178]WAHL$
2940 [139]SIEB[178]0[167]3010
2950 [143] ---HAB--ICH--7---
2960 [129]I[178]1[164]GUT:[139]AUGE$(I)[178]"7"[167]NOD[178]1
2970 [130]
2980 [139]NOD[178]1[167]3100
2990 [129]R[178]1[164]SIEB:[141]3600:[130]:SIEB[178]0:[141]2390
3000 [143] ---KANN--ICH--LEGEN---
3010 [129]I[178]1[164]GUT:[139]FARB$(I)[178]HAUF$[167]NOD[178]I
3020 [139]AUGE$(I)[178]OBEN$[167]NOD[178]I
3030 [139]AUGE$(I)[178]"B"[167]NOD[178]I
3040 [130]
3050 [139]NOD[177]0[167]NOD[178]0:[137]3100
3060 [141]3600:[141]2390
3070 [139]FARB$(GUT)[178]HAUF$[176]AUGE$(GUT)[178]OBEN$[176]AUGE$(GUT)[178]"B"[167]3100
3080 [137]650
3090 [143]----KARTE--EINGEBEN-----
3100 [139]QS[178]1[167][153]"(WEG=0;(null)=1;(null)=2;STOPATN=3;STOP(null)=4)"D5$D4$:[137]3120
3110 [153]"((null)=1;(null)=2;STOPATN=3;STOP(null)=4;NIMM=5)"D$D5$
3120 A$[178]"":[161]A$:[139]A$[178]""[167]3120
3130 [139]A$[178]"1"[167]OK$[178]"(null)":[137]3200
3140 [139]A$[178]"2"[167]OK$[178]"(null)":[137]3200
3150 [139]A$[178]"3"[167]OK$[178]"STOPATN":[137]3200
3160 [139]A$[178]"4"[167]OK$[178]"STOP(null)":[137]3200
3170 [139]QS[178]0[175]A$[178]"5"[167]3520
3180 [139]QS[178]1[175]A$[178]"0"[167]3570
3190 [137]3120
3200 [153]"(7=7;8=8;9=9;10=0;B=B;D=D;K=K;AS=A)"
3210 [161]B$:[139]B$[178]""[167]3210
3220 KO$[178]""
3230 [139]B$[178]"7"[167]KO$[178]"7"
3240 [139]B$[178]"8"[167]KO$[178]"8"
3250 [139]B$[178]"9"[167]KO$[178]"9"
3260 [139]B$[178]"0"[167]KO$[178]"10"
3270 [139]B$[178]"B"[167]KO$[178]"B"
3280 [139]B$[178]"D"[167]KO$[178]"D"
3290 [139]B$[178]"K"[167]KO$[178]"K"
3300 [139]B$[178]"A"[167]KO$[178]"AS"
3310 [139] KO$[178]"" [167] 3210
3320 NOD[178]0
3330 [129]I[178]1[164]GUT:[139]AUGE$(I)[178]KO$[175]FARB$(I)[178]OK$[167]NOD[178]I
3340 [130]
3350 [139]NOD[178]0[167]3100
3360 [139]OBEN$[178]"B"[175]WAHL$[178]"+"[167]3390
3370 [139]AUGE$(NOD)[179][177]OBEN$[175]AUGE$(NOD)[179][177]"B"[175]FARB$(NOD)[179][177]HAUF$[167]3100
3380 [139]SIEB[177]0[175]AUGE$(NOD)[179][177]"7"[167][129]I[178]1[164]SIEB:[141]3600:[130]:SIEB[178]0
3390 [141]3730
3400 HAUF$[178]FARB$(NOD):OBEN$[178]AUGE$(NOD)
3410 [129]I[178]NOD[170]1[164]GUT
3420 FARB$(I[171]1)[178]FARB$(I):AUGE$(I[171]1)[178]AUGE$(I)
3430 [130]:GUT[178]GUT[171]1
3440 [153][199](19)D$D$D$D4$D3$
3450 [141]2390:[141]2740
3460 [139]GUT[178]0[167]1790
3470 [153][199](19):[153][163]37)" "
3480 [139]OBEN$[178]"8"[167]2910
3490 [139]OBEN$[178]"B"[167][153][199](19):[153][163]37)WAHL$
3500 [137]650
3510 [143] ---NIMM--GEDRUECKT----
3520 [139]QS[178]1[167]3100
3530 [139]SIEB[178]0[167]3560
3540 [129]I[178]1[164]SIEB:[141]3600:[130]:[141]2390
3550 QS[178]1:SIEB[178]0:[137]3100
3560 [141]3600:[141]2390:QS[178]1:[137]3100
3570 [139]SIEB[178]0[167]650
3580 [129]I[178]1[164]SIEB:[141]3600:[130]:[141]2390:SIEB[178]0:[137]650
3590 [143] ---NEUE KARTE---
3600 MAU[178]MAU[170]1:GUT[178]GUT[170]1
3610 FARB$(GUT)[178]A$(K(MAU)):AUGE$(GUT)[178]B$(K(MAU))
3620 [139]MAU[178]32[167]1880
3630 [142]
3640 [143] ---BAUER---
3650 [153]"WELCHE FARBE?((null)=1;(null)=2;STOPATN=3;STOP(null)=4)"D4$D4$
3660 [161]C$:[139]C$[178]""[167]3660
3670 [139][197](C$)[179]1[176][197](C$)[177]4[167]3660
3680 [139]C$[178]"1"[167]WAHL$[178]"(null)"
3690 [139]C$[178]"2"[167]WAHL$[178]"(null)"
3700 [139]C$[178]"3"[167]WAHL$[178]"STOPATN"
3710 [139]C$[178]"4"[167]WAHL$[178]"STOP(null)"
3720 [142]
3730 [139]AUGE$(NOD)[178]"7"[167]SIEB[178]SIEB[170]2:[142]
3740 [139]AUGE$(NOD)[178]"B"[175]GUT[179][177]1[167][141]3650
3750 [142]
3760 [153]D4$"(null)LENLENLENLENLEN(null)LENLENLENLENLEN(null)LENLENLENLENLEN(null)LENLENLENLENLEN(null)LENLENLENLENLENRIGHT$"
3770 [153]D4$"PEEK7"D2$"(null) PEEK7"D2$"(null) PEEK7"D2$"ATN PEEK7"D2$"(null) PEEKB (null)"D2$"PEEK"
3780 [153]D4$"PEEK(null) (null) (null)PEEK(null) (null) (null)PEEKATN ATN ATNPEEK(null) (null) (null)PEEK(null) (null) (null)PEEK"
3790 [153]D4$"PEEK (null) (null) PEEK (null) (null) PEEK ATN ATN PEEK (null) (null) PEEK (null) (null) PEEK"
3800 [153]D4$"PEEK(null) (null) (null)PEEK(null) (null) (null)PEEKATN ATN ATNPEEK(null) (null) (null)PEEK(null) (null) (null)PEEK"
3810 [153]D4$"PEEK (null) (null) PEEK (null) (null) PEEK ATN ATN PEEK (null) (null) PEEK (null) (null) PEEK"
3820 [153]D4$"PEEK(null) (null) (null)PEEK(null) (null) (null)PEEKATN ATN ATNPEEK(null) (null) (null)PEEK(null) (null) (null)PEEK"
3830 [153]D4$"PEEK (null)"D2$"7PEEK (null)"D2$"7PEEK ATN"D2$"7PEEK (null)"D2$"7PEEK (null)"D2$"BPEEK"
3840 [153]D4$"MID$LENLENLENLENLENMID$LENLENLENLENLENMID$LENLENLENLENLENMID$LENLENLENLENLENMID$LENLENLENLENLEN(null)"
3850 [153]:[153]
3860 [153]D4$""D4$""D2$"M A U"D5$"LENLEN"D5$"M A U"D2$
3870 [153]:[153]"STOP"D4$D3$"B Y"D3$"S E E N"D2$"LENLEN"D2$"S O F T"D4$D4$
3880 [153]:[153]:[153][166]9)"DRUECKE NEXTSPACEWAITINPUT#STOP TO START"
3890 [161]A$:[139]A$[178]" "[167]220
3900 [137]3890
3910 [128]
3920 D$[178][199](32):D2$[178]D$[170]D$:D3$[178]D2$[170]D$
3930 D4$[178]D3$[170]D$:D5$[178]D4$[170]D$:D6$[178]D5$[170]D$:D$[178]D5$[170]D5$:[142]