9 GOTO110
10 POKE1984,31
11 GETA$:IFA$<>CHR$(13)THEN11
12 FORI=1TO9:VE(I)=500:NEXT:GOTO150
110 PRINTCHR$(147)CHR$(142);CHR$(8)
120 POKE53280,12:POKE53281,12:POKE646,6
125 ZA=RND(-TI)
127 AS=9:AU=1:HE=1000:HG=9
128 FORI=1TO9:VE(I)=500:NEXT
130 DIMSP(AS,HG),ZE(AS,HG),BE(AS,HG)
140 F1$=CHR$(133):F2$=CHR$(137)
141 F3$=CHR$(134):F4$=CHR$(138)
142 F5$=CHR$(135):F6$=CHR$(139)
143 F7$=CHR$(136):F8$=CHR$(140)
150 PRINT"[147]";
160 PRINT"  [176][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][174]";
170 PRINT"  [221]        [221]           [221]           [221]P12[221]";
180 PRINT"  [221]        [221]           [221]    ROT    [171][192][192][192][179]";
190 PRINT"  [221] MANQUE [221]  IMPAIR   [221]    [160]      [221]M12[221]";
200 PRINT"  [221]        [221]       [160]   [221]     [218]     [171][192][192][192][179]";
210 PRINT"  [221]       [160][221]           [221]           [221]D12[221]";
220 PRINT"[176][192][219][192][178][192][178][192][178][192][192][219][192][192][178][192][192][178][192][192][178][192][192][219][192][192][178][192][192][178][192][192][178][192][192][219][192][192][192][179]";
230 PRINT"[221] [221]3[221][144]6[221]9[221]12[221][144]15[221]18[221]21[221][144]24[221]27[221]30[221][144]33[221]36[221]   [221]";
240 PRINT"[221] [171][192][219][192][219][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][192][179]";
250 PRINT"[221]0[221][144]2[221]5[221][144]8[221][144]11[221]14[221][144]17[221][144]20[221]23[221][144]26[221][144]29[221]32[221][144]35[221]   [221]";
260 PRINT"[221] [171][192][219][192][219][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][192][179]";
270 PRINT"[221] [221]1[221][144]4[221]7[221][144]10[221][144]13[221]16[221]19[221][144]22[221]25[221][144]28[221][144]31[221]34[221]   [221]";
280 PRINT"[173][192][219][192][177][192][177][192][177][192][192][219][192][192][177][192][192][177][192][192][177][192][192][219][192][192][177][192][192][177][192][192][177][192][192][219][192][192][192][179]";
290 PRINT"  [221]        [221]           [221]           [221]D12[221]";
300 PRINT"  [221]        [221]           [221]     [144][218]     [171][192][192][192][179]";
310 PRINT"  [221] PASSE  [221]   PAIR    [221]           [221]M12[221]";
320 PRINT"  [221]        [221]           [221]  SCHWARZ  [171][192][192][192][179]";
330 PRINT"  [221]        [221][160]          [221]           [221]P12[221]";
340 PRINT"  [173][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][189]";
341 IFP9=1THEN6010
342 IFER>0THEN1000
345 GOSUB30000:POKE214,19:POKE211,0:SYS58640
350 PRINT"               >ROULETTE<"
360 PRINT"[149]_  (RETURN) ":POKE1019,0:POKE1018,0
390 GETGT$:IFGT$<>CHR$(13)THEN390
500 POKE53270,200:GOSUB30000:POKE214,19:POKE211,0:SYS58640
505 POKE53270,200:POKE19,1:INPUT"[149]SPIELANLEITUNG (J/N) ?  >";IN$
510 IFIN$="J"THEN50000
520 IFIN$<>"N"THEN500
1000 REM *** HAUPTMENUE ***
1005 GOSUB30000:POKE214,19:POKE211,0:SYS58640
1015 POKE214,19:POKE211,0:SYS58640
1020 PRINT"[149]<F1> SETZEN     <F4> FORMULAR"
1030 PRINT"<F3> KORREKTUR   <A> ANLEITUNG"
1040 PRINT"<F5> ANZEIGE     <E> ENDE"
1060 PRINT"<F7> FERTIG "
1070 POKE1984,62
1080 GETGT$:IFGT$=""THEN1080
1090 IFGT$=F1$THEN2000
1100 IFGT$=F3$THEN3000
1110 IFGT$=F5$THEN4000
1120 IFGT$=F7$THEN5000
1130 IFGT$=F2$THEN6000
1140 IFGT$=F4$THEN7000
1170 IFGT$="A"THEN50000
1180 IFGT$="E"THEN60000
1190 GOTO1080
2000 GOSUB30000:POKE214,19:POKE211,0:SYS58640
2010 POKE19,1:INPUT"[149]SPIELER NR.";SN$:POKE19,0:PRINT
2020 SN=VAL(SN$):IFSN<1ORSN>ASTHEN1000
2025 PRINT"IHR ALTES GUTHABEN : DM";VE(SN)
2030 POKE19,1:INPUT"[149]BETRAG: DM ";BE$:POKE19,0:PRINT:BE=VAL(BE$)
2040 IFBE<1ORBE>VE(SN)THEN1000
2041 IFBE>HETHENPRINT"EINSATZ HOECHSTENS DM";HE:H1=1
2042 IFH1=1THENPOKE1984,31
2043 IFH1=1THENGETGT$:IFGT$<>CHR$(13)THEN2043
2044 IFH1=1THENH1=0:GOTO2000
2045 SN=INT(SN):BE=INT(BE):IFGB(SN)=HGTHEN1000
2046 POKE214,20:POKE211,0:SYS58640
2047 PRINT"[144]IHR NEUES GUTHABEN : DM";VE(SN)-BE;"[157]         "
2048 POKE214,22:POKE211,0:SYS58640
2050 PRINT"BITTE SETZEN SIE IHREN BETRAG MIT DEM"
2060 PRINT"JOYSTICK (NR.1)"
2065 GOSUB40000
2070 GB(SN)=GB(SN)+1:SP(SN,GB(SN))=SP:ZE(SN,GB(SN))=ZE:BE(SN,GB(SN))=BE
2075 VE(SN)=VE(SN)-BE
2080 GOTO1000
3000 GOSUB30000:POKE214,19:POKE211,0:SYS58640
3010 POKE19,1:INPUT"[149]SPIELER NR.";SN$:POKE19,0:PRINT
3020 SN=INT(VAL(SN$)):IFSN<1ORSN>ASTHEN1000
3030 IFGB(SN)=0THEN1000
3032 PRINT"IHR ALTES GUTHABEN : DM";VE(SN)
3040 PRINT"BITTE HOLEN SIE SICH IHR GELD MIT DEM"
3050 PRINT"JOYSTICK (NR.1)"
3055 PR=0:GOSUB40000
3057 IFP1=1THENP1=0:GOSUB40010
3060 FORHV=1TOGB(SN)
3070 IFSP(SN,HV)=SPANDZE(SN,HV)=ZETHENWB=HV:HV=GB(SN):PR=1
3080 NEXTHV
3090 IFPR=0THENP1=1:GOTO3057
3100 PR=0:VE(SN)=VE(SN)+BE(SN,WB):POKENW,PEEK(NW)-128
3110 FORHV=WB+1TOGB(SN)
3120 SP(SN,HV-1)=SP(SN,HV)
3130 ZE(SN,HV-1)=ZE(SN,HV)
3140 BE(SN,HV-1)=BE(SN,HV)
3150 NEXTHV
3160 GB(SN)=GB(SN)-1
3165 POKE214,21:POKE211,0:SYS58640
3170 PRINT"[144]IHR NEUES GUTHABEN : DM";VE(SN)
3175 PRINT"                                       "
3176 PRINT"                      "
3180 POKE1984,31
3190 GETGT$:IFGT$<>CHR$(13)THEN3190
3200 UC=0:PR=0:P1=0:NW=0:GOTO1000
4000 GOSUB30000:POKE214,19:POKE211,0:SYS58640
4010 POKE19,1:INPUT"[149]SPIELER NR.";SN$:POKE19,0:PRINT
4020 SN=INT(VAL(SN$)):IFSN<1ORSN>ASTHEN1000
4025 IFGB(SN)=0THEN1000
4030 FORHV=1TOGB(SN)
4040 IFPEEK(214)=24THENGOSUB30000:POKE214,19:POKE211,0:SYS58640
4050 PRINTHV;" - DM";BE(SN,HV):POKE1984,31:GE=GE+BE(SN,HV)
4055 NW=1024+SP(SN,HV)+40*ZE(SN,HV)
4060 POKENW,PEEK(NW)-128
4070 FORI=1TO100:NEXTI
4080 POKENW,PEEK(NW)+128
4090 FORI=1TO100:NEXTI
4100 GETGT$:IFGT$=CHR$(13)THEN4120
4110 GOTO4060
4120 NEXTHV
4130 GOSUB30000:POKE214,19:POKE211,0:SYS58640
4140 PRINT"SIE HABEN GESETZT : DM";GE:GE=0
4150 PRINT"     IHR GUTHABEN : DM";VE(SN)
4160 FORHV=1TOGB(SN)
4170 NW=1024+SP(SN,HV)+40*ZE(SN,HV):POKENW,PEEK(NW)-128
4180 NEXTHV
4190 FORI=1TO100:NEXT
4200 FORHV=1TOGB(SN)
4210 NW=1024+SP(SN,HV)+40*ZE(SN,HV):POKENW,PEEK(NW)+128
4220 NEXTHV
4230 FORI=1TO100:NEXT
4235 POKE1984,31
4240 GETGT$:IFGT$=CHR$(13)THEN1000
4250 GOTO4160
5000 GOSUB30000:POKE214,19:POKE211,0:SYS58640
5010 POKE19,1:INPUT"[149]FERTIG - SIND SIE SICHER (J/N) ?  >";IN$:POKE19,0
5020 IFIN$="N"THEN1000
5030 IFIN$<>"J"THEN5000
5040 PRINT:PRINT"NICHTS GEHT MEHR !":ZA=0
5050 FORA=1TO10:ZA=ZA+INT(RND(1)*37):NEXT:ZA=INT(ZA/10)
5060 IFZA=1ORZA=3ORZA=5ORZA=7ORZA=9ORZA=12ORZA=14ORZA=16ORZA=18ORZA=19THEN5090
5070 IFZA=21ORZA=23ORZA=25ORZA=27ORZA=30ORZA=32ORZA=34ORZA=36THEN5090
5075 IFZA=0THENCO=6:GOTO5100
5080 CO=0:CO$="SCWARZ":GOTO5100
5090 CO=2:CO$="ROT"
5100 PRINT"DIE ZAHL :";:POKE646,CO:PRINTZA;:IFZA<>0THENPRINT"(";CO$;")"
5102 POKE1984,31
5104 GETGT$:IFGT$<>CHR$(13)THEN5104
5110 FORSN=1TOAS
5120 IFGB(SN)=0THEN5240
5122 GOSUB30000:POKE214,19:POKE211,0:SYS58640:PRINT"[149]SPIELER NR.";SN:PRINT
5124 POKE1984,31
5126 GETGT$:IFGT$<>CHR$(13)THEN5126
5130 FORHV=1TOGB(SN)
5140 SP=SP(SN,HV):ZE=ZE(SN,HV):BE=BE(SN,HV):VE=VE(SN)
5150 ONZEGOTO10000,10500,11000,11500,12000,12500,13000,13500,14000,14500
5160 ONZE-10GOTO15000,12500,15500,16000,16500,17000,17500
5170 IFAU=0THEN5189
5171 NW=1024+SP+40*ZE
5172 GOSUB30000:POKE214,19:POKE211,0:SYS58640
5173 PRINT"GESETZT : DM";BE:PRINT"[144]ZURUECK : DM";GE:POKE1984,31
5181 NW=1024+SP+40*ZE
5182 POKENW,PEEK(NW)-128
5183 FORI=1TO100:NEXT
5185 POKENW,PEEK(NW)+128
5186 FORI=1TO100:NEXT
5187 GETGT$:IFGT$<>CHR$(13)THEN5182
5188 POKENW,PEEK(NW)-128
5189 GS=GS+BE:ZU=ZU+GE:VE(SN)=VE(SN)+GE:VB=VB-GE+BE:GE=0
5190 NEXTHV
5200 GOSUB30000:POKE214,19:POKE211,0:SYS58640
5210 PRINT"SIE HATTEN GESETZT : DM";GS:PRINT"SIE BEKOMMEN       : DM";ZU
5220 PRINT"[144]IHR GEWINN         : DM";ZU-GS
5222 PRINT"IHR ALTES GUTHABEN : DM";VE(SN)+GS-ZU
5224 PRINT"[144]IHR NEUES GUTHABEN : DM";VE(SN)
5225 IFVE(SN)<=0THENGOSUB30000:PRINT"[145][145][145][145]SPIELER NR.";SN;" HAT VERLOREN !!"
5226 IFVE(SN)<=0THEN10
5227 ZU=0:GS=0
5230 GB(SN)=0
5232 POKE1984,31
5234 GETGT$:IFGT$<>CHR$(13)THEN5234
5240 NEXTSN
5250 ER=ER+1:GOTO150
6000 P9=1:GOTO150
6010 P9=0
6020 FORSN=1TO9
6030 IFGB(SN)=0THEN6100
6040 FORHV=1TOGB(SN)
6050 NW=1024+SP(SN,HV)+40*ZE(SN,HV)
6060 POKENW,PEEK(NW)+128
6090 NEXTHV
6100 NEXTSN
6110 GOTO1000
7000 GOSUB30000:POKE214,19:POKE211,0:SYS58640
7010 PRINT"[149]HOECHSTEINSATZ :";HE
7020 POKE214,19:POKE211,17:SYS58640:POKE19,1:INPUTIN$:POKE19,0
7030 IFLEFT$(IN$,1)="U"THENHE=1E32:GOTO7060
7040 IN=INT(VAL(IN$)):IFIN<1THEN7000
7050 HE=IN:POKE214,19:POKE211,16:SYS58640:PRINTHE;"[157]           "
7060 PRINT:PRINT"[149]AUSFUEHRLICHE AUSWERTUNG BEI FERTIG"
7070 POKE214,21:POKE211,0:SYS58640:POKE19,1:INPUT"[149]J/N ?  >";IN$:POKE19,0
7075 IFIN$<>"N"ANDIN$<>"J"THEN7070
7080 IFIN$="J"THENAU=1
7090 IFIN$="N"THENAU=0
7095 POKE214,22:POKE211,0:SYS58640
7999 GOTO1000
10000 ONSPGOTO0,0,20000,20000,20000,20000,20000,20000,20000,20000,0,20100,20100
10010 ONSP-13GOTO20100,20100,20100,20100,20100,20100,20100,20100,20100,0,20200
10020 ONSP-24GOTO20200,20200,20200,20200,20200,20200,20200,20200,20200,20200,0
10030 ONSP-35GOTO20300,20300,20300
10500 ONSPGOTO0,0,20000,20000,20000,20000,20000,20000,20000,20000,0,20100,20100
10510 ONSP-13GOTO20100,20100,20100,20100,20100,20100,20100,20100,20100,0,20200
10520 ONSP-24GOTO20200,20200,20200,20200,20200,20200,20200,20200,20200,20200,0
10530 ONSP-35GOTO20400,20400,20400
11000 ONSPGOTO0,0,20000,20000,20000,20000,20000,20000,20000,20000,0,20100,20100
11010 ONSP-13GOTO20100,20100,20100,20100,20100,20100,20100,20100,20100,0,20200
11020 ONSP-24GOTO20200,20200,20200,20200,20200,20200,20200,20200,20200,20200,0
11030 ONSP-35GOTO20500,20500,20500
11500 ONSPGOTO0,0,20000,20000,20000,20000,20000,20000,20000,20000,0,20100,20100
11510 ONSP-13GOTO20100,20100,20100,20100,20100,20100,20100,20100,20100,0,20200
11520 ONSP-24GOTO20200,20200,20200,20200,20200,20200,20200,20200,20200,20200,0
11530 ONSP-35GOTO20600,20600,20600
12000 ONSPGOTO0,0,20000,20000,20000,20000,20000,20000,20000,20000,0,20100,20100
12010 ONSP-13GOTO20100,20100,20100,20100,20100,20100,20100,20100,20100,0,20200
12020 ONSP-24GOTO20200,20200,20200,20200,20200,20200,20200,20200,20200,20200,0
12030 ONSP-35GOTO20700,20700,20700
12500 ONSPGOTO0,20800,20900,21000,21100,21200,21300,21400,21500,21500,21600
12510 ONSP-11GOTO21700,21700,21800,21900,21900,22000,22100,22100,22200,22300
12520 ONSP-21GOTO22300,22400,22500,22500,22600,22700,22700,22800,22900,22900
12530 ONSP-31GOTO23000,23100,23100
13000 ONSPGOTO23200,23300,23400,23500,23600,23700,23800,23900,24000,24000
13010 ONSP-10GOTO24100,24200,24200,24300,24400,24400,24500,24600,24600,24700
13020 ONSP-20GOTO24800,24800,24900,25000,25000,25100,25200,25200,25300,25400
13030 ONSP-30GOTO25400,25500,25550,25550,0,25600,25600,25600
13500 ONSPGOTO23200,25650,25700,25750,25800,25850,25900,25950,26000,26000,26025
13510 ONSP-11GOTO26050,26050,26075,26100,26100,26125,26150,26150,26175,26200
13520 ONSP-21GOTO26200,26225,26250,26250,26275,26300,26300,26325,26350,26350
13530 ONSP-31GOTO26375,26400,26400,0,26425,26425,26425
14000 ONSPGOTO23200,26450,26475,26500,26525,26550,26575,26600,26625,26625
14010 ONSP-10GOTO26650,26675,26675,26700,26725,26725,26750,26775,26775,26800
14020 ONSP-20GOTO26825,26825,26850,26875,26875,26900,26925,26925,26950,26975
14030 ONSP-30GOTO26975,27000,27025,27025,0,27050,27050,27050
14500 ONSPGOTO23200,27075,27100,27125,27150,27175,27200,27225,27250,27250,27375
14510 ONSP-11GOTO27300,27300,27325,27350,37350,27375,27400,27400,27425,27450
14520 ONSP-21GOTO27450,27475,27500,27500,27525,27550,27550,27575,27600,27600
14530 ONSP-31GOTO27625,27650,27650,0,27675,27675,27675
15000 ONSPGOTO23200,27700,27725,27750,27800,27825,27850,27875,27900,27900
15010 ONSP-10GOTO27925,27950,27950,27975,28000,28000,28025,28050,28050,28075
15020 ONSP-20GOTO28100,28100,28125,28150,28150,28175,28200,28200,28225,28250
15030 ONSP-30GOTO28250,28275,28300,0,28325,28325,28325
15500 ONSPGOTO0,0,28400,28400,28400,28400,28400,28400,28400,28400,0,28500
15510 ONSP-12GOTO28500,28500,28500,28500,28500,28500,28500,28500,28500,28500,0
15520 ONSP-23GOTO28600,28600,28600,28600,28600,28600,28600,28600,28600,28600
15530 ONSP-33GOTO28600,0,20700,20700,20700
16000 ONSPGOTO0,0,28400,28400,28400,28400,28400,28400,28400,28400,0,28500
16010 ONSP-12GOTO28500,28500,28500,28500,28500,28500,28500,28500,28500,28500,0
16020 ONSP-23GOTO28600,28600,28600,28600,28600,28600,28600,28600,28600,28600
16030 ONSP-33GOTO28600,0,20600,20600,20600
16500 ONSPGOTO0,0,28400,28400,28400,28400,28400,28400,28400,28400,0,28500
16510 ONSP-12GOTO28500,28500,28500,28500,28500,28500,28500,28500,28500,28500,0
16520 ONSP-23GOTO28600,28600,28600,28600,28600,28600,28600,28600,28600,28600
16530 ONSP-33GOTO28600,0,20500,20500,20500
17000 ONSPGOTO0,0,28400,28400,28400,28400,28400,28400,28400,28400,0,28500
17010 ONSP-12GOTO28500,28500,28500,28500,28500,28500,28500,28500,28500,28500,0
17020 ONSP-23GOTO28600,28600,28600,28600,28600,28600,28600,28600,28600,28600
17030 ONSP-33GOTO28600,0,20400,20400,20400
17500 ONSPGOTO0,0,28400,28400,28400,28400,28400,28400,28400,28400,0,28500
17510 ONSP-12GOTO28500,28500,28500,28500,28500,28500,28500,28500,28500,28500,0
17520 ONSP-23GOTO28600,28600,28600,28600,28600,28600,28600,28600,28600,28600
17530 ONSP-33GOTO28600,0,20300,20300,20300
20000 IFZA<=18THENGE=BE*2
20010 GOTO5170
20100 IFZA/2<>INT(ZA/2)THENGE=BE*2
20110 GOTO5170
20200 IFCO=2THENGE=BE*2
20210 GOTO5170
20300 IFZA>=1ANDZA<=12THENGE=BE*3
20310 GOTO5170
20400 IFZA>=1ANDZA<=24THENGE=INT(BE*1.5)
20410 GOTO5170
20500 IFZA>=13ANDZA<=24THENGE=BE*3
20510 GOTO5170
20600 IFZA>=13THENGE=INT(BE*1.5)
20610 GOTO5170
20700 IFZA>=25THENGE=BE*3
20710 GOTO5170
20800 IFZA<=3THENGE=BE*9
20810 GOTO5170
20900 IFZA>=1ANDZA<=3THENGE=BE*12
20910 GOTO5170
21000 IFZA>=1ANDZA<=6THENGE=BE*6
21010 GOTO5170
21100 IFZA>=4ANDZA<=6THENGE=BE*12
21110 GOTO5170
21200 IFZA>=4ANDZA<=9THENGE=BE*6
21210 GOTO5170
21300 IFZA>=7ANDZA<=9THENGE=BE*12
21310 GOTO5170
21400 IFZA>=7ANDZA<=12THENGE=BE*6
21410 GOTO5170
21500 IFZA>=10ANDZA<=12THENGE=BE*12
21510 GOTO5170
21600 IFZA>=10ANDZA<=15THENGE=BE*6
21610 GOTO5170
21700 IFZA>=10ANDZA<=15THENGE=BE*12
21710 GOTO5170
21800 IFZA>=13ANDZA<=18THENGE=BE*6
21810 GOTO5170
21900 IFZA>=16ANDZA<=18THENGE=BE*12
21910 GOTO5170
22000 IFZA>=16ANDZA<=21THENGE=BE*6
22010 GOTO5170
22100 IFZA>=19ANDZA<=21THENGE=BE*12
22110 GOTO5170
22200 IFZA>=19ANDZA<=24THENGE=BE*6
22210 GOTO5170
22300 IFZA>=22ANDZA<=24THENGE=BE*12
22310 GOTO5170
22400 IFZA>=22ANDZA<=27THENGE=BE*6
22410 GOTO5170
22500 IFZA>=25ANDZA<=27THENGE=BE*12
22510 GOTO5170
22600 IFZA>=25ANDZA<=30THENGE=BE*6
22610 GOTO5170
22700 IFZA>=28ANDZA<=30THENGE=BE*12
22710 GOTO5170
22800 IFZA>=28ANDZA<=33THENGE=BE*6
22810 GOTO5170
22900 IFZA>=31ANDZA<=33THENGE=BE*12
22910 GOTO5170
23000 IFZA>=31ANDZA<=36THENGE=BE*6
23010 GOTO5170
23100 IFZA>=34ANDZA<=36THENGE=BE*12
23200 IFZA=0THENGE=BE*36
23210 GOTO5170
23300 IFZA=0ORZA=3THENGE=BE*18
23310 GOTO5170
23400 IFZA=3THENGE=BE*36
23410 GOTO5170
23500 IFZA=3ORZA=6THENGE=BE*18
23510 GOTO5170
23600 IFZA=6THENGE=BE*36
23610 GOTO5170
23700 IFZA=6ORZA=9THENGE=BE*18
23710 GOTO5170
23800 IFZA=9THENGE=BE*36
23810 GOTO5170
23900 IFZA=9ORZA=12THENGE=BE*18
23910 GOTO5170
24000 IFZA=12THENGE=BE*36
24010 GOTO5170
24100 IFZA=12ORZA=15THENGE=BE*18
24110 GOTO5170
24200 IFZA=15THENGE=BE*36
24210 GOTO5170
24300 IFZA=15ORZA=18THENGE=BE*18
24310 GOTO5170
24400 IFZA=18THENGE=BE*36
24410 GOTO5170
24500 IFZA=18ORZA=21THENGE=BE*18
24510 GOTO5170
24600 IFZA=21THENGE=BE*36
24610 GOTO5170
24700 IFZA=21ORZA=24THENGE=BE*18
24710 GOTO5170
24800 IFZA=24THENGE=BE*36
24810 GOTO5170
24900 IFZA=24ORZA=27THENGE=BE*18
24910 GOTO5170
25000 IFZA=27THENGE=BE*36
25010 GOTO5170
25100 IFZA=27ORZA=30THENGE=BE*18
25110 GOTO5170
25200 IFZA=30THENGE=BE*36
25210 GOTO5170
25300 IFZA=30ORZA=33THENGE=BE*18
25310 GOTO5170
25400 IFZA=33THENGE=BE*36
25410 GOTO5170
25500 IFZA=33ORZA=36THENGE=BE*18
25510 GOTO5170
25550 IFZA=36THENGE=BE*36
25560 GOTO5170
25600 IFINT(ZA/3)=ZA/3THENGE=BE*3
25610 GOTO5170
25650 IFZA=0ORZA=2ORZA=3THENGE=BE*12
25660 GOTO5170
25700 IFZA=2ORZA=3THENGE=BE*18
25710 GOTO5170
25750 IFZA=2ORZA=3ORZA=5ORZA=6THENGE=BE*9
25760 GOTO5170
25800 IFZA=5ORZA=6THENGE=BE*18
25810 GOTO5170
25850 IFZA=5ORZA=6ORZA=8ORZA=9THENGE=BE*9
25860 GOTO5170
25900 IFZA=8ORZA=9THENGE=BE*18
25910 GOTO5170
25950 IFZA=8ORZA=9ORZA=11ORZA=12THENGE=BE*9
25960 GOTO5170
26000 IFZA=11ORZA=12THENGE=BE*18
26010 GOTO5170
26025 IFZA=11ORZA=12ORZA=14ORZA=15THENGE=BE*9
26030 GOTO5170
26050 IFZA=14ORZA=15THENGE=BE*18
26055 GOTO5170
26075 IFZA=14ORZA=15ORZA=17ORZA=18THENGE=BE*9
26080 GOTO5170
26100 IFZA=17ORZA=18THENGE=BE*18
26105 GOTO5170
26125 IFZA=17ORZA=18ORZA=20ORZA=21THENGE=BE*9
26130 GOTO5170
26150 IFZA=20ORZA=21THENGE=BE*18
26155 GOTO5170
26175 IFZA=20ORZA=21ORZA=23ORZA=24THENGE=BE*9
26180 GOTO5170
26200 IFZA=23ORZA=24THENGE=BE*18
26205 GOTO5170
26225 IFZA=23ORZA=24ORZA=26ORZA=27THENGE=BE*9
26230 GOTO5170
26250 IFZA=26ORZA=27THENGE=BE*18
26255 GOTO5170
26275 IFZA=26ORZA=27ORZA=29ORZA=30THENGE=BE*9
26280 GOTO5170
26300 IFZA=29ORZA=30THENGE=BE*18
26305 GOTO5170
26325 IFZA=29ORZA=30ORZA=32ORZA=33THENGE=BE*9
26330 GOTO5170
26350 IFZA=32ORZA=33THENGE=BE*18
26355 GOTO5170
26375 IFZA=32ORZA=33ORZA=35ORZA=36THENGE=BE*9
26380 GOTO5170
26400 IFZA=35ORZA=36THENGE=BE*18
26405 GOTO5170
26425 IFINT(ZA/3)=ZA/3ORINT((ZA+1)/3)=(ZA+1)/3THENGE=INT(BE*1.5)
26430 GOTO5170
26450 IFZA=0ORZA=2THENGE=BE*18
26455 GOTO5170
26475 IFZA=2THENGE=BE*36
26480 GOTO5170
26500 IFZA=2ORZA=5THENGE=BE*18
26505 GOTO5170
26525 IFZA=5THENGE=BE*36
26530 GOTO5170
26550 IFZA=5ORZA=8THENGE=BE*18
26555 GOTO5170
26575 IFZA=8THENGE=BE*36
26580 GOTO5170
26600 IFZA=8ORZA=11THENGE=BE*18
26605 GOTO5170
26625 IFZA=11THENGE=BE*36
26630 GOTO5170
26650 IFZA=11ORZA=14THENGE=BE*18
26655 GOTO5170
26675 IFZA=14THENGE=BE*36
26680 GOTO5170
26700 IFZA=14ORZA=17THENGE=BE*18
26705 GOTO5170
26725 IFZA=17THENGE=BE*36
26730 GOTO5170
26750 IFZA=17ORZA=20THENGE=BE*18
26755 GOTO5170
26775 IFZA=20THENGE=BE*36
26780 GOTO5170
26800 IFZA=20ORZA=23THENGE=BE*18
26805 GOTO5170
26825 IFZA=23THENGE=BE*36
26830 GOTO5170
26850 IFZA=23ORZA=26THENGE=BE*18
26855 GOTO5170
26875 IFZA=26THENGE=BE*36
26880 GOTO5170
26900 IFZA=26ORZA=29THENGE=BE*18
26905 GOTO5170
26925 IFZA=29THENGE=BE*36
26930 GOTO5170
26950 IFZA=29ORZA=32THENGE=BE*18
26955 GOTO5170
26975 IFZA=32THENGE=BE*36
26980 GOTO5170
27000 IFZA=32ORZA=35THENGE=BE*18
27005 GOTO5170
27025 IFZA=35THENGE=BE*36
27030 GOTO5170
27050 IFINT((ZA+1)/3)=(ZA+1)/3THENGE=BE*3
27055 GOTO5170
27075 IFZA<=3THENGE=BE*12
27080 GOTO5170
27100 IFZA=1ORZA=2THENGE=BE*18
27110 GOTO5170
27125 IFZA=1ORZA=2ORZA=4ORZA=5THENGE=BE*9
27135 GOTO5170
27150 IFZA=4ORZA=5THENGE=BE*18
27160 GOTO5170
27175 IFZA=4ORZA=5ORZA=7ORZA=8THENGE=BE*9
27185 GOTO5170
27200 IFZA=7ORZA=8THENGE=BE*18
27210 GOTO5170
27225 IFZA=7ORZA=8ORZA=10ORZA=11THENGE=BE*9
27235 GOTO5170
27250 IFZA=10ORZA=11THENGE=BE*18
27260 GOTO5170
27275 IFZA=10ORZA=11ORZA=13ORZA=14THENGE=BE*9
27285 GOTO5170
27300 IFZA=13ORZA=14THENGE=BE*18
27310 GOTO5170
27325 IFZA=13ORZA=14ORZA=16ORZA=17THENGE=BE*9
27335 GOTO5170
27350 IFZA=16ORZA=17THENGE=BE*18
27360 GOTO5170
27375 IFZA=16ORZA=17ORZA=19ORZA=20THENGE=BE*9
27385 GOTO5170
27400 IFZA=19ORZA=20THENGE=BE*18
27410 GOTO5170
27425 IFZA=19ORZA=20ORZA=22ORZA=23THENGE=BE*9
27435 GOTO5170
27450 IFZA=22ORZA=23THENGE=BE*18
27460 GOTO5170
27475 IFZA=22ORZA=23ORZA=25ORZA=26THENGE=BE*9
27485 GOTO5170
27500 IFZA=25ORZA=26THENGE=BE*18
27510 GOTO5170
27525 IFZA=25ORZA=26ORZA=28ORZA=29THENGE=BE*9
27535 GOTO5170
27550 IFZA=28ORZA=29THENGE=BE*18
27560 GOTO5170
27575 IFZA=28ORZA=29ORZA=31ORZA=32THENGE=BE*9
27585 GOTO5170
27600 IFZA=31ORZA=32THENGE=BE*18
27610 GOTO5170
27625 IFZA=31ORZA=32ORZA=34ORZA=35THENGE=BE*9
27635 GOTO5170
27650 IFZA=34ORZA=35THENGE=BE*18
27670 GOTO5170
27675 IFINT((ZA+1)/3)=(ZA+1)/3ORINT((ZA+2)/3)=(ZA+2)/3THENGE=BE*1.5
27680 GOTO5170
27700 IFZA=0ORZA=1THENGE=BE*18
27710 GOTO5170
27725 IFZA=1THENGE=BE*36
27735 GOTO5170
27750 IFZA=1ORZA=4THENGE=BE*18
27760 GOTO5170
27800 IFZA=4THENGE=BE*36
27810 GOTO5170
27825 IFZA=4ORZA=7THENGE=BE*18
27835 GOTO5170
27850 IFZA=7THENGE=BE*36
27860 GOTO5170
27875 IFZA=7ORZA=10THENGE=BE*18
27885 GOTO5170
27900 IFZA=10THENGE=BE*36
27910 GOTO5170
27925 IFZA=10ORZA=13THENGE=BE*18
27935 GOTO5170
27950 IFZA=13THENGE=BE*36
27960 GOTO5170
27975 IFZA=13ORZA=16THENGE=BE*18
27985 GOTO5170
28000 IFZA=16THENGE=BE*36
28010 GOTO5170
28025 IFZA=16ORZA=19THENGE=BE*18
28035 GOTO5170
28050 IFZA=19THENGE=BE*36
28060 GOTO5170
28075 IFZA=19ORZA=22THENGE=BE*18
28085 GOTO5170
28100 IFZA=22THENGE=BE*36
28110 GOTO5170
28125 IFZA=22ORZA=25THENGE=BE*18
28135 GOTO5170
28150 IFZA=25THENGE=BE*36
28160 GOTO5170
28175 IFZA=25ORZA=28THENGE=BE*18
28185 GOTO5170
28200 IFZA=28THENGE=BE*36
28210 GOTO5170
28225 IFZA=28ORZA=31THENGE=BE*18
28235 GOTO5170
28250 IFZA=31THENGE=BE*36
28260 GOTO5170
28275 IFZA=31ORZA=34THENGE=BE*18
28285 GOTO5170
28300 IFZA=34THENGE=BE*36
28310 GOTO5170
28325 IFINT((ZA+2)/3)=(ZA+2)/3THENGE=BE*3
28335 GOTO5170
28400 IFZA>=19THENGE=BE*2
28410 GOTO5170
28500 IFINT(ZA/2)=ZA/2THENGE=BE*2
28510 GOTO5170
28600 IFCO=0THENGE=BE*2
28610 GOTO5170
30000 FORI=19TO23:POKE214,I:POKE211,0:SYS58640
30010 PRINT"                                       ":NEXTI:POKE1984,32
30011 FORA=1984TO2023:POKEA,32:NEXT
30020 POKE213,19:POKE211,0:SYS58640:RETURN
40000 POKE56320,127:SP=38:ZE=9:AW=1422:IFPEEK(AW)<128THENPOKEAW,PEEK(AW)+128
40010 JO=PEEK(56321):IFJO=255THEN40010
40020 IFJO=239THENPR=0:GOTO40200
40030 IFJO=247THENSP=SP+1:GOTO40063
40040 IFJO=251THENSP=SP-1:GOTO40063
40050 IFJO=253THENZE=ZE+1:GOTO40063
40060 IFJO=254THENZE=ZE-1:GOTO40063
40061 GOTO40010
40063 IFSP>39THENSP=0:ZE=ZE+1
40066 IFSP<0THENSP=39:ZE=ZE-1
40070 IFZE<1THENZE=1
40080 IFZE>17THENZE=17
40090 NW=1024+SP+40*ZE:IFPEEK(NW)>=128THEN40110
40091 IFUC>=1THEN40120
40092 IFNW<>AWTHENPOKENW,PEEK(NW)+128:POKEAW,PEEK(AW)-128:AW=NW
40100 GOTO40010
40110 IFUC<>1THENPOKEAW,PEEK(AW)-128:UC=1:AW=NW:GOTO40010
40120 IFPEEK(NW)<128THENPOKENW,PEEK(NW)+128:UC=0:AW=NW
40130 GOTO40010
40200 IFPEEK(NW)<128THENPOKENW,PEEK(NW)+128
40210 IFSP=0ORSP=35ORSP=39THEN40010
40220 IFSP=1AND(ZE<7ORZE>11)THEN40010
40230 IF(SP=2ORSP=11ORSP=23)AND(ZE<6ORZE>12)THEN40010
40235 IF(ZE=6ORZE=12)ANDSP>=36THEN40010
40240 RETURN
50000 REM *** SPIELANLEITUNG ***
50010 GOSUB30000:POKE211,0:POKE214,19:SYS58640
50020 PRINT"            < SPIELANLEITUNG >[144]"
50030 PRINT
50040 PRINT"ROULETTE IST EIN GESELLSCHAFTSSPIEL,"
50050 PRINT"AN DEM BIS ZU NEUN PERSONEN TEILNEHMEN"
50060 PRINT"_"
50061 GETA$:IFA$<>CHR$(13)THEN50061
50065 GOSUB30000:POKE211,0:POKE214,19:SYS58640
50070 PRINT"KOENNEN. SIE KOENNEN NUN MIT DEM"
50080 PRINT"JOYSTICK (PORT 1) AUF DEM SPIELFELD"
50090 PRINT"VERSCHIEDENE GELDBETRAEGE SETZEN."
50100 PRINT"GEWONNEN HAT DERJENIGE, DER AM MEISTEN"
50110 PRINT"_"
50120 GETA$:IFA$<>CHR$(13)THEN50120
50130 GOSUB30000:POKE211,0:POKE214,19:SYS58640
50140 PRINT"GEWINN GEMACHT HAT."
50150 PRINT:PRINT"VIEL GLUECK[144]"
50160 PRINT"_"
50170 GETA$:IFA$<>CHR$(13)THEN50170
55000 GOTO 1000
60000 GOSUB30000:POKE214,19:POKE211,0:SYS58640
60010 POKE19,1:INPUT"[149]ENDE - SICHER? (J/N)  >";IN$:POKE19,0
60020 IFIN$="N"THEN1000
60030 IFIN$="J"THEN60050
60040 GOTO60000
60050 PRINT:PRINT"  ROULETTE - [158](C) 1986 BY [144]J.WELLHAUSEN"
60060 SYS64738