4) SELECT CASE k$ CASE  ELSE TrigUnid%=TrigUnidNT$ IF Dbg% THEN DebugProg THEN EXIT FOR NEXT num$=LTRIM$(STR$(V "; LOC CASE CHR$(0)+" END SELECT LOOIF Buffer(i%)=oFormula$=prog(li$=LEFT$(Formula$ END FUNCTION IF LEFT$(Formula)+MID$(Formula$, LOCATE 8,1 k$=UCASE$( %=1 CASE CH :EXIT DO CA CASE CHR$( IF TrigUni $ Buffer(Bc k$="" CAS prog(lin%)= Display num$ FOR i%=1 T num$=LTRIM$( )AS STRING, $ THEN op$= =VAL(Buffer END SELEC THEN lin%=li THEN Formul MID$(Formula  END SUB IF FormulaCHR$(0)+1:IF it% THEN it FOR j% MaxF%  ELSE  END IFTrigUnid LOCATE,c1:?chrAL(num$)(TrigCon) CASE EXIT DO  THEN li CASE "ct AS INprog(lin) NEXT $=LEFT$($=GetNex COLOR  ,"",0 =INSTR(n"+MID$(nSELECT C num$=" Bct=Bc:lin%=li)AS STRI Buffe") IF  CASE " THEN  NEXT $="" R("+-*/^GetNext$?USING "+SPACE$(EXP(-x))Formula$FUNCTION DOFc(i":it=it%MaxF(13) ELS+1 TIF LEFT$,1)= IF%=j%6:?"  THETrigd%=1 FO)=nu=1 T)) v(r,%,2)n%=1(0)+ DITab]Bct=fflanum$ TO " aSTR$" i)=l$,"", Boum$,ASE i%)="" Reg(VAL(enteNEXTenoH CA ANDn%+1BuffBaseProgDebu i%1) END IF =numCHR$peraLOG(progSPAC:IF lin%charchrl C3) :?",3:?SUB THi%-1k$=$ ) GOTOBctRIGTctELSFOR op1=i%":p$=":r=:IF","DEFDBL TIMEM 25111:TY0 AD]NG5O^%=g() 6%=0ador09x ;7brogt-< 1TE lr 110elENALhm$k " "AT="$="R "$>aopF  OR n -1)+="EN(+R$ T$("0045:?(n2$$ )q"=aTmp( "Jses Dbg%"-x",=1N $<>"1=pps"LTRILOOP0=1QE (rq  12  ^%ConvENS$)Disp=### * (O6:?Pt%);I(KEY$$"H",($"KQ%R-%=0&%=(S%P",$"MQ%=(it%+%>S%&R$(TSE "Q%=0(SEUE'RVO(WX((Fc(j%)Yk$Z j%(S%^N'cO it% WEF .d N/e+f0Uni`%:1P 02g00012nR$h AATE 3"SE4TEGERiM T*j"0)+ 5%)=LX(l^Nl$+k$ P6 k0 ,k$ O 10 lig lg%num7m,30"n"9 ,"o8t$(1 ST)E "p*3 p"3Fqt%:5%r+"UE 5%));STRING$(ln,chr 6 lig:lg 915,1:LOCAT ,49s0t:Box 7 ";90, ";, ;u ":k$ $3": "^N m= $* I yza$)) ), 4, ?t+2 aR icO FechaPar{ $>" |? (T =V. }(r)~S k$=xCv  znum "@n%- @ ":5%) er(1rig(RESTORE FuncNome(A+ m="" ramtx 3, gP, unid an]]OZ i%>LX(nu+ELSk$~SEBrCk>0^N m1D0zm2DZ INS)=er)%D","*","/",(1Odor1E3F /:r=r=(li"+E$s: DATA $="-));(IC  A-ZOinmp(0 RE Fc( proyLt[s,9,2 2,5 TabShif = ceXec] 8,1KEY( Canc".")0ak0 k k$ai%=0w:NEXLEN(m)-1):" IEN k$+"DF k$""":="-"MID$ n2GDOH"+n22n2$=U=Mult,p(CASE Z%"+",E$+^d1%=i%-2 k1:r=CTSINKEBEEPog l$+"%)+" IF (l$,1)="="GT""LBLL,"Sen","TnH", fflf8+ffJ '$DYNAMRANDOMIZE RNST Pi=3.141592653589793#X4B5,4TYTY1)=1802)=Pi3)=20Z[s\DIM1S%*4\READi%"1 _M00097 VIEW ?1Sx 1,1,25,808E 1,2 WendelSoft Calcula Cientifica`avel 1.0 ]";a2,5,43a44,56,2,187,3,9,8:,9,9,14:,150:,216x0,24,798E1`a ][ ]7c 10"7 8 9 ( ) Clr /Tab =dg1"4 5 6 * /  T +onvdg 2"1 2 3 + - Exp !=fatorial 13"0 . % ^ = Fnc exec Lbl4"= Rnd F2g15"Memria:e F3 mem6"@=armazena F4 dsp7"#=recuee 5:?"c\"; )ON ON )GOf=g(,))))+".>i%iEj# 1 ?2 @": 1C"lB="":0$<"%&=0Cprg"9:0TCmem"B=C'""(","."=""@D"0" k="Dm=="Em'kk>kiE o$+kE. p" ",+IF ,2)="--Dٴ,3q"#":)MRec*)(F),@")MArm*F=r,E")Exp"s$="+" s2$$=s$+0$,3Gn?1" ":SWAP s$,s2C"0"+,2,2)(":n2$+kEo s"R":-(RND%"()/100))(" Tct+1tTH",ak$)="*"H_ % jT)=)I iu(i")F%>0+1=$="(*)":%=0v 3.D"=NOT Dbgw"^"k$H aop$=kK=y3 IF= j:ij::Lt+1lbmKZzesop%3 ,opf2g=Bct{ op/1M /2Mop2EF op|p1Np2Ni%+@op$}+1+-1-*1*/1/^1^p2Ol()=M$((p1))jBct-2l(j%u(j%+2Ltij~=Xj=)Fnc" 4 rP@itwSI 2OSe^fq3A 45oss6ang{H7QR8:r=INT9:r=EXP10q110^r)/10)O"(r))+1"R"To)"=Y@k$+1 T:{ ":a^%<>a^ -v(r),a^%,^%)~qt%=zI( 4}!"tTR(,=0>-1<171N m%Pn=15O m% n=n*i% |(n))vE "P" lay "","" abrl$n%G3:J&";;_(35-l$));=U$(Y$h"HT1=)+"Py3)U=10"IT10<"Q"U0>10)+"G":p(9)1[""1["<"1[F2]"1[F3]"1[F4]"} Vn"}l$)n]|z%=l$)TO 1 STEP-1z%,["$,z%-$,l$*. it% "["+Pt]"}GVO"}L l$O " "L:"2="}CV="CLR"U}IV="IF"EW"W"END"U2=E"E:(r+! R"X")X&=-1v?1)%0"+k$ 1=102EE:a!LOR 7,0S SYSTEM ze "^"," [Cosan""CosHa"Raiz","Int","E^x10^x:agag%=0:# RETURNM $STATFINTBox(l1,c1,l2,c2,$,ff=-(f<>IFĿ(f7$K),)(*1I :(i)=$,i,1)T ln=c2-c1-1c l1l(13l(23);c l2l(73l(65); fN 83l(94);~ 8);c (UE =+2 Formu(a$=5%) E( n%)^N gPr()Z w>0 a ,w (EXP(x)+L "+RIGHT$0<2$,2),E 6 UNTIL M=af$LSE $,3)= M=!$"DE A-"DEFINT A- n%) EIF V. $,sO af$=M  w=INSTR(M,"[w+11 k ,(ANG,Z lg%^N:,k$ p#$=""z!ND 'Comandos n%+ a$="$ (EXP(x)-L Z N ";ELSE ?" "; T4TEG * n$ ", 8, =AST E k;$," ( *Z( M$(p( # i%cO F Coss} SHARED%,lg%lg%=0,^N p%100Z J((p%K^N ?"+";~SECk^N n) IBrTHEN EXI3))aR =er(NIM 5 Tang{__(x) =.5* ,num$,k$lanp%=lZ%>10^COLO,7 LEFT LEN$,Db4kd$=$ n2]GINSTkd$) ELSE $(n$HzTct=EBct  Bct=BcGRE$op2$+1,eclaa de linS)="L"GTOEND")+"]jSenoparal,c2:?(4);1NIF 2O 2PQg3 lin4RS 5:Tg%=-1UR i%=3V236 i%,51 Win%+X3Y pZ07=p%-8p%<17=p%+8Win%[N \R 15]9&";p%;^$:);23),23);Y_:))>23<! \R 0]| t!=`R:DO:a UNTIL `R-t!>.5 Z Qlay(numS)3 "ER,=4,bg%6 2,6c 2:?"Rad > 3irad";&Y jH",k>0 kd'n$=""lm(D?=0[N (E?>0@2$=MIDn,k+1)Y ^$Y"-"@g-Lmng+ND on$=^n,k-1AF#=pT$(E$(40)+n$,40)6 4n$;6 4,n2$;Y e"0"qrk>0[N e"Num$10:?^$(kd$;4),4)6 8,c s0<h";t UR =1VCT lSE=pp2Dt-2G .$=l$,BL1:og"[NJ E/ (I,"+-w+"%=0INH%)9(##)";Tct; Z QFechaParenteses3 Buffer)Tmp)uAS INTEGER,"ERR$vwt+1B(Bct)dfumxySTORE Operzesop%3yAD {,|}=0 DO}~2Y i%>=uDO opx 1*{2*|+ op'p1,X)) p2,i%+1))%E op$D+1+-1-*1*/1/^1^p2&B(X)=-p1Ej%=i%VBcB(j%)Fj%+2)1Bcw}=i%-2 Noa1num$F1)vt=r0EiBctB(i)=i)1sTct-1 Z 'Le o tdo ou memori ram calculza H(p)3%,I,Tg%,Fc()AS STRING*4,%,k$Rbg%[N 5'Comandos de condicao"IF=0 =0  "IF> > 4))  Goto3 "  6)= L: = 7))  8(i% "+pT$1)FOR1~1YZ0 t  qI="=":=100"CLR"C" 'Funcoe% f$="["+Fc(i%" w=jRf$"~i%)6 'Ts especiai"(9) Shift-(15)y=2V4 Fy)(58+y41)Y k$=(0)THEN2) ,3) ,2)+_(I)=0 IF101[N1:5:kxIF p=0[NKEY$)PUT$(1)AF H=k$DEFDBL A- O PKHO KH=/L(r,de%,'converte r p/radiano3 M() L=M(/M(de%)*r