kosci .GjE0G1040:1000 1100L: Nz(5):t$(6,16):w(6,2):a(5):u(6) !4:4:::200 (x=3:q=2:t=1:b$="" Hk=04:2;1;7,k*6+4;" ":k 81,4;"1 2 3 4 5":30 1m=13+*4:.01z# =,24 'n=04:.01z# =,36$ z(n+1)=118 y=6*n+3  70F a(n+1)=w n m <.15~,16:.15~,15:.15~,16  t=t+1  9 ,23;1;t b$= !b$=""32 ";.05|L,12 :.05|L,11 :.1}L,12 #t=142* $b$"1"b$"5"z(b$)=1 %b$=64@b$=34" &4b$33!b$37%z(b$-32 )=0 'Mb$"1"b$"5"2;1;7,(b$-1)*6+4;" " (Zb$33!b$37%2;1;7,(b$-33!)*6+4;" " )9 ,23;1;t *b$=13 9 +t>3480 ,t>2q=1 -b$="Z"t=1b$="" .b$="Z"480 / 32 0 z(5) 1 9 ,23;1;"Z" 2'n=12 5022^1.3&fff 3 .02{# =,n 5n D E Fw=(*6+1) Pw=1110n Rw=2120x Tw=3130 Vw=4140 Xw=5150 Zw=6160 _ nDx,y;7;0;" ";x+1,y;" ";x+2,y;" " p xDx,y;7;0;" ";x+1,y;" ";x+2,y;" " z Dx,y;7;0;" ";x+1,y;" ";x+2,y;" "  Dx,y;7;0;" ";x+1,y;" ";x+2,y;" "  Dx,y;7;0;" ";x+1,y;" ";x+2,y;" "  Dx,y;7;0;" ";x+1,y;" ";x+2,y;" "  +1,9 ;1;"KOCI RZUCONE" i=110n15010 ,x=*16+3:y=*26+3 i U.05|L,x:.05|L,x-1:.05|L,x+1:.05|L,x-2:1 X/3 U.05|L,y:.05|L,y-1:.05|L,y+1:.05|L,y-2:1  Y/4 &n=y5023:.02{# =,n:n i  4 ".3,12 ,NC$(6):D$(6):E$(6):F$(6):G$(6):H$(6) - .X=.2~L:370r 6'2,4;"IMI 1-go GRACZA ?" 7I=115:Y 8%I>9 0:C$(I-9 )= 9/I>9 C$(I-9 )<32 3128 :X,Y ;EI>9 2,20;": ";2,13 +I;c$(I-9 ) <I @'4,4;"IMI 2-go GRACZA ?" AI=16:Y B0:D$(I)= CD$<32 322B DX,Y E24,20;": ";4,22+I;D$(I) F24,20;": ";4,22+I;D$(I) GI J<6,4;"IMI 3-go GRACZA ?":370r:20 KI=115:Y L%I>9 0:E$(I-9 )= M/I>9 E$(I-9 )<32 332L NX,Y OEI>9 6,20;": ";6,13 +I;E$(I-9 ) PI T'8,4;"IMI 4-go GRACZA ?" UI=16:Y V0:F$(I)= WF$(I)<32 342V XX,Y Y28,20;": ";8,22+I;F$(I) Z28,20;": ";8,22+I;F$(I) [I ^=10 ,4;"IMI 5-go GRACZA ?":370r:20 _I=115:Y `%I>9 0:G$(I-9 )= a/I>9 G$(I-9 )<32 352` bX,Y cGI>9 10 ,20;": ";10 ,13 +I;G$(I-9 ) dI h312 ,4;"IMI 6-go GRACZA ?":372t iI=16:Y j0:H$(I)= kH$(I)<32 362j lX,Y m412 ,20;": ";12 ,22+I;H$(I) nI oC$(1)=" "300, p 30 r16,15,16,15,16,11 ,14,12 ,9 ,-15,-8,0,4,9 ,11 s8-20,-8,-4,-1,11 ,12 t5-8,-1,4,12 ,11 ,9 w#:10 ,10 ;"DZIKUJ !" x!n=0.9ffff*.1}L* y.02{# =,25*n zN {.04|# =,25*n | 502: ~ 390 ,21,8;1;" PRESS ENTER " 6:1500 .21,8;1;" PRESS ANY KEY " 0:0 !3000 :2000:0  "9 ,7;"ZASADY RZUTU"  9.2~L,12 :.2~L,11 :.1}L,12 #" 1 - 5 - ZATRZYMANIE KOCI": B" 1 - 5 + SYMBOL SHIFT - ZWOL-":" NIENIE KOCI": " ENTER - KOLEJNY RZUT": 3" ";34";90Z;34";" - ZAPIS"  wybor gracza p=115 c$(1)" "z=1 gz=19 ,25;1;1;c$;0;0;" ":.2~L,0:420 d$(1)" "z=2 gz=29 ,25;1;1;d$;0;0;" ":.2~L,4:420 e$(1)" "z=3 gz=39 ,25;1;1;e$;0;0;" ":.2~L,7:420 f$(1)" "z=4 hz=49 ,25;1;1;f$;0;0;" ":.2~L,10 :420 g$(1)" "z=5 hz=59 ,25;1;1;g$;0;0;" ":.2~L,14:420 h$(1)" "z=6 hz=69 ,25;1;1;h$;0;0;" ":.2~L,18:420 p  5000  6  500 i=16 )m$=(480+i)t$(z,i)" "480 i m$"1"m$"6"3100 %m$="P"t$(z,8)" "480 m$="P"3700t %m$="D"t$(z,9 )" "480 m$="D"3800 &m$="M"t$(z,10 )" "480 m$="M"3900< &m$="S"t$(z,11 )" "480 m$="S"4000 &m$="T"t$(z,12 )" "480 m$="T"4100 &m$="F"t$(z,13 )" "480 m$="F"4200h &m$="K"t$(z,14)" "480 m$="K"4300 &m$="G"t$(z,15)" "480 m$="G"44000 &m$="W"t$(z,16)" "480 m$="W"4500  488 +21,20;1;" ZY ZAPIS "  500 +21,20;0;" "  422 21026+3*z  m$=""  l=0 m$= m$=""505 m$"".01z# =,24 4m$<579m$491m$546530 Km$="P"m$="D"m$="M"m$="S"m$="T"m$="F"m$="K"m$="G"m$="W"530  505  i=07 q  "B"+i,q i E0,0,60<,60<,60<,60<,0,0  LGRAFIKA POLSKA VF"S",8:"C",8:"N",8:"O",8:"T",8 `,"A"+7,4:"E"+7,4 j."L"+3,80P:"L"+4,96` ~#I=16:Q:"T"+I,Q:I 7126~,4,8,16,32 ,126~  ZAPIS .1}L,12 49 ,2;"ZASADY ZAPISU:1,2,3,4,5,6 lub": #" P-PARA D-DWIE PARY ": D" M-MAY STRIT S-DUY STRIT ":" " =" T-TRJKA F-FULL":" " F" K-KARETA G-GENERA-POKER":" " " W-SZANSA":  TABELA @9 ,2;"TABELA RZUTW";9 ,18;"RZUT: ": "" IMI 123456 PDMSTFKGW PUNKTY" 4N1;c$:1;d$:1;e$:1;f$:1;g$:1;h$ 5j=16 6z=j:21026+3*j 7j 8 2130R 9Si=116:12 ,6+i;t$(z,i):.01z# =,i*2+2*z:i :`12 ,24;" ";12 ,24;w(z,1);12 ,28;w(z,2) ;  ?Si=116:14,6+i;t$(z,i):.01z# =,i*2+2*z:i @`14,24;" ";14,24;w(z,1);14,28;w(z,2) A BSi=116:15,6+i;t$(z,i):.01z# =,i*2+2*z:i C`15,24;" ";15,24;w(z,1);15,28;w(z,2) D ESi=116:16,6+i;t$(z,i):.01z# =,i*2+2*z:i F`16,24;" ";16,24;w(z,1);16,28;w(z,2) G HSi=116:17,6+i;t$(z,i):.01z# =,i*2+2*z:i I`17,24;" ";17,24;w(z,1);17,28;w(z,2) J R%: "ENTER - rzut Z - zapis" W"R - start game" X"E - end of game" \m$= fm$=""2140\ k"m$="R"m$="E".1}L,12 pm$="R"400 zm$="E"5000  2140\  Kk=113 :8+k,0;" " .05|L,2*k k  SZKOLA &i=15 0a(i)=m$l=l+m$ :i Dl<3*m$3180l Nl3*m$t$(z,m$)="+" X6l=4*m$w(z,1)=w(z,1)+6*m$ b7l=5*m$w(z,1)=w(z,1)+12 *m$ g ll<3*m$t$(z,m$)="-" v6l=2*m$w(z,1)=w(z,1)-6*m$ /l=m$w(z,1)=w(z,1)-12 *m$ 3l=0w(z,1)=w(z,1)-18*m$  tPara v3710~:3750 x ~0l1=0:l2=0:l3=0:l4=0 i=14 0a(1)=a(i+1)l1=2*a(1) .l1>0a(i+1)=0:3720 i i=13 0a(2)=a(i+2)l2=2*a(2) .l2>0a(i+2)=0:3730 i i=12 0a(3)=a(i+3)l3=2*a(3) .l3>0a(i+3)=0:3740 i .a(4)=a(5)l4=2*a(4)  l1l23754 l2>l1l1=l2 l3l43757 l4>l3l3=l4  l1l3l=l1  l3>l1l=l3 l=0t$(z,8)="-" l>0t$(z,8)="+" *l>0w(z,2)=w(z,2)+l*q  2 PARY  3710~ cl1*l2=0l1*l3=0l1*l4=0l2*l3=0l2*l4=0l3*l4=03850  l=l1+l2+l3+l4 t$(z,9 )="+" w(z,2)=w(z,2)+l*q  38902  t$(z,9 )="-" 2 < MALY STRIT F-a(1)a(2)a(1)a(3)a(1)a(4)a(1)a(5)a(2)a(3)a(2)a(4)a(2)a(5)a(3)a(4)a(3)a(5)a(4)a(5)a(1)+a(2)+a(3)+a(4)+a(5)=153970 nt$(z,10 )="-" x t$(z,10 )="+" &w(z,2)=w(z,2)+15*q  STRIT -a(1)a(2)a(1)a(3)a(1)a(4)a(1)a(5)a(2)a(3)a(2)a(4)a(2)a(5)a(3)a(4)a(3)a(5)a(4)a(5)a(1)+a(2)+a(3)+a(4)+a(5)=204070 t$(z,11 )="-"  t$(z,11 )="+" &w(z,2)=w(z,2)+20*q  TROJKA  4110  4170J i=11 Ya(1)=a(2)i=02:a(1)=a(3+i)l=3*a(1) i Ya(1)=a(3)i=01:a(1)=a(4+i)l=3*a(1) i "Da(1)=a(4)a(5)=a(1)l=3*a(1) ,Ya(2)=a(3)i=01:a(2)=a(4+i)l=3*a(2) .i 6Da(2)=a(4)a(5)=a(2)l=3*a(2) @Da(3)=a(4)a(5)=a(3)l=3*a(3) E Jl=04185Y Nl>0t$(z,12 )="+" Pw(z,2)=w(z,2)+l*q T 4190^ Yt$(z,12 )="-" ^ hFULL r 4110 |l=04280 l5=l/3 i=15 a(i)=l5a(i)=0 i l5=0:l6=0 i=15 =a(i)0l5=a(i):l5>0a(i)=0:4236 i i=15 :a(i)0l50l6=a(i):l6>04240 i ?l5=0l6=0l5=l/3:l6=l/3:4250 l5l64280 'l5=l/3l6=l/34280 t$(z,13 )="+" 'w(z,2)=w(z,2)+(l+l5+l6)*q  4290 t$(z,13 )="-"  KARETA i=13 [a(1)=a(2)a(1)=a(3)a(1)=a(4)l=4*a(1) [a(1)=a(3)a(1)=a(4)a(1)=a(5)l=4*a(1) [a(2)=a(3)a(2)=a(4)a(2)=a(5)l=4*a(2) [a(1)=a(2)a(1)=a(4)a(1)=a(5)l=4*a(1) [a(2)=a(3)a(2)=a(1)a(2)=a(5)l=4*a(2) l>04380 t$(z,14)="-"  t$(z,14)="+" !w(z,2)=w(z,2)+l*q & 0POKER :}a(1)=a(2)a(1)=a(3)a(1)=a(4)a(1)=a(5)l=5*a(1)*q+502 Dl>04480 Nt$(z,15)="-" X t$(z,15)="+" w(z,2)=w(z,2)+l*q  SZANSA :l=a(1)+a(2)+a(3)+a(4)+a(5) t$(z,16)="+" w(z,2)=w(z,2)+l*q  t$(z,16)="-"  KONIEC  50,5;1;" KONIEC GRY - DZIKUJ " :" WYNIKI:" #:" IMI 1 - 6 FIGURY SUMA" N1;c$:1;d$:1;e$:1;f$:1;g$:1;h$ j=16 C4+j,10 ;w(j,1);4+j,17;w(j,2) .2~L,j+2*j j  8:"UWAGA! - za ujemne 1 - 6 dodatkowo -50 pkt." k=16 (:w(k,1)<0w(k,1)=w(k,1)-502 2(w(k,1)=w(k,1)+w(k,2) <"4+k,25;w(k,1) A.1}L,k+2.5 *k Fk K 200 L.05|L,12 P$:"WYGRA: Ile za pkt.? ": Z" " w=-1000 k=16  w