P>R? !6D:\>m<B<||<~BBB(B@pBB>  B<|> >B~||B~@H|B> >> >>BB"DBBxDDx > >> >J >BB@@BBBD@B>  BB"<BB@DD@   J BB@@<<<<<|5160 2i=9 9 ,7;"= HAPPY JACKPOT =" 4i=11 11 ,7;" 1986 by J.Behner" "i7i13 j=25 (j:i:d(4):d(4)=100d .16,5;"LOAD HAPPY DATA? (J/N)": -0:="j""Happy Data"d():190 "n"180 Cxpos=d(1):xneg=d(2):xsp=d(3):xpot=d(4) INIT&GRAPH-Aufruf * >5300:#0;1,6;"Bitte 2O sec. warten" P5000:#0;1,6;" fuer Spiel ":.5,0 0:"j"220 $5500|:5800:1000 Tastatursteuerung * pl=pr:410 pl=px/3:410 pl=px p=pl1-1:t$= %t$=0fta=0:450 t$=v$fta=1:pr=pr+p: 600X:p=p-2  p:t$="": Risiko-T-Fkt * t$="m"goto=2500 : t$="b"goto=2600( : @t$="v"gub=0gst6gub=1:goto=2400` : XT-Fkt Z!0:fta=1650 bCt$="c"fsa=(fsa-7):fsa:21,2;"S":650 l3t$="m"xso=0fra=(fra-7):660 vZt$="z"frw=(frw-7):frw:21,1;"";21,30;"":650 >t$=32 fbr=1:9 :c1:1,8;">" t$="":fta=1: (fra:21,29;"R":650 Test-T-Control * t$= &t$<480ůt$>579702 0720   Random * *#n=12:850R:n: 4#n=34:850R:n: >n=5:850R HBx(8)=0n=0:zb=1:za=0:870f M0rnd=x(7)/10 +p/px:rnd=rnd-(rnd): RJzb=a(n,13 ):x(6)=0x(n)=0za=1:870f \)rnd=x(n)+(p/px*zb):rnd>zbrnd=rnd-zb a 880p f rnd=+p/px krnd=za+zb*(rnd-(rnd)) pn0f(n)=a(n,(rnd)) u Spielstart * ,xdm>1000add=-300,:4110 %fbr=14000:1040 %xdm<34500:1040 4v$=" ":400:t$=" "fbr=1:4000 93505 :3507 :pr=px:fdk=0:fjp=0 Ngwl=0:gst=0:gub=0:gsu=0:xso=0gsr=0 $1xsp=xsp+1:xpos=xpos+3:adr=0 .1n=15:f(n)=11 :3100 :n 8v$="*":403 B%add=-3:3000 :403 L1.Stop * Np=0:810*: V.n=12:3100 :n:3312 `Af(1)=10 f(2)=10 3200 :1150~ jfsa=01150~ t+v$="c":408:3316 :1180 ~Nachstartchance * v$="c":408:3316 t$"c"1200 1n=12:f(n)=11 :3100 :n fns=1:fdk=0 2.Stop * v$="*":403:3322 v$="b":408:3326 <8204:f(3)+f(4)=20fdk=fdk+1 "n=34:3100 :n fns=01300 Nachstart-Stop * v$="*":403:810* +fns=0:pr=pr-px/2:3280 "n=12:3100 :n 3.Stop * v$="*":403:3332 fdk=21500 (v$="v":408:3336 2.830>:n=5:3100 :1600@ Jackpot-Ausloesung ****  zf=0 p=81-1 !3505 +zf:zf=(zf-2) 6.1}L,6:.1}L,0:.1}L,6 (=0fta=0:p:1545  (t$=:t$"v"600X:p:1545   3507  >3336 :p=p*px/8:830>:n=5:3100 :adr=10 :xso>0adr=30:gsr=gsr+1 Tf(5)=10 gwl=3:gst=8:gfa=8:3405M :2600( ".fjp=2:f(5)7fjp=1 ,!gxs=xso:3600:2690 @Kronencheck * B!f(5)10 1700 J:z=0:i=14:f(i)=10 z=z+1 T?i:z=3xso=9 gwl=3:1670:21004 ^-z<2z=2fdk=11700 hYgwl=2:f(1)+f(3)=20f(2)+f(4)=20gwl=1 r0za=5:zb=9 :1670:2000 9adr=3:xso>0adr=30:gsr=gsr+1  Gewinnanalyse * ,xso>0f(5)71810 -f(5)=9 gzz=8:1850: Wgzz=12 :f(1)=f(3)f(1)=f(5)gzz=f(1):1800 ;f(1)=f(3)f(5)=10 gzz=f(1) If(2)=f(4)f(2)=f(5)gzz=f(2):1800 Vf(2)=f(4)f(5)=10 f(2)9 f(5)10 2600( & 2300 :Prepare 2000 * D gwl=(s(2,gzz)/10 ) N,za=s(2,gzz)-10 *gwl:zb=5 Ausspielung * 8gfa=za:3332 :3405M :t=0:.05|L,t 7p=2*(8/(zb-za))*(zb-za)1-1 gfa=zazf=5 gfa=zbzf=7 )zf=5gfa=gfa+1:3405M )zf=73407O :gfa=gfa-1 t=(t)-5:.05|L,t (=0fta=0:p:2060  #t$=:t$"v"t$"m"600X:p  $zb=gfa:i=zazb:gfa=i:3407O "i:zf=za:2080 :2300  (3336 :p=p*px/16:840H %#i=19 :rndq(zf,i)i * gst=i: 4Tableau-Ausspielung *** 60gwl=3:zf=0:3332 :t=0 >$p=161-1:gfa=p Hgfa>8gfa=gfa-8 R53405M :t=(t)-5:.05|L,t:3407O \(=0fta=0:p:2150f a#t$=:t$"v"t$"m"600X:p f-zf=6:2080 :gfa=gst:3405M pOi=12:.1}L,-6:.1}L,-2:i:.1}L,-6 zgst62600( -3407O :gwl=(g(3,gst)/100d) "gst=g(3,gst)-100d*gwl Risikoschleife *  3322 Fgfa=gst:3405M :gst=9 gst=8gub=12600( =zf=0:.05|L,-1:p=161-1 /fra=7gst<5p<9 2500 5zf=1zf=0:gfa=gst+1:2340$ &zf=1:frw=0gfa=0 frw=7gfa=gst-1 $23405M :.05|L,t(gfa+1):3407O .%=0fta=0:2370B 8t$=:500:t$""goto Bp:2600( `Teil-Uebernahme * b8gfa=gst:3407O :gst=gst-1:gsu=gst:gxs=xso j!gfa=gst:3405M :3326 t#add=g(gwl,gst+1)-g(gwl,gst) ~3700t:2300 Risiko-Gewinn * 1gfa=gst:3407O :p=p*px/16:840H %frw=0gst=12540 2rnd<2/3gst=gst-1:2305 gst=gst+1:2305 rnd.52530 Risiko-Verlust * gfa=0:3405M .i=41-1:.2~L,t(i):i %gst=0:3326 :2700 (Gewinnauszahlung * *B3326 :.4L,2:.4L,4:.4L,0 2`adr=6gst=4add=30:xneg=xneg+30:adr=0:3000 :2700 FDadd=g(gwl,gst):gst<5xneg=xneg+add:3000 :2700 Pgub=0gxs=xso Z 3700t W403:i=13:.2~L,2:.2~L,4:.2~L,0:i Restgewinn * 1pr=px/2:fjp=0gfa=gst:3407O 1adr0add=adr:xneg=xneg+adr:3000 gub=1gst43344 Spielende * xso=01000 =gst>4gxs=0fra=0:660:2850" %xso=1gsr=01000 ?add=-1:3700t:xso=03346 :1000 Fxso=9 xso+gsr=17:5:1,21;xso gst<51000 "Serienstart * ,%fbr=1xdm<32880@ 6;3312 :pr=10 *px:v$="c":400:3316 @Hxpot=0xpot=100d:0:6:18,15;"1" Jpr=0:1000 Muenzspeicher * 0:7 adv=(add) #(add)10 adv=adv*10 add=add-adv:xdm=xdm+adv z=xdm:3900< +1,10 ;x$;1,13 ;y$ -.05|L,-6:add03010  Scheiben * 7:s(1,f(n)) &;n=5f(5)>6f(5)<10 5 0i=02 :4w(4,n)+i,w(5,n);s$(i+1,f(n)):i D(n2n4.1}L,-8 N Jackpot-Add * 56:0:3280 :i=11+fdk #xpot<999xpot=xpot+1 P.1}L,-12 :.1}L,-10 :.1}L,-12 :.1}L,-10 18,15;xpot i:.1}L,-12 : 1f(1)+f(2)=20fdk=fdk+1  Lichtsignale * $z1=9 :z2=8:3360 $z1=9 :z2=8:3365% %z1=9 :z2=22:3360 %z1=9 :z2=22:3365% &z1=12 :z2=15:3360 &z1=12 :z2=15:3365% c3:1:3350 c1 -0:i=02:i,18;"" i:0: c2:3370* %c1 *z1,z2;"": HGewinnfeld * Mc=5:3410R O c=7 R3c:gfa=0-7*(c-7):3440p \#c4:c=7p(gwl,3,gfa) f6p(gwl,1,gfa),p(gwl,2,gfa);p$(gwl,gfa): p119,28*(gwl-1)+1;"OO": Lichtleiter * c=5:3510 c=7 c:0:c=57 019,1;"OO";19,29;"OO" 8i=19 :c4:c=7p(1,3,i) :p(1,1,i),p(1,2,i);p$(1,i) :p(2,1,i),p(2,2,i);p$(2,i) i: Jackpot-SSp * /5:0:18,14;"";xpot 6.4L,2:.4L,4:.4L,0 !xpot=999xpot=1000 $Ai=xpot(xpot-(xpot/100d)*100d+1)-fjp*10 .+j=2fjp*10 2:z$=(i-j) 8$z$<3z$="0"+z$:36408 B<5:18,15;z$:j:add=1:3700t Lxso=110n3680` V).05|L,2:.05|L,4:i `4xpot=0:6:18,14;"000": tSSp-Zaehler * v0:7 ~6xso=109madd>0xso=110n:3760  xso=xso+(add):add=add-(add) z=10 *xso:3900< )1,20;x$:.05|L,0 add03710~  <$-Format Graphik > x$=(z) Fx$=1x$="0"+x$() Kx$=2x$=" "+x$() P)x$=4x$=""+x$(34) d*y$=x$(3):x$=x$(12): Break-Menue * c1:1,8;"" 5750v:0 #16,10 ;"BREAK Menue" #17,8;"(1) Rueckgabe"  18,8;"(2) Bilanz" 19,8;"(3) SAVE" 20,8;"(0) Spiel" 7p=110 *px:t$=:t$=12 6500d &t$<480ůt$>513p:t$="0" -t$="0"xdm<3fbr=0:4510 #t$="0"5800:fbr=0: (5750v:4000+(t$)*100d Rueckgabe * #xdm>0add=-xdm:4120  418,7;"Speicher ist leer!":4350 J5750v:0:16,8;"Teilrueckgabe #";fko:4125 &16,10 ;"Rueckgabe #";fko I18,9 ;"Ist";19,9 ;"Add";20,9 ;"Neu" "/z=k(fko):4900$:z1=18:4190^ ,-z=-add:4900$:z1=19:4190^ 6k(fko)=k(fko)-add:3000 @/z=k(fko):4900$:z1=20:4190^ Jfbr=14350 T&p=1120x:p:5800: ^"z1,18-z;x$;".";y$;" DM": hBilanz * j16,13 ;"BILANZ" m=17,8;"Spiele";17,24-((xsp));xsp r0z=xpos:4900$:18,8;"Ein:DM" |$18,21-z;"+";x$;".";y$ 0z=xneg:4900$:19,8;"Aus:DM" $19,21-z;"-";x$;".";y$ %xpos=0z=0:4260 z=(xneg/xpos*1000) (4900$:20,8;"Quote:" -20,22-z;x$;".";y$(1);"%"  4350 *  x(9 )04005 71;18,9 ;"S";0;" fuer SAVE" =""4310 "s"4005 Cd(1)=xpos:d(2)=xneg:d(3)=xsp:d(4)=xpot "Happy Data"d() !0:0:::0: Warteschleife * )p=110 *px:""4005 p:t$="0":4050 ME-Menue * Cp=12*px:=""p:3505 :3507 :4502 85750v:0:16,10 ;"Muenzeinwurf" #17,10 ;"Ihr Konto #?" !19,11 ;"(Break: 0)" 1xdm>020,9 ;"(Rueckgabe: R)" 0p=110 *px:t$=:t$=""4545 9t$="r"xdm>0fbr=1:5750v:4100 't$>47/Ưt$<58:4550 p:5800:4502 !t$="0"fbr=1:4000 fko=(t$):5750v .15,12 ;"KONTO #";fko:4695W 61;17,8;"C";18,8;"V" %17,10 ;"fuer Muenzwahl" :18,10 ;"fuer Einwurf";20,9 ;"DM" Ai=15:4690R:w(3,i),12 ,7:i Muenzeinwurf * (i=15:5:4690R p=110 *px:t$=  t$"c"t$"v"p:46604 )t$="c"0:4690R:4670>  =add=w(1,i):k(fko)=k(fko)-add:3000 :4695W *xdm<100d4610 4 0:4690R:i=5 >i:xdm<34510 H5800: R 20,w(2,i);w$(i): WPz=k(fko):4900$:16,11 ;"DM";16,19-z;x$;".";y$: $$-Format Break * & x$=((z)) .x$=1x$="0"+x$ 8z<0x$="-"+x$ Bz=x$ Ly$=x$(z)+"0" Vx$=x$(z-1): INIT * 4xdm=0:xso=0:fko=0:gsr=0 'fra=0:fsa=0:fns=0 'frw=0:fbr=0:fta=0 i=121:z$ j=07:z z$+j,z:j:i 8k(9 ):f(5):x(9 ):q(6,9 ) Mg(3,9 ):p$(3,9 ,2):p(3,3,9 ) Tw$(5):w(5,5):s$(3,11 ,2):s(2,11 ) "a(5,13 ):t(10 ) 4i=16:j=19 :q(i,j):j:i 1i=13:k=19 :g(i,k):k k=19 :p$(i,k):k 0j=13:k=19 :p(i,j,k)  k:j:i i=15:w$(i):i 4i=15:j=15:w(i,j):j:i 6i=13:j=111 :s$(i,j):j:i 5i=12:j=111 :s(i,j):j:i  5i=15:j=113 :a(i,j):j:i i=110 :t(i):i =c1=2:c2=4:c3=4:c4=7:px=480 ( Kurzanleitung * ?6:6:0::1,9 ;"AKTIONSTASTEN" 61:3,4;" ZCVBMBreak" W5,1;"C";9 ,1;"V";13 ,1;"B";16,1;"M" :18,1;"Z";21,1;"Break":0 +5,3;"START (linke Scheiben)" ,6,3;"Start nach Seriengewinn" $7,3;"Start-Automatik" )9 ,3;"STOP (Mittelscheibe)" &10 ,3;"Ausspielungsstop" +11 ,3;"Teilgewinn-Uebernahme" ,13 ,3;"STOP (rechte Scheiben)" -14,3;"Volle Gewinn-Uebernahme" /16,3;"RISIKO / Risiko-Automatik" 818,3;"Risiko-Wahl ( / )":2 E18,16;"5O:5O";19,4;"dopp:nichts":1 D18,22;"33:67";19,18;"dopp:halb":0  E19,3;"(";19,16;"/";19,27;")" +21,7;"Rueckgabe/Bilanz/SAVE"  |GRAPH * c1:c1::7:0 20,0;"";0,28;"" 1i=119:j=02828 i,j;"":j:i 420,0;"";20,28;"" 421,0;"";21,28;"" ?i=15628-16:j=4228224 <j,i:23,0:j,i-1:23,0:j:i K4,91[:0,-63?:27,91[:0,-63? N228,91[:0,-63?:251,91[:0,-63? 50,9 ;"";0,19;"" 51,9 ;"";1,19;"" 52,9 ;"";2,19;"" M99c,156:0,15:100d,156:0,15 71;1,6;"DM";1,24;"SP" Fi=15:w(4,i)-1,w(5,i)-1;"" @j=02:w(4,i)+j,w(5,i)-1;"" 9j:w(4,i)+3,w(5,i)-1;"":i ?i=9 1-1:j=12:p(j,3,i) 0p(j,1,i),p(j,2,i);p$(j,i,):j:i 90:19,1;"OO";19,29;"OO" !D1,11 ;"0";1,13 ;"00";1,21;"0" &3n=15:f(n)=10 :3100 :n: vTableau leer * x7:i=1521 &i,6;"":i  Tableau * c1:i=1521 &i,6;"":i -7:0:15,14;"" #16,10 ;"" *17,6;"" *18,6;"" *19,6;"" #20,10 ;"" 21,14;"" K84T,28:23,0:148,28:23,0 K84T,27:23,0:148,27:23,0 1:i=18 =p(3,1,i),p(3,2,i);p$(3,i):i /0:6:18,14;"";xpot  pGraphics * rL"a",0,78N,209,81Q,81Q,81Q,78N,0 tQ"b",0,158,163,165,169,177,158,0 vM"c",0,198,41),73I,137,230,0,0 xN"d",0,102f,169,169,233,38&,0,0 zN"e",0,230,137,201,41),198,0,0 |O"f",0,102f,137,233,169,230,0,0 ~L"g",0,118v,21,21,22,84T,36$,0 M"h",24,60<,126~,0,126~,60<,24,0 F"i",0,0,0,0,1,3,1,15 M"j",0,0,0,0,128,192,128,240 U"k",121y,209,145,145,153,137,201,105i U"l",158,139,137,137,153,145,147,150 I"m",63?,41),41),63?,0,0,0,0 M"n",252,148,148,252,0,0,0,0 K"o",0,3,12 ,16,32 ,36$,77M,69E L"p",0,192,480,8,4,228,18,18 M"q",69E,71G,44,,480,32 ,36$,77M,69E N"r",18,210,524,12 ,4,228,18,18 K"s",69E,69E,36$,32 ,16,12 ,3,0 L"t",18,18,228,4,8,480,192,0 Q"u",170,85U,170,85U,170,85U,170,85U q * Q.75@,.95s333,.98zG,.99}p,1,1,1,1,1 N0,.8L,.95s333,.98zG,1,1,1,1,1 M0,0,.85Y,.95s333,1,1,1,1,1 J0,0,0,.9ffff,1,1,1,1,1 P0,0,0,0,.9ffff,.95s333,.98zG,.99}p,1 W.85Y,.89c =,.93nz,.95s333,.97xQ,.98zG,.99}p,1,1 g,p$,p * M2,4,8,16,2,5,10 ,20,40( ."2O","4O","8O","1","=2","=5","1O","2O","4O" M17,15,13 ,11 ,9 ,7,5,3,1 I1,1,1,1,1,1,1,1,1 I2,2,2,2,1,1,1,1,1 N3,6,12 ,24,3,6,12 ,25,502 ."3O","6O","1","2","=3","=6","12","25","5O" M17,15,13 ,11 ,9 ,7,5,3,1 R29,29,29,29,29,29,29,29,29 I2,2,2,2,1,1,1,1,1 W106j,107k,207,108l,208,40(,502,100d,0 ."=5","1O","12","2O","25","4O","5O","O"," " Q20,19,19,18,18,17,17,16,0 P15,11 ,19,7,23,11 ,19,15,0 I1,1,1,1,1,1,1,1,0 w$,w * "5","2","1","","" ,502,20,10 ,5,1 .13 ,15,17,19,21 3108l,124|,140,156,172 +5,11 ,5,11 ,8 ,8,8,22,22,15 s$,s * 8"","","","","","","","","","","" 8"2","1","1","8O","6O","4O","3O","2O","","","" 8"","","","","","","","","","","" Y0,1,4,5,2,3,0,1,0,1,0 a24,14,23,13 ,22,12 ,21,11 ,0,0,0 a * j7,2,10 ,1,7,4,7,3,0,0,0,0,8  j8,5,10 ,6,8,0,0,0,0,0,0,0,5  j7,2,10 ,1,7,4,7,3,0,0,0,0,8 j8,5,10 ,6,8,0,0,0,0,0,0,0,5 k8,2,10 ,1,8,6,7,3,9 ,4,7,5,12 t * U0,2,4,5,7,9 ,11 ,12 ,14,16 dTest * f>720:v$="test":i=14:j=1200 n"t$=:t$=0j:4005 xt$v$(i)4005 "720:i:x(9 )=1 ,5750v:1;15,6;"T" Test F * J15,10 ;"F ";x(6);" N0 >":700:x(6)=t$ +15,21;t$:t$="0"6680 \i=15:16+i,10 ;"F";i;" ";x(i);16+i,17;a(i,13 ) *700:t$>a(i,13 )6630 416+i,20;">";t$:i<56670 v$=t$:700:t$=v$+t$ >t$>a(5,13 )21,21;" ":6630  21,21;t$  x(i)=t$:i $700:5750v:z1=15 " 1;15,6;"T" ,Test SP * .+15,10 ;"SP N0 >":700 6+15,19;t$:t$="0"6800 @Nz1=16:16,10 ;"xso ";xso;16,18;">":z=0 JHi=12:700:z=(z+t$*10 ^(2-i)+.1}L) T:16,18+i;t$:i:xso=z:z16770r ^Nz1=17:17,10 ;"gsr ";gsr;17,18;">":700 h gsr=t$:17,19;t$ r@0:xso=9 xso=1gsr=07:5 |2z=10 *xso:3900<:1,20;x$ -3346 -(xso)*2:0:7 Test JP * 4z1=z1+1:z1,10 ;"JP N0 >":700 %z1,19;t$:t$="0"6900 :z1=z1+1:z1,10 ;"pot ";xpot;z1,18;">" z=0:i=13 )700:i=1t$="0"6840 *z=(z+t$*10 ^(3-i)+.1}L) z1,18+i;t$:i:xpot=z Test R * )z1=z1+1:z1,10 ;"R N0 >" 700:x(8)=t$ %z1,19;t$:t$="0"6990N 8z1=z1+1:z1,10 ;"rnd 0.";x(7);" >0." ,700:x(7)=t$:z1,21;t$ N700:4005 XQThis program is dedicated to Claudia Raschke @B 1986 by Joerg Behner ' Hilfsprogramm Speicher 'o"Freier Speicherbereich:";(23730\+256*23731\-23649a\-256*23650b\)+229 'm"Laenge des Programms:";(23641Y\+256*23642Z\-23635S\-256*23636T\)-229  nnd  HAPPY JACKtri _ HAPPY JACKtri P P PMƱ3S^MQq>3^MPv>NQQQN)If&)fvT$<~~<yёi?))?  $ME0EG,0 $ME4 EE$  0UUUU