UMICRO:2 U2,C :2000DB$(40,20),I(20),V$(7),N$(20U,)-DA120:I(A)1:TDd11)"*** "(147)"PROGRAM PTK ***"xDn:(5)" Bemen{ adatok "(21)Dx"H}ny db";KD{K7,"Ennyi adat nem lehet!":120DA1KDA". neve";:V$(A1)DD600E:(5)" Elj}r}sok "(21):"Befejez`s: #".E}U,K0K01:K0". ELJ]R]S"NE"K@REM A LEIR]ST!":">";A$^EA$"#",350hE1000E"Felt`tel van(i/n)?":">";A$EA$"n",300:A$"i",230E"K`rem a felt`telt!":">";A$E2000#F"Melyik elj}r}s k|vetkezzen ha nem teljes~l`s melyik ha teljedU,s~l?":">";A-F25006F"170gF,"Melyik elj}r}s k|vetkezzen ezut}n?":">";AqF63000zF@170F^:(5)" Kimen{ adatok "(21)Fh"H}ny db";K1FrAQ1K1F|AQ". neve";:B$F1500:J9,420F3500:J99,420G"Nincs ilyen eredm`ny!"LU,:380:G"V`geredm`ny ez(i/n)";A$QGA$"i",4000:480~G"Melyik elj}r}s v`g`n legyen kiirva";K3G"V}rakoz}ssal vagy R/S-el (v/r)";A$GA$"r",4500:480:A$"v",450G"Mennyi ideig";K2:5000GGN7006HX"K@REM AZ ELJ]R]SOK EREDMU,@NY@NEK NEVEIT!":"Befejez`s:#"NHbK0K01:K0". n`v";hHlB$:B$"#",K00:160{HvN$(K0)B$:610HHF0:P1H6100HS$"":6000HS$"+":6000H S$"INV":6000HS$"*":6000HS$"(":6000IS$"/":6000IS$"-":6000"I!SU,$")":60000I$F1,1300>I.Y3:6300I8Y$"SIN"Y$"COS"Y$"TAN"Y$"LOG"Y$"ABS"Y$"INT"Y$"DMS",1150IBY6:6300ILY$"INVSIN"Y$"INVTAN"Y$"INVCOS"Y$"INVLOG"Y$"INVDMS",1150IVY2:6300:Y$"LN",1150J`Y4:6300:Y$"FRAC",11504VU,JjY5:6300:Y$"INVLN",1150>Jt1170aJ~PP(Y$):P(A$),1300:6100JB$(I(K0),K0)Y$:I(K0)I(K0)1:I(K0)51,7000JJY2:6300:Y$"PI",1220JPP2:P(A$),1300KB$(I(K0),K0)(128):I(K0)I(K0)1:I(K0)51,7000CKY3:6300:Y$"EU ,ND",B$(I(K0),K0)"R/S";I(K0)I(K0)1:K4K0:MK1020KB$(I(K0),K0)"=":I(K0)I(K0)1:I(K0)51,7000KnKAS0K1:X$V$(AS)KX$(B$,(X$)),JAS:K:J9:KpY(S$):6300LzS$Y$,PPY:B$(I(K0),K0)Y$:I(K0)I(K0)1LP(A$),F1:DU,F0!L:LA((A$,(A$)P1))HLA0,6150wLO((A)):A0,OI1:OO1:OP1:OP0:OI2LBOIO:B$(I(K0),K0)((A),BOP,1):I(K0)I(K0)1L I(K0)51,7000::PPO:OP1,MB$(I(K0),K0)"+/-":I(K0)I(K0)1:I(K0)51,7000:PP1:&MB$U, (A$,(A$)P1)SM(B$,1)"-",F11:B$(B$,(B$)1):F10dM1500:J9,MB$(I(K0),K0)"RCL"(J):I(K0)I(K0)1:I(K0)51,7000MF11,B$(I(K0),K0)"+/-":I(K0)I(K0)1:I(K0)51,7000M$PP(X$)F1:NPY(A$),Y$"":NY$(A$,P,Y):