MAKAO w2wy* MAKAO  1985 by A.Mielczarek  2E:23739\,111o:"":"":"":23739\,111o:"" M4 dwgf|;; *=\s#rv͎{ ::\ ( ((<2\6!'"B\!"D\;;}͎{ ͎ 0OGPM3 PXwR>*"ww>>>IILRRRRLIk>@HP`@~BB~BBB>>BB<M2 @wP"""""""""""""""""""""""""wwwwwwwwwwwwwwwwwwwwwwwwwww>>>>>wwwwwww>>>>wwwww>>>>wwwww>>>>>>>wwww>>>>wwIIIIIIIIIIIIII>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>III***II**II**IIIII*****II**"""""""""<wwwwwwwwwB<<~ww>>>>wwww>>>>www(BB@IIIIB<|>>>>>>>>>>>>>>BII**II**BBB><<<???< <B ~B<|~<|BB<  DBf8|88($@B@BBBfB(  8204  500 2k$=m$(m):m=m-1:n$(1)=k$:n=1 4k$(1)="2"k$(1)="3"kara=k$(1) k$="K"kara=5 $ 840H % 860\ & ost=daje 'k$="J*"l$=" ":k$=l$ (6i=110 :.05|L,-10 +i*3:i n3jed=0:fik=0:(110n+OST*2) pNz=a:i=1a:z$(i)=a$(i):i:1;12 ,7;"A-":120x rNz=b:i=1b:z$(i)=b$(i):i:1;8,14;"B-":120x tOz=c:i=1c:z$(i)=c$(i):i:1;12 ,21;"C-":120x v[z=d:i=1d:z$(i)=d$(i):i:1;16,16-(i$)/2;i$:124| x 2000 z 126~ | 4000 ~(126~+ost*2) Ea=z:i=1z:a$(i)=z$(i):i:12 ,7;"A-":136 Eb=z:i=1z:b$(i)=z$(i):i:8,14;"B-":136 Fc=z:i=1z:c$(i)=z$(i):i:12 ,21;"C-":136 Rd=z:i=1z:d$(i)=z$(i):i:16,16-(i$)/2;i$:136 830> qa=0b=0c=0d=01;6;6,11 ;" WYGRA ";Y$(ost);" ":6000p a>15b>15c>15d>151;5;6,6;"GRACZ ";Y$(ost);" MA ";z;" KART":6000p +ost=ost+1:ost=5ost=1 60< 100d =0,0;" M A K A O - 1985 A.Mielczarek " 810* 8204 1;4;7;10 ,12 ;" ";11 ,12 ;"";12 ,12 ;"";13 ,12 ;"";14,12 ;" " 1;4;0;10 ,16;" ";11 ,16;"";12 ,16;"";13 ,16;"";14,16;" " 830>  " 1!q<5576,0;p$ 68x=q:1;6,10 ;1;" TASOWANIE " ; @5i=1q:.01z# =,i-20:j=(*x)+1 J*q$(i)=x$(j):x$(j)=x$(x):x=x-1:i T6,0;p$  i=15 a$(i)=m$(m):m=m-1 b$(i)=m$(m):m=m-1 c$(i)=m$(m):m=m-1 d$(i)=m$(m):m=m-1 i .a=5:b=5:c=5:d=5:  1ii=15-d:iii=(15-d)*8-4 ri=1d:iii+16*i,4:0,24:14,0:0,-24:-14,0:i Li=1d:kol=0:d$(i,2)=""d$(i,2)=""kol=2 Ukol;19,ii+i*2;d$(i,1);20,ii+i*2;d$(i,2):i: &1ii=15-z:iii=(15-z)*8-4 +18,0;o$ 0ri=1z:iii+16*i,4:0,26:14,0:0,-26:-14,0:i :Li=1z:kol=0:z$(i,2)=""z$(i,2)=""kol=2 DUkol;19,ii+i*2;z$(i,1);20,ii+i*2;z$(i,2):i: *}3;2,0;"WYNIKI:A-";a1;2,13 ;"B-";b1;2,19;"C-";c1;;2,25;"TY-";d1;: 4U1;4,1;"ROZDAWA-";y$(daje);4,20;"ROZDANIE-";rozd: >12 ,7;"A-";a;" ";12 ,21;"C-";c;" ";8,14;"B-";b;" ";16,16-(i$)/2;i$: H;kol=0:k$(2)=""k$(2)=""kol=2 I!14,13 ;" " J`1;kol;12 ,13 ;k$:k$="J*"1;4;7;14,13 ;l$ K R81;6,7;" KARA WYNOSI - ";kara;" ": \K1;1;7;12 ,17;" ";12 ,17;m: 'p$=" " Hy$(1)="A ":y$(2)="B ":y$(3)="C ":y$(4)="TY"  :i=1557:x$(i):i "J*","9","","W","A","K","D","J*","2","3","4","5","6","7","8","A","K","D","W","","9","2","J*","3","4","5","6","7","8" o$=" " "2","3","4","5","6","7","8","9","A","K","D","W","","2","4","6","8","","W","D","K","A","3","5","7","9"   8100  8300l g1=1t7=1 g2=12045  85004! #wi=0ko=08600! g3=1 :k$(1)="4"jkj=1h4>0j=h4:8900" g6=1 :k$(1)="4"jkj=1h6>0j=h6:8900" g6=1 kara=02200 .k$(1)="2"h2>0j=h2:8900" g6=1 .k$(1)="2"h6>0j=h6:8900" g6=1 .k$(1)="3"h3>0j=h3:8900"  g6=1  .k$(1)="3"h6>0j=h6:8900" g6=1 &k$="K"h6>0j=h6:8900" g6=1 ko>0j=ko:2300 wi>0j=wi:2300  8900" n$(n,1)"A" /max=f1:r4=1:f2>f1max=f2:r4=2 f3>f2max=f3:r4=3 f4>f3max=f4:r4=4 (r4=1k$(2)="":840H (r4=2k$(2)="":840H (r4=3k$(2)="":840H (r4=4k$(2)="":840H $  8100  8300l t7=1 g1=1  85004! g5=14100 #wi=0ko=08600! g3=1 @17,0;p$:i=1:w=17-z:17,w;"" "far=0:0 'd="1"far=1:.1}L,-10 :i=i+1:i-1=z17,0;p$:4120 ,Tfar=117,0;p$;17,w+2;"":w=w+2:4130" 1="0"41517 6 4130" 79jkj=1(z$(i,1)="4"z$(i)="J*")4130" 8j=i:17,0;p$ ;2z$(j,1)=k$(1)z$(j)="J*"8900" =g6=14165E @2z$(j,2)=k$(2)z$(j)="J*"8900" E*g6=1n$(n,1)="A"4300 Gg6=1 Jg7=1 O 4100 h \g7=1:6,0;2;6;1;"NA CO ZMIENIASZ :4-,5-,6-,7-" 2:0 w$= %w$="4"K$(2)="":4369 %w$="5"K$(2)="":4369 %w$="6"K$(2)="":4369 %w$="7"K$(2)="":4369  4310  840H 6,0;p$  q2,2 rEhh=0:(a=0b=0)(c=0d=0)hh=1 uB6,0;P$;6,8;1;"PODLICZAM WYNIKI" z.a=0hh=1a2=0:6020 |"z=a:i=1z:z$(i)=a$(i):i ~ 62008 a2=kkk .b=0hh=1b2=0:6030 "z=b:i=1z:z$(i)=b$(i):i  62008 b2=kkk .c=0hh=1c2=0:6040 "z=c:i=1z:z$(i)=c$(i):i  62008 c2=kkk .d=0hh=1d2=0:6050 "z=d:i=1z:z$(i)=d$(i):i  62008 d2=kkk hh=16100 min=a2:b21000b1>1000c1>1000d1>10009500% F6,1;1;5;"wciskajac 1 - nastepne rozdanie"  0 &="1"6,0;p$:16  6135 8$kkk=0:i=1z:v$=z$(i) =\v$(1)="4"v$(1)="2"v$(1)="3"kkk=kkk+10 *v$(1):6235[ BSv$(1)="K"v$(1)="D"v$(1)="W"v$(1)=""kkk=kkk+10 Gv$="K"kkk=kkk+40( Lv$="J*"kkk=kkk+502 Q#v$(1)="A"kkk=kkk+25 V"v$(1)="5"kkk=5+kkk W"v$(1)="6"kkk=6+kkk X"v$(1)="7"kkk=7+kkk Y"v$(1)="8"kkk=8+kkk Z"v$(1)="9"kkk=9 +kkk [i e W g7=0:g1=0:g2=0:g3=0:g4=0:g5=0:g6=0:f1=0:f2=0:f3=0:f4=0:h1=0:h2=0:h3=0:h4=0:h5=0:h6=0  i=1z z$(i,1)="A"h1=i z$(i,1)="2"h2=i z$(i,1)="3"h3=i z$(i,1)="4"h4=i z$(i)="K"h5=i z$(i)="J*"h6=i "z$(i,2)=""f1=f1+1 "z$(i,2)=""f2=f2+1 "z$(i,2)=""f4=f4+1 "z$(i,2)=""f3=f3+1 i  kara>m8400 0g1=1:i=110 :.05|L,i:i f1;6,6;"MUSISZ BRAC ";kara;" KART";:kara<51;6,24;"Y" /i=1kara:z$(z+i)=m$(m):m=m-1:i z=z+kara:z>15  860\ ost=4550& !kara=0 0!40(:6,0;p$: v^t7=0:(k$(1)="4"jkj=1)(h4=0h6=0)jkj=0:t7=1: {/k$="K"(h6=0kara>0)8200 Bk$(1)="2"kara>0(h2=0h6=0)8200 Bk$(1)="3"kara>0(h3=0h6=0)8200 D(k$(1)="2"k$(1)="3"k$="K")kara>0g2=1  Mq=n-1:i=1n-1:x$(i)=n$(i):i:n$(1)=k$:n=1 300, 1i=1q:m$(m+i)=q$(i):i:m=m+q:860\  !9wi=0:ko=0 !>.i=1z:z$(i,1)=k$(1)wi=i !C!z$(i,2)=k$(2)ko=i !Fz$(i)="J*"g5=1 !Hi ! !#g3=1:m=08400 !2z=z+1:z$(z)=m$(m):m=m-1:860\ !'z$(z,1)=k$(1)8640! !'z$(z,2)=k$(2)8640! !z$(z)="J*"8640! !z>15 !ost=4550& ! !l$=k$:k$=z$(z):840H !$n=n+1:n$(n)=k$:z=z-1 !k$="J*"k$=l$ !?K$(1)="2"k$(1)="3"kara=k$(1):850R !"k$="K"kara=5:850R !-jkj=0:n$(n,1)="4"jkj=1 ! !Wn$(n-2,1)="2"n$(n-1)="J*"n$(n)="J*"kara=kara+2:850R "Wn$(n-2,1)="3"n$(n-1)="J*"n$(n)="J*"kara=kara+3:850R "Pn$(n-2)="K"n$(n-1)="J*"n$(n)="J*"kara=kara+5:850R " " g6=1 "6n=n+1:l$=k$:n$(n)=z$(j):k$=n$(n):840H "z$(j)="J*"k$=l$ "z=1z=z-1: "z$(j)=z$(z):z=z-1 "ost=4550& "1n$(n,1)="2"kara=kara+2:850R "Dn$(n-1,1)="2"n$(n)="J*"kara=kara+2:850R "1n$(n,1)="3"kara=kara+3:850R "Dn$(n-1,1)="3"n$(n)="J*"kara=kara+3:850R "*n$(n)="K"kara=kara+5:850R ":k$="K"n$(n-1)="J*"kara=kara+5:850R "n>28700! " j=0 "Qjkj=0:n$(n,1)="4"(n$(n,1)="J"k$(1)="4")jkj=1 " %O:1;6;3,5;" WYNIKI PO ";ROZD-1;" ROZDANIACH" %min=a1:b1