= LEFT$(n$, 1) IF  1 TO LEN(ce$) " THEN ct = ct ce$ = LEFT$(ce$, THEN EXIT FOR  = 0 THEN EXIT D - 1 LOCATE , 1) IF k$ THEN EXIT F " THEN n$ = LTRIM$(STR$( SELECT CAS FOR i = 1 k$ = MIDIF k$ = HouveErr$ >= "A" STRING$;;< Ok Mensagem NEXT (MaxCol,FUNCTION = INSTR = AllTr Invert(1 TO 7) FOR j : PRINT " THEN  COLOR LOCATE MID$(ce: p1# =  + CHR$(Expr$) CASE  w2 ( FOR l = 1 + 1 TO l,  = w= "(+ 1  ELS 1  ct  + 1) IUNCTION w$ = "-" OR MID$ sg$ AND$ <= = ") +  Bo 4,  ressecla para coVAL(n$))a$ = INPw - (ce$END  MaxLin)  SU chr DOSPACE$(9Tipo AS Ajud, c1 NEBuf$) =  prm$ +  DI THE EXI$, j LO PRI : t CABct  p2#PRINING ct = li $ = Arqu BoPromk$ c = har$ =  LE NEX > 0 IF i =  - 1(fc,(prm =    + ,  ) i +al 'IMNG,enCoOama 6RINTptOp<>":PRAD= -TOptiv vaelPoXox 4UT1UBENEN k$E1 T N ] ", Fa$(ffl( l); N:8c$ "O;ORE ? ) mF n$R  w3M) = 1k$+ 2N C(iD <D >ORE pc$   =, i) +'()l*+ l2,c1( (w2- + $((./0(E")-1IF2= (34F o56'w$7897( "+ :(n$, 2):;-$: w$(w< w= ("Z Retrieve$(n$4F;>-( : " +(20, ""?"; > $@xA2, 23, 79, "BB ",1$PCione alguma tDEFntinua$ -GH) r": IJUT$(1):  ""  K1) $L, i= 0MIF "4F wo$NO, PREM $STATICQB MSUBP);(ln,Rl(S wL, RIGHT$(TU? E V  Lt(ct)im$(3er ii, cWSTRIXaNaoDisponiv ON ERROR GOTO = + L 1 TOYchrlRl(4);ZXT [(Bct\n$  VALf$>##" 0EIF f$>:]$ =]^ _M SHARED a, M  15, T 7, 0 `NaT S , $) b, 14F MIFcOP ) MF5  dNTRl( $im$ b  e = 2fSe = 5fS MSELECT ) + $  g= g # = G[ "!p1# hfSE " iT USj k2/ k( LOCATEl+ TxtmLEF$DYNAMIC"")" ExpC nivo)WSTRoxTitloxp i$, q rc +)ZXT  DialogBWSCALC.H 0E AllTrim$ cs = ""`N + TEt:());Rl2:dNT MIF # #)uNL)cOP $1vT Iw` xi >:Ln^q parl$ = k 1 n$>" km"9k$ ):aT opmop yi z)) !t[(o${ f)fSE $2) D MenNn = )V For Tit op(+Xtrap$ OP~ op RE c "^p 1LENn Ti,SalX}- NEX 2FORJ #1 xS UNT11, l" TH0rvl`E(m$)}LTRIM2, csf <> 4EFT$8R, 1)2 -  ENDSUB  CalUCAS j =A: t fjK, w ce$, opn$}o FOCalcLOOP_ Bufgk$ =" OR VAL(k$)9<[+ 1)}k(a$ <>CASE CHRz TO - 2 pl, Expr f$ ), 9m$) prm$";;">"~ ct Lt(Larg + 2 40  \ 2yl, ""0 'c 1.0-Copyright 1999(c)WendelSoft 'Aviso-Projeto inacabadLEAR , , 16384L RANDOMIZE TIMERFA-ZF SEG+ WSCM(7N(26uNome,uLinhuColunuTD+Lin,l MaxLi32:16+%O,tPo,Q$,+G,Se$,$, OKEY(10) ST$<==<>==>.OR..AND..NOT..EQV..IMP..XOR."(1)^2)/*\%3)+-4)=M(0):5)6)!&|" VIEW 25 m2 mU i$ i" " c,UV(i$W o$Semulo"tNucleo DATA 7,Novo,N,Abrir,Ar,Sr Como,C,Sair,r,Sobre,o,a,u : 1 I$(1, "o YLP nao encontrado")SUMET atulo "a do c".1Z1/E$(80)0 OPEN "Ylp" AS0IL EOF(LINE #$ l$*** 10222(l3$(l4`.0 ["'0\k$; V 8 23 10 r ou a retorna a$"0 5 CLOSE  ^ ^$(R$66 QB Box (l1, cff(f0_`_ "Ŀ"fc(c), Rj* :i)bci:Tcc17 l1 (12c(3);Z l2 (76c(5f89));!8);2cd!e M L f g ce9(E$h i= w TOj:" "+:k 11il: n152=E 61244 738833931041155e$bb, t) t e$w"O # 1N(n@+ tkINSTR( "!")nN 1024oj)"! # i?"0p, 1W IF@"%A."$pqr ""sw3-2 +%k$bԉrlk$+ Funct$(,l$@,ډ(s%0$MIF+(p+w1)@, w2LOct$(3‰tu""i =%aމ"0v= ".w((+v=8) (aD aE "))(k k= "Z") nmqE& &($Bt" eT& IF Éc$ ='(Hwf &o ikx(ocOyo= BctT DO$"(kop$)1$bkop4$(i)p1$x1$:T op` p1zp2 )o "+D +E-D -E*D *E/D /E\D \E%D MODE^D ^E=D =h$(0){p1# <>E=E=ED EQVED IMPED X<E>E&DE|D !"{NOT p1#(i\Fp1#))i= i݉(j)|2) TB- 2y5}$|16ION Celula (, nl, nc) fpnl: fpc + nc7 4 + * 9 =~l)%{ fl0/U);l 'h)Ɖ=g n# =g=t~lf$INT(#######)EXP(.##^^^^)FLOATiTL(Fn#)we=f$, 9Gf$; n#;: G"\B \"; $? $ (,aΉϻam$'] instantanea 0*]Fnfirmarl*" 'Seleciona arquivo*";;o r' genericASE Se +" r>"? =|3iA= "; HT ctGsI";"OLEFTkzbk + H pr ct k =щk > }arg c1 =- c21ctii2c2erii}i 22}COLOR 0, 7Y,c2, ctZ li,-) \ dimF nN J_Expressao$(c, l)$(Txt$, p + co - CASE CHR$(0) +$ = DialogBox$(1 END FUNCTION Formato$(c, SELECT CAS l, c, tl, tc END SELECT END SUB  CLOSE #1 COLOR 15, COLOR 0, 7 (a#) CASE STRING$( GetExp$l = 1 TOc = 1 TOTipo%(c,$ = LEFTMensagem END IF "" THENEXIT SUB$ = CHR$ (EXP(a# EXP(-a#) CASE  - 1 IF = 0 THE$ = UCAS + 1 IF1: PRINT SPACE$(DialogBo(Bloco1$ THEN EXt$ = t$ Expressa CASE " = 1 TO  MenuReaCOLOR 0, AllTrim NEXT  LOCAT": r# = MenuTecl AtTudo: PRINT ": r# = 1: IF  - + 1  INK$(13 IFN Txt$KT$a$( + 3, 5, 2) k$, .WSC0); para255) FO Max FOR = ") = : NE c, Arqu) + MID$ p + tam THE p = ENE k$ Arq co = cLTRIst(cCalc co  LO$ =  BIN AS  Tit = - = ASC(FUNCNEXT$ +  nao CAS SUBibirl = tl + - 1GOTO: EXIT DLEN(Prom ELS GET #1 p& c = tc + 2, STR$(pls " +fexp Mena(i)COLOLOCA, CH = i R k0, ", 0OPENELSE DO = CHR$LEFTPRIN(pc,Funcct =uivo it 1: Txt =  = ) +$ =$)" 3D UB4Eo "1) thNjSU N alnILp l5, 7l)rMaR  tNu$(5: R  !,  p?1(6));$((0)N  cTR) $)) SSQRRNDINTLOGEXPI* =KEYKcY$ c 1(pF) ":  25tacx$N "mp#1)wTmpL Tmp itNOT  mcU$itt1xt ";  "^19 kl,ct_4c1_5__4""); 1_6_7EY$ IL _82_9_:_; =Q$_<(_;_=64), 64)_>34, 55, 0_6_(_?3_@0, _;_A["k$"\k9(_;)I_B"._: k"_CuE$ J3, 35L(_B2_De 3_<(_Em$_=_F, _F (_GR __HLin:_I __HC(l: __J": _ l_K(0: _l)_J"_LXT_Ml _Ni( Txt__ 2_O_P((_9_Q_R > m_SN_T m -_R_UD I$__V_ "H"$ _ _ ""_ ")_9_W$ =_ _ _9 k_(13)_SN k$ = k_, "_Niv_) +_)__X_Yo_ co__E$(_ZM$(RTRIM$ Pli_[_KVAL(_\$(p____]>_R_SN __^OP_^CA, _ _!8_D $_ SArq___"x$(2,$_I_`ARY_a#1 vo$ =_W$:_b_c1_d_e_P_#,_ _fTIO_) -_)_d1__$IT_I _g_h_12, "") 5_SN _%+ "_ KILLo_i encontrado__ _jE__ _kEx_l_&o _m_n l_o: __'": _p _q_rO _jE _;,_Q co_O___GR i_(7_ 1 Cn =_)d(-1)_ _G_* 7 Celu tl =_HLin_o _sBox_tp _u_V_J __U _ _v_w, p& $:_x=_x+ _ =_+$( it_N _!9), _,_g _ _ _y_z c - _ _-E_{ _ZM$(_| _P_}t$, ct_Yt_5 _$_r c_Y_5 N_ S_ (a#_" H_..5 ) _* _-E l, _P(_;, _jE_uE _~ _$ + t$_J_N "WS_\.Tmp _%+ "; ()_aSTRING _uColuna( _/_ _SN _R _TE ml, m _ _R$(0_O MenuRead_ k_E$( _0_c__ _1" __ 0_SN _m1_"____"_)_ _jE 2__W__~_W) EXIT  _ _w, 1,CLOSE #1_ UNT_#__SPACE_(__O__h_PU_w, __  _T  + _z 0: _To$_ p_1_&_tCal _ 0_1__}t$, __'N_2S_2_._fTION +_]- $ =_7ECHR_8)_T p -co =_R 1_SN TE , _SCREEN(l$_JLis arq_WSCALC.T_ t__t_,_^CATE_uNom_uLin_":_=  -_3+_3_y_t_m_: _TE; _LXT: t_mt_Ot$)  Box li _{_o 4, ct + k$_?, Tx IF _E(__ ___DoMe_b_0&_LOF(_Wsgn$$ <>_S_h_iormaWS C Bloco1" p, Bl 4 _y) l)_n_ + l$(9)$_LOOP__Gi_ Ex_sExprEEK(_pCASE_7, 0_o)";); "_ 80  POS(Funpars$)))plsti, 1_J_g Pli_a INS_5(1)  fc$: r#_Io__q (l,_Matxtp_ > 1 OR  "K" "M"_1 TO  <> cor ista__ SH> = 43 - (1t$23) \ 2 + 1_ct,_ 2` =a(li_>ct, 20m_b_+$_20_$2"_SELECT cxk_ nu_dd(0e1_vo"Semulo":f _Abrirgt__&_$  :i$_Bkb_vl b$ b__m oi" do fto _c"_B_IF_"....6__x> t&56ASCo 2_) 3)_eRIGHT$o, 1q$(ln)_: pp&n fr$q_fr6 9 _8fr 3 T93 4 gPUl_R l_xLin_c_xCol__)_i > 0_procos(ct(lt(tit($)__ +:9_AvS1)oco$w; 3 _Salvar Como_Ni __: CLS : SYSTEM_ 6: n_"_c;Versao 1.0;Copyright (C) WendelSoft, 1999"e7: Ajuda<" #(=)_$p> 1_@x_!80)@2y_3zc);A(tl_4E Tipo%_ ple{ "(Nul_ x "(Valor:"; Ft|l)";f}"(Text<y":";y_~|l),-__N c$ c$, fc c: (_irpls IFB _,"_C C DIM_[t)DOUBLE_ w =_","_wDO_$w) _E _B w_A lst$a# =st r#_SI_IF"CO COG"TA TAF"_ć_H_Ň_ń_Ƈ_HAB ABG"SG_GF"AT ATF"_LJLOG(a#) * .4342944819032518#L _H_ȇ_HSIN_e"COS_ "TANH"_) / "FAT1: j&ra#_ r# * j&: _ˇCVI(_IN_˽(0t(0), 2)e"SECOND TIMER_ : HouveErr-1: a_"_ao existe : @" +)IT < c_A(r#))% atamt$J7 _$ m = Tx 1_XKc, {Lp,_R);_̉1, 1 8 ky_4E ky$&8_ _R'"":$'""_op_ N__"" N_1:_ phN 1 9 cco: __) "S"_""_G_co "O"_m1 STEP -1_9L_" "_i_щtam: _Mky$) =Txt$(* 2kyMID* 1), m): 9 GetExpky_ Inverter c_l >_l < 1c >OR c <__s(, c= ,1_A_MOD 8, 0_}c$;" LrArqs Title_rs" _tpt_r_$8_(3, "*_C")_b a_(_Aguarde ... prendo l")Dir_ /b /oen > _"ELL k$Oivo(s)_;" _ "_"_`ARY_ __Oiv"km _P" INPUT_ c2_ EOF LINE INvl$ l$8lC c2_Y2 _ 6_ct_Q"_l, 12_ct <>__ 15_ <"QNumero des :" + _|(c2_P" a_t$_" _ _?3_TE 2_@}_;;_Ndd (z)AREDeR,ha(),S), _/aR _iCSRLIN:_Col =_)__c(_zJ7_+ ml =h__ =Si) mn_e(i)_T_2 = mc +_(_(mn$), _(t_š itU Vc}mn$; _zU1_Vc2}t$;WIF zz2DO 7 k_X"K_ 9it = 7_P"X"M__> 7_it"': Yt_rO&7M Zk$)+ ZT) i <= 7_Y__ z2_c1wTE _in,_Col% _k Nucleo,LS 1, 24, 8`?1 4,23, 79,:1 l:_ xl_x1: xx_[1 - l2_c2 AtTudotc_ctl_lN_0.\8kc * 9]__4zkc _._ 4 +_ 2}USING "#####__n kl Titulo$W2]_; 1-__\8 k_ml AND kc_/la_ kc, tl, tc_;_l~oJ$(DialogBox$(3,  AtTudo = -1 CAFormato$(nc, nl) END SUB  l = l da celuExpressaSE CHR$(o$(c, l)(nc, nl)lxNl, xtc  IF l = l: xl tlchN tc" BProm$ = tc +TRIMtl + - 1)) ) =  = " IFCASEoxTiTipo") > THEN f$ SUBSTRI, MeFLOAFormCOLOMenu LOCATE = inholu "tl"te ,l)+ 3pt "6D ;na 1J J_JJhNJ "P"J J2_9J07J 08) c Jttc tJJEc(JlaJoxJptJCHR$(63 + J(c) + LJ$(STR$(J lJJJo$lJRJJJo$ JJ0)  JJ" J INSTR(UJ $(f$), "JSE "JJ!tleJ"Digi JJ =  CAJ0) + J"%J =JJ# 0J$J% =JJ&() AS J'NGJ( MaxLinJ8 " Mensagem JJ)T" J"J*ato J+R 15, (J,MaxJ J J-J. 3, " tJ 20J J$N tlJJ JJ" TH: PRINT J,Nomea()J(nJ,Max FUNCTIONRetrieveJ/9J$c = J/1 0 JValoJ*(c, JTextcialJ)JparaJJ 1  ENJ- 1, J,lJ0cJ1 Exp$) LJ0CJ1TeclExprz$%N &8: t&J 1:Jt&10%NJ$J2Itl -J3 < 1'J2QJJ3 > =J2S" (o$)"=J4*rJ5 *r/+ulaJ6$,J7-IF""%N"0"J +atEN J"%J7' 'J4.oJ5 .oJ6$(nc, n)) 2J8";" AjudaJ8">J??nJ?@aJ>Max != !+5AJ@9@akyJ@9>a:a 9?naJ< " #$ (v=&ASC(v$) - 64 JVAL(MID$(v$, 2-#4Calc$()J;" J& Titulo (A=m$)" +J= + "" n = LEN(m$)12J'NG$(78, 196);40 - n \ 2m$;