1C : ************************************ * > C O M P U T E R S Z O T A R < * ************************************ C:H015: H1:31,H:30,H1:C0,0,0,0,0,0,0,248,14,15,13,0,0,0,0,0VD(T402:T2210030:31,0:30,T2:T305::::T2021030:31,0:30,T2::30,0D23150:Y765:A$(Y7),B$(Y7),A(Y7):@336,"> C O M P U T E R S Z O T A R <"D<@520,"1 Uj szotart akarsz kezdeni";:@584,"2 A szotart kazettarol akarod betolteni"2EFZ$:NN1:Z$"1"Z$"2"ʄ:N0:(Z$)370,120IEPN40N0:90:70EZ31,0:30,30:31,2:30,40:N11ʲ@518," ";:@582,">";:@518,">";:@582," ";EdN10N11:N10En31,0:30,0:31,2:30,0:70Fx31,2:30,180:T020::31,2:30,0:@398,"> K A Z E T T A R O L B E T O L T E S <";:@590,"Cseveld a kazettat a megfelelo helyre!";:@654,"Engedd fel az 'F1' gombot!":@718,"Nyomd le a 'PLAY' gombot!"F@782,"Indulhat a magno? (I)"GZ$:X3X31:Z$"I"170:X315ʠ31,0:30,200:T06::@805,"IGEN":30,0,GX326X30:@805," "5G140AGI0Y7VG#1,A$(I),B$(I)GA$(I)""B$(I)""A$(I)"-"B$(I)"-"210GIG:31,0:30,150:@135,"A kazettan levo anyagot betoltottem!":T01000::30,0::II1 H31,0:30,50:31,2:30,150:N0H@45,"1 Ismetles";:@109,"2 Javitas";:@173,"3 Szo kereses";:@237,"34 Bovites";:@301,"5 Szotar lista";:@365,"6 Szalagra rogzites";H@648,"A szotarban eddig "I" szopar van.":31,0:30,0:31,2:30,0H@43,">";:@363," ";HV0$INN1cIV0$"1"V0$"2"V0$"3"V0$"4"V0$"5"V0$"6"ʄ: (V0$)1010,860,520,420,1740,1610I"N15N30N45N60N75N90ʠ31,0:30,30:31,2:30,40:31,4:30,60:31,0:30,0:31,2:30,0:31,4:30,0I,N15ʲ@107,">";:@43," ";J6N30ʲ@171,">";:@107," ";0J@N4=ʲ@235,">";:@171," ";PJJN60ʲ@299,">";:@235," ";pJTN75ʲ@363,">";:@299," ";J^N90N0:250Jh260Jr31,0:30,170:H4030::31,0:30,0J|@1,"A szotar meg ures,kerem a ket nyelv megnevezeset!"1K@65,"egyik nyelv >";:A$(0):Q(A$(0)):A$(0)(Q," ")390rK@129,"masik nyelv >";:B$(0):Q(B$(0)):B$(0)(Q," ")400xKK@19,"> B O V I T E S <":31,0:30,200:T3030::30,0K@913,"A szotarban eddig "I" szopar van!";`L@716,"A - jelet barmelyik szo helyere beirva a program visszater a kozponti valasztokepernyore!"LII1:IY71ʄ:@712,"A szotarba tobb szo nem fer!":31,0:30,110:T01200::30,0:220 M@130,"Az uj szopar "A$(0)" nyelvu eleme";:A$(I):A$(I)"-"II1::2206MQ(A$(I)):G$(Q," "):A$(I)G$460M@194,"Az uj szopar "B$(0)" nyelvu eleme";:B$(I):B$(I)"-"II1::220MQ(B$(I)):B$(I)(Q," ")4804N(A$(I)B$(I))48ʄ:@710,"A beirt szopar tul hosszu,kerem"(A$(I)B$(I))48" betuvel rovidebben!":II1:31,0:30,100:T01500::410ON@130,(150," "):420NI0ʲ@2,"A szotar ures,";:@66,"a szokeresesnek nincs ertelme!";:220:@19,"> S Z O K E R E S E S <"N31,0:30,200:H4020::31,0:30,0 OI$"":@200," A keresett szo:";:I$O&N1I!O0Q$""N60ʲ@948,"NEM ":31,0:30,80:31,0:30,0:N0KRH800cRRQ$"I"520::220R\I0ʲ@2,"A szotar ures,";:@66,"javitasnak nincs ertelme!":220:31,0:P8200020:30,P8::@21,"> J A V I T A S <"?Sf@200,"Kerem a javitando szopar kodszamat!";:B5$:@200,(100," "):(B5$)I(B5$)0ʍ870MSpB5(B5$)Sz@200,"A javitando szopar "A$(0)" nyelvu eleme:":@280,"1 "A$(B5);:@392,"A javitando szopar "B$(0)" nyelvu eleme:":@472,"2 "B$(B5)T@648,"Melyik szt akarod javitani? (1/2)TB8$:B9B91/TB8$"1"B8$"2"960iTB914ʠ31,0:B406:30,100B420::30,0:@683,"1";TB928ʠ31,0:B406:30,100B420::30,0:@683,"2";:B90T910T(B8$)970,980U@278,">";:A$(B5)"":@648,"Ird be a szot kijavitva! ";:@730,">";:A$(B5):A$(B5)"-"A$(B5)((A$(B5))," ")970:990ZV@470,">";:B$(B5)"":@648,"Ird be a szot kijavitva! ";:@730,">";:B$(B5):B$(B5)"-"B$(B5)((B$(B5))," ")980W(A$(B5)B$(B5))48ʲ@646,(60," "):@646,"A szo tul hosszu,kerem "(A$(B5)B$(B5))48" betuvel rovidebben!":31,0:30,90:31,2:30,80:T01300::31,0:30,0:31,2:30,0:(B8$)970,980'W:220WI0ʲ@2,"A szotar ures,";:@66,"ismetlesnek nincs ertelme!";:220 :@21,"> I S M E T L E S <"WP10:P20:S0:Q$""WH4202002:31,0:30,H4:H4:31,0:30,0W@133,"A kerdeseket"X@275,"1 csak "A$(0)" nyelven"2X$@339,"2 csak "B$(0)" nyelven"ZX.@403,"3 vegyesen mindket nyelven"mX8@500,"kered?"wXBV2$XLUU1XVV2$"1"V2$"2"V2$"3"ʄ:(V2$)1170,1180,1190Y`U18U36U54ʠ31,0:30,200:30,100:30,50:30,20:30,100:30,20:30,0$YjU18ʲ@273,">";:@401," ";DYtU36ʲ@337,">";:@273," ";hY~U54ʲ@401,">";:@337," ";:U0rY1090YC1:K1:1200YC2:K2:1200YC(2):K3YX(I)YA(X)11200Y31,0:30,250:31,2:30,190YP2P21:C1240,1250QZ@5,"Kerdes "A$(X)" "A$(0)" nyelvu szo";:@69,B$(0)" nyelvu megfeleloje.":1260Z@5,"Kerdes "B$(X)" "B$(0)" nyelvu szo";:@69,A$(0)" nyelvu megfeleloje."Z30,0:31,0:30,0Z@210,"Valasz";:V3$ZC1380,1290Z V3$A$(X)Q$V3$:1360 [Z(A$(X))[N1Z,[(K$(A$(X),N,1)=[2K$";"1360J[<Q$Q$K$P[F[PQ$V3$ʲ@537,"A valasz helyes!":P1P11:SS1:A(X)1:1470:NZQ$"":1350[Z@460,"A valasz rossz!":@517,"A helyes valasz "A$(X)" lett volna!":1470 \dV3$B$(X)Q$V3$:1450\nZ(B$(X))&\xN1Z:\K$(B$(X),N,1)K\K$";"1450X\Q$Q$K$^\\Q$V3$ʲ@537,"A valasz helyes!":P1P11:SS1:A(X)1:1470:NZQ$"":1440\@460,"A valasz rossz!":@517,"A helyes valasz "B$(X)" lett volna!"<]G020010:31,0:30,190:31,2:30,G:31,0:30,0::31,2:30,0F]Q$""]@716,"Eddigi eredmeny:"P2" kerdesbol "P1" helyes valasz!":31,0:30,140:W040::31,0:30,0:W0140: ^SIʁW0300::@788,"Minden szot kikerdeztem!":31,0:30,70:SOI:A(S)0:::220^31,0:30,200T^@915,"Folytatod az ismetlest?(I/N)":31,0:30,0]^C$i^K3K31^C$"I"C$"N"ʄ:1590^K325ʠ31,0:30,230:@945,"IGEN":30,0^"K350ʠ31,0:30,230:@945,"NEM ":30,0:K30^,1530&_6C$"I"1600:S0I:A(S)0:31,0:30,200S::S0:220>_@ K 1200,1200,1190_JI0ʲ@2,"A szotar ures,";:@66,"szalagra rogzitesnek nincs ertelme!";:220:31,0:30,200:H8050::@398,"> K A Z E T T A R A R O G Z I T <":30,0_`T@590,"Cseveld a kazettat a megfelelo helyre!":@654,"Engedd fol az 'F1' gombot!":@718,"Nyomd le a 'RECORD' es a 'PLAY' gombot!"`^@782,"Indulhat a felvetel? (I)"`h"I"1680`rJJ1:J30ʲ@812,"IGEN":31,0:30,150:Y06::30,0a|J60ʲ@812," ":31,0:30,150:Y05::30,0:J0a1640aQ0Y71a#1,A$(Q),B$(Q)[aA$(Q)""B$(Q)""A$"-"B$"-"1720baQa:@665,"A felvetel kesz!"aT01000:::220YbI0ʲ@2,"A szotar ures,";:@66,"a listazasnak nincs ertelme!";:220:31,1:30,1:31,2:30,100:31,4:30,40:T08::@18,"> S Z O T A R L I S T A <";:31,1:30,0:31,2:30,0:31,4:30,0obK0:S0:J0:S$""b@200,"Milyen rendszeru szotart kersz? (1/2)"b@338,"1 "A$(0)" - "B$(0):@403,"Vagy":@466,"2 "B$(0)" - "A$(0)bZ1$cZ1$"1"Z1$"2"1830bcK1K11:K115ʠ31,0:30,200:G010::30,0:@240,"1":@337,">";:@465," ";cK130K10:31,0:30,190:GO10::30,0:@240,"2":@337," ";:@465,">";c1780c&Z1$"1"X1:X2d0T250050:T1013::31,0:30,T:::@18,"> S Z O T A R L I S T A <"4d:@205,"A listat:"dD@338,"1 beirasi sorrendben":@403,"Vagy":@466,"2 ABC sorrendben":@545,"kered?"dNZ2$dXZ2$"1"Z2$"2"1920ebK1K11:K115ʠ31,0:30,200:T010::@553,"1":30,0:@337,">";:@465," ";OelK130ʠ31,0:30,190:T010::@553,"2":30,0:@337," ";:@465,">";:K10Yev1870oeZ2$"1"Y1:Y2ueeX1950,1960e@0,"Sor "A$(0)" - "B$(0):@60,"Kod":@64,"szam";:@124,"szam";:19701f@0,"Sor "B$(0)" - "A$(0):@60,"Kod":@64,"szam";:@124,"szam";jfF039:(10,F):(117,F):31,0:30,F3::31,0:30,0fF064:(127F,6):(F,6):(63F,39):(64F,39):f@972,"Az S billentyu lenyomasaig a listazas all!";fH128:S10fY2020,2200gS1I#gS1S11:HH64:H832H192gH768ʲ@192," ";:@198," ";:@252," ";:2060g@H64," ";:@H70," ";:@H124," ";g X2070,2080-h@H,S1;:@H6,A$(S)" - "B$(S);:@H60,S;:2090Zh @H,S1;:@H6,B$(S)" - "A$(S);:@H60,S;jh*"S"2090ph4h>E0:@972,"Akarsz megegyszer listazni? (I/N) ";:M10hHM1M11:M$hRM$"I"M$"N"2190