S-CMT .'6 R -M.J & P.J - SLOVNIK-1;I:Dz(I)(I): I:Dz( )(@)Z JA$(H,),PJ(),PJ$(),P1$():JN:JP:MOv"VYBER":: ,: ,: @,p: ,: : ,@:W,)" N ... L"" ( LOAD ) ")" N ... S"" ( SAVE )") " K ... V" " ( VERIFY )") " P ... M" " ( MERGE )") " Z ... J"" ( CHANGE LANGUEGES )")" S ... P"" ( REPLACES )")" Z ... K"" ( KILL ALL )":)" K ... C"" ( CLOSE )":::A$:A$"" )A$"L"I2:"KAZETA":"VYBER"JP A$"J""CHANGE":"VYBER"JN A$"K""KILL":"VYBER"A$"P""SETRID":"VYBER"+A$"S" I2@:"KAZETA": "VYBER"+A$"M" I2:"KAZETA": "VYBER"+A$"V" I2:"KAZETA": "VYBER" A$"C" u! I @::I:: : ,: @,:" N ":" V ""#"PRECTI":XK:YKU$"INPUT":A$"" (A$)P L (B$),@:();:XK,YK:(%(A$) I(B$): $&(A$)I ' $*("KAZETA":: : ,@})B$"":I:L :X :Y: I1 @:: I1: ,:" J ":"PRECTI":B$"""INC"* A$"" %+"CEKEJ-KAZ":I2@"F",A$""C-I2@ #,"CMT:SL.-":: #,"CMT:SL.-".A$:A$"":J/I2@"W": #,B$,(JN),(JP): A::‘ #,B1$U0"";();(p):X.:YN:B2$B$:B$B1$:"DEC":"ZOBRAZ":B$B2$1B1$B$ B$"" 52A$:A$"":3(#): -4 #,B1$: 25I2"VERIFY"6I2"MERGE"47"L":#,A$,A1$:JN(A$):JP(A1$)&8IJN:I1JP9 A$: A$"" >!:" O B ! ( A/N )";; A$: A$"N" >< A$"A" A$"" ;=:JN:(>(#)JN:"CMT-CHYBA",? #,B$:"DEC":JA$(I,I1)B$: I1,I@:[AIJN:I1JP:B$JA$(I,I1):"INC": #,B$: A$: A$"" @B I1,I::C"CMT-CHYBA":::I :::X :Y8:B$(,<, ,(,,,,,,@,, ,,0,@, ,P,,):"ZOBRAZ":"CEKEJ"RD"VERIFY":"V": #,A$,A1$: (A$)JN (A1$)JP "CMT-CHYBA"NEIJN:I1JP: A$:(#) A$"" "CMT-CHYBA"4F #,B$:"DEC":B$JA$(I,I1) "CMT-CHYBA" G I1,IH:X :Y8:B$(,<, ,(, ,,P,, ,,h,X,,`,0,0,):"ZOBRAZ":"CEKEJ"I"CEKEJ-KAZ"4J " P ":"CEKEJ".K ();" ";: I2@ "RECORD.";L"PLAY": M"CEKEJ"N A$: A$"" NOP"INPUT":J: Q "ZOBRAZ"CRJJ: J   "CURSOR": J JS A$: A$"" R=T (A$)x A$"" "KLAVES": L(B$) Q:: BU (A$) (A$)@ (A$)8 "MODY": Q/V (A$)H MO: : RMW (A$) II : I(B$) I: Q:: QX (A$)@ I(B$) B$B$" ": IL Q:: :: B$(B$,I)()(B$,(B$)I): L(B$) Q:: SY (A$) I(B$) Q:: B$(B$,I)(B$,(B$)I): Q9Z (A$) II: I(B$) Q2[ (A$) II: I QF\ (A$)P ((A$) (A$) ) A$"" R=] (B$,)" " B$(B$,(B$)): ]:: 1^"KLAVES": A$" " A$():"PRIPIS"M_ (A$), ((A$); (A$)?) ((A$)^ (A$)) )` MO "M1","M1","M3","M4","M4","M6":a"M1": A$"/" A$":" A$((A$)/):"PRIPIS"\b A$"@" A$"[" A$((A$)):(A,A$,A$):A$((A$)MO):"PRIPIS"'c A$":" A$(#):"PRIPIS"'d A$";" A$("):"PRIPIS"'e A$"." A$(!):"PRIPIS"'f A$"," A$( ):"PRIPIS"'g A$"/" A$():"PRIPIS"h1i"PRIPIS": I(B$) B$B$A$:II:7jB$(B$,I)A$(B$,(B$)I):II:Ik"M4": A$"@" A$"[" A$((A$)):(,A$,A$):BFl A$":" A$";" A$(((A$)h)):B&m A$"?" A$():B&n A$"," A$():B&o A$"." A$():B3p B A$((A$)MO):"PRIPIS"q-r"M6": A$"" A$(:):"PRIPIS"+s(,A$,A$): (A$) "PRIPIS"t<u"CURSOR":A$(B$,I,): I(B$) A$()*v(,A$,A$): J( (q,A$,A$)9w XI,Y:[@,],,A$:,x"MODY": (A$)8 A$( )\y,@:();:,@:(A$)"MO1","MO2","MO4","MO5","MO3","MO6"Dz"MO1":MO::"V ,,..";:C{"MO2":MO::"M ,,..";:0|"MO4":MO::"V ";:/}"MO5":MO : :"M ";:1~"MO6":MO@:@:"P ";:?"MO3":p:"D ";: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) y;"ZOBRAZ":X,Y:B((W)):M(W) I5(B$):(,(B$,I5,),A$):[B,M],A$:I5:[B,M],(,,,,,,,):s"KILL":: `:@,: ,`::::" Z ":"OPRAVDU": A$"A" :: )"OPRAVDU"::" O ( A/N ) ?"' A$:A$"A" A$"N" A$"" 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)::"MERGE":"M":#,A$,A1$:J1JP:J2JN:JN(A$):JP(A1$):JNH 8::IJP:#,B$:"DEC":PJ$(I)B$::III:I1JP:PJ$(I1)JA$(,I)I1P:::Ž:J1J1:IJ1 I3J2:I1IJ1:JA$(I3,I1)JA$(I3,I1):I1,I3:IIIJ1 IJP:I1J1:PJ$(I)JA$(,I1)PJ(I)I1:I1P:I1::ŽI1:JA$(,J1)PJ$(I):I1J2:JA$(I1,J1)"":I1:PJ(I)J1:J1J1uI:J1JN:JNJ2:"PREHOD":JNJ1:IJ2:I1JP:JA$(HJ2I,I1)JA$(I,I1):I1,I: 8IJN:I1JP:JA$(I,I1)JA$(I,I1):I1,I:JNJN:IJP:JA$(,I)PJ$(I)::DJ2JNJNH:VJ2LJ2:IJ2H:JNJN:I1JP:JA$(JN,I1)JA$(I,I1):I1,I:u"PREHOD":I1JN:IJP:P1$(I)JA$(I1,PJ(I)):I:IJP:JA$(I1,I)P1$(I):I,I1:r"CHANGE":"HELP"::@,p:,::" J ":"PRESKUP":A$"""PREHOD"m"PRESKUP":CU:X:IJP:PJ(I)I:YIp:B$JA$(,I):"ZOBRAZ":,CU:I(JA$(,PJ(CU))):(,(JA$(,PJ(CU)),I,),A$):(q,A$,A$):[@,],A$:'A$:A$""::“A$(P) I():I )I():I I X:YCU:B$JA$(,PJ(CU)):"ZOBRAZ":CUCU(I):CUCUJP::“CUJP CU w,JP:" V ?":"OPRAVDU":A$"N"::,JP:(l): ,CU:( ):,CU:I(JA$(,PJ(CU))):(,(JA$(,PJ(CU)),I,),A$):(q,A$,A$):[@,],A$::,CU:"_"GA$:A$""::“A$(P),CU:" ": II():I,CU:" ":(H): )I():I I <J2CU(I):J2J2JP::“J2JP J2J1PJ(J2):PJ(J2)PJ(CU):PJ(CU)J1:X:YCU:B$JA$(,PJ(CU)):,CU:():"ZOBRAZ":CUJ2: "SETRID":JP::"HELP":@,:,`:`::" Z ":"PRESKUP":A$""::,8:" T "(IJN:I1IJNI2JP:JA$(I,PJ(I2))JA$(I1,PJ(I2))J1PJ(I2):I2P:I2:JA$(I,J1)JA$(I1,J1)I2JP:B$JA$(I,I2):JA$(I,I2)JA$(I1,I2):JA$(I1,I2)B$:I2::::ŽI2 I1,I:"HELP"::::" P , .N SPACE()- _ ( , )."" S SPACE- ."::" A , , CR":"CEKEJ"