/ V3.5 C(T:' *ZKOUSENI / V3.5* 9.11.87 () M S, S 19, 635 00 B*A::' MAX.POCET SLOV V ZAKLADNE4B ::' MAX.POCET SOUBORU SLOV V ZAKLADNE*ZH::' MAX.POCET ZKOUSENYCH SLOV#H  ::' MAX.POCET ZKOUSEKiA$(A),B$(B),B(B),Z$(Z),Z(Z,),H(H,),M$(),X(),C$(0),T(H),T$()"CRT:M1":JH:T(J)::J:M$(J)::N$"N ":C$"C =":V$"V ="eA$" ":B$"":D$"0101010110201"q C()((,@,)):Q$" . ":X0:I,J,K,L:C$(X)(I,J,K,L):: 4 IS:K:K$""::'*** VSTUP CISLA, TEXTU *** Y$"":I,R5 (H, );: :Y$""" ";: : " " ";:L(Y$):LP:L @((L@ Ld) X) (L X) <X L L6Y$(A$,L|,)"X LPY$;: pY$(L):X$(B$,L,):X$"" ::X$;:I,R:,C$(((D$,L,)))+XK$K$Y$::KK (Y$)II:IY :: IS @II:" ";:K(K z# >):K$(K$,IS): "L :X$:Y$""X$""L: Y$X$:5K$"":Y$(O):M::'*** VSTUP / ***A[M]CS,R,Y$,C,,: &:J X$:X$"" !K$"" (X$)P "X$"Y" X$""K$"": % #X$"I" X$""K$"": % $ %[]CS,R,(H),C,,:CS,R,K$,C,,:Y$K$:M@:O ::IC:CSI,R:,C$(O@I):I: V&IC():ITTI:LL:VJJ:0,`:"###";J'?(X$"P "W$" ": 9::'*** RADEK 24 ***i)[]h,<,D(X$),G,:,?,X$,,,:2-S,R:(YS);:S,R:::'*** MAZANI RADKU ***k2:P,,X,,:p,," ? ",,,::'*** HLAVICKA ***t3, :KG$M$(K):XX(G$):I$(G$,XX):( XX);(G$,);: A:::4O7 ,@:"P";:I$"C - A": A:::'***CEKANI8X$:X$"" 8=9,8:();::'*** MAZANI RADKU 23, 24***":,@:();:C< =:,0:"CHYBA - "Y$: 7::'*** HLASENI CHYBY***F=,0:();: 9::'*** MAZANI RADKU 22, 23, 24***eAXX(I$):G$(I$,XX,):YY(G$):YY YY6G$(B$,YY,)fBG$;:YY YY6,:,C$(((D$,YY,))) CXX:6FRR:Rp 7:,0:RG@^0,0,.5,0,0,-1,0,0,0,0,0,0,0,.5,0,0,0,.5,.5,0,0,-1,0,0,0,.5K_NAI CY ,ZSI,VI,VY Y D`UZI Y ,UZI ,ZSI ,TRIFILa$C,$10,0,0,$24,$18,0,0,$18,$18,0,0,8,8,$10,$10,$24,$24,$18,$18,$18,$24Wb$24,$18,0,0,1,1,$C,$C,3,3,1,2,2,1,$60,$60,$80,$80,$30,$30,$C0,$C0,$80,$40,$40,$80c:' *** NAHRANI SLOV ***id`,: 2:X:R:Sx:"Z [A/N] =":W$"": (:Y"i -: :K$"A" K$"N" inK$"A"D:ED)sR :S(:""N$"=":Yx -: :Y$(K$,)3z"Z : ";(~)" PLAY": 9D}#,""::X$"":J:K(J):KP X$X$(K):CS:R@: -:"C = "X$:Y$""Y$X$X$Y$#: },EBY$Q$" = "(B): <: EE:B$(E)Y$!#,X$:(#) "DADD:A$(D)X$: Y$Q$" = "(A): <6#:B(E)D: -:"V :"IJE:(J)  J 7:,(C:"##";J;:" "B$(J)( );"... ";"###";B(J)B(J);" ";:: 7:' *** ZKOUSENI ***, 2:GHY$Q$" = "(H): <\X:R:SP:"P ="(H)"[0=KONEC]":W$"": (:Y -: :K+KFZY$Q$" = "(Z): <: JUK:R:C$(H)"[0=NE]": :VK:W$"": (:RK,0:"P =":"P = 0"4W:P:V"Z ="dK:X(K)::QD:Q Q ::' POCET NEOPAKUJICICH SE PRIKLADUBKU:I$"":0,0:"###";K::'*** PRIKLAD ***,X(()D):X 2YQ:XX(Y) ::ŽY:X(K Q)XgW$A$(X):N(W$):YN:L$(W$,Y,):L$"" L$"" L$"Y" L$"I"L$"":PP]I$I$L$:Y:FF:Z(F,):Z(F,):C:N CZYN:K$(I$,Y,):L(K$):L L6K$(B$,L,)SC(Y):S,R,K$,C,,:L L6J((D$,L,)):TC:ST,R:,C$(J@C@T):TUY:I$"":YN:L$(W$,Y,):O:M$L$:L$"Y"O@C:L$""L$"I"O@C:L$""L$"" L$"" RSY:L:JV:TC(): :Z(F,)Z(F,)L,L$K$,(:"DOBRE":: wWW:Z(F,):,(,"CHYBA",,,:H:,H:$,HD M$K$:0,@:"###";W:OM$"Y":K$""M$"I" K$""M$""(H:,(:( );7I$I$M$:Y:,:( ):Z$(F)I$:K[GG:H(G,)V:H(G,)F:H(G,)W: :K:Y:WY ":K :1,4,6,8?"H(G,@)K:H(G,)P:,(:V$K: 9: 7+:' *** VYHODNOCENI ***#,J$" ........................"Z.IG:,p: 2:,`:"";:LH(I,):R=1JLH(I,):S(Z$(J)):S RRR6 F:I$Z$(J)::"###";JL;:" ";: A:X$"":Z(J,)X$" CHYBA"=8S :I$( ):(@);:RRH;(J$,P(I$X$))X$;"#####";Z(J,);:J:RR: FX@::"P / =";"###";H(I,);:( )"P =";"###";H(I,)?EC$;"###";H(I,);:( )V$H(I,@);: 7:I::' *** VYPIS SLOV ***B,p: 2:,`:R:IE: F7:B$(I);:JB(I)B(I): F:I$A$(J)&:"###";J;:" ";: A:J,I: 7#:' *** ULOZENI NOVYCH SLOV ***\ 2:X:S@:R:Y:W$"": (:,:N$"[.16 ]"2" =": :EBY$Q$" = "(B): <gEE:B$(E)K$:I$"A C E F I N O R S U V Y Z":,`: A::" "I$: 9: 7KS:R`:Y:JD:W$"":,P:K : 2S ,0:"Z #": (:,:X)DAY$Q$" = "(A): <:  R RR>"###";DJ;: :K$"#"DD:A$(D)K$: B(E)D:JDEE:F:K : 2:R:S@:Y:W$"":X:WE:VD7!"U [A/N] =": ("& -: :K$"A" K$"N" &+K$"N"U0 9:,0:"U "B$(W)" ="VJ:RP:S:YI5"Z : ";(~)" RECORD.PLAY":#,B$(W): -5:"U : ";:IJV:"###";IJ;(?"";:#,A$(I)::#:OK: 2:" M S, S";:I$"C": A:" 19, 635 00 B "EJ:`@J,4:,C$():A :Jz@z:I$::"GOSUB"J" ... ";: A:>:"GOTO 1000 ... ";:I$"A ": A: 7cZI .,SI ,RIFI ,Y A:' *** RIZENI PROGRAMU ***I:K: 2:"KOD"::J :J" ";(M$(J),);-I$(M$(J),(M$(J))): A:::HX:R:S@:"ZADEJ KOD =":W$"": (:YH -: :Kx F:GF: ::'*** ZRUSENI ZKOUSENYCH SLOVK K  K d, , ,, , : -:' *** ULOZENI SOUBORU NA MAGNETOFON ***K@: 4:WE 0 9: 7::D4 2:R:S(:Y:X:W$"":N$"=": (: !>WE:B$(W)K$: HJB(W):VB(W):":"*** NEEXISTUJE ***":  :' *** ZRUSENI SLOVA *** K`: 4:WE7 R :Sp:X:"R =": # IJV:A$(I)K$: 4 9:,@:IJ". "B$(W), IVKID:A$(K)A$(K):P KWE:B(K)B(K)::DD:"V "VJ" " :' *** TRIDENI ***K: 4:WE2:""VJ" ":K`:QJ:PIJ:L( ,0:"#####";P;QJ;IJvXK:Y:RS:X$(A$(IY),X,):U(X$):U U6SU|T(U): 5SX:(A$,S,)X$S:SY:RSXLRSX$A$(I):A$(I)A$(I):A$(I)X$:LL:QIII:IV L :PP:QJ ::IQ:L: &:' *** VYPIS SLOV NA TISKARNU ***Q"LPT:S2":IE:P(@, , , );();B$(I):PK((B(I)B(I))@):JK:U:W:LJJKK:X$A$(B(I)L):N(X$):UU:T$(U)"":Y$""ZXN:K$(X$,X,):Y(K$):Y Y6K$(B$,Y,)SY$Y$K$:X:X$(Y$, ):N T$(U)(Y$,N ):N :W5P"####.";L;:P" "X$( N);:LKB(I)LGWP:LU:P(@)T$(L)( (T$(L)));:LP:J,I: @C(@Z)Z Z Iz Z