w$=LEFT$(n$,1) =0 THEN EXIT DO $) k$=MID$( ,1) IF k$=" " THEN ct=c THEN EXIT F =LTRIM$(STR$ ce$=LEFT$(ce SELECT CAS GetExp$(li+3  FOR i=1 T p2# CASE "  ))Mensagem LOCATE,c1:?chr1 TO LENHouveErrUNCTION " THEN nSTRING$(;;< Ok ,20,txt$ IF k$=" THEN  END IF NEXT MID$(ce$(1 TO 32)AS STRI AS STRI DIM SHVar(ct%)=AllTrim Invert END IF  END STHEN EXI COLOR BoxPromp CASE para( F1 TOOR wce$, ELIF k IF ct=IF w$="-$="+" TH$=MI>="A AND$<=": "+20,"")+ > Canc$="" Bo LEFT$(k$ CA k$,i,1tipoCHR$(13)THEN k$= 128 FO LOOP  ENNome=1 DO =INSchrlO LEBuf$O ct(txt li+LTRI DEFINT  102 NEXTituArqu UNT END:t=5ELECprm$elar tx1)="LEN(KEY( R DAFUNCSPACNEXTELSEchar+MID" OR=Bct":p1#=p1Lt(iLOCARIGH c) THE-1)$ :n=k$=* ReNNGOEMen+enivEDP,Q6))AP, in,xp(3)O el=-12AD\ lovara pr`7, 1UT ENa l$,j2R +14voeONE$= N  j$1.  nl(l(N 2:?lce$=!$, 9RuSESE:n=< ) >$, i1)$(OP-1)B Tp2## #<ORE 2 =(x$m$F;; G)=Larg k=2 c=c1+li+&c2,li+ 'E Lt$(cet-1OR(+1)D$() NG, M$(STRSE p2#t$= TA E$(dB%ct+I(4,5 ( ) retornar":a$=INPUT$(1): ""*OR l=l1++ l2-1 ll(*,2=w+މ-w2((t+1.SE/$=(")߉0100 o LO( 23" ,45(EN n6n$,2):sg$=w$:(2$7"8 w9Z$=Retrieve$((n$)0 sg3$(-VA( :;<";=<>()"k?.SE " Pressione alguma tecl@x 3,2,23,79,"AA ",:?BC,20);DS/ ")0 w$,w-E=F/E GDSE,"",0E= ,3HIJKMNGAR(+LMR j=OR NO)PD F .Q=v$RSkTTR();ln,chrU(4);SwTTRމ VNW(Bct)=n$ Lt(ct)!$( X +1"er ii,k$!$Y$)Z3,300"+[$( \]A-Z a),M ARED (+^4)A MR i=+ REM $STATIC   COLO#_T `lo ai NOPbIL$UB S ); l#c %T FO  3dD$eT %T D  )+,w  #=VAL(W(i D D > = :f=f+" g>"DSE &0,7 hB$ )@xZ2, TC,i'" j'$DYNAMICAS DOUBLS ING(+ 25AtualizaTerminadBoxTitle'k10H(0):tLinRlESTORlEAD m$) _T:mProcurarm"&,0.SECLO#1PD SUnTIAllTrim$=[$=B$(+op00 MID$))q  r$="));U($(expr$) TVN(s$)NOP (1:t=2D)>0 J) _T n? tK Bctu nTIO6k("vwDialogBof=(2$(f,kjx yTE zT$("TYPE VarQ{tP DI MenVqtdaMaxL,Ret(1 TAtLiAtCoTxtLInseLocE,ScrExec,FstSUB >O":op="<> ScLin=0|+RuDef{= REi$,k$+"  Pr+LEN`)o=-1,SalAjudDePa-Lis l= FOR INP1 D1|0l$="5K }:EXI(m$)c|UCASFOR (l$)Para$(l$FH)}=NOT~+ k>L 1,c1,c2,rf|8+ffU(i)=MID$pqN Cace$)މj=14:t=D3d$,j,INSTjopn$parl$+k$Calcct=1 Buf a$="0t VAL?R(k$8L(n$Wct+1 i=kopopop1$ op$~) TO Gf;CLEAR,,16384 'M RANDOMIZE TIMERg *10d D uuLinhuColunuTeclauMax,-Sg,%,o Prog-in,Gsub,GidxornoInd, FcFqtd,FcParFCtdOLn,l,rt,Tit,LinColR,Mask LSo,To,ErroTxtLC, op6)AU$,Vt$W)ON ON k10)GOW)STop(i^(2)="/*\%(3)="+-(4)="="+Xop(5)(6)="!&|"rCSRLINrCol=POS(VIEW ? 25 SCREEN,,1,1 AYl1 TxYinrtZE[. m $ i$=" "+i"ompt 1,c,$c(io="Sem ":Tit=0eTela Editar SYSTEM : S TTURN Men]9,Novo,N,Abrir,Ar,Sr Como,C,^,P,Sair,r,Sobre,o,a,u,Imediato,I ]2_?","PR]"_ "," " /a "a do Deltao"03 OPEN "Do.Hlp" AS #ObIL EOF(LINE #1,l$*** 10,2(l0l1`15bIF"'7b ?k$;c c=803l l=23N 10 a continuar ou 0 a$=" c:T SUB03c a  f fgRTRIM$\DBL A-ZAttrib(v$,vh(f(v$))i10),1ct%j ct%>=+1: .ctd=cAutoCorrigir al$=l$ZE [ax. max De$,$ kk,,De$f. k-1k)=(34N f f flhl$,k$s,k(Delk=k+15EN(lR=Rl$<>al$)6UB Box(l,l2$,ff=-(f<>IFmmĿ"ifhi),)M ԉӉ*:():ln=c2-c1-1112o37276o5); f89));87,c 8SUBM MeOp cf(Ep)" j=wqk$,j,1)<>" " 1)rs z$<==<>==>.OR..AND..NOT..EQV..IMP..XOR."܉11:E it:n=0 2,3݉ 4,5:n=2 624 78ቺ 8;9;105t1:n=5ቼ(zt)j+te$w=0=O w(n?+ts j R,"!"v.^4>ډ$="! i)+"0"r$,i+1wc IF"@=""1("=+k$xpar"w3=w2+1qce0-w3y $=+Funct,$?3É"(y+,w+1,w2-w?2=0$ z"""( k${".(k$)>0(k4{"-")AND("D "E n))O7" k9Z"N n$=nƉ )#(B)=k$ |+2z 3 ſ$@(VA)))}N#oc60 =op(oDOi+2>u=O()1~opIF$=Ƿ<>" p1A p2A):E+#+-#-*#*/#/\#\%MOB"^#^=#=鉺 Xp1w#<CD#>DEQVEIMPEX<ʉ>#C&ANB"|ɉ!v# p1#(i@(p1#))j=iBct-(j)j+2w|-2i-2$1/ (, 0"tF >"^ por 3щo 4:=U$+";;"+Vt:<";= <g>"<=1"(prm0,i1;1xDIM LtX,";"$BĂMID+1N$=0%Շ))arg=kx=+1=40-\2׉ li=12-ct\2ii2c2+2"erZ2,iixii=ئZctى+H Box li,c1,"",1%i+li,40-))\2:?x); >0yTEZct-+1:?-1,""); O INKEY$5ɉIi256),256J37ډ88ۉzK LEFKk~$,2,k$)-2(83ho64J34ډ55) ,"."k=0k$+".DLP" EC(54i64),6443-()+23)\2+Jc߉4,",0 ,ct)m$="fYlk"txt$"" 8SeT =k$D}NDispCoordH25,7!$ AutoCorrigir Prog(TxtLin+AtLin-1) " THEN expr$=LTRIM$(MID$(cmd$,":HouveErro=-1:EXIT SUB Prog(TxtLin+AtLin-1) Atualiza=-1 CASE  ll=TxtLin+AtLin-1  AtCurs=-1 CASE CH,1)=CHR$(34)THEN FOR i=1 TO LEN( Atualiza=-1  ELSEIF LEFT$(u CASE CHR$(0)+" >MaxLin THEN THEN ErroTx AtCurs=-1 MID$(l$,AtCo AutoCorrigir (BoxPrompt$, Prog(ll)=l$ 1 THEN AtLi TxtLin=Txt IF pv THEN $(LEFT$(expr LTRIM$(MID$( ELSEIF uc$ THEN LOCAT LeDoComman l$=ProgLEFT$(l$ EXIT FOR NEXT HouveErr) IF LEFT$(exprMID$(exp(expr$) 1)) IF (BoxTitlCHR$(34) END IF NEXT  IF TxtLin+AtLi ELSEIF UmaLinh=VAL(Cal1 IF At" THEN MID$(uc$ ?USING Terminad0 THEN  COLOR Atualiza MensageAtCol=AtSCREEN,,TxtLin=:"+(cmdLEFTcmd$)) FOR =1 TMaxL) I,INS$," l TH IF Erroexpr de END  CAS( lAtCoLEN(1)<>" TH ProTxtL=VALINPUINSTCHR$(0)+$=LE LOCAtLi(ll)colun=aaLin< THEMask$$=MID$RTRIUCASProg(l$)ELSEE,,0$=Ma$<>" IFuc$,SELEInseSUB ExecLin=Gid AtBoxTitlPromVAL() Cursl$=  )="1))LinFst="C="3o=nc$o $,#$xD FT4R 4c$ $=$ NhJ="y ) na+ O ,,"L$,{F 9d : in20? l TN rttQ1STE n=Vn= ol=Co.R$l=1 l$l-1in22 &(110`n-(a(aSE-19in Txtr$,t="E Cin+T$(IF a=-in=Col>78E$(15,cro m "$=1 (l1)t00)n+in,5)+"<)l)),3);6UB d=$)(>$=$,1)v ?g(cm (@ApBO C͙(pDF VA((ETR(lF")))=GEN(Hp I="Linha( nao encontrada"+STR$(l): o=-1:EX()!"$ J($=#2)$ (IF #iR( ChamadaKfuncao invalid(" At LIFMљN$= AOlB(O Pl$DF l,Q" RENN$=,Ol-1)+l+1) Sg(T(nar posicao" aU(Vә%a=a M$T7))$$&e$ETR&e$,'$$WRX(3$(XY$  )JZ"$,i-1) a[ATE *+n-1 , \n \ ] Lԙ - ^na.c$(c$@IF _1*`1aN T11R$Y"/יؙaN Ol=78 0lU(1, c$+" ",6 Esperado ))+'+' Bo2b\n-1) -1 ccAllTrim$(d=ceMcJ$,="CURSOR=WR(fٙJ$) Hl2=lGENSgg(ll!Nh03 ;i2Mas(("E,,4))( iaN5)+SPAC78),78)a=0 j H o A 1Lin  k$(Box  $$ n= l0 -1( J$ i 1, k$ (m   WR(n"=ܙ o= 51ܙ6=- :?>$(g 7ݙܙoCT CAS 2/Lin  CinaN ܙ8CoܙCMax )iSg(l ))Pro  -1 [ATj ܙ91, =Ι+ prtaN %="RENIT q L ޙfE$0rsGidx=tGsub(t=rLin="RETURN.1(RIGHutribvwevxpDialogBo,;yexp Hk$=4EXIT FOR(aN Izi 1:At{ߙ[AT6 Tl-Tin)T s\:an=Cin-1 HAHR$Y"8 Al2=Cin-1$(g)=gl),OlzOl|d(Ol=LE HouveErޙVT$3OD 4aߙME :l \n=|>$=?$)}uc$" OR,5)=GOTO+1 Reto~IJ k$>,Num~Bw$=MI)+Z)-xyCOLOib,1)=CalcHaLOCA$,i, ANDNEXT-+linhha<1 ^4)) pthncondpelse>nIL=-1 =0 UmaLE 2+ FOTMenuualizE,,1 AtC\Op{-+P"}TO (l2+NOT  l$= CASCgmKEY((i)=LCCLS) ,7),8)NPUc$,OXT" )="IF " "TE D$(l=l l= l cOR ") t$=inhND N d$ETRF")+cd EXefucgIFh虃ENDQUIT'" 6ip',6)="GOSUB 7jxkx)l ip-1Cmhikxjx'm 128:rno(RetInd)())!왇kgpck$<"A"Z"": Variavel# IT ""q $48ITLEhr(,9er7EXThst(,8pt4)st4)MSGBOXhbtDe$):bpDptr#=tx$(1,bt$+";"+bp$)):7,0:虑"MASK6;"f=!PRINpv=p";")E),P$)-1;kF0uGFHdE ?$; ?In%vr$)5kvr%;5k;6+="h7(k1)w"(+)-,"xf),i*ilGaa>25 aK cl"n>80,zN81FF8010FUNCTION @"N3FTHEN=0":# nc*+ٙ=I d M-1>M+4N")>xk=N"vr$=M$($(kMkq v$(ct$)| ="ǙKsintaxe <OHșq SUB EditarPQ} DEF SEGDOa;~aa,2,0R(at+aa-1< =>R TOll;3u BExiste>=BInicio<=BFim0,7 P f+3,2R(l<;t=Read(-1)u=KursDispCoord:n,1+l,1,-6*,7:At=0 PEEK(1047)A8>:Opaa=n:at=k$=INKEY$k$@In-U<2:1"Qn+U>221t"Hn`A-1  -nn>22AIF>W_K"Xl<1әM3 l+(13)Y1/ll STEP-101)=MID2),Z2+12[g]=-1Q1 1@R=ݙY"G" (9)/" "+1ؙ,4) \B]HR$(8)7(lMIlQBi=l,iuol>1X 1@ON(-)+}=-@S"N+1>1N llۙ0(l)+1Z+1)ll<WiHə \ ]z@;"^ Ajuda<ListarArquivos=ClLocar 1roro=0:Q>90,0^ a)_~ CAX"O0:o 2@?2 )ON rutar )STOP_1otx(1,)2""R i1 (i+1[g""Y12" "SArmazeN )1:)=S"=-""7rN=əl>xl=)l IS<IS>+20 ̘20 șoCT20:i6S"2w""STecla especial ^k) 6K=" h6 ll1 1< NOTa  THEN EXIT FOR NEXT CASE CHR$(0)+" $=MID$(expr$ INSTR(expr$, ) FOR i=1 T ( LOCATE 25 $(txt$,p+co- 00"+LTRIM$(S 0 THEN EXIT DLispro.Tmp" FOR i=1 TO END SUB S (a#) CASE  ;$+SPACE$ MaxLin AllTrim$DoCommanuveErro  Termina LOCATEcor MOD  END IFRIGHT$(",LocExp)SCREEN,, AtLin= CASE I TxtLinCREEN(25=UCASE$(DialogBo FOR i=(EXP(a#) END SEFUNCTIONPlist(c)1 IF coArquivo  CASE " NEXT =LTRIM$(TerminadHouveErr COLOR LastCommCLOSE #1 ELSE  THEN  ))(l$,bl() expr+1) cmd$ProgExecLin)"" THEN IF H ScrLinrColDIM 1 TOO 37sc(i,1:?cont a$INPUacor coCHR$cor\ IFCOLO:?c$ tx$=LE+MIDtxt$ CA(i))TR$( p=INSTTxtL ELSi,1) THELocE TO (i)=:NEXEXP(OPEN FOR); AtCoin+1 EN SUBTRIM=1 L(Ca FOVqtdnao :EXIEXITt$=tRead TituloArquLECT LO(LEF(a#)MacrRetI(k). NE p=0,,0 Titl$=" Prom AS  t$LEFTLinFuncplst=ct++1 ":r#) rGid=  arqfexpqtd)) ) Lin":rOR ome$=$$=">UBc$=E$($,me)bXTCdoEN=""ExeT nc*(t(PFE #=#=SQRRNDINTEXPx*=1:Y$K4," |x)R$N SE i%TmpVar=(,:  cN am ( /$() ,crivo+")ad3)$( OR`oxo$VaIF T$(=co) c$=TamSE N -a#lc$ St$=x$( $+"Varivo ctd0,7andBox$(Max" EXT PT(l()a 2l-1)+k$+3| 3k$ 1( 45,k6 k=(i TO 7=(8(9:4ז7<>;<d 7:=o(ORdo(>?=CSRLIN>@=POS(0),,( Asc(B 37C:D)=SE"Pressione alguma tecla p(ara Finuar";G=H1(C IrJr=DږۖK(L2(56)Jr=256M cor<>I T<(NR 16,L16 25,iO(PtQFT2)R$(S,p+co(M p+Tam>m TF$ 0,0 Sc?,Sc@,$1S>Yin+20 -1920TSEZE ,i)*256+S,[:N \ޖ]xpx(2$,",")M w=DO  0^3:FstL_0`Sܖ\$gD #UB"&nenFr LEN!-a$oT # oT DO'Px T"kLOF(=t$+KILLRepeCATEteLcz v(v$rNOT $+k$> N:}"ao nexiste : @"+fc, p$=F(i= %>~Tmp( Reg%񖾁c0b" p1$=RAp$,) p1Qt?$(p$,w+ pQ=Fiz))c%񖿁< nc$iSVr#e e xp$,R a m=txtpcoDOS,0:?זp);S1,1 8 ky$=kyu""8 (13),(9)-":=a-"o> p>1&1"K"&HENޖ1T1M" 9 co':p=p+1 (0)+"S"".G"1:co=1.O"m1 STEP-1o$<>" "$=i'p=pؖ: ky$)ۖ$TU2)+ky$RU1),m)9< V kyȅTATICW$WNW" X":YCom"4,Z"0Z=0M())0 r1,1 InverterӖl>25l< c>80c<10(cor=,1)8,0SO;1̖sVXL̋sYLr" fe"*.DLP")ʖ"20,"Aguarde ... prepar lDir /b /oen > [HELL k$ (s);"\11)=~o"]c2=04l$ l$=(ls c2=c2ct=6q"l5),12)t<>6c 5=t5)<6rNumees :(c2^ "[21,t$1(nn=0,"L"p,"tir ultima procura"))= p<>"fll=A+Tx-1_ p=lllin1=llXR(ז2l+1) p>0p+l:Җ7IF~O ll-11bTN(1,"Ocorrencia Nao EnFrada㖬i=i=ii l=p8 oj@"#")=0=,""kB,#f9d,1)="*ft$(VA(v$))a$+Calc)b ""b r=r9va7=tȓ(nnN n"_ LO 25En(80),80dDispCoord Opt n=(0Rn 1T _""r"Sem Tit":Tit=0:inCA2T3,"Abrir"tfb \1 t=1)^t=~ Ֆ$(1,o : "+)Ֆst=-1;]Е=f $w =DialogBox$(MenuNome()AS STRMenuLinha(),MenuMenuRead END SUTHEN EXI FOR i= MenuMax--------FUNCTIONVar(ct%) COLOR  LOCATEMenuMax1: 4 "SalCASEColuTIMETecl NEX IFDeltLispCHR$ ENTitu ArqSELE Mena(i) THECOLOLOCADO  TO MenuD IFSPAC 5 FOR SCREINKETmp vo2OZ n8in9ol \U4$>  ?T!`A^0N bKnaMc()=O RO0N-,cg--;% /"|)dINGTE EN(D(z),5)+":001";4=w8SE 3 Tit w wv "+ivo 5 ; OUTPUT AS #1 ?#1,(i)XT^ww4 w3,wvar ComoIF t(wwwJ,www( t!=wR:DO:LOOP UNTIL wR-t!>=.125 =w(-1)wB wwawwJwT FOR wTw w1 TOw w w ----SobreOwawr w w(0)+"wD w w .Nome=v$ wlowui wD wCT w 0,7 w uww! w"N w#R w$wKml,mc 2 wT w uMaxw"N :EXIT w%CA PreparaTela w#R 15,1 w .ctd w&20 w$ |";w w w w) SHAREw ww'ww",w(0=wk$=Uwww(w w$wK:?w)E$(wwRetrieveww*w+w,wLl w-Y$=+c,5+c:?w"it=-:GOTw*w7,0 ,0  7 w.Lw.C0) NOT w! mcww OR ":it1:IF it=w=i  LOOSUB "" ); linhcoluexprw' DE A-Z$(v$w+=1 T VqtVqtdw& l,cClicxt$0 o a  DO m=it:?m)+"1 SE MaxB $ ) wK c=X<>""0Nwuivo=tX:T11:w/w0343Localizar Y4 65 w,EN,,06SYSTEM 47w14 8 Ajud[4 9 Imediato nw2(zD,w3 w4=CSRLIN:w5=POS(:1(;z)w6]l=<==n<]n$= (i) t$==2=mc+INSTR(w7(mn$),w7(t$))-1> i^5 _n$;w8;z15:2:?t$;w9> z@zw%7 k$=w-Y$ wCT 4 k$Hw:Kw;-BC0wCa4 ""w=wM13):^w=""w074 ELSE #$(k$)w8#$()i<= EitEz2=-1$ FP% w4,w5 G CLS Box 2,1,24,80,""6Mensagem Hw/ &1,1'(80IkGPrompt(Ja,w>,L$,ky$D w3,w?>=3SUdw?"+a w@LeMwaw@kyeaw@J[naw@w>)BNFDBLwAw2*Pfv$=LEFTP+w)E$(10),wQct%wBSd%w8 ct%>T%wCSd%=T%+1: :=Y*$=STR$() DEFINTwAGw1k$w1,"wa-wro;Versao 2.0;Copyright (C) WendelSoft, 1999")NF SEG=0> PEEK(1047)AND 3wC+1U2 QswB,c=sU80 STEP,lRO 25 c$=wMwD)fcor=wD,1)cor\16,cor MOD 16%V:?c$; Wk=Wk OR." "w9V,s,i  IF WkwC7,7+5wEi,i'(50-iIQj=i+1wEj,i:?" ";w9?T h4:d=1w6% 1/"/wF\"wG2wHW e n d e l S o f t 3wHD - L i s p r o 2 . 04/"\wF/"; hc+d> c=16@c=4w