$ MINIROULETT ==============16G (P) 12/86 COMMODORE WELT ==j ============================( (C) 11/86 BY S. GUTH ==2 GELSENKIRCHEN ==< ==F BASIC V3.5 ==P C16/116 PLUS 4 MIND. 32K ==<Z ============================Gd 5700Mnbx1,8,4:0,1:4,1}1,14,8,"MINI-ROULETT"1,11,12,"FUER DEN C16 +64KB"1,9,16,"(C)1986 BY STEFAN GUTH"1,11,19,"4650 GELSENKIRCHEN"A$*1,3,12,"IHR STARTKAPITAL BETRAEGT 250 DM.":A$Z1,3,12," "eKS250nUP1BT$"":MN$"":PL$"":KG$"":TR$"":DL$"":ER$"":ZW$"":DR$"":RE$"":ZR$""DI$"":GJ$"":GH$""270UP21,8,5:0,6,3:4,3,4 H"" "S2$S2$S2$""ZH$""ZH$""ZH$""s," 1."6" "(Q2$,8)" "ZA$""ZI$@" "S2$"MANQUE"S2$""S2$"IMPAIR"S2$""(Q2$,8)"2."J" "(Q2$,8)""(Q2$,8)""(Q2$,8)ZA$""ZI$MT" "S2$" "(Q2$,8)""(Q2$,8)""(Q2$,8)"3."^S2$S2$" "ZA$""ZH$""ZH$""YM$""ZH$""ZH$""YM$""ZH$""ZH$""YM$""ZI$h" _1""r" "ZA$""YM$""YM$""YM$""YM$""YM$""YM$""YM$""YM$""ZI$M|" 0 _2"" "ZA$""YM$""YM$""YM$""YM$""YM$""YM$""YM$""YM$""ZI$" "S2$" _3""" "ZA$""ZG$""ZG$""YM$""ZG$""ZG$""YM$""ZG$""ZG$""YM$""ZI$M" 3."" "(Q2$,8)""(Q2$,8)""(Q2$,6)" "ZA$""ZI$S2$" "S2$S2$""S2$S2$"PASSE"S2$""S2$S2$"PAIR"S2$S2$""(Q2$,5)" 2."" "S2$S2$S2$""(Q2$,8)""(Q2$,8)""(Q2$,5)" "ZA$""ZI$J" "(Q2$,8)""(Q2$,8)""(Q2$,5)" 1."" "ZG$""ZG$""ZG$""1,3,11,25,3,Z3$Z3$Z3$Z3$Z3$1,24,4,""Z2$Z2$Z2$Z2$Z2$""1,24,5,Z4$"ROUGE"Z6$*&1,24,6,""Z3$Z3$Z3$Z3$Z3$""J01,25,7,Z2$Z2$Z2$Z2$Z2$S:1,1pD1,25,15,Z3$Z3$Z3$Z3$N1,24,16,""Z2$Z2$Z2$Z2$""X1,24,17,Z4$"NOIR"Z6$b1,24,18,""Z3$Z3$Z3$Z3$""l1,25,19,Z2$Z2$Z2$Z2$)v1,0,0," ":1,8,10,"01"K1,8,14,"03"]1,11,10,"04"o1,11,14,"06"1,14,12,"08"1,17,12,"11"1,20,10,"13"1,20,14,"15"1,26,12,"20"1,23,10,"16"1,23,14,"18"1,29,12,"23" 1,3,01,8,12,"02"- 1,11,12,"05"?1,14,10,"07"Q 1,14,14,"09"c*1,17,10,"10"u41,17,14,"12">1,20,12,"14"H1,26,10,"19"R1,26,14,"21"\1,23,12,"17"f1,29,10,"22"p1,29,14,"24"z1,2,7GH$"1"1,8,10,GJ$GH$"2"1,8,12,GJ$7GH$"3"1,8,14,GJ$QGH$"4"1,11,10,GJ$kGH$"5"1,11,12,GJ$GH$"6"1,11,14,GJ$GH$"7"1,14,10,GJ$GH$"8"1,14,12,GJ$GH$"9"1,14,14,GJ$GH$"10"1,17,10,GJ$ GH$"11"1,17,12,GJ$$GH$"12"1,17,14,GJ$?GH$"13"1,20,10,GJ$ZGH$"14"1,20,12,GJ$uGH$"15"1,20,14,GJ$GH$"16"1,23,10,GJ$$GH$"17"1,23,12,GJ$.GH$"18"1,23,14,GJ$8GH$"19"1,26,10,GJ$BGH$"20"1,26,12,GJ$LGH$"21"1,26,14,GJ$2VGH$"22"1,29,10,GJ$M`GH$"23"1,29,12,GJ$hjGH$"24"1,29,14,GJ$tGH$"0"1,5,12,GJ$~GH$"ROUGE"1,26,6,GJ$GH$"NOIR"1,26,18,GJ$GH$"IMPAIR"1,17,7,GJ$GH$"PAIR"1,17,19,GJ$GH$"MANQUE"1,8,7,GJ$0GH$"PASSE"1,8,19,GJ$JGH$"1."1,32,4,GJ$dGH$"2."1,32,6,GJ$~GH$"3."1,32,8,GJ$GH$"_1"1,32,10,GJ$GH$"_2"1,32,12,GJ$GH$"_3"1,32,14,GJ$AS$UP21450 1,2,7"1,6,12,"WORAUF MOECHTEN SIE SETZEN":(C4$(QR$,22);:GH$N2(GH$)241290T<F1,3,12,"WIEVIEL DM MOECHTEN SIE EINSETZEN"PC4$(QR$,22);:GJ$:GJ(GJ$):GJKS1340ZGJ$"3"GJ$"03"dGJ$"4"GJ$"04"nGJ$"5"GJ$"05" xGJ$"6"GJ$"06" GJ$"7"GJ$"07"6 GJ$"8"GJ$"08"L GJ$"9"GJ$"09"] UP260,1450p F((1)24)0v  UP1 1510 4130 UP2 UP21920 0,8,5:1,7,4 1,11,6,""ZH$""ZH$""ZH$""ZH$""!1,11,7," "P!1,11,8,ZA$""YM$""YM$""YM$""YM$""ZI$o!1,11,9," "!"1,11,10,ZA$""YM$""YM$""YM$""YM$""ZI$!,1,11,11," " "61,11,12,ZA$""YM$""YM$""YM$""YM$""ZI$+"@1,11,13," "i"J1,11,14,ZA$""YM$""YM$""YM$""YM$""ZI$"T1,11,15," ""^1,11,16,""ZG$""ZG$""ZG$""ZG$"""h1,6,4"r1,12,7," 0""|1,3,1"1,18,7,"02" #1,12,9,"05"#1,18,9,"07",#1,24,9,"09">#1,12,11,"10"P#1,18,11,"12"b#1,24,11,"14"t#1,18,13,"17"#1,24,13,"19"#1,15,15,"21"#1,18,15,"22"#1,24,15,"24"#1,1#1,15,7,"01"#1,21,7,"03"#1,24,7,"04" $&1,15,9,"06"$01,21,9,"08",$:1,15,11,"11">$D1,21,11,"13"P$N1,12,13,"15"b$X1,15,13,"16"t$b1,21,13,"18"$l1,12,15,"20"$v1,21,15,"23"$UP1490,1930$1,2,7$F01,12,7,FL$" 0"FO$$F11,15,7,FL$"01"FO$%F21,18,7,FL$"02"FO$-%F31,21,7,FL$"03"FO$K%F41,24,7,FL$"04"FO$i%F51,12,9,FL$"05"FO$%F61,15,9,FL$"06"FO$%F71,18,9,FL$"07"FO$%F81,21,9,FL$"08"FO$%F91,24,9,FL$"09"FO$&F101,12,11,FL$"10"FO$!&F111,15,11,FL$"11"FO$A& F121,18,11,FL$"12"FO$a&F131,21,11,FL$"13"FO$& F141,24,11,FL$"14"FO$&*F151,12,13,FL$"15"FO$&4F161,15,13,FL$"16"FO$&>F171,18,13,FL$"17"FO$'HF181,21,13,FL$"18"FO$!'RF191,24,13,FL$"19"FO$A'\F201,12,15,FL$"20"FO$a'fF211,15,15,FL$"21"FO$'pF221,18,15,FL$"22"FO$'zF231,21,15,FL$"23"FO$'F241,24,15,FL$"24"FO$'AS$''1,11,8,"ES HABEN GEWONNEN:"'(" DIE ZAHL"F"&(F125004(F22560B(F32620P(F42680^(F52740l(F62800z(F72860( F82920( F92980( F103040($ F113100(. F123160(8 F133220(B F143280(L F153340(V F163400)` F173460)j F183520,)t F193580;)~ F203640J) F213700Y) F223760h) F233820w) F243880) F03930) 3930) " NOIR") " IMPAIR") " MANQUE") " 1.REIHE"* " 1.DRITTEL"'* 3930B* " ROUGE"\* " PAIR"x* " MANQUE"* " 2.REIHE"*( " 1.DRITTEL"*2 3930*< " NOIR"*F " IMPAIR"+P " MANQUE"-+Z " 3.REIHE"L+d " 1.DRITTEL"V+n 3930p+x " NOIR"+ " PAIR"+ " MANQUE"+ " 1.REIHE"+ " 1.DRITTEL"+ 3930, " ROUGE"#, " IMPAIR"?, " MANQUE"\, " 2.REIHE"{, " 1.DRITTEL", 3930, " NOIR", " PAIR", " MANQUE", " 3.REIHE"- " 1.DRITTEL"-" 39306-, " ROUGE"R-6 " IMPAIR"n-@ " MANQUE"-J " 1.REIHE"-T " 1.DRITTEL"-^ 3930-h " NOIR"-r " PAIR".| " MANQUE"!. " 2.REIHE"@. " 1.DRITTEL"J. 3930e. " ROUGE". " IMPAIR". " MANQUE". " 3.REIHE". " 2.DRITTEL". 3930. " ROUGE"/ " PAIR"4/ " MANQUE"Q/ " 1.REIHE"p/ " 2.DRITTEL"z/ 3930/ " NOIR"/& " IMPAIR"/0 " MANQUE"/: " 2.REIHE"0D " 2.DRITTEL"0N 3930-0X " ROUGE"G0b " PAIR"c0l " MANQUE"0v " 3.REIHE"0 " 2.DRITTEL"0 39300 " NOIR"0 " IMPAIR"0 " PASSE"1 " 1.REIHE"61 " 2.DRITTEL"@1 3930[1 " ROUGE"u1 " PAIR"1 " PASSE"1 " 2.REIHE"1 " 2.DRITTEL"1 39301 " NOIR" 2 " IMPAIR"'2 " PASSE"D2* " 3.REIHE"c24 " 2.DRITTEL"m2> 39302H " NOIR"2R " PAIR"2\ " PASSE"2f " 1.REIHE"2p " 2.DRITTEL"3z 39303 " ROUGE"93 " IMPAIR"T3 " PASSE"q3 " 2.REIHE"3 " 3.DRITTEL"3 39303 " NOIR"3 " PAIR"3 " PASSE"4 " 3.REIHE"%4 " 3.DRITTEL"/4 3930J4 " ROUGE"f4" IMPAIR"4" PASSE"4" 1.REIHE"4$" 3.DRITTEL"4.393048" NOIR"4B" PAIR"5L" PASSE"35V" 2.REIHE"R5`" 3.DRITTEL"\5j3930w5t" ROUGE"5~" IMPAIR"5" PASSE"5" 3.REIHE"5" 3.DRITTEL"539306" ROUGE")6" PAIR"D6" PASSE"a6" 1.REIHE"6" 3.DRITTEL"639306" NOIR"6" IMPAIR"6" PASSE"6 " 2.REIHE"7" 3.DRITTEL"!73930<7(" ROUGE"V72" PAIR"q7<" PASSE"7F" 3.REIHE"7P" 3.DRITTEL"7ZAS$7d7nF1F2F3F4F5F6F7F8F9F10F11BT$"MANQUE"8xF12BT$"MANQUE"X8F2F5F7F9F10F12F14F17F19F21F22MN$"ROUGE"n8F24MN$"ROUGE"8F1F3F4F6F8F11F13F15F20F23PL$"NOIR"8F1F3F5F7F9F11F13F15F17F19KG$"IMPAIR"9F21F23KG$"IMPAIR"D9F2F4F6F8F10F12F14F16F18F20TR$"PAIR"^9F22F24TR$"PAIR"9F13F14F15F16F17F18F19F20F21F22DL$"PASSE"9F23F24DL$"PASSE"9F1F2F3F4F5F6F7F8ER$"1.":F9F10F11F12F13F14F15F16ZW$"2."U:F17F18F19F20F21F22F23F24DR$"3.":F1F4F7F10F13F16F19F22RE$"_1":F2F5F8F11F14F17F20F23ZR$"_2":F3F6F9F12F15F18F21F24DI$"_3":4720;"B150 ;,B;6UP1;@4200';JUP21;T4200:;^UP3Y;h1,2,7:B1511,13,7,"0"x;r1,6,1:B2521,13,7,"0";|1,2,7:B3531,15,7,"01";1,1:B4541,15,7,"01";1,2,7:B5551,18,7,"02";1,3,1:B6561,18,7,"02"<1,2,7:B7571,21,7,"03"4<1,1:B8581,21,7,"03"T<1,2,7:B9591,24,7,"04"s<1,1:B10601,24,7,"04"<1,2,7:B11611,12,9,"05"<1,3,1:B12621,12,9,"05"<1,2,7:B13631,15,9,"06"<1,1:B14641,15,9,"06"=1,2,7:B15651,18,9,"07"7=1,3,1:B16661,18,9,"07"X=1,2,7:B17671,21,9,"08"w=1,1:B18681,21,9,"08"=1,2,7:B19691,24,9,"09"=&1,3,1:B20701,24,9,"09"=01,2,7:B21711,12,11,"10"=:1,3,1:B22721,12,11,"10">D1,2,7:B23731,15,11,"11"?>N1,1:B24741,15,11,"11"a>X1,2,7:B25751,18,11,"12">b1,3,1:B26761,18,11,"12">l1,2,7:B27771,21,11,"13">v1,1:B28781,21,11,"13">1,2,7:B29791,24,11,"14" ?1,3,1:B30801,24,11,"14"+?1,2,7:B31811,12,13,"15"K?1,1:B32821,12,13,"15"m?1,2,7:B33831,15,13,"16"?1,1:B34841,15,13,"16"?1,2,7:B35851,18,13,"17"?1,3,1:B36861,18,13,"17"?1,2,7:B37871,21,13,"18"@1,1:B38881,21,13,"18"5@1,2,7:B39891,24,13,"19"W@1,3,1:B40901,24,13,"19"y@1,2,7:B41911,12,15,"20"@1,1:B42921,12,15,"20"@ 1,2,7:B43931,15,15,"21"@1,3,1:B44941,15,15,"21"@ 1,2,7:B45951,18,15,"22"!A*1,3,1:B46961,18,15,"22"CA41,2,7:B47971,21,15,"23"cA>1,1:B48981,21,15,"23"AH1,2,7:B49991,24,15,"24"AR1,3,1:B501001,24,15,"24"A\UP4170,4190,4710AfApGJ(GJ$)AzF0GH$"0"4990BF1GH$"01"4990BF2GH$"02"4990.BF3GH$"03"4990EBF4GH$"04"4990\BF5GH$"05"4990sBF6GH$"06"4990BF7GH$"07"4990BF8GH$"08"4990BF9GH$"09"4990BF10GH$"10"4990BF11GH$"11"4990CF12GH$"12"4990CF13GH$"13"49900CF14GH$"14"4990HCF15GH$"15"4990`CF16GH$"16"4990xC$F17GH$"17"4990C.F18GH$"18"4990C8F19GH$"19"4990CBF20GH$"20"4990CLF21GH$"21"4990CVF22GH$"22"4990D`F23GH$"23"4990 DjF24GH$"24"4990*Dt50007D~RU24GJIDBT$GH$5070[DDL$GH$5070mDMN$GH$5070DPL$GH$5070DKG$GH$5070DTR$GH$5070D5080DRU2GJDER$GH$5150DZW$GH$5150DDR$GH$5150ERE$GH$5150EZR$GH$5150%E DR$GH$5150/E5160;ERU3GJcE(KSKSGJ:KSKSRU::KS100005390zE21,1:4,7,4:0,8,4E<(QD$,6)(QR$,7)"SIE HABEN DM "RU" GEWONNEN!"(QD$,4)EF(QR$,6)"IHR KONTOSTAND BELAEUFT SICH"C4$FP(QR$,11)"JETZT AUF DM "KS"."FZKS05280TFdA$:(QD$,5)C3$"MOECHTEN SIE NOCH EINMAL SPIELEN(J/N)?"wFnA$:A$"J"A$"N"5240:5230FxA$"N"5260FGJ$" ":GH$" ":RU0:220FF:F5570FA$:F(QD$,8)G(QR$,5)"SIE HABEN IHR KONTO VERBRAUCHT"C4$;GC3$C3$C3$"MOECHTEN SIE EIN NEUES KONTO(J/N)?"dGA$:A$"J"5340:A$"N"5340:5330tGA$"J":zGGGG:G:(QD$,6)G(QR$,8)"HERZLICHEN GLUECKWUNSCH!"G"(QD$,4)(QR$,8)"SIE HABEN MIT IHREM GE -"#H,C4$C4$(QR$,7)"WINN VON"KS"DM DIE BANK"FH6C4$C4$(QR$,14)"GESPRENGT!!!"qH@A0200:C((2)14)2:CH((1)6)1HJ0,C,CH:A:5470:A$::HT:H^(5)Hh1,739,10:5550Hr1,739,10:5550H|1,739,10:5550H1,739,20H1,770,15:5550 I1,704,15&I1,770,30:1,798,30:8IPA110:(0)GIPA:(5):PI(5)dI1,453,50:5680xI1,453,40:5680I1,453,15:5680I1,453,50:5680I1,571,30:5680I1,516,15:5680I1,516,50:5680I1,453,50:5680I1,383,12J&1,453,50: J0PA020:(0)/J:PA:(5):OJD NACHSPANN ===============oJN * FARBCODES/STEUERCODES *JXC4$(017):C3$(029)JbFL$(130):FO$(132)Jl *** ZEICHENSATZ/GRAPHIK *JvS2$(160):Z2$(163)JZ3$(164):Z4$(165)KZ6$(167):ZA$(171)+KZG$(177):ZH$(178)EKZI$(179):YM$(219)eK ********* ZEICHENFOLGEN *tK Q1 40KQ2$Q2$S2$:QD$QD$C4$KQR$QR$C3$K QKK MINIROULETT ===========16K 060671 BYTES MEMORY ==L 015535 BYTES PROGRAM ==.L 000280 BYTES VARIABLES ==NL  000000 BYTES ARRAYS ==nL 000211 BYTES STRINGS ==L  000000 BYTES FRE(0) ==L* =========================