CHEM.VZORCE V2.1 T:' *CHEM.VZORCE V2.1* 15.12.87 () M S, S 19, 635 00 B,AH::' MAX.POCET ZKOUSENYCH VZORCU#B  ::' MAX.POCET ZKOUSEK,Zz::' MAX.POCET VZORCU V ZAKLADNECC::' CASOVY LIMIT PRO ZKOUSKU []; C=0 ... CAS NEOMEZEN/L ::' CISLO LEKCE; L=0 ... VSECHNY_A(A,),A$(A),B(B,),Z$(Z,),P(),M$():"CRT:M1":, M$(X)("",X,):C()((,@,)):J:M$(J):: ::' GOTO990 ... C=300, L=0? Z ,V ,Z ,Vw K$"":J:UJ:XK:R(NK):V X:QRX::'*** VSTUP ODPOVEDI ***; U,R,(O),X,K,: :S CX$:X$"" =Y(X$):[]U,R,(H),X,K,:YPY Y -N Y Y6X$M$(Y)BY@ YdU,R,X$,X,K,::U,Q,X$,X,X,7:K$K$X$:JJ:UXJ:JV :: J [JJ:UXJ:[]U,R,(H),X,K,:K$(K$,J):: V YC():YTTY:LL:SS:C, :"###";S"'(IS:K::'*** VSTUP CISLA ****K$"":I,R5,(H, );: 9:K$""" ";: 9: ,"." ";:L(K$):LP:0L 62L@ Ld *74K$;:KK L@:II:IY 8:: * 6IS *28II:" ";:K(K z# >): *"9L :X$:K$"":X$"": ;K$X$:"<V :Z$:I$""=Z$""V: >I$Z$:?PX$"P "X$" ": a::'*** RADEK 24 ***iQ[]h,<,D(X$),G,:,?,X$,,,:2US,R:(YS);:S,R:::'*** MAZANI RADKU ***kZ:,,,8,:,,"CHEMICKE ZNACKY A VZORCE",,,w[M[]P,X,p(M$(M)),,,:`,,M$(M),,,\H] ^:,0:"***CHYBA - . "X$" ="X: _G^,0:();: a::'*** MAZANI RADKU 22, 23, 24 ***I_ ,@:"P - ";:::'*** CEKANI ***`X$:X$"" `@a,8:();:::'*** MAZANI RADKU 23, 24 ***c:' *** ZKOUSENI ***dGBX$"":XB: ]<nR :Y(:X$"":"P =": Px U: (:K#KFAX$"":XA: ]: xIPK: Z:,`:"C =":"P = 0"`J:P(J)::C"Z =":,,$,8IW:SC:IP:,`:"###";I::'*** PRIKLAD ***=K:LD:MKD:LE:MK@YLK:Y Y ::' POCET NEOPAKUJICICH SE PRIKLADU2X(()(LK))K:XK XL 2JY:XP(J) ::ŽJ:P(I Y)XZN(()):K$Z$(X,N):J$Z$(X,(N)):X$"":XDX$""XFF:A(F,)XNX: P:K@:(Z$(X,))KzJ(K$):X$(K$,J,):L`:YK:(X$)< (X$)hLp:YK:KLhx(K)(J),(LY),X$,K,Y,:J:L:SS:TC(): OT:J(K$):X$(K$,J,):Y$(J$,J,):X$Y$ hUX(J):R K:N (X$"" X$"") (Y$"" Y$"")T: S,(:"***PRAVOPISNA CHYBA***";:,H: a:I$"":T5 ,@:"P - ";R[]U,R,(H),X,K,: <:I$""U,R,X$,X,K,: <: D[]U,R,Y$,X,K,:;:,(:(8);J:(K$)(J$)T0T,(:"DOBRE";:: dWW:,(,"CHYBA",,,:H:,H:$,H,:"###";WaH:A$(F)K$:A(F,)T:A(F,)L:,@:();();();R"I:GG:B(G,)F:B(G,)W: ,:K:Y:WPY 6,:K :.2,.4,.7,.9>6B(G,)K:,(:"V ="K;: _:' *** VYHODNOCENI ***cIG:`,: Z:,@:"";:W:R`:LB(I,)YJLB(I,):X$"...... ":K$"":XA(J,):N:XNtA(J,)X$" CHYBA ":K$" "Z$((X),(N)):RR:A(J,)X$" / ">RR::"###";JL;:" "Z$((X),N):" "A$(J);K(" .......................",@(A$(J)))X$;"###";A(J,);8K$;:X:R _:,X:R`>WWA(J,):J::"P =";"###";B(I,);%" P =";"####";C("Z =";"###";B(I,);0" D =";"####";W;: _:I::' *** UVODNI LIST ***3:M: Z:, :X$($,)."M S, S 19, 635 00 B"ZJ:`@J,:,X$::, :,X$[R:S :Y@:X$"":"C 1 ="(`)"[0=NEOMEZEN]"D P: (:R0:"Z ="(`)"[0=VSECHNY]";CK: (:LK:"GOTO 1000 ... "("KOD = 63500 ... ":"GOTO 10000 ... ": a: _LLy  :' *** RIZENI PROGRAMU ***P:M: Z:, :"KOD ULOHA":J:J<""J" "M$(J)::R:S:Y8:X$""!"Z =": P* U: (:Kx F:GF: 2 K K (K G) MK:M :: d  :' *** ZNACKY A VZORCE ***aE:K$"":I::@,@:"N "K$;:DE:  :JLX$:X$"#" EZ X$"$"J: nK(X$):NK (K ((X$,,))4):(I N) (I N)X$: 2EE:Z$(E,)X$:Z$(E,): K$"":I: :'F A,,A,,B,,B,,B,,C,,K,H! N,,F,,P,,F,,H,,A,,M,E& C,,I,,K,,S,,O,,L,,N,M+ R,,R,,S,,N,,C,,C,,H,,X,  $::'*** KONEC LEKCE 1 ***F B,,S,,M,,C,,P,,O,,P,L R,,S,,A,,S,,T,,Z,,A, F, $::'*** KONEC LEKCE 2 ***F NC, ,H2O,,HC,,CH4,,NH3,E H2S,,HF,,C2H2,,AB, E CF2, ,CC2, ,PI2, F AC3, ,FC3, ,KB, C CC2, ,NI, ,MF2, L ZC2, ,FC2, ,SC4, C PB5, ,SF6, ,IF7,  OF8, G $::'*** KONEC LEKCE 3 ***'H C(HCO3)2, $::'*** KONEC LEKCE 4 ***' #::'*** KONEC ***<':IE:Z$(I,)( )Z$(I,):ID'I   _:$':2"()""  X" PLOCHA VINUTI "(P)"";(H1);()"2"(