10 REM"*******************************
20 [143]"      F A R B - B A S A R     *
30 REM"********* VERSION 3.0 *********
40 [143]"   (C)1987 INPUT64            *
50 REM"   (W)THEODOR  CARSTENSEN     *
55 [143]"      EPPENDORFER BAUM 24     *
60 REM"      D 2000   HAMBURG-20     *
70 [143]"*******************************
80 IFPEEK(50307)=120THENPOKE50257,0
90 :
100 REM"[141] VARIABLENZUWEISUNG 
110 [134] K(6,6)
120 [134] CH$(48)
130 [134] T1$(10,5)
140 [134] T2$(10,5)
150 [134] C$(4,12)
160 [134] C(4)
170 [134] FS(6)
180 [134] SP$(6)
190 [134] PU(6)
200 [134] TL$(10)
210 [134] TR$(10)
220 [134] A$(30)
230 [134] X$(7)
240 :
300 A$(0)[178]"                                        "
310 A$(1)[178]" WURFELN  "
320 A$(2)[178]" TAUSCHEN "
330 A$(3)[178]" NACHSTER "
340 A$(4)[178]"  KAUFEN  "
350 A$(5)[178]"  FARBE WACMDON,HLEN  "
360 A$(6)[178]" CHIPS "
370 A$(7)[178]"WER IST SIEGER ?"
380 A$(8)[178]"ORTANTANTANTANTAN^CMDCMDCMDCMDCMDCMDCMD/TANTANTANTANTANEXP"
390 A$(9)[178]"(null)STR$VALUSRVALSTR$RIGHT$CMDCMDCMDCMDCMDCMDCMDMID$ASC(null)AND(null)ASC(null)"
400 A$(10)[178]"  CHIP WACMDON,HLEN  "
410 A$(11)[178]"    TAUSCHEN    "
420 A$(12)[178]"  KOMBINATION   "
430 A$(13)[178]"    WACMDON,HLEN  "
440 A$(14)[178]"     JOKER      "
450 A$(15)[178]"                "
460 A$(16)[178]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"
470 A$(17)[178]"ZU WENIG FARBEN "
480 A$(18)[178]"DA IST KEIN CHIP"
490 A$(19)[178]" NOCH EIN SPIEL "
500 A$(20)[178]" SPIEL  BEENDEN "
510 A$(21)[178]"  NEUE SPIELER  "
520 A$(22)[178]" ALTE BESETZUNG "
530 A$(23)[178]"ENDE IN 10 SEKUNDEN"
540 A$(24)[178]"................"
550 A$(25)[178]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"
560 A$(26)[178]" WEITER      "
570 A$(27)[178]" SPIELERNAME ?  "
580 A$(28)[178]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
590 :
600 X$(0)[178]"POKEWAITTO"
610 X$(1)[178]"(null)"
620 X$(2)[178]"FOR(null)"
630 X$(3)[178]"(null)"
640 X$(4)[178]"(null)"
650 X$(5)[178]"SYS(null)"
660 X$(6)[178]"POKECMDCMDCMDCMDCMDCMDWAIT-<"
670 X$(7)[178]"POKECMDCMDCMDCMDCMDCMDWAIT(null)(null)"
680 :
700 CU[178]58640
710 TN[178]54272
720 :
1000 [143]"GOSUB VORBEREITUNG 
1010 POKE 53280,0:POKE 53281,0
1020 PRINT"[147]"CHR$(142)CHR$(8)
1030 GOSUB 8600:TL=27:TH=60:GOSUB 2500
1040 GOSUB 9000:TH=50:GOSUB 2500
1050 GOSUB 9200:TH=40:GOSUB 2500
1060 TH=30
1070 FOR I=1 TO 700:NEXT I:GOSUB 2500
1080 PRINT"[151] [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][129]"
1090 FOR I=1 TO 16:PRINT:NEXT I
1100 PRINT"           EIN  COMPUTERSPIEL"
1110 PRINT"                   VON"
1120 PRINT"           THEODOR CARSTENSEN"
1130 FOR I=1 TO 2400:NEXT I:TH=20: GOSUB 2500
1140 FOR I=1 TO 35:PRINT:NEXT I
1150 GOSUB 1400:SZ=1:GOTO 7500
1160 :
1300 REM"[141] PUNKTE AUF NULL 
1310 [129] I[178]1 [164] 6:PU(I)[178]0
1320 [129] II[178]1 [164] 6:K(I,II)[178]0
1330 [130] II,I
1340 [142]
1350 :
1400 [143]"GOSUB SPIELER AUF NULL 
1410 FOR I=1 TO 6:PU=PU(I):GOSUB 1500
1420 SP$(I)=LEFT$(A$(24),10)+PU$
1430 NEXT I
1440 RETURN
1450 :
1500 REM"[141] PUNKT-UMWANDLUNG 
1510 PU$[178][201]([196](PU),[195]([196](PU))[171]1)
1520 PU$[178][201](("..."[170]PU$),4)[170]"."
1530 [142]
1540 :
1600 [143]"GOSUB MODUSFELD 
1610 M=M+1:IF M>2 THEN M=1
1620 IF M=1 THEN R1$="":R2$="[146]"
1630 IF M=2 THEN R1$="[146]":R2$=""
1640 GOSUB 2000:IF M1$=A$(1) OR M1$=A$(3) THEN PRINT"[145]  ,[157][157][157]";
1650 PRINT R1$ M1$ "[146]" LEFT$(A$(25),LEN(M1$));
1660 PRINT R2$ M2$"[146]";
1670 GOSUB 2300:IF X$=CHR$(13) OR X$="" OR X$="[145]" THEN 1690
1680 GOTO 1670
1690 IF X$<>CHR$(13) THEN 1610
1700 GOSUB 2000:IF M1$=A$(1) OR M1$=A$(3) THEN PRINT"[145]   [157][157][157]";
1710 GOSUB 2000:PRINT LEFT$(A$(0),LEN(M1$)) "[146]" LEFT$(A$(25),LEN(M1$));
1720 PRINT LEFT$(A$(0),LEN(M1$));
1730 RETURN
1740 :
1800 REM"[141] CHIPS ZEIGEN 
1810 Z[178]14:P[178]20
1820 [129] Y[178]1 [164] 4:[141] 2000
1830 [139] C(Y)[179]1  [167] [153]"POKECMD(null)SPC(SPC(SPC(SPC(SPC(POKE(null)";:B[178]1:[137] 1890
1840 [129] X[178]1 [164] 6
1850 [139] X[178]1 [175] Y[178]CX [167] [153]"POKECMD(null)";:[141] 1910
1860 X$[178][202](C$(Y,C(Y)),X,1):X$[178]X$([197](X$))
1870 [129] I[178]1 [164] 4:[130] I:[153] X$;
1880 [130] X
1890 Z[178]Z[170]3:[130] Y:TH[178]60:[129] I[178]1 [164] 100:[130] I:[141] 2500:[142]
1900 :
1910 [129] II[178]1 [164] 5:[153]" WAIT";
1920 [129] I[178]1 [164] 15:[130] I
1930 [130] II
1940 [153]"POKE(null)CMDCMDCMDCMDCMDCMD";:[142]
1950 :
2000 [143] "GOSUB CURSOR POSITIONIEREN 
2010 POKE 214,Z:POKE 211,P:POKE783,0:SYS CU
2020 RETURN
2030 :
2100 REM"[141] EINGABE 
2110 Y$[178]""
2120 [151] 204,0:[151]198,0
2130 [161] X$:[139] X$[178]"" [167] 2130
2140 [139] [194](207) [167] 2140
2150 [151] 204,1
2160 [139] X$[178]"CMD" [176] X$[178][199](20) [167] 2240
2170 [139] X$[178][199](13) [167] 2220
2180 [139] (X$[177]"," [175] X$[179]":") [176] (X$[177]"@" [175] X$[179]"[") [167] 2200
2190 [137] 2120
2200 [139] [195](Y$)[178][195](W$) [167] 2120
2210 Y$[178]Y$[170]X$:[153] X$;:[137] 2120
2220 [139] [195](Y$)[179][195](W$) [167] Y$[178]Y$[170][200](A$(24),[195](W$)[171][195](Y$))
2230 W$[178]Y$:[141] 2500:[142]
2240 [139] Y$[178]""[167] 2110
2250 [153]" CMD"[200](A$(25),[195](Y$))W$[200](A$(25),[195](W$));
2260 [137] 2110
2270 :
2300 [143]"GOSUB JOYSTICK-ABFRAGE 
2310 POKE198,0
2312 POKE 56320,127:I=PEEK(56320)
2322 GET X$
2330 IF (I AND 1)=0 THEN X$="[145]"
2340 IF (I AND 2)=0 THEN X$=""
2350 IF (I AND 4)=0 THEN X$="[157]"
2360 IF (I AND 8)=0 THEN X$=""
2370 IF (I AND16)=0 THEN X$=CHR$(13)
2380 IF X$="E" THEN M=10:GOTO 4000
2390 IF X$=CHR$(13) THEN TH=60:GOSUB 2500
2400 IF X$="[145]" OR X$="" OR X$="[157]" OR X$="" OR X$=CHR$(13) THEN RETURN
2410 GOTO 2312
2420 :
2500 REM"[141] TON 
2510 [129] II[178]0 [164] 23:[151] TN[170]II,0:[130]II
2520 [151] TN[170]24,6
2530 [151] TN[170]5,TL
2540 [151] TN[170]6,3
2550 [151] TN[170]0,30
2560 [151] TN[170]1,TH
2570 [151] TN[170]4,17
2580 [142]
2590 :
2600 [143]"GOSUB SPIELFELDAUFBAU 
2610 GOSUB 9400
2620 POKE53265,PEEK(53265) AND 239:GOSUB 8200
2630 POKE 53265,PEEK(53265) OR 16
2640 GOSUB 9500:GOSUB 1800:SP=0
2650 :
2700 REM"[141] START 
2710 TL[178]20:TH[178]40:[141] 2500
2720 [139] SP[179][178]0 [167] 2760
2730 Z[178]1:P[178](SP[171]1)[172]6[170]2:PU[178]PU(SP):[141] 1500:[141] 2000
2740 [153]"PRINT#"[200](SP$(SP),5);
2750 Z[178]2:[141] 2000:[153] PU$"WAIT";
2760 SP[178]SP[170]1:[139] SP[177]SZ [167] SP[178]1
2770 Z[178]1:P[178](SP[171]1)[172]6[170]2:PU[178]PU(SP):[141] 1500:[141] 2000
2780 [153]""[200](SP$(SP),5);
2790 Z[178]2:[141] 2000:[153] PU$"WAIT";
2800 M[178]2:Z[178]14:P[178]2:M1$[178]A$(1):M2$[178]A$(2):[141] 1600
2810 [139] M[178]2 [167] 3200
2820 :
2900 [143]"GOSUB WUERFELN 
2910 Z=14:P=15:GOSUB 2000:R=6
2920 FOR X=1 TO 23
2930 GOSUB 5000:X$=X$(W)
2940 IF X$="6" THEN X$="[144]"
2950 PRINT LEFT$(X$,1);"  [157][157]  [145][157][157][146]";
2960 NEXT X
2970 IF W=6 THEN TL=27:GOSUB 3030
2980 K(SP,W)=K(SP,W)+1
2990 Z=K(SP,W)+2:P=1+((SP-1)*6)+W:GOSUB  2000
3000 IF Z<11 THEN PRINT X$;"[157][146]";
3010 TH=40:GOSUB 2500:PRINT"";:GOTO 3500
3020 :
3030 PRINT"[156]";:I=14:GOSUB 7900
3040 Z=19:GOSUB 2000
3050 PRINT "[151]"A$(5) A$(16);
3060 PRINT"   [209][129][209][209][209][158][209][146]    ";
3070 PRINT A$(16)"[151]^[157]";:X=1
3080 GOSUB 2300
3090 IF X$="" AND X<5 THEN PRINT" ^[157]";:X=X+1
3100 IF X$="[157]" AND X>1 THEN PRINT" [157][157][157]^[157]";:X=X-1
3110 IF X$=CHR$(13) THEN GOSUB 2000:GOSUB 7940:W=X:GOTO 3130
3120 GOTO 3080
3130 X$=X$(X):RETURN
3140 :
3200 REM"[141] TAUSCHEN 
3210 Z[178]13:P[178]27:[141] 2000:[153]""A$(2)"POKEWAIT";:Z[178]19:P[178]2:[141] 2000
3220 [153] A$(12);:Z[178]21:[141] 2000:[153] A$(13)"STOP";:Z[178]14:P[178]27
3230 [141] 2000
3240 [139] P[178]27 [167] [153]">CMD";
3250 [139] P[178]36 [167] [153]"<CMD";
3260 [141] 2300
3270 [139] X$[178]"" [167] [153]" CMD";:[137] 3310
3280 [139] X$[178]"ON" [167] [153]" CMD";:[137] 3340
3290 [139] X$[178][199](13) [167] [153]" CMD";:Y[178]P[171]26:X[178]Z[171]13:[137] 3370
3300 [137] 3260
3310 Z[178]Z[170]1:[139] Z[177]23 [175] P[178]27 [167] P[178]36:Z[178]14:[137] 3230
3320 [139] Z[177]23 [167] P[178]27:Z[178]14
3330 [137] 3230
3340 Z[178]Z[171]1:[139] Z[179]14 [175] P[178]27 [167] P[178]36:Z[178]23:[137] 3230
3350 [139] Z[179]14 [167] P[178]27:Z[178]23
3360 [137] 3230
3370 [139] Y[177]1 [167] Y[178]2
3380 Z[178]13:P[178]27:[141] 2000:[153]"POKE"A$(2);:[141] 7940
3390 [139] Y[178]1 [167] X$[178]TL$(X):Y$[178]TR$(X)
3400 [139] Y[178]2 [167] X$[178]TR$(X):Y$[178]TL$(X)
3410 X[178]4:[141] 7400
3420 [139] X[178]0 [167] [153]"";:[137] 2800
3430 [129] I[178]1 [164] 5:K(SP,I)[178]K(SP,I)[171]FS(I):[130] I
3440 [129] I[178]1 [164] 4:X[178][197]([202](Y$,I,1))
3450 [139] X[177]0 [167] K(SP,X)[178]K(SP,X)[170]1
3460 [130] I
3470 [141] 7300
3480 [153]"";:TH[178]40:[141] 2500
3490 :
3500 [143]"GOSUB CHIP KAUFEN 
3510 M=2:Z=14:P=2:M1$=A$(3):M2$=A$(4):GOSUB 1600
3520 IF M=1 THEN 2700
3530 Z=20:P=2:GOSUB 2000:PRINT"[151]"A$(10);
3540 Z=12:P=19:GOSUB 2000:PRINT""A$(6)"[151][146]";:Z=13
3550 GOSUB 2000:PRINT A$(9);:GOSUB 2000
3560 GOSUB 2300
3570 IF X$="" THEN 3610
3580 IF X$="[145]" THEN 3630
3590 IF X$=CHR$(13) THEN 3650
3600 GOTO 3560
3610 Z=Z+3:IF Z>22 THEN Z=13
3620 PRINT A$(8);:GOTO 3550
3630 Z=Z-3:IF Z<13 THEN Z=22
3640 GOTO 3620
3650 PRINT A$(8);:Y=(Z-10)/3:Z=12:GOSUB  2000:PRINT A$(6);:GOSUB 7940
3660 IF C(Y)<1 THEN TH=20:I=18:GOSUB 7900:PRINT"";:GOTO 3510
3670 X$=LEFT$(C$(Y,C(Y)),5):X=5:GOSUB 7400
3680 IF X=0 THEN PRINT"";:GOTO 3510
3690 X=0:FOR I=1 TO 5:K(SP,I)=K(SP,I)-FS(I)
3700 X=X+K(SP,I):NEXT I:X$=RIGHT$(C$(Y,C(Y)),1)
3710 C(Y)=C(Y)-1:K(SP,6)=K(SP,6)+1
3720 Y=0:IF X$="6" THEN Y=1
3730 I=1:IF B=0 OR Y=0 THEN 3750
3740 I=I+1:IF X<3 THEN I=I+1:IF X<2 THEN I=I+1:IF X<1 THEN I=I+1
3750 IF B=0 AND Y=0 THEN 3770
3760 I=I+1:IF X<2 THEN I=I+1:IF X<1 THEN I=I+1
3770 IF X<3 THEN I=I+1:IF X<2 THEN I=I+1:IF X<1 THEN I=I+2
3780 PU(SP)=PU(SP)+I:GOSUB 7300:PU=PU(SP):GOSUB 1500:Z=2:P=(SP-1)*6+2
3790 GOSUB 2000:PRINT""PU$"[146]";:GOSUB 1800
3800 II=0:FOR I=1 TO 4:IF C(I)=0 THEN II=II+1
3810 NEXT I:IF II=4 THEN 4000
3820 GOTO 2700
3830 :
3840 :
4000 REM"[141] PLATZIERUNG 
4010 [139]SP[178]0[167]4050
4012 Z[178]1:P[178](SP[171]1)[172]6[170]2:[141] 2000:[153]"PRINT#"[200](SP$(SP),5);
4020 Z[178]2:[141] 2000:[153] PU$"WAIT";
4030 [129] I[178]1 [164] SZ:B[178]0:[129] II[178]1 [164] 5:B[178]B[170]K(I,II):[130] II
4040 FS(I)[178]K(I,6)[171]B:[130] I
4050 Z[178]20:P[178]2:[141] 2000:TL[178]5:[139] SZ[179]2 [167] 4160
4060 [129] X[178]1 [164] SZ[171]1
4070 [129] Y[178]X[170]1 [164] SZ:[151] 646,Y[170]2
4080 [153] A$(7)A$(16);:TH[178]Y[172]20:[141] 2500
4090 [139] PU(X)[178]PU(Y) [167] [139] FS(X)[178][177]FS(Y) [167] 4140
4100 [139] PU(X)[178][177]PU(Y) [167] 4140
4110 SP$(0)[178]SP$(X):PU(0)[178]PU(X):FS(0)[178]FS(X)
4120 SP$(X)[178]SP$(Y):PU(X)[178]PU(Y):FS(X)[178]FS(Y)
4130 SP$(Y)[178]SP$(0):PU(Y)[178]PU(0):FS(Y)[178]FS(0)
4140 [130] Y
4150 [130] X
4160 [129] I[178]1 [164] SZ:PU[178]PU(I):[141] 1500
4170 SP$(I)[178][200](SP$(I),10)[170]PU$
4180 [130] I
4190 B[178]0:[129] I[178]1 [164] 700:[130] I
4200 [137] 7500
4210 :
5000 [143]"GOSUB WUERFEL 
5010 W=INT(RND(1)*R)+1
5020 RETURN
5030 :
7300 REM"[141] FARBEN SCHREIBEN 
7310 [129] X[178]1 [164] 5:X$[178]X$(X)
7320 [129] I[178]1 [164] 8
7330 Z[178]I[170]2:P[178]1[170]((SP[171]1)[172]6)[170]X:[141] 2000
7340 [153]" CMD";
7350 [139] I[179][178]K(SP,X) [167] [153] X$"CMD";
7360 [130] I,X
7370 [142]
7380 :
7400 [143]"GOSUB KAPITAL PRUEFEN 
7410 FOR I=0 TO 5:FS(I)=0:NEXT I
7420 FOR I=1 TO X:II=VAL(MID$(X$,I,1))
7430 FS(II)=FS(II)+1:NEXT I
7440 FOR I=1 TO 5
7450 IF K(SP,I)<FS(I) THEN X=0
7460 NEXT I
7470 IF X=0 THEN TH=20:I=17:PRINT"[149]";:GOSUB 7900:PRINT"[151]";
7480 RETURN
7490 :
7500 REM"[141] NOCH EINMAL 
7510 [153]"LOAD":TH[178]60:TL[178]20:[141] 2500:[141] 8000:[139] M[178]10 [167] 7800
7520 [139] M[178]0 [167] M[178]2:Z[178]20:[137] 7590
7530 M[178]2:Z[178]20:P[178]12:M1$[178]A$(19):M2$[178]A$(20):[128]: [141] 1600
7540 [139] M[178]2 [167] 7800
7550 M[178]2
7560 Z[178]20:P[178]11:M1$[178]A$(26)[170]" JA  "
7570 M2$[178]A$(26)[170]"NEIN ":[141] 1600
7580 [139] M[178]2 [167] [141] 8000:[151]198,2:[161] X$:[137] 7560
7590 M[178]2:P[178]12:M1$[178]A$(21):M2$[178]A$(22):[141] 1600
7600 [141] 1300:[139] M[178]2 [167] 7730
7610 [141] 1400:[141] 8000
7620 Z[178]20:P[178]10:[141] 2000
7630 [153]"POKEWIEVIELE SPIELER ? SYS";
7640 W$[178]" ":[141] 2100:[139] W$[178]"." [167] 7640
7650 SZ[178][197](W$):[139] SZ[177]0 [175] SZ[179]7 [167] [141] 8000:[137] 7670
7660 [153]"CMD CMD";:[137]7640
7670 [129] X[178]1 [164] SZ:Z[178]20:P[178]5:[141] 2000
7680 [153] [200](A$(0),30);:[141] 2000
7690 [153] "POKE"X"CMD."A$(27)"SYS"[200](A$(24),10)[200](A$(25),10);
7700 W$[178][200](SP$(X),10):[141] 2100:PU[178]PU(X):[141] 1500:SP$(X)[178]W$[170]PU$
7710 [141] 8000:[130] X:Z[178]20:P[178]5:[141] 2000:[153] [200](A$(0),30);
7720 [151] 53280,15:[151] 53281,15:TL[178]27:TH[178]20:[141] 2500:[129] I[178]1 [164] 700:[130] I
7730 [137] 2600
7740 :
7800 [143]"GOSUB ENDE 
7810 Z=18:P=11:GOSUB 2000:PRINT A$(23);
7820 POKE 788,49:TI$="000000"
7830 IF TI$<"000010" THEN 7830
7835 IFPEEK(50307)=120THENSYS50307
7840 SYS 65126:END
7850 :
7900 REM "[141] FEHLERMELDUNG 
7910 TL[178]27:[141] 2500:Z[178]20:P[178]2:[141] 2000
7920 [141] 2000:[153] A$(I);
7930 [129] I[178]1 [164] 700:[130] I
7940 Z[178]18:P[178]2:[129] I[178]1 [164] 6:[141] 2000
7950 [153] A$(15);:Z[178]Z[170]1:[130] I
7960 TH[178]60:TL[178]20
7970 [142]
7980 :
8000 [143]"GOSUB SIEGER-LISTE 
8010 PRINT"[151]";:POKE 53280,0:POKE 53281,5
8020 Z=4:P=6:GOSUB 2000
8030 PRINT"[176]"A$(28)"[174]";:Z=Z+1:GOSUB 2000
8040 PRINT"[221]       SIEGER-LISTE       [221]";:Z=Z+1:GOSUB 2000
8050 PRINT"[221]"A$(28)"[221]";:Z=Z+1:GOSUB 2000
8060 FOR I=1 TO SZ
8070 PRINT"[221]";I;"[157]. ";SP$(I);"PUNKTE ";"[221]";:Z=Z+1: GOSUB 2000
8080 NEXT I
8090 PRINT"[173]"A$(28)"[189][146]";
8100 FOR I=1 TO 4:PRINT A$(0);:NEXT I
8110 PRINT A$(25);
8120 RETURN
8130 :
8200 REM"[141] SPIELFELD 
8210 [153]"LOADPOKE";:[151] 53280,15:[151] 53281,15
8220 [153]" ORTANTANTANTANTAN=TANTANTANTANTAN=TANTANTANTANTAN=TANTANTANTANTAN=TANTANTANTANTAN=TANTANTANTANTAN^  ";
8230 [129] X[178]1 [164] 10
8240 [153]" (null)     (null)     (null)     (null)     (null)     (null)     (null)  ";
8250 [130] X
8260 [153]" /TANTANTANTANTAN>TANTANTANTANTAN>TANTANTANTANTAN>TANTANTANTANTAN>TANTANTANTANTAN>TANTANTANTANTANEXP  ";
8270 [153]" ORTANTANTANTANTANTANTANTANTANTANTAN=TANTANTANTAN^ CHIPS ORTANTANTANTANTANTANTANTANTANTAN^  ";
8280 [129] X[178]1 [164] 4
8290 [153]" (null)           (null)    (null)       (null)          (null)  ";
8300 [130] X
8310 [153]" -TANTANTANTANTANTANTANTANTANTANTAN>TANTANTANTAN<       (null)          (null)  ";
8320 [129] X[178]1 [164] 6
8330 [153]" (null)                (null)       (null)          (null)  ";
8340 [130] X
8350 [153]" /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP       /TANTANTANTANTANTANTANTANTANTANEXP";
8360 Z[178]13:P[178]19:[141] 2000
8370 [129] X[178]1 [164] 4
8380 [153]"ORTANTANTANTANTAN^";:Z[178]Z[170]1:[141] 2000
8390 [153]"(null)SPC(SPC(SPC(SPC(SPC(POKE(null)";:Z[178]Z[170]1:[141] 2000
8400 [153]"/TANTANTANTANTANEXP";:Z[178]Z[170]1:[139] X[179]4 [167] [141] 2000
8410 [130] X
8420 Z[178]13:P[178]14:[141] 2000
8430 [153]"STOP(null)TANTANRIGHT$";:Z[178]Z[170]1:[141] 2000
8440 [153]"(null)  (null)";:Z[178]Z[170]1:[141] 2000
8450 [153]"(null)  (null)";:Z[178]Z[170]1:[141] 2000
8460 [153]"MID$TANTAN(null)POKEWAIT";
8470 Z[178]1:P[178]2:[141] 2000
8480 Z[178]13:P[178]27:[141] 2000:[153] A$(2);
8490 [142]
8500 :
8600 [143]"GOSUB TITELBID 
8610 POKE53265,PEEK(53265) AND 239
8620 PRINT"[147]";
8630 :
8640 PRINT"[151][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]";
8650 PRINT"[151][166][166][166][156][151][166][166][166][166][166][166][166][166][166][166][166]";
8660 PRINT"[151][166][166][166]         [188]    [188][151][166][166][166][166][166][166][166][166][166][166][166]";
8670 PRINT"[151][166][166][166][154] [181] [182]    [151][166][166][166][166][166][166][166][166][166][166][166]";
8680 PRINT"[151]   [159]    [190][182] [190][182][151]           ";
8690 PRINT"[151]   [158]   [181][182][181][182]        [151]           ";
8700 PRINT"[151]   [153]       [187][188] [187][188][151]           ";
8710 PRINT"[151][166][166][166] [181][182][181][182]    [151][166][166][166][166][166][166][166][166][166][166][166]";
8720 PRINT"[151][166][166][166][149]         [172][151][166][166][166][166][166][166][166][166][166][166][166]";
8730 PRINT"[151][166][166][166][156][151][166][166][166][166][166][166][166][166][166][166][166]";
8740 PRINT"[151][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]";
8750 PRINT"[151] [146][223]        [187]  [182][181]  [172][187]  [182][181]  [187][188][151]     ";
8760 PRINT"[151] [146][205][156][223]        [182][161]    [181][188]     [182][161] [188][151]    ";
8770 PRINT"[151] [149][199][146][205][150][223]      [187] [182][161][182][161] [188][187]  [182][161][182][161] [187]  [188][151]   ";
8780 PRINT"[151] [149][199][146] [205][158][223]      [188]     [188][187]     [188]   [188][151]  ";
8790 PRINT"[151] [149][199][146] /[205][153][223]     [172][182][181][187][170][182][181]      [188][151] ";
8800 PRINT"[151] [149][199][146][154]/[151]  [205][223]   [190][190]  [188][188][190][190]  [188]       [188]";
8810 PRINT"[151] [146][214][214][214][214][214][214][154][165][163][163][163][163][163][163][163][163][163][163][163]VERSION[163]3[163][163][163][163][163][163][163][163][163][163][163][163]";
8820 PRINT"[151] [149][199][146]     [151][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223]";
8830 PRINT"[151] [149][199][146]          [199][146][154]   [206],  [149][199][146][154]       [149][199][146][154]      [149][199][151]    ";
8840 PRINT"[151] [149][199][175][175][175][175][175][175][175][175][175][175][163]       [163]       [163]      [199][151]    ";
8850 PRINT"[151] [149][199][165]         [165][146][154]    [206]                 [149][199][151]    ";
8860 PRINT"[151] [149][199][165][146][154]   [206]    [149] [165][146][154]    [206],      .   [206]     [149][199][151]    ";
8870 PRINT"[151] [149][199][165][146][154]  [206][206]    [149] [165][146][154]   [206][206]   .  .  ,[206]      [149][199][151]   [146][169]";
8880 PRINT"[151] [149][199][165][146][154]  [206]     [149] [165][146][154]   [206]         [206] [206].     [149][199][151]  [146][169]";
8890 POKE 53265,PEEK(53265) OR 16
8900 RETURN
8910 :
9000 REM"[141] TABELLE EINLESEN 
9010 [140]
9020 [129] I[178]1 [164] 10
9030 [129] II[178]1 [164] 5
9040 [135] T1$(I,II),T2$(I,II)
9050 [130] II
9060 [130] I
9070 [142]
9080 :
9200 [143]"GOSUB CHIPS EINLESEN 
9210 RESTORE
9220 FOR I=1 TO 100:READ X$:NEXT I
9230 FOR I=1 TO 48:READ CH$(I):NEXT I
9240 RETURN
9250 :
9400 REM"[141] CHIPS VERTEILEN 
9410 R[178]48:[141] 5000
9420 [129] I[178]1 [164] 12
9430 [129] II[178]1 [164] 4
9440 W[178]W[170]1:[139] W[177]48 [167] W[178]1
9450 C$(II,I)[178]CH$(W)
9460 [130] II:[130] I
9470 [129] I[178]1 [164] 4:C(I)[178]12:[130] I:B[178]0
9480 [142]
9490 :
9500 [143]"GOSUB TABELLE ERZEUGEN 
9530 R=10:GOSUB 5000:X=W
9540 GOSUB 5000:IF W=X THEN 9530
9550 Y=W:IF X=0 OR Y=0 THEN 9530
9560 FOR I=1 TO 5
9570 TL$(I)=T1$(X,I):TR$(I)=T2$(X,I)
9580 NEXT I
9590 FOR I=1 TO 5:II=I+5
9600 TL$(II)=T1$(Y,I):TR$(II)=T2$(Y,I)
9610 NEXT I
9620 IF TL$(I)<"0000" THEN 9530
9630 Z=14:P=28:GOSUB 2000
9640 FOR X=1 TO 10
9650 FOR Y=1 TO 4
9660 X$=MID$(TL$(X),Y,1):X$=X$(VAL(X$))
9670 PRINT X$;:NEXT Y
9680 FOR Y=1 TO 4
9690 X$=MID$(TR$(X),Y,1):X$=X$(VAL(X$))
9700 PRINT X$;:NEXT Y
9710 Z=Z+1:GOSUB 2000
9720 NEXT X:PRINT"[146][151]";
9730 RETURN
9790 :
10000 REM"[141] DATEN 
10030 [131] "2000","0055","1400","0023"
10040 [131] "4000","0135","2000","1345"
10050 [131] "3500","1124","3000","0024"
10060 [131] "1500","0023","1000","0245"
10070 [131] "2300","0145","1250","0334"
10080 [131] "3000","0015","3000","0224"
10090 [131] "5000","0124","3400","0125"
10100 [131] "5500","1334","4000","0033"
10110 [131] "5000","0123","2000","0145"
10120 [131] "2300","0144","3550","0124"
10130 [131] "5000","0022","3300","0055"
10140 [131] "4000","0113","2000","1144"
10150 [131] "4400","2235","2000","0034"
10160 [131] "4000","0123","1000","0255"
10170 [131] "3000","1245","2500","1134"
10180 [131] "1000","0024","1500","0034"
10190 [131] "4000","0355","1100","0234"
10200 [131] "2250","0134","1000","0035"
10210 [131] "2200","0014","1300","0024"
10220 [131] "4000","1355","3300","1245"
10230 [131] "5000","0012","4400","0035"
10240 [131] "2000","0345","1000","2335"
10250 [131] "5400","1122","4000","0015"
10260 [131] "5500","0023","1200","0044"
10270 [131] "3500","0224","1140","0335"
10280 :
10300 [131] "124557","122557","234557"
10310 [131] "133556","233457","155557"
10320 [131] "122357","222226","555556"
10330 [131] "225556","224457","223346"
10340 [131] "244446","123457","334457"
10350 [131] "111557","444457","334447"
10360 [131] "112346","111127","111146"
10370 [131] "133336","114446","333347"
10380 [131] "111116","222237","333556"
10390 [131] "355556","223337","112227"
10400 [131] "444446","222256","112457"
10410 [131] "445557","123457","344557"
10420 [131] "112446","222446","333336"
10430 [131] "123347","112237","123457"
10440 [131] "113347","112557","123457"
10450 [131] "111337","123456","133456"
10460 :