10 DIMA(15),C(15),V(38),W(38) :GOSUB10000 20 FORX=1TO15:A(X)=0:C(X)=0:NEXT 90 (null) 91 S=0:(null)3 92 (null)0,8,7:(null)4,7,3 100 (null)1,1:A(7)=A(1)+A(2)+A(3)+A(4)+A(5)+A(6):IFA(7)>62THENA(7)=A(7)+35 101 GOSUB9450:R=0:K=0:S=S+1:IFS>13THEN9500 102 (null):AA=0:AB=0:AC=0:AD=0:AE=0 103 BA=0:BB=0:BC=0:BD=0:BE=0:BF=0 106 PRINT" 1[146] [159]2[146] [156]3[146] 4[146] 5" 107 PRINT" [213][195][195][195][201] [160][213][195][195][195][201] [160][213][195][195][195][201] [160][213][195][195][195][201] [160][213][195][195][195][201]" 110 PRINT" [194] [194] [194] [194] [160][194] [194] [160][194] [194] [194] [194]" 120 PRINT" [194] [194] [160][194] [194] [160][194] [194] [160][194] [194] [160][194] [194]" 130 PRINT" [194] [194] [160][194] [194] [160][194] [194] [160][194] [194] [160][194] [194]" 140 PRINT" [202][195][195][195][203] [160][202][195][195][195][203] [160][202][195][195][195][203] [202][195][195][195][203] [160][202][195][195][195][203]" 150 PRINT: 160 PRINT" 1) 1ER ="A(1) 170 PRINT" 2) 2ER ="A(2) 180 PRINT" 3) 3ER ="A(3) 190 PRINT" 4) 4ER ="A(4) 200 PRINT" 5) 5ER ="A(5) 210 PRINT" 6) 6ER ="A(6) 220 PRINT" [156]ZW-SUMME = "A(7)"[146][144] 230 [153]" 8)DRILLING =":[139]C(7)[178]1[167]231:[213]232 231 [153]"ON"A(8)"WAITSTOP":[137]240 232 [153]"ON"A(8) 240 [153]" 9)VIERLING =":[139]C(8)[178]1[167]241:[213]242 241 [153]"ON"A(9)"WAITSTOP":[137]250 242 [153]"ON"A(9) 250 [153]" 10)FULLHOUSE =":[139]C(9)[178]1[167]251:[213]252 251 [153]"ON"A(10)"WAITSTOP":[137]260 252 [153]"ON"A(10) 260 [153]" 11)KL.STRASSE =":[139]C(10)[178]1[167]261:[213]262 261 [153]"ON"A(11)"WAITSTOP":[137]270 262 [153]"ON"A(11) 270 [153]" 12)GR.STRASSE =":[139]C(11)[178]1[167]271:[213]272 271 [153]"ON"A(12)"WAITSTOP":[137]280 272 [153]"ON"A(12) 280 [153]" 13)YAATZEE =":[139]C(12)[178]1[167]281:[213]282 281 [153]"ON"A(13)"WAITSTOP":[137]290 282 [153]"ON"A(13) 290 [153]" 14)CHANCE =":[139]C(13)[178]1[167]291:[213]292 291 [153]"ON"A(14)"WAITSTOP":[137]300 292 [153]"ON"A(14) 300 [153]" GESAMT = "A(15)"WAITSTOP" 301 [139]K[178]100[167]9600 400 AA[178][181]([187](1)[172]6)[170]1 401 [153]""A$(AA) 500 AB[178][181]([187](1)[172]6)[170]1 501 [153]""A$(AB) 600 AC[178][181]([187](1)[172]6)[170]1 601 [153]""A$(AC) 700 AD[178][181]([187](1)[172]6)[170]1 701 [153]""A$(AD) 800 AE[178][181]([187](1)[172]6)[170]1 801 [153]""A$(AE) 900 R[178]R[170]1:[139]R[179]3[167]990 :[213]6500 990 [153]" " 1000 [153]"WIEVIELE WILLST DU TAUSCHEN?" 1010 [161][249]AG:[139]AG[178]0[167]6500 1015 [139]AG[178]7[167]7600 1020 [153]" " 1100 [153]"WELCHE" 1200 [129]AF[178]1[164]AG 1300 [161][249]U(AF):U[178]AF:[218]1, 99,6 :[130] 1301 [139]U [177]0[175]U [179]6[167]1399:[213]1302 1302 [153]" " 1303 [153]"WELCHE":[137]1200 1399 [129]B[178]1[164]500:[130] 1400 [145]U(1)[141]6000,6100,6200,6300,6400 1409 [129]B[178]1[164]500:[130] 1410 [145]U(2)[141]6000,6100,6200,6300,6400 1419 [129]B[178]1[164]500:[130] 1420 [145]U(3)[141]6000,6100,6200,6300,6400 1429 [129]B[178]1[164]500:[130] 1430 [145]U(4)[141]6000,6100,6200,6300,6400 1439 [129]B[178]1[164]500:[130] 1440 [145]U(5)[141]6000,6100,6200,6300,6400 1450 [129]AF[178]1[164]5:U(AF)[178]0:[130] 1500 [137]900 6000 [153]" CMDCMDCMD CMDCMDCMD " 6001 AA[178][181]([187](1)[172]6)[170]1 6002 [153]""A$(AA):[141]11000:[142] 6100 [153]" CMDCMDCMD CMDCMDCMD " 6101 AB[178][181]([187](1)[172]6)[170]1 6102 [153]""A$(AB):[141]11000:[142] 6200 [153]" CMDCMDCMD CMDCMDCMD " 6201 AC[178][181]([187](1)[172]6)[170]1 6202 [153]""A$(AC):[141]11000:[142] 6300 [153]" CMDCMDCMD CMDCMDCMD " 6301 AD[178][181]([187](1)[172]6)[170]1 6302 [153]""A$(AD):[141]11000:[142] 6400 [153]" CMDCMDCMD CMDCMDCMD " 6401 AE[178][181]([187](1)[172]6)[170]1 6402 [153]""A$(AE):[141]11000:[142] 6500 [153]" " 6501 [153]"WOHIN " 6510 [133]O:[137]6520 6511 [153]" " 6512 [153]"WOHIN " 6513 [133]O 6520 [139]O[178]1[167]7000:[213]6530 6530 [139]O[178]2[167]7100:[213]6540 6540 [139]O[178]3[167]7200:[213]6550 6550 [139]O[178]4[167]7300:[213]6560 6560 [139]O[178]5[167]7400:[213]6570 6570 [139]O[178]6[167]7500:[213]6580 6580 [139]O[178]8[167]7700:[213]6590 6590 [139]O[178]9[167]7700:[213]6600 6600 [139]O[178]10[167]7700:[213]6610 6610 [139]O[178]11[167]9060:[213]6620 6620 [139]O[178]12[167]9095:[213]6630 6630 [139]O[178]13[167]9300:[213]6640 6640 [139]O[178]14[167]9400:[213]6650 6650 [137]100 7000 [139]C(1)[178]1[167]6511:A(1)[178]0:[213][139]AA[178]1[167]A(1)[178]A(1)[170]1:[213]AA[178]0 7001 [139]AB[178]1[167]A(1)[178]A(1)[170]1:[213]AB[178]0 7002 [139]AC[178]1[167]A(1)[178]A(1)[170]1:[213]AC[178]0 7003 [139]AD[178]1[167]A(1)[178]A(1)[170]1:[213]AD[178]0 7004 [139]AE[178]1[167]A(1)[178]A(1)[170]1:[213]AE[178]0:C(1)[178]1 7005 [137]100 7100 [139]C(2)[178]1[167]6511:A(2)[178]0:[213][139]AA[178]2[167]A(2)[178]A(2)[170]2:[213]AA[178]0 7101 [139]AB[178]2[167]A(2)[178]A(2)[170]2:[213]AB[178]0 7102 [139]AC[178]2[167]A(2)[178]A(2)[170]2:[213]AC[178]0 7103 [139]AD[178]2[167]A(2)[178]A(2)[170]2:[213]AD[178]0 7104 [139]AE[178]2[167]A(2)[178]A(2)[170]2:[213]AE[178]0:C(2)[178]1 7105 [137]100 7200 [139]C(3)[178]1[167]6511:A(3)[178]0:[213][139]AA[178]3[167]A(3)[178]A(3)[170]3:[213]AA[178]0 7201 [139]AB[178]3[167]A(3)[178]A(3)[170]3:[213]AB[178]0 7202 [139]AC[178]3[167]A(3)[178]A(3)[170]3:[213]AC[178]0 7203 [139]AD[178]3[167]A(3)[178]A(3)[170]3:[213]AD[178]0 7204 [139]AE[178]3[167]A(3)[178]A(3)[170]3:[213]AE[178]0:C(3)[178]1 7205 [137]100 7300 [139]C(4)[178]1[167]6511:A(4)[178]0:[213][139]AA[178]4[167]A(4)[178]A(4)[170]4:[213]AA[178]0 7301 [139]AB[178]4[167]A(4)[178]A(4)[170]4:[213]AB[178]0 7302 [139]AC[178]4[167]A(4)[178]A(4)[170]4:[213]AC[178]0 7303 [139]AD[178]4[167]A(4)[178]A(4)[170]4:[213]AD[178]0 7304 [139]AE[178]4[167]A(4)[178]A(4)[170]4:[213]AE[178]0:C(4)[178]1 7305 [137]100 7400 [139]C(5)[178]1[167]6511:A(5)[178]0:[213][139]AA[178]5[167]A(5)[178]A(5)[170]5:[213]AA[178]0 7401 [139]AB[178]5[167]A(5)[178]A(5)[170]5:[213]AB[178]0 7402 [139]AC[178]5[167]A(5)[178]A(5)[170]5:[213]AC[178]0 7403 [139]AD[178]5[167]A(5)[178]A(5)[170]5:[213]AD[178]0 7404 [139]AE[178]5[167]A(5)[178]A(5)[170]5:[213]AE[178]0:C(5)[178]1 7405 [137]100 7500 [139]C(6)[178]1[167]6511:A(6)[178]0:[213][139]AA[178]6[167]A(6)[178]A(6)[170]6:[213]AA[178]0 7501 [139]AB[178]6[167]A(6)[178]A(6)[170]6:[213]AB[178]0 7502 [139]AC[178]6[167]A(6)[178]A(6)[170]6:[213]AC[178]0 7503 [139]AD[178]6[167]A(6)[178]A(6)[170]6:[213]AD[178]0 7504 [139]AE[178]6[167]A(6)[178]A(6)[170]6:[213]AE[178]0:C(6)[178]1 7505 [137]100 7600 A(7)[178]A(1)[170]A(2)[170]A(3)[170]A(4)[170]A(5)[170]A(6) 7601 [139]A(7)[177]62[167]A(7)[178]A(7)[170]35:[137]100 7700 [139]AA[178]1[167]BA[178]BA[170]1 7701 [139]AB[178]1[167]BA[178]BA[170]1 7702 [139]AC[178]1[167]BA[178]BA[170]1 7703 [139]AD[178]1[167]BA[178]BA[170]1 7704 [139]AE[178]1[167]BA[178]BA[170]1 7800 [139]AA[178]2[167]BB[178]BB[170]1 7801 [139]AB[178]2[167]BB[178]BB[170]1 7802 [139]AC[178]2[167]BB[178]BB[170]1 7803 [139]AD[178]2[167]BB[178]BB[170]1 7804 [139]AE[178]2[167]BB[178]BB[170]1 7900 [139]AA[178]3[167]BC[178]BC[170]1 7901 [139]AB[178]3[167]BC[178]BC[170]1 7902 [139]AC[178]3[167]BC[178]BC[170]1 7903 [139]AD[178]3[167]BC[178]BC[170]1 7904 [139]AE[178]3[167]BC[178]BC[170]1 8000 [139]AA[178]4[167]BD[178]BD[170]1 8001 [139]AB[178]4[167]BD[178]BD[170]1 8002 [139]AC[178]4[167]BD[178]BD[170]1 8003 [139]AD[178]4[167]BD[178]BD[170]1 8004 [139]AE[178]4[167]BD[178]BD[170]1 8100 [139]AA[178]5[167]BE[178]BE[170]1 8101 [139]AB[178]5[167]BE[178]BE[170]1 8102 [139]AC[178]5[167]BE[178]BE[170]1 8103 [139]AD[178]5[167]BE[178]BE[170]1 8104 [139]AE[178]5[167]BE[178]BE[170]1 8200 [139]AA[178]6[167]BF[178]BF[170]1 8201 [139]AB[178]6[167]BF[178]BF[170]1 8202 [139]AC[178]6[167]BF[178]BF[170]1 8203 [139]AD[178]6[167]BF[178]BF[170]1 8204 [139]AE[178]6[167]BF[178]BF[170]1 8205 [139]O[178]10[167]8500:[213]8206 8206 [139]O[178]9[167]8400:[213]8207 8207 [139]O[178]8[167]8300 8300 [139]C(7)[178]1[167]6511:[213]8301 8301 [139]BA[177]2[176]BB[177]2[176]BC[177]2[176]BD[177]2[176]BE[177]2[176]BF[177]2[167]8302:[213]C(7)[178]1:A(8)[178]0:[137]100 8302 A(8)[178]AA[170]AB[170]AC[170]AD[170]AE:C(7)[178]1:[137]100 8400 [139]C(8)[178]1[167]6511:[213][139]BA[177]3[176]BB[177]3[176]BC[177]3[176]BD[177]3[176]BE[177]3[176]BF[177]3[167]8402 8401 C(8)[178]1:A(9)[178]0:[137]100 8402 A(9)[178]AA[170]AB[170]AC[170]AD[170]AE:C(8)[178]1:[137]100 8500 [139]C(9)[178]1[167]6511:[213][139]BA[178]3[167]8501:[213]8600 8501 [139]BB[178]2[176]BC[178]2[176]BD[178]2[176]BE[178]2[176]BF[178]2[167]9050:[213]8600 8600 [139]BB[178]3[167]8601:[213]8700 8601 [139]BA[178]2[176]BC[178]2[176]BD[178]2[176]BE[178]2[176]BF[178]2[167]9050:[213]8700 8700 [139]BC[178]3[167]8701:[213]8800 8701 [139]BA[178]2[176]BB[178]2[176]BD[178]2[176]BE[178]2[176]BF[178]2[167]9050:[213]8800 8800 [139]BD[178]3[167]8801:[213]8900 8801 [139]BA[178]2[176]BB[178]2[176]BC[178]2[176]BE[178]2[176]BF[178]2[167]9050:[213]8900 8900 [139]BE[178]3[167]8901:[213]9000 8901 [139]BA[178]2[176]BB[178]2[176]BC[178]2[176]BD[178]2[176]BF[178]2[167]9050:[213]9000 9000 [139]BF[178]3[167]9001:[213]9020 9001 [139]BA[178]2[176]BB[178]2[176]BC[178]2[176]BD[178]2[176]BE[178]2[167]9050:[213]9020 9020 A(10)[178]0:C(9)[178]1:[137]100 9050 A(10)[178]25:C(9)[178]1:[137]100 9060 [139]C(10)[178]1[167]6511:[213]A(11)[178]30:C(10)[178]1:[137]100 9095 [139]C(11)[178]1[167]6511:[213]9098 9098 [139]AA[179][177]AB[175]AA[179][177]AC[175]AA[179][177]AD[175]AA[179][177]AE[167]9102:[213]9108 9102 [139]AB[179][177]AC[175]AB[179][177]AD[175]AB[179][177]AE[175]AB[179][177]AA[167]9103:[213]9108 9103 [139]AC[179][177]AA[175]AC[179][177]AB[175]AC[179][177]AD[175]AC[179][177]AE[167]9104:[213]9108 9104 [139]AD[179][177]AA[175]AD[179][177]AB[175]AD[179][177]AC[175]AD[179][177]AE[167]9105:[213]9108 9105 [139]AE[179][177]AA[175]AE[179][177]AB[175]AE[179][177]AC[175]AE[179][177]AD[167]9106:[213]9108 9106 [139]AA[177]1[175]AB[177]1[175]AC[177]1[175]AD[177]1[175]AE[177]1[167]9110:[213]9107 9107 [139]AA[179]6[175]AB[179]6[175]AC[179]6[175]AD[179]6[175]AE[179]6[167]9110:[213]9108 9108 A(12)[178]0:C(11)[178]1:[137]100 9110 A(12)[178]40:C(11)[178]1:[137]100 9300 [139]C(12)[178]1[167]6511:[213]9302 9302 [139]AA[178]AB[175]AA[178]AC[175]AA[178]AD[175]AA[178]AE[167]9306:[213]9305 9305 A(13)[178]0:C(12)[178]1:[137]100 9306 A(13)[178]50:C(12)[178]1:[137]100 9400 [139]C(13)[178]1[167]6511:[213]A(14)[178]AA[170]AB[170]AC[170]AD[170]AE:C(13)[178]1:[137]100 9450 A(15)[178]A(7)[170]A(8)[170]A(9)[170]A(10)[170]A(11)[170]A(12)[170]A(13)[170]A(14):[142] 9500 A(15)[178]A(7)[170]A(8)[170]A(9)[170]A(10)[170]A(11)[170]A(12)[170]A(13)[170]A(14):K[178]100:[137]103 9600 [129]TT[178]1[164]3000:[130] 9610 [139]A(15)[177]290[167]9620:[213]9700 9620 [232]:[129]P[178]1[164]38 9630 [135]V(P),W(P) 9640 [218]1,V(P),W(P) 9650 [153]"WAIT(null)"A(15)"WAITCMD(null)(null)";"(null)"A(15)"WAITCMD(null)(null)";"(null)"A(15)"WAITCMD(null)(null)";"(null)CLR"A(15)"WAITCMD(null)(null)"; 9660 [130]P 9670 [131] 643,20,739,20,739,10,770,10,798,20,739,20,834,40 9680 [131] 798,30,798,10,810,20,834,10,810,10,798,10,810,10 9690 [131] 834,20,770,10,739,10,770,10,798,10,770,20 9691 [131]1021,2 ,643,20,739,20,739,10,770,10,798,20,739,20,834,40,798,30 9692 [131]798,10,810,10,834,10,798,10,810,10,770,30,739,10,1021,2,739,30 9693 [140] 9695 [129]TT[178]1[164]3000:[130] 9700 [139]A(15)[177]T[167]T[178]A(15):[137]9710:[213]9900 9710 [231]1,2:[231]0,1:[231]4,1 9720 [153]"LOADHIGHSCORE:"T"WAIT" 9900 [129]TT[178]1[164]3000:[130] 9901 [153]"NOCHMAL (J/N)?" 9910 [161][249]A$:[139]A$[178]"J"[167]20:[213][128] 10000 A$(1)[178]"(null)" 10010 A$(2)[178]"(null)(null)STOP" 10020 A$(3)[178]"OPEN(null)(null)(null)STOP" 10030 A$(4)[178]"CLR(null)(null)CMDCMDCMD(null)(null)STOP" 10040 A$(5)[178]"(null)(null)CMDCMD(null)CMDCMD(null)(null)STOP" 10050 A$(6)[178]"(null)(null)CMDCMDCMD(null)(null)CMDCMDCMD(null)(null)STOP" 10060 [142] 11000 [218]1,1000,6:[142]