$p$) IF HouveErro THEN EXIT SUB ELS FOR i%=1 TO 128 IF Vname(i%)= THEN HouveErro=-1:?"Var$) IF HouveErro THE(NParList(1)) CASE NParList(2) CASE "(NParList(1)) CASE EWIF(EXP(NParList(1)EXP(-NParList(1) NParList(2) CA ELSEIF LEFT$(u r#=NParList( $=UCASE$(LEF T$(exp$,1)) " THEN exp$ EXIT DO E IF Vname(i THEN EXIT F :HouveErro=- $(ParList(i% =LTRIM$(MID$ =RTRIM$(LEFT NParList(i%) p$=AllTrim$( FOR i%=1 TO =Retriev) FOR iXIT SUB  ELSEIF ="{" AND=LTRIM$(VAL(exp$" THEN 1 TO 128="" THENEXIT FORNEXT IFvel (";;") no  HouveEr FUNCTIO NEXT ) IF z$>="A" AN$<="Z" T Modo=0NParList END IF CASE "VCtd(i%)Parent%=DoCommanVname(i%$=AllTri ParListAS INTEGFUNCTIONAllTrim$END IF ParList( LOOP (exp))  TO  IF$=UCCalcF i$Bloc)THEAtua" THLEFT$(uc,LEN(uc$ i%=VFn(ro THEN CASEELSEHEN exp$(Com"SENINST exMID$RIGH$,2)VCtd$,1) r#= FO:r#= uc$" AN Mod)AS $  THE DIHouvErro)=""1 TOarLi$,w%$) MPLi=VAL(blkAO")) 1 ar$ND EN ecel ghF F #B ibn$9 M x)y  ck"k$k$O 8Pt(~  EN&D ( >)=$X,CT *IV nXT=ST=S=. "=LOGEXP- "TG*>2OR@2 " NdR ,x$ne]s=Bc$_c$E  d$4 5IF  ?="@129N i%)SE STRvarblkm$((1) Tar >$e$>N ()+ ?CA("  1%=2@k%A NP(?DO i  fBA(i$=C$((exEI(D f$="}=Ek$(ex(E e(xp$STR$( )))N(?IF  FN Gl= )-1 E(HEN""(!v$=IJ$KL)-2%(="%)=v$OR(%)#M:$ (%Mi(&v$'encontrada"A Ni%()<>""i&v$(' numrica"A(OPEN EXIT)$)- ))$r# TP *Q $+,D z-P "1. R1A MID),j%,1)/(2))01ID,D i-STS TUd$% TPT$>V:NEXT Q )A WR("0123456789"XYU ZTJ[=" 2=\(i?END)SU?z T$(]+HE!3Pare I),1SMDD  TS^1_RMNS:k%`rEOR SEa="FIMbDco=SE$(ZL4d T  c$,7("dOR 1 E) ZTe5)=e6 k%fN7(i%?": 1)$* gM SHARED o 8ER hei= IC 9  5j :(MID (UQ$>$ ,2K>$) 2=0 ;R $)A I$ <k TS Pls 1)MI  m-1?k% nx$=Y( 1 x$  D IF= (<  / (/ r#=/ TPone  %p(Y(u %=WRL, RIFa="(dIones 8.LINE INP6#4=REM $:exprn$=C$(%S ? iveT$>$,"}HEN Ni%2 09q]p$=Y(m+1))<3%=1@L0 TS $;BASE$*1 ^r#*H"`.5lst(i"A k%R r#Comd$,i%% Prog(!A l2%Pl2rA$=CHR$(3DYNAVnam(1 T ProER KEY(Canc ?" DOcmd$sI-tnAttr(VQXIT vu OR A>]-2)) ("; noTjEvSUB  Blo$(blZi de KEC$(OpHwEOp$,%=INskPuk%) 0 F(Pb+tR j%=kwl%=l%F l%1 THIF r$1)="pSELESOMA^@ NE":r#=SQR"MEDIfFUJ_o)="Duc$=?Av%=l1(thn%Vels%$,8)INGO 1VFnNG,10)UT expND <>"MID%=0 w%Op$OR ="(nt%=")EN INT "S CLEAR,,16384 '$MICC x7,\y28dDOUBLE,7CcD'0=Prompt 1=RunCbrDCgy024zdeER,Gl e{OON {GOSUB |f RANDOMIZE TIM?"Gama-Lispro 1.0"Copyright 1999 (c) WendelSoft"}1 ~".",E0 cmdi 1 jd k|:<|ado>"fERETURlSTATm(zmnRTRIM$(z$,oexGoU$$%N pESUBH8q i%>128r"Limite desis excedido"IF LEFt1:=uI$J)K=r"Chamada recursiva,sl;") foi criadav)=; Lw=;vz$)u ?"blocofuno":he=-1:Ez<,2q$)-2$%Np|eFUNCTIOlMOGOpN(Op@RROR 100 O}2)gM zN) w(" " QDRS=1}=wT,w%,1x$+U-U=",q="Ar$<="Z">)|e?IF':X,}"XYX)ERASE7  @+(UBT@-)ULT@*@/@\)OD@MO+"FATORIAL" n#=Z1#>1,2n#i%yPOT@^(INALG-ORRNDABAB/"RQ/"=/"=ICOCO=TAARC=ATNCOSTANH/00#+"PRODU10#*"MIN%)<"MAX%)>"AN 0= r#+Y/k%=.5*[+AG, k%Yr#=r#^(1/[*IGUAL@=)AI>)EN<1@AN+"OU@OUEXC@XIMP@IMP 1QV@EQV2)NAO=NOT Z E":IF1N\(2)\(3) :?"Operador existe;")":Modo=0 $n$(r#jducd$,n$=""iT,1N n$=n$+x$Al%(n$>sll%)^()),4EL "DELl1,5x`",")l2,x%)l1%<1%=1>dx%>0 l2%=s" EXITFUNCVCtd(j%+ProgModoELSE" ?Retr i *R me-=0:" )3\6IF7^8 O i%9_ `H=" ==>l=!a)? @o CD ")F?"&r>WcY=NN ?ste;")TIO iev f)+1!-- f)-16)="APAGAR v$^(ucF v$="* 8H:(i%:Lf v$ (fOff f<>f(ffH"fffffIfffJ": )f l%>fnesfNf=l%R ffff(uffmef="":ff ))+".GLP" OPEN fff f c$,7Sffsta de fN f f f ff )f HouveErro fAS #1 i f LTRIM$(STR$( f uc$ f fR(uc$,"= ao ]"  "DoCom@f= ORf;0 f #f8IRPARA f6A(u:)f>=" Bb5ffI,";>l;" chaf?";l%:#$f Enta> [SenaHLrPara fC++fC--M"ExecM"LeGrava4aveisM"ApagarIr/*J?"FimM"SaifBDelMf:OPERADOREoperadore%N SubOMultPv PvInOModQnORqRSinal Abs SortSM"Ta TaG Nt Produt Fatorial PoOLogUxp Sn Vs TgRArcTg" KnHVsH TanH MinRMax Qga Maior Menor ER Ou OuExc Imp" LmpUqvRNaoM$?"Cof?invlidoENDE REM $STATIC '(e$fD X=UCASE$(fD)f4df,fEX f>[fE"f(fMe/(<)6(e[Y fF"fG:fFIF i%>dfGf@'