j!4?&45D:\6812345>;6,0;" ":v1=16:10 :1540 pdisc>94^2;6;1;1;7,0;" ":v1=14:10 :1540 pdisc>87W2;6;1;1;8,0;" ":v1=12 :10 :1540 pdisc>79O2;6;1;1;9 ,0;" ":v1=10 :10 :1540 a2;6;1;1;10 ,0;" ":v1=8:10 :1540 Ausspielung links  1460 i=118 a:.1}L,a disc=(*6) D0;6;1;1;disc+10 ,0;" " D6;2;1;1;disc+10 ,0;" " ""1448 i disc=(*100d) fdisc>98b2;6;1;1;10 ,0;" ":v1=8:1540 fdisc>97a2;6;1;1;12 ,0;" ":v1=6:1540 fdisc>85U2;6;1;1;13 ,0;" ":v1=4:1540 fdisc>64@2;6;1;1;14,0;" ":v1=2:1540 a2;6;1;1;15,0;" ":v1=0:30:1540 31,28,24,26,23,19,24,21,17,19,16,12 ,14,11 ,12 ,16,19,24 Ausspielung rechts  1460 i=118 a:.1}L,a disc=(*6) E0;6;1;1;disc+10 ,26;" " E6;2;1;1;disc+10 ,26;" " ""1488 i disc=(*100d) gdisc>98b2;6;1;1;10 ,26;" ":v1=9 :1540 qdisc>97a2;6;1;1;11 ,26;" ":v1=7:10 :1540 qdisc>84T2;6;1;1;13 ,26;" ":v1=5:10 :1540 qdisc>63?2;6;1;1;14,26;" ":v1=3:10 :1540 b2;6;1;1;15,26;" ":v1=1:30:1540 Ausspielungsmelodie DISC  1510 ).75@,4,.25~,3,.25~,4,.25~,7,.75@,12 ,.25~,12 ,.25~,11 ,.25~,12 ,.25~,14,.25~,12 ,.25~,11 ,.25~,12 ,.25~,4,.25~,7,.75@,11 ,69E,0 ).75@,5,.25~,4,.25~,5,.25~,7,.75@,11 ,.25~,11 ,.25~,10 ,.25~,11 ,.25~,12 ,.25~,11 ,.25~,10 ,.25~,11 ,.25~,5,.25~,11 ,.75@,4,69E,0 ).75@,4,.25~,3,.25~,4,.25~,7,.75@,12 ,.25~,12 ,.25~,11 ,.25~,12 ,.25~,11 ,.25~,12 ,.25~,11 ,.25~,12 ,.25~,6,.25~,12 ,.75@,5,69E,0 /.75@,9 ,.25~,14,.25~,17,.25~,21,.75@,19,.25~,19,.25~,17,.25~,16,.25~,14,.25~,12 ,.25~,11 ,.25~,9 ,.25~,11 ,.25~,14,.75@,12 ,.25~,12 i=164@ a,b "a=69E20:1527 a,b i   zxc=0  sdf=0 posi=14-v1/2 01;1;21,24;" "  Zzxc=0v19 2;7;1;1;21,24;"Haelfte"  .v1-(v1/2)*201605E  40( posi=5sdf=0so=100d:1900l:10 :1900l:10 :1900l:10 :30:1500:1800 v16posi=posi-1 i=19 ;6;0;1;1;posi,0;" " -=104hŦ=114ri$=:1690 $0.353333,(v1*1.5@)+1 ;2;6;1;1;posi,0;" " -=104hŦ=114ri$=:1690  ?6;0;1;1;17,0;" " !0.3,v1-2 %-=104hŦ=114ri$=:1690 '?2;6;1;1;17,0;" " ,i . 20 /I.1}L,0:.1}L,4:.1}L,7:.1}L,12 0 502 1Ausgaberoutine 6=posi=14sdf=0a=3:1650r:540 71posi=14a=4:1650r:540 8=posi=13 sdf=0a=6:1650r:540 91posi=13 a=8:1650r:540 :>posi=12 sdf=0a=12 :1650r:540 ;>posi=11 sdf=1a=16:1650r:540 0sdf=0a=30:1650r:540 =>posi=10 sdf=0a=24:1650r:540 >posi10 1760 @ 80P C 540 E sdf=1 F$posi=14-(v1-1)/2 Gposi=6sdf=1so=90Z:1900l:10 :1900l:10 :1900l:30:1500:1800 Hv15posi=posi-1 Ji=19 K<6;0;1;1;posi,26;" " L-=104hŦ=114ri$=:1690 M$0.353333,(v1*1.5@)+1 N<2;6;1;1;posi,26;" " O-=104hŦ=114ri$=:1690 P@6;0;1;1;17,26;" " Q0.3,v1-2 R-=104hŦ=114ri$=:1690 S@2;6;1;1;17,26;" " Ti Y 15851 r i=1a w0.01z# =,-6 |dm=dm+10 rdm<10001;7;1;1,17;" ";(dm/100d);".";dm-(dm/100d)*100d ndm10001;7;1;1,17;(dm/100d);".";dm-(dm/100d)*100d i  30: Risiko betaetigt  ghj=0 &zxc=1zxc=0:1693 v19 i$="h"6;0;1;1;17,0;" ":6;0;1;1;17,26;" ":2000  as=26 sdf=0as=0 disc=(*100d) disc>4911730 usr=52880 :6;0;1;1;17,as;" " :.25~,12 :.25~,9 :.25~,5 j=1100d:j son>01855?  540 -6;2;1;posi,as;" " :1;1;6;1;17,as;" " v1=v1+2 J.1}L,0:.1}L,7:.1}L,12 :.1}L,19 21,24;" "  20  1541 >posi=9 sdf=0so=3:1900l:1800 ?posi=10 sdf=1so=2:1900l:1800 >posi=8sdf=0so=6:1900l:1800 >posi=9 sdf=1so=5:1900l:1800 ?posi=8sdf=1so=10 :1900l:1800 ?posi=6sdf=0so=25:1900l:1800 ?posi=7sdf=1so=20:1900l:1800 ?posi=5sdf=0so=502:1900l:1800 ?posi=6sdf=1so=40(:1900l:1800 ?posi=7sdf=0so=12 :1900l:1800  540 !Aufzaehlen der Sonderspiele t=110 :t  i=1so son=son+1 ^son>110n1900l:502:1900l:502:1900l:100d:1855? .05|L,12 & 452 0i 5ghj=1 : 502 ?i=16 D%dm=dm+10 :.05|L,-15 Irdm<10001;7;1;1,17;" ";(dm/100d);".";dm-(dm/100d)*100d Nndm10001;7;1;1,17;(dm/100d);".";dm-(dm/100d)*100d X.01z# =,0 ]i b 540 l 1905q qv0,4,7,12 ,60<,0,4,7,12 ,60<,0,4,7,12 vi=114 a "a>50210 :1950  0.1}L,a i  ,Annahme der Haelfte der Sonderspiele  ghj=1  zxc=1 61;6;1;1;posi,as;" " ځposi=6sdf=0v1=v1-2:so=13 :1900l:posi=posi+1:30:1800:30:1541 ߀posi=9 sdf=1v1=v1-2:so=3:1900l:posi=posi+1:30:1800:30:1541 :v1=v1-2:posi=posi+1:1760:1541 4 Auszahlung 6+#1;1;0,27;" " 7sd=(dm/100d) 87((dm-(sd)*100d)/100d)=0sd=0 9i=1100d:i >i=dmsd+100d-100d H.1}L,0 Rdm=dm-100d \rdm<10001;7;1;1,17;" ";(dm/100d);".";dm-(dm/100d)*100d fndm10001;7;1;1,17;(dm/100d);".";dm-(dm/100d)*100d pi rkj=1 ui=140(:i zi=dm10 -10 dm=dm-10 .1}L,7 c1;7;1;1,17;" ";(dm/100d);".";dm-(dm/100d)*100d i i=1502:i L.2~L,12 :.2~L,16:.2~L,19:.2~L,24  100d  25  kj=1 sd=5000 E1;7;1;1;21,22;"AUSZAHLUNG"  2110> 31;1;21,22;" "  1373],18466,1346B,2314 ,23586 ,2120H,2343' ,0989,3222 ,2329 ,2806 ,1903o,0936,2388T ,2325 ,2492 2367? ,1131k,2514 ,2688 ,2520 ,2473 ,0890z,2584 ,1724,1150~,0448,03084,2748 ,1812,1150~,0448 0410,2409i ,1962,2147c,0927,0489,2949 ,4564,4512,3617!,0872h,4865,3752,3591,4934F,1416 2822 ,2761 ,2586 ,2683{ ,1409,3763,2729 ,3375/ ,2256,0729,2127O,1954,3727,2246,2263,3421] 3340 ,2373E ,3234 ,33760 ,2226,2368@ ,2666j ,2551 ,2159o,2799 ,3764,4425I,2591 ,3784,3512 ,3016 3794,3026 ,3723,3003 ,2729 ,2876< ,1441,1259,1868L,1669,1808,1967,2163s,00502,0195,0910 `Pruefroutine e:"Diese Pruefroutine dauert etwa 5 Minuten.Sie deckt eventuelle Eingabefehler auf,gibt dabei den Fehlerbereich bis auf 32 Bytes eingeschraenkt,an." j 2300 ox=50000P ti=11852 yq:su=0 ~o=132 :su=su+x x=x+1:o suq2470 i 4:10 ,2;"Die gesamte Eingabe ist o.k." H14,2;"Starten Sie das Programm mit  GOTO 17"  :" EINGABEFEHLER" &::"Sie haben entweder das Data in"  Č"Zeile ";2300+(i/32 )*2;" ,Stelle ";((i-1)/32 -(i/32 ))*16+1;" falsch eingegeben ,":: j:"oder die Dateneingabe in die":::" Stellen ";x-32 ;" bis ";x-1:" ist nicht richtig" l:"Bitte pruefen Sie mit Bedienen der Taste D das DATA oder mit der Taste B die Byteeingabe" =""2530 ="b"2600( ="d"2560 2530 72300+(i/32 )*2:0:2470 ((r=x-32 x-1:r;" : ";r:r - 0 2 2470 su=0 3341 i=65368X65479 a i,a  su=su+a i 9 ,5,3,15,3,3,5,9 ,16,32 ,192,240,192,192,32 ,16 145,82R,60<,255,60<,60<,82R,137,0,101e,85U,85U,84T,84T,101e,0 0,206,16,208,80P,80P,206,0,0,238,138,234,42*,42*,238,0 0,139,202,170,154,154,139,0,0,30,144,92\,92\,144,30,0 0,224,144,224,160,144,136,0,0,0,0,15,15,0,0,0 0,0,0,240,240,0,0,0,146,0,73I,0,146,0,73I,0 0,78N,74J,74J,74J,74J,78N,0,0,112p,80P,80P,80P,80P,112p,0,0 -su8579!"Fehler in der Eingabe ! ": "Byteeingabe ist O.K. !" * 4 3400H >i=52745 52763 Ca:i,a Hi R33!,153,202,546,0,33!,145,202,201,0,33!,153,202,546,1,33!,159,202,201 W:6;0,0;" ";7;" Speicher ";6;" " J6;" ";7;" 000 00.00 ";6;"" A2;6;"";1;" ";2,26;" " "i=3:j=6:4060 #i=3:j=18:4060 #i=7:j=12 :4060 #i=11 :j=6:4060 $i=11 :j=18:4060  4090 "0;7;i,j;"" *0;7;i+1,j;" " *0;7;i+2,j;" " *0;7;i+3,j;" " *0;7;i+4,j;" " *0;7;i+5,j;""  !2;5,1;"100" 82;6,1;" 50";6,28;"90" 82;7,1;" 25";7,28;"40"  82;8,1;" 12";8,28;"20" 82;9 ,1;" 6";9 ,28;"10" :2;10 ,1;" 3";10 ,28;" 5" "2;11 ,28;" 2" #2;12 ,1;"2.40" "=2;13 ,1;"1.20";13 ,27;"1.60" '=2;14,1;"0.60";14,27;"0.80" ,=2;15,1;"0.30";15,27;"0.40" 6?0;17,0;"NICHT";17,26;"NICHT" @+6;0;19,15;"" JY6;0;20,13 ;"10";2;6;"";6;0;"25" O$6;21,5;" " T]6;0;21,11 ;"90";2;6;"";6;0;"40" Y(#1;6;0,7;"C" ^a#1;6;0;0,13 ;"50";2;6;"";6;0;"12" cM#1;2;6;1,5;"";1;" ";6;"" h3#1;6;0;1,15;"20" r #("DISC"1 #21,8 #F&"mc-program"50000P,15000: #ni=1400:i #x 17 s"" ]mc-program:P(O DISC UcHb -]-!=*3!2)4,4e3X'e3X'{Rv>zFz|zFz|zFz{yxUyxryUyNyx     y|Fyz{zNyxzU?x<px8`<888`<<pxx?x?xpx`<88888<888???88888`<8px8x8?8?xpx<`<888888889;?><888888`<pxx??x<<px8`<88888<<xx<<888888`<<<pxx?x<0~xfxf8888888px8~x8~0888888888888888888x0>x&x``8`8|8~8f8f8fx8|48<$8<d<D<D<~<|xxx0<<?8?8?8     `08`p<|<~~?ߟϟ׏|>~|8`p 8`0    ?2> HB=(B:=(2>k ~! Yw#  !~(Z!@>s#   B= !N !!Hˎ!X:w#   !N !!Yˎv(Z!@>s#   B= !N !!Hˎ!X:w#   !N !!Yˎn(4! H>s#   B= ! Y:w#   !^(#STOP>>>>>> < !V($START>>>>>>6< !^  >>>>a< !V >>>>a< !f(˷O( !:o:g+$%}2|2 !6#6d#6 !6O###6!6#6@!6#6X͞!6g!6H!6Y͞!6t#6#6 N(=!6#6d#6 6O###6!6#6@!6#6X͞!6g!6H!6Y͞!6`#6#6 !6x#6#6 !6O###6!6#6@!6#6X͞!6g!6H!6Y͞!6 #6#6 !68#6x#6 !68#6#6 !6###6!6 #6H!6 #6Y͞!6#6 #6 !6!!6!$!@!oZ6#6!Z6#6!Z6#6!Z6#6!Z6#6!Z6#6!Z6#6!Z6#6 !X6r#  (6p#  !X6r#  (6p# >>>>`< MERKUR DISC Dieses Programm simuliert den Geldspielautomaten MERKUR DISC. Gegenueber dem Original unter- scheidet sich das Programm lediglich im Aeusseren , sowie durch die Tasten Startautomatik und Risikoautomatik , die dem Programm fehlen (Man kann sie naemlich gut entbehren) .G Die Tastaturbelegung :. a - Ein- sowie Ausgabe r - Risikotaste s - Start/Stop - Taste h - TeilgewinnannahmeS  by Thomas Krueger! P P P 88 M/W.W\GWq !Ov>>BB<DHpHDB@~BfZBBBBbRJFB<< x| <B~|DB|x><<< <@@| @<@< |  f@BHBBD@B D8888B8<8hh8hD888xB88x88D88h888xf@BHBBD@BB8<8xD8 88hB<x8Dx888@8888@88B8<8hh8<@hB8D8888x88D8D@88888x@8888D88h88(DxB8(88D88h88(88h Z|BpBBB<@ B0D@D@B DD TT@0TD0D 8 DxDx8 DD<8| DD << x8<<<<@D>8DTx~D8D<"x >|80D<8x @ D< DTT@D@DBDD(DDD@DD@T D< DD><8x D>xDxTDD#1;1;1;7;0,26;"FREI" t=""110n xi$= {*i$="E"son=5:30:100d }Ki$="1"i$="2"i$="3"i$="4"i$="5"i$="6"i$="7"i$="8"i$="9"130  17 i=1(i$) dm=dm+100d rdm<10001;7;1;1,17;"0";(dm/100d);".";dm-(dm/100d)*100d ndm10001;7;1;1,17;(dm/100d);".";dm-(dm/100d)*100d 0.01z# =,-12 i Spielstart dm<30100d  452 usr=52812L usr=52880 S1;21,25;" ":#1;1;0,26;" "  kj=0 son>110nson=111o dm9000(#2200 5Einlesen der Zufallszahlen fuer das MC-Programm 51850,(*12 ) 51860,(*12 ) 51851,(*12 ) 51852,(*12 ) bson>01;2;7;1;3,13 ;"SERIE":452:445 -1;1;3,13 ;" " @son07;1;1;1,8;" 0" sond=0 son>0sond=1  460 Dson<10 1;1;7;1,8;" ";son Qson<100dson10 1;1;7;1,8;" ";son ?son>99c1;1;7;1,8;son  usr=52440 i=13 %dm=dm-10 :.05|L,-15 rdm<10001;7;1;1,17;" ";(dm/100d);".";dm-(dm/100d)*100d ndm10001;7;1;1,17;(dm/100d);".";dm-(dm/100d)*100d i  1000 sond=0545! son>0son=son-1 !Wson>01;2;7;1;3,13 ;"SERIE":452 "21,24;" " #+#1;1;0,27;" " $F#1;1;1;7;1;0,27;"out" &t=1250 )="a"21004 +="e"100d -t .+#1;1;0,27;" " 0 400 Gewinnauswertung posi=17:so=1 Einlesen der Symbolcodes  v1=(50000P+51850)  v2=(50000P+51851)  v3=(50048+51852)  v4=(50024h+51850)  v5=(50024h+51851) V51865=1v1=(50000P+51860):v4=(50024h+51860) $.v1=7v2=7v3=71110V .son>01140t 8i=60-1 :Si=1(v1=1v2=1)(v3=10 v3=7v3=1)1470 1(v1=iv2=i)(v3=iv3=7)v1=i:1540 @1(v4=iv5=i)(v3=iv3=7)v1=i:1540 Bi Gv3=71430 J 502 L 540 V#v4=8v5=81230 `#v4=8v5=81390n j 13302 s"Auswertung bei Sonderspielen t kon=1 ~<son>9 (v3=9 v3=10 )30:1152  1160 i=13 '0.15~,-10 :dm=dm+100d rdm<10001;7;1;1,17;" ";(dm/100d);".";dm-(dm/100d)*100d ndm10001;7;1;1,17;(dm/100d);".";dm-(dm/100d)*100d i 502:540 Gson>9 v1=v2v3=v1son>9 v4=v5v3=v430:1152 1v1=v2v3=v1v4=v5v3=v4v1=6:1540 4v3=7(son=13 son=17)13302 ;v3=7v3=9 v3=10 v1=6:1540  540 DISC-Ausspielung  1256  i=568 i=i-1:a,b:a,b V23279Z,58::23280Z,58::23249Z,6:23250Z,6 i=i-1:a,b:a,b V23245Z,58::23246Z,58::23279Z,6:23280Z,6 i=i-1:a,b:a,b V23211Z,58::23212Z,58::23245Z,6:23246Z,6 i=i-1:a,b:a,b V23181Z,58::23182Z,58::23211Z,6:23212Z,6 ""1270 i=i-1:a,b:a,b V23151oZ,58::23152pZ,58::23181Z,6:23182Z,6 i=i-1:a,b:a,b V23185Z,58::23186Z,58::23151oZ,6:23152pZ,6 i=i-1:a,b:a,b V23219Z,58::23220Z,58::23185Z,6:23186Z,6 i=i-1:a,b:a,b V23249Z,58::23250Z,58::23219Z,6:23220Z,6 ""1270 i=01270  1233 i .3,0,.1}L,4,.1}L,0,.1}L,4,.1}L,9 ,.1}L,5,.1}L,9 ,.3,12 ,.1}L,14,.1}L,9 ,.1}L,7,.1}L,4,.3,7,.1}L,9 ,.1}L,12 ,.3,14,.1}L,16,.1}L,12 ,.1}L,9 ,.3,7,.1}L,9 ,.1}L,12 ,.1}L,9 ,.1}L,7,.1}L,4,.1}L,2,.1}L,0 .1}L,4,.1}L,0,.1}L,4,.1}L,9 ,.1}L,5,.1}L,9 ,.3,12 ,.1}L,14,.1}L,9 ,.1}L,7,.1}L,4,.3,7,.1}L,9 ,.1}L,12 ,.3,14,.1}L,16,.1}L,12 ,.1}L,9 ,.3,7,.1}L,9 ,.1}L,12 ,.1}L,9 ,.1}L,7,.1}L,4,.1}L,2,.1}L,0,.1}L,2,.1}L,0,.1}L,-2,.1}L,0 usr=52812L disc=(*100d) sdisc>97adisc=100d:23151oZ,186:23152pZ,186:1500:so=100d:1800 qdisc>95_disc=90Z:23211Z,186:23212Z,186:1500:so=90Z:1800 edisc>92\disc=502:23245Z,186:23246Z,186:v1=16:1540 edisc>89Ydisc=40(:23219Z,186:23220Z,186:v1=15:1540 edisc>85Udisc=25:23185Z,186:23186Z,186:v1=14:1540  edisc>81Qdisc=20:23279Z,186:23280Z,186:v1=13 :1540 edisc>40(disc=12 :23249Z,186:23250Z,186:v1=12 :1540 (Vdisc=10 :23181Z,186:23182Z,186:v1=11 :1540 2kl. Ausspielung 7 1382f <i=134" Aa C .1}L,a Fdisc=(*6) PD0;6;1;1;disc+6,26;" " Q 1 RD6;2;1;1;disc+6,26;" " S""1368X Ui Xdisc=(*100d) Zsdisc>98b2;6;1;1;6,26;" ":1500:so=90Z:1800 \qdisc>97a2;6;1;1;7,26;" ":v1=15:10 :1540 ^qdisc>94^2;6;1;1;8,26;" ":v1=13 :10 :1540 `qdisc>87W2;6;1;1;9 ,26;" ":v1=11 :10 :1540 bqdisc>79O2;6;1;1;10 ,26;" ":v1=0:10 :1540 db2;6;1;1;11 ,26;" ":v1=7:10 :1540 f+19,16,12 ,14,11 ,7,9 ,5,2,26,23,19,23,19,16,19,16,12 ,14,11 ,7,12 ,9 ,5,19,16,12 ,14,11 ,7,12 ,16,19,24 ngrosse Ausspielung p 1382f ri=134" va x .1}L,a zdisc=(*6) |C0;6;1;1;disc+5,0;" " } 1 ~C6;2;1;1;disc+5,0;" " ""1412 i disc=(*100d) sdisc>98b2;2;1;1;5,0;" ":1500:so=100d:1800 pdisc>97a2;6;1;1