S- +7 R -M.J & P.J - SLOVNIK-2;I:Dz(I)(I): I:Dz( )(@)7 JA$(H,):JN:JP:MOv"VYBER":: ,: ,: @,p: ,: : ,@:W,)" N ... L"" ( LOAD ) ")" N ... S"" ( SAVE )") " K ... V" " ( VERIFY )") " U ... H" " ( EDIT HEAD )") " U ... E"" ( EDIT )")" N ... K"" ( KILL )":)" K ... C"" ( CLOSE )":::A$:A$"" )A$"L"I2:"KAZETA":"VYBER"A$"H""HEAD":"VYBER"JP A$"E""EDIT":"VYBER"JN A$"K""KILL":"VYBER"+A$"S" I2@:"KAZETA": "VYBER"+A$"V" I2:"KAZETA": "VYBER" A$"C" "u I @::I:: : ,: @,:" N ":" V " "PRECTI":"INPUT"D!A$"" (A$)P L (B$),@:();:-"(A$) I(B$):"PRECTI"#(A$)I$"PRECTI"*%"KAZETA":: : ,@&B$"":I:L :X :Y:I1@:: I1: ,:" J ":"PRECTI":, :B$"""INC"' A$"" %("CEKEJ-KAZ":I2@"F")A$""D*I2@ #,"CMT:SL.-":: #,"CMT:SL.-"+A$:A$"" :N, I2@ "W": #,B$,(JN),(JP): =:: #,B1$U-"";();(p):B2$B$:B$B1$:"DEC":X.:YN:"ZOBRAZ":B$B2$.B1$B$ B$"" 2/A$:A$"":0(#) : *1 #,B1$: /2I2"VERIFY"43"L":#,A$,A1$:JN(A$):JP(A1$)&4IJN:I1JP5 A$: A$"" :!6" O B ! ( A/N )";7 A$: A$"N" :8 A$"A" A$"" 79:JN:(:(#)JN:"CMT-CHYBA",; #,B$:"DEC":JA$(I,I1)B$: I1,I<:[=IJN:I1JP:B$JA$(I,I1):"INC": #,B$: A$: A$"" <> I1,I::?"CMT-CHYBA":::I :::X :Y8:B$(,<, ,(,,,,,,@,, ,,0,@, ,P,,):"ZOBRAZ":"CEKEJ"R@"VERIFY":"V": #,A$,A1$: (A$)JN (A1$)JP "CMT-CHYBA"NAIJN:I1JP: A$:(#) A$"" "CMT-CHYBA"4B #,B$:"DEC":B$JA$(I,I1) "CMT-CHYBA" C I1,ID:X :Y8:B$(,<, ,(, ,,P,, ,,h,X,,`,0,0,):"ZOBRAZ":"CEKEJ"E"CEKEJ-KAZ"4F " P ":"CEKEJ".G ();" ";: I2@ "RECORD.";H"PLAY":I"CEKEJ":A$:A$"" IJK"INPUT":J: L "ZOBRAZ"CMJJ: J   "CURSOR": J JN A$: A$"" M=O (A$)x A$"" "KLAVES": L(B$) L:: BP (A$) (A$)@ (A$)8 "MODY": L*Q(A$)HMO:: MMR (A$) II : I(B$) I: L:: LS (A$)@ I(B$) B$B$" ": IL L:: :: B$(B$,I)()(B$,(B$)I): L(B$) L:: ST (A$) I(B$) L:: B$(B$,I)(B$,(B$)I): L9U (A$) II: I(B$) L2V (A$) II: I LFW (A$)P ((A$) (A$) ) A$"" M=X (B$,)" " B$(B$,(B$)): X:: 1Y"KLAVES": A$" " A$():"PRIPIS"MZ (A$), ((A$); (A$)?) ((A$)^ (A$)) ([MO "M1","M1","M3","M4","M4","M6":\"M1": A$"/" A$":" A$((A$)/):"PRIPIS"\] A$"@" A$"[" A$((A$)):(A,A$,A$):A$((A$)MO):"PRIPIS"'^ A$":" A$(#):"PRIPIS"'_ A$";" A$("):"PRIPIS"'` A$"." A$(!):"PRIPIS"'a A$"," A$( ):"PRIPIS"'b A$"/" A$():"PRIPIS"c1d"PRIPIS": I(B$) B$B$A$:II:7eB$(B$,I)A$(B$,(B$)I):II:If"M4": A$"@" A$"[" A$((A$)):(,A$,A$):BFg A$":" A$";" A$(((A$)h)):B&h A$"?" A$():B&i A$"," A$():B&j A$"." A$():B3k B A$((A$)MO):"PRIPIS"l-m"M6": A$"" A$(:):"PRIPIS"+n(,A$,A$): (A$) "PRIPIS"o<p"CURSOR":A$(B$,I,): I(B$) A$()*q(,A$,A$): J( (q,A$,A$)9r XI,Y:[@,],,A$:,s"MODY": (A$)8 A$( )At,@:(A$) "MO1","MO2","MO4","MO5","MO3","MO6"Du"MO1":MO::"L ,,..";:Dv"MO2":MO::"L ,,.. ";::w"MO4":MO::"V "(();:9x"MO5":MO : :"M "(();:;y"MO6":MO@:@:"P "( );:Iz"MO3":p:"D "(P);:A$(B$,I,)o{ ((A$)@ (A$)h) ((A$) (A$)) A$((A$)):"PRIPIS": k| (A$)p (A$)h (A$) (A$) A$((A$)):"PRIPIS": }}(A$) ::  V,(A$):(,A$,A$): A$"" A$((V)):"PRIPIS": :: A$((V))<~(,A$,A$): A$"" A$((V)):"PRIPIS"7MO MO A$(MO)::A$(MO) t<"ZOBRAZ": X,Y:B((W)):M(W)  I5 (B$):A$(B$,I5,):(,A$,A$):[B,M],,A$: I5:[B,M],(,,,,,,,):Q"HEAD": @: ,@: @,: I H:: I," Z ... H":," P ... P":," U ... U": :::@" K ... K"::::::::::: A$: A$"" + A$"P" JP "PRIDEJ":"HEAD"&A$"U" JP"UBER":"HEAD" A$"K" A$""  A$"H" JP ::" Z ":"OPRAVDU":A$"A" IJP:JA$(,I)""::JP:JN: "HEAD":: "HEAD"c"PRIDEJ":::" J :":B$"":I:Lp:X:Yp: W,:"PRECTI"A$""0,:"O ( A/N ) ?"A$:A$"" A$"" A$"N" A$"A" AJA$(,JP)B$:IJN:JA$(I,JP)""::JPJP:"KILL"::`:@,:,:,: ,`:,@:" Z ... V"c:" N ... S"::::::::::: " K ... K"::: A$: A$"" 1 A$"K" A$"" :: A$"V" "K-VSE":1 A$"S" "K-WORLD": JN :: )"OPRAVDU"::" O ( A/N ) ?";( A$: A$"N" A$"" A$"A" *"K-VSE":"OPRAVDU": A$"A" :: "K-WORLD":I2::" Z - Z"::" K - K"::" P - "::::" Z ":"CEKEJ": A$"" A@,p:KU:"WORLD-POS": A$"" A$"K"  A$"Z" 7@,:"OPRAVDU": A$"N" A$"" $JNJN:KUJN DIKU JN:I1JP:JA$(I,I1)JA$(I,I1):I1,IJN "WORLD-POS"::IJP:X,:B$JA$(,I):YI`:,I:[]"":W,:"ZOBRAZ"GKUJN X:W,:B$JA$(KU,I):YIp:"ZOBRAZ"I:W, A$: A$"" $(A$) (A$) (A$) 0KUKU:KUKUJN(JN) BKUJN (KUJN (I2 JNH v ))KUKUKU: "EDIT":I2:,:,:,`:@,p::::" O ... O"::" P ... "::::::::" K ... K"!::::" " "CEKEJ" A$"" :,@:" P ":::" P , ( SPACE ). P CR.P - "1:::::::::" ":::!CU:KU:"CEKEJ"A$""j@,:,:,`::"WORLD-POS":A$"K" A$""::“A$"O" l@,p:,p:,:KUJN JNJN:IJP:JA$(JN,I)"":,,CU:I(JA$(,CU)):(,(JA$(,CU),I,),A2$):(q,A2$,A2$):[@,],A2$: A$:A$(P) A$""A():A )A():A A |X,:YCU:B$JA$(,CU):"ZOBRAZ":CUCU(A): CUCUJP::“CUJP CU cB$JA$(KU,CU):I:X:YCU:L :"PRECTI"::A$""8JA$(KU,CU)(B$,L):A:"ZOBRAZ": l"UBER":"HELP"::X:CU:IJP:B$JA$(,I):YIp:"ZOBRAZ":,CU:I(JA$(,CU)):(,(JA$(,CU),I,),A$):(q,A$,A$):[@,],A$:#A$:A$(P) A$"" I():I *I():I I {X:YCU:B$JA$(,CU):"ZOBRAZ":CUCU(I):CUCUJP::“CUJP CU p,JP:" M ":"OPRAVDU":,CU:(z):A$"A" 0CUJP JPJP:JP :: \JPJP:IJN:I1CUJP:JA$(I,I1)JA$(I,I1):I1,I: r"INC":B$"":: IB(B$):B$(B$,IB)(((B$,IB,)))(B$,(B$)IB)::r"DEC":B$"":: IB(B$):B$(B$,IB)(((B$,IB,)))(B$,(B$)IB)::"HELP"::::" P , .Z SPACE().P , "G:" N- , CR.":"CEKEJ"