  @    $+1,0 SAY ["]+nomearq+["]
      @    $,15 SAY "J EXISTE."
      @    $,27 SAY "Apaga? (S/N) "             GET selecao PICTURE "!"
      READ 
      IF  selecao <> "S"
           @    $+1,0 SAY " "
	   SET BELL ON
	   SET TALK ON
	   SET ESCAPE ON
	   CLEA 
	   RETU 
      ENDI 
   ENDI 
   STOR cont + 1 TO cont
ENDD 
SET  BELL ON
SET  RAW ON
ERAS 
STOR arqsist + "-PRIN" + extensao TO arqsai 
SET  ALTERNATE TO &arqsai 
SET  ALTERNATE ON
?    [* Programa.: ]+arqsai 
?    [* Autor....: ]+seunome 
?    [* Data.....: ]+DATE()
?    [* Notas....: Copyright 19]+$(DATE(),7,2)+                [, Direitos Reservados]
?    [* Pal. res.: selecao, selenum, editopc, posopc,]
?    [*            erro, chavepesq, expressao, string, e:eof]
?    [*            limpalin, adiopc, qualq, ultreg]
?    [*]
?    [SET TALK OFF]
?    [SET BELL OFF]
?    [SET COLON OFF]
?    [* ---Use brancos para limpar ate o fim-da-linha.]
?    [STORE $(STR(0,41),1,40) TO limpalin]
?    
?    [DO WHILE T]
?    
?    [ERASE]
?    [@  1, 0 SAY "======================================="]
?    [@  2, 0 SAY "||"]
STOR expan + "   MENU PRINCIPAL" TO cabec  
STOR (40-LEN(cabec))/2 TO col
?    [@  2,] + STR(col,2) + [ SAY "] + cabec + ["]
?    [@  2,37 SAY "||"]
?    [@  3, 0 SAY "======================================="]
STOR 4 TO cont
DO WHILE cont <= 11
   ?    [@ ] + STR(cont,2) + [, 0 SAY "||"]
   ?    [@ ] + STR(cont,2) + [,37 SAY "||"]
   STOR cont + 1 TO cont
ENDD 
?    [@ 12, 0 SAY "======================================="]
?    [@  5,12 SAY " 0. fim"]
?    [@  6,12 SAY " 1. consultar"]
?    [@  7,12 SAY " 2. adicionar"]
?    [@  8,12 SAY " 3. editar"]
?    [@  9,12 SAY " 4. compactar"]
?    [STORE 5 TO selenum]
?    [DO WHILE selenum < 0 .OR. selenum > 4]
?    [   STORE " " TO selecao]
?    [   @ 12,13 SAY " selecione : : "]
?    [   @ 12,25 GET selecao PICTURE "#"]
?    [   READ]
?    [   STORE VAL(selecao) TO selenum]
?    [ENDDO]
?    
?    [DO CASE]
?    [   CASE selenum= 0]
?    [      CLEAR]
?    [      SET COLON ON]
?    [      SET BELL ON]
?    [      SET TALK ON]
?    [      RETURN]
?    [   CASE selenum= 1]
?    [   *  DO consulta]
?    [      USE ]+arqent+[ INDEX ]+arqindice
?    [      ERASE]
?    [      @ 1, 0 SAY " CONSULTA   ]+expan+["]
?    [   *  @ 1,28 SAY " "]
?    [      @ 1,31 SAY DATE()]
?    [      DO ] + arqsist + [-telas]
?    [      IF # = 0]
?    [         * ---O arquivo de dados est vazio.]
?    [         STORE " " TO selecao]
?    [      ~3ی،;u  WOOPW$;uBtHs;
t2r#=u0GG3  ;u%M  t^Z믋
AA+@F3_Y
_^] X&c&C  __expand     t   BDOSN  bdos!  CODEDATADGROUP_DATA_TEXT H  H   ]   UfVF
!]>  _bdos   W  t   	cprintf.c  cprintf͈  0mO  CV7.  DGROUP_TEXTCODE_DATADATACONST_BSSBSS? HB H  H  
 H  	 V
  @E
 
__acrtusedC@ flagchar sprint fprint iprint _outc _out putbuf putpad = 
__cfltcvt_tab _ultoa _cprintf _strlen __chkstk _putch $	 output  __iob o getnum putsign 	putprefix R  flagchar sprint  fprint iprint _outc _out putbuf putpad 0  _cprintf   /  output  getnum putsign 	putprefix   Ѡ   (null) (null) +- # *  UFFFPv  ]ːUb    WVv F    +<%t  +          
   |0u=F
 0 4<-u )<+u
    < u
>  u
  FP  uV P  >  }  أ <.u$ FV P  >  }
   =F t>=N tA=h t,=l t=p t*  >  t<pu<LuF< u'      Ί=E t
=G t=X u	  -c = v .   	    
 P          > t> u4     P  : P  .  P  놐 떐+P  두   >  tNG= t=%u+PP  < t>  u@  t9^_]2888DDDDDDD(DDD"F벐 ^_]ːUWV~
t > t> u WFV *>  t FF   FV Ü7#ڟ֟ƽƶƴƲưƮƬƪƨƦƤƢƠƞƜƚƘƖƔƒƐƎƌ~VwfVF>V-VV
VVޟڟԟПVŶŲũţŞŚ^~`XP60Vݟ֟VȟVĴĮħęĕĉ|okheb_\YVSL;71#VV&>  t
FFtF+ 6 >  u*~ }$~
u-FFV؃ ډFVF F  FvWvv    >  t#W     +ȉN0FIN t<a|, FG} u>  u  t~ u +P  ^_]UWV
   ~ t  F^  > u WFV  FF^ > u
FFu  	~ u	 F^FVFV+96 t ^F&? tF;~F^F&? u> +>  uW  Vvv  >  tW  ^_]ːU F>  u  6 6 v6 v  
~gt~Gu>  u>  t6  >  t>  u6        tv t +P  ]ːUv     ]UVv~6
     NF ^]ːUVv
^F&P    NuF
 ^]U
WV6 +FF> V    F++~>  u<-u>
 0u
P  N>
 0t~>  t~ tF  >  tF  >  u)W  ~ t
~ u  >  t
~ u  vP  >  t
   W  ^V	ǣǜVV}yVfV	^ZVPLV<1'V V
ߟVƬΙVƖƀwViVUV
LHC>7V
3,%V
V
ڟӟV	ŸVV	śŕmgOD61"䟄VĻķıĖ|sV
lcV _]ː>  t+   P  ˸0 P  > u>  tX x P  UWVvF <*u ? FH<-uFF+<0|5<909> u<0u
 0 ȃ0F<0|<9~F^?^_]ːUV NF< t:u ^]+^]ːT% НĐąe_BV2+$VV  t            CPUTS	  cputs  CODEDATADGROUP_DATA_TEXT H$  H   ]	 _putch (   UVv3
tP    @[u3^]˭ &Z
  _cputs   Ί  t        
 cscanf.co
  cscanfW  0mO  CV7.  DGROUP_TEXTCODE_DATADATACONST_BSSBSS? Hv H  H  
 H 	 V
  @E
 
__acrtusedC& 	_whiteout _wgood s_in i_in f_in ЌH __ctype __chkstk _cscanf _getche 
__cfltcvt_tab _ungetch _memset  input 
 
__aFNalshl  ch_ok burn _inc ׶2  	_whiteoutP _wgoodv s_inB i_in$ f_in ͐  _cscanf   %  input  ch_ok burn _incF 
  Ѡ     Xh  UFFFPv  ]ːU    WVv         F
 < u t  F u<%t+        F<*u F t7 ȃ0F u߉ t  =F tf=N tY=h t=l tG=p tR  >  t<pu<LuF t2EtGtXt   l      밃[uO F<^uF PP6        <]tـ7F< u< ts +iu[          0u   @ ]+STR(ultlinha+1,2)+[,0 SAY "ARQUIVO DE DADOS VAZIO"]
?    [         @ ]+STR(ultlinha+2,2)+[,0 ]+[SAY "Aperte qualquer tecla para continuar...";]
?    [                GET selecao]
?    [         READ NOUPDATE]
?    [      ELSE]
?    [         * ---O arquivo de dados contm registros.]
?    [         DO ] + arqsist + [-gets]
?    [         CLEAR GETS]
?    [         STORE "X" TO posopc]
?    [         DO WHILE posopc <> " "]
?    [            DO ] + arqsist + [-pesq]
?    [         ENDDO]
?    [      ENDIF]
?    [      USE]
?    [   CASE selenum= 2]
?    [   *  DO adicao]
?    [      USE ]+arqent+[ INDEX ]+arqindice
?    [      COPY STRUCTURE TO ]+arqent+[.adi]
?    [      SELECT SECONDARY]
?    [      USE ]+arqent+[.adi]
?    [      ERASE]
?    [      @ 1, 0 SAY " ADICAO   ]+expan+["]
?    [      @ 1,31 SAY DATE()]
?    [      DO ] + arqsist + [-telas]
?    [      @ ]+STR(ultlinha+1,2)+[,0 ]+            [SAY "Pressione <control-W> para sair"]
IF   TYPE(valchave) = "C"
?    [      STORE "X" TO adiopc]
?    [      DO WHILE adiopc <> " "]
?    [         APPEND BLANK]
?    [         DO ] + arqsist + [-gets]
?    [         READ]
?    [         * ---] + cpochave + [ no pode ser branco.]
?    [         STORE TRIM( ] + cpochave + [ ) TO adiopc]
?    [      ENDDO]
ELSE 
?    [      STORE 9 TO adiopc]
?    [      DO WHILE adiopc <> 0]
?    [         APPEND BLANK]
?    [         DO ] + arqsist + [-gets]
?    [         READ]
?    [         * ---] + cpochave + [ no pode ser zero.]
?    [         STORE ] + cpochave + [ TO adiopc]
?    [      ENDDO]
ENDI 
?    [      DELETE]
?    [      USE]
?    [      SELECT PRIMARY]
?    [      APPEND FROM ]+arqent+[.adi]
?    [      USE]
?    [   CASE selenum= 3]
?    [   *  DO edicao]
?    [      USE ]+arqent+[ INDEX ]+arqindice
?    [      ERASE]
?    [      @ 1, 0 SAY " EDIO   ]+expan+["]
?    [   *  @ 1,24 SAY " "]
?    [      @ 1,31 SAY DATE()]
?    [      DO ] + arqsist + [-telas]
?    [      IF # = 0]
?    [         * ---O arquivo de dados est vazio.]
?    [         STORE " " TO selecao]
?    [         @ ]+STR(ultlinha+1,2)+[,0 SAY "ARQUIVO DE DADOS VAZIO"]
?    [         @ ]+STR(ultlinha+2,2)+[,0 ]+                  [SAY "Aperte qualquer tecla para continuar...";]
?    [                GET selecao]
?    [         READ NOUPDATE]
?    [      ELSE]
?    [         * ---O arquivo de dados contm registros.]
?    [         DO ] + arqsist + [-gets]
?    [         CLEAR GETS]
?    [         DO ] + arqsist + [-edit]
?    [      ENDIF]
?    [      USE]
?    [   CASE selenum= 4]
?    [   *  DO compactacao]
?    [      DO ] + arqsist + [-pack]
?    [ENDCASE]
?    
?    [ENDDO T]
?    [* EOF: ] + arqsai 
?    
SET  ALTERNATE OFF
ERAS 
STOR arqsist + "-TELAS" + extensao TO arqsai 
SET  ALTERNATE TO &arqsai 
SET  ALTERNATE ON
?    [* Programa.: ]+arqsai 
?    [* Autor....: ]+seunome  
?    [* Data.....: ]+DATE()
?    [* Nota.....: Copyright 19]+$(DATE(),7,2)+                [, Direitos Reservados]
?    [*]
?    [@  2, 0 SAY "---------------------------------------"]
GO   TOP
STOR 4 TO cont   
DO WHILE .NOT. EOF .AND. cont-3 <= 14
   ?    [@ ]+STR(cont,2)+[, 0 SAY "]+$(TRIM(Field:name)+".........",1,10)+[:"]
   STOR cont + 1 TO cont
   SKIP 
ENDD 
?    [@ ]+STR(ultlinha,2)+[, 0 ]+  [SAY "---------------------------------------"]
?    [RETURN]
?    [* EOF: ] + arqsai 
?    
SET  ALTERNATE OFF
ERAS 
STOR arqsist + "-GETS" + extensao TO arqsai 
SET  ALTERNATE TO &arqsai 
SET  ALTERNATE ON
?    [* Programa.: ]+arqsai 
?    [* Autor....: ]+seunome 
?    [* Data.....: ]+DATE()
?    [* Nota.....: Copyright 19]+$(DATE(),7,2)+                [, Direitos Reservados]
?    [*]
?    [IF *]
?    [   @ 1,0 SAY limpalin ]
?    [   @ 1,20 SAY "APAGADO "]
?    [ELSE]
?    [   @ 1,20 SAY "           "]
?    [ENDIF]
GO   TOP
STOR 4 TO cont
DO WHILE .NOT. EOF .AND. cont-3 <= 14
   ?    [@ ]+STR(cont,2)+[,12 GET ]+Field:name
   STOR cont + 1 TO cont
   SKIP 
ENDD 
?    [RETURN]
?    [* EOF: ] + arqsai 
?    
SET  ALTERNATE OFF
ERAS 
STOR arqsist + "-QUALQ"+ extensao TO arqsai 
SET  ALTERNATE TO &arqsai 
SET  ALTERNATE ON
?    [* Programa.: ]+arqsai 
?    [* Autor....: ]+seunome  
?    [* Data.....: ]+DATE()
?    [* Nota.....: Copyright 19]+$(DATE(),7,2)+                [, Direitos Reservados]
?    [*]
?    [IF *]
?    [   @ 1,20 SAY "APAGADO "]
?    [ELSE]
?    [   @ 1,20 SAY "           "]
?    [ENDIF]
GO   TOP
STOR 4 TO cont
DO WHILE .NOT. EOF .AND. cont-3 <= 14
   IF   !( T	 V
  @E+ 
__acrtused_asctime _ctime 
_localtime >
  _ctime     Ѡ0   Uv    FtP    ]ː+]˜	 V
V  t          days.c0  days  0mO  CV7.  DGROUP_TEXTCODE_DATADATACONST_BSSBSS? H   H4 ٘ H  
 H  	 V
  @E
 
__acrtusedC __days  __lpdays   r  Ѡ8    ; Z x     0Nm : Y w     /Ml  t  
difftime.c  difftimey  0mO  CV7.  DGROUP_TEXTCODE_DATADATACONST_BSSBSS? H0  H  
 H  
 H  	 V
  @E; 	__fltused 
__acrtused__fldl __fac __fstdp 	_difftime n  	_difftime     Ѡ4   UFV+F
VVF^            ]ː֜ )V$V!VV!  t    	 ftime.cʈ	  ftime  0mO  CV7.  DGROUP_TEXTCODE_DATADATACONST_BSSBSS? H  H  
 H  
 H  	 V
  @Ee 
__acrtused_ftime 
__dtoxtime _intdos __aFldiv __days 	__isindst 	_daylight 	_timezone _tzset 
  _ftime     Ѡ   U8V    < RP6 6      ^GF*FPFP    F-FP FF*F̉FFىFHF㋇  F̉FFu	~~FF,FPFP    F*^GF*VFPFPvvvΚ    ^Wv>   tFP    t +^G^]ː%) VV̽V̇VcV2VVV	V	V
  t 
 gmtime.cZ
  gmtimeB  0mO  CV7.  DGROUP_TEXTCODE_DATADATACONST_BSSBSS? HN H  H  
 H  	 V
  @ER 
__acrtused__days __lpdays __aFldiv __aFlmul __aFlrem 
__aFNalrem _gmtime   _gmtime   x  Ѡ                     H  UWV^|? s+^_]˸3RP^w7    
 Q RP
 @3+¹ 3+RP    3SQ^w7FV    +FVFV'F3V
 @ u
FQVO
 ~ |ԁ
 
  u
 d u
 u    .
 lQ RPvv     Q RPFP       9D}DFF ^ 9|   +  RPvv     RPFP    < RPvv     < RPvv      m.
  -c       ^_]{ źŵűŢŞŗ͒VŃ~VmV`[VLEA=60VVVV՝ȝĻĶĬēuVZVC83Vr  t               
localtim.c  localtiml  0mO  CV7.  DGROUP_TEXTCODE_DATADATACONST_BSSBSS? Ht  H  
 H  
 H  	 V
  @EK 
__acrtused	__isindst 	_daylight 	_timezone _gmtime 
_localtime _tzset   
_localtime   ;  Ѡx   UV    ^W+   FVFP    u+^]ː>   t)V    tFV FP    D ^]ː˜ ^VEV>V'VVVV  t    TIMEG  time  CODEDATADGROUP_DATA_TEXT HY  H   ]
 
__dtoxtime 1]   U*!ډN,!2PPPP*!;Xt	<uӋN2PP-P    ~ t^W]˲ @&*  _time   P  t  	 tzset.c	  tzset  0mO  CV7.  DGROUP_TEXTCODE_DATADATACONST_BSSBSS? H H 
 H  
 H  	 V
  @Et 
__acrtused__days 	__isindst _strncpy _atol __aFlmul _getenv __ctype 	_daylight 	_timezone _tzname _tzset   	__isindst  _tzset   7  Ѡ   TZ   UWV  P    u < u  PV6      RPV    RP       +ހ? tފ u	ހ?-uG|؋ހ? t PP6        ?@  ^_]UWVv|} |	~ |~	|	} |
l~|u\㋇   
\㋇ F uF|
FmȍEٙ3+¹ 3+F  F+F|u9D9Du"|| ^_]ˋF9D|9Du||+^_]ːޜ@ V VĲV	ĩVĢV̗VĔVlVTV
PV
KVAV/V,V
V	`  t 	timeset.c  timesetȈ  0mO  CV7.  DGROUP_TEXTCODE_DATADATACONST_BSSBSS? H   HM  H  
 H  	 V
  @E
 
__acrtusedCB 	___mnames(  	_daylight  	_timezone  _tzname  	___dnames    ѠQ   PST PDT p      SunMonTueWedThuFriSat JanFebMarAprMayJunJulAugSepOctNovDec  }  t               	 utime.c	  utime  0mO  CV7.  DGROUP_TEXTCODE_DATADATACONST_BSSBSS? H # H  
 H  
 H  	 V
  @EH 
__acrtused_utime _intdos _errno _open _close 
_localtime _time 6
  _utime   و  Ѡ   UWV+~Pv    FF}
^_]ː~ uFP    ^GWFVFP    u	   빐D
-P % 	D@% D% D% 	FD%? 	F+% 	FFF~FFWFPFP    v    +^_]ː VVRIM(Field:name) ) $ cpochave 
      ?    [@ ]+STR(cont,2)+[,12 SAY ]+Field:name      
      ?    [@ 22,1 SAY '** Nao sera alterado o campo chave **']
    ELSE 
      ?    [@ ]+STR(cont,2)+[,12 GET ]+Field:name
    ENDIF 
   STOR cont + 1 TO cont
   SKIP 
ENDD 
?    [RETURN]
?    [* EOF: ] + arqsai   
?    
SET  ALTERNATE OFF
ERAS 
STOR arqsist + "-EDIT" + extensao TO arqsai 
SET  ALTERNATE TO &arqsai 
SET  ALTERNATE ON
?    [* Programa.: ]+arqsai 
?    [* Autor....: ]+seunome 
?    [* Data.....: ]+DATE()
?    [* Nota.....: Copyright 19]+$(DATE(),7,2)+                [, Direitos Reservados]
?    [*]
?    [DO WHILE T]
?    [   STORE " " TO editopc]
?    [   @ ]+STR(ultlinha+1,2)+[,0 ]+            [SAY "COMANDO: (E)ditar, (D)eletar, (R)ecuperar, "+;]
?    [              "(C)ontinuar, (P)osicionar ";]
?    [          GET editopc PICTURE "!"]
?    [   READ NOUPDATE]
?    [   CLEAR GETS]
?    [   @ ]+STR(ultlinha+1,2)+[,0 SAY limpalin]
?    [   @ ]+STR(ultlinha+2,2)+[,0 SAY limpalin]
?    [   DO CASE]
?    [      CASE editopc = " "]
?    [      * ---Sair.]
?    [         RETURN]
?    [      CASE editopc = "P"]
?    [      * ---(P)osicionar]
?    [         STORE "X" TO posopc]
?    [         DO WHILE posopc <> " "]
?    [            DO ] + arqsist + [-pesq]
?    [         ENDDO]
?    [      CASE editopc = "D"]
?    [      * ---(D)eletar]
?    [         DELETE]
?    [         @ 1,20 SAY "DELETADO"]
?    [      CASE editopc = "R"]
?    [      * ---(R)ecuperar]
?    [         RECALL]
?    [         @ 1,20 SAY "        "]
?    [      CASE editopc = "E"]
?    [      * ---(E)ditar]
?    [         @ ]+STR(ultlinha+1,2)+[,0 ]+[SAY "Pressione <control-W> para sair"]
?    [         IF # <> 0]
?    [            DO ] + arqsist + [-qualq]
?    [            READ]
?    [         ENDIF]
?    [      CASE editopc = "C"]
?    [      * ---(C)ontinua para o prximo registro.]
?    [         STORE # TO ultreg] 
?    [         CONTINUE]
?    [         * ---Checa pelo END-OF-FILE.]
?    [         IF .NOT. EOF]
?    [            DO ] + arqsist + [-gets]
?    [            CLEAR GETS]
?    [         ELSE]
?    [            * ---EOF encontrado.]
?    [            GOTO ultreg]
?    [            @ ]+STR(ultlinha+1,2)+[,0 SAY limpalin]
?    [            @ ]+STR(ultlinha+2,2)+[,0 SAY limpalin]
?    [            @ ]+STR(ultlinha+1,2)+[,0 ]+                  [SAY "END-OF-FILE encontrado"]
?    [            STORE " " TO selecao]
?    [            @ ]+STR(ultlinha+2,2)+[,0 ]+                     [SAY "Aperte qualquer tecla para continuar...";]
?    [                   GET selecao]
?    [            READ NOUPDATE]
?    [            @ ]+STR(ultlinha+1,2)+[,0 SAY limpalin]
?    [            @ ]+STR(ultlinha+2,2)+[,0 SAY limpalin]
?    [         ENDIF]
?    [   ENDCASE]
?    [ENDDO]
?    [* EOF: ] + arqsai 
?    
SET  ALTERNATE OFF
ERAS 
STOR arqsist + "-PACK" + extensao TO arqsai 
SET  ALTERNATE TO &arqsai 
SET  ALTERNATE ON
?    [* Programa.: ]+arqsai 
?    [* Autor....: ]+seunome
?    [* Data.....: ]+DATE()
?    [* Nota.....: Copyright 19]+$(DATE(),7,2)+                [, Direitos Reservados]
?    [*]
?    [ERASE]
?    [@ 2, 0 SAY " COMPACTAR ]+expan+["]
?    [@ 2,31 SAY DATE()]
?    [@ 3, 0 SAY "======================================="]
?    [STORE "NO" TO selecao]
?    '@ 5,0 SAY "COMPACTAR o arquivo todo? [SIM/NO] ";'
?    [      GET selecao PICTURE "!!!"] 
?    [READ NOUPDATE]
?    [IF selecao <> "SIM"]
?    [   RETURN]
?    [ENDIF]
?    [@ 6,0 SAY "]+arqent+[.BKP ser o backup de seu arquivo de dados."]
?    [IF FILE( "] + arqent + [.BKP" )]
?    [   STORE " " TO selecao]
?    [   @ $+1,0 SAY "Apaga o arquivo de backup antigo? (S/N) ";]
?    [           GET selecao PICTURE "!"]
?    [   READ NOUPDATE]
?    [   IF selecao <> "S"]
?    [      RETURN]
?    [   ENDIF]
?    [   DELETE FILE ]+arqent+[.BKP]
?    [ENDIF]
?    [USE]
?    [RENAME ]+arqent+[.DBF TO ]+arqent+[.BKP]
?    [@ $+1,0 SAY " "]
?    [*]
?    [USE ] + arqent + [.BKP]
?    [SET TALK ON]
?    [SET ECHO ON]
?    [COPY TO ] + arqent
?    [USE]
?    [USE ]+arqent
?    [* ---Recria o arquivo de indice.]
?    [INDEX ON ]+cpochave+[ TO ]+arqindice
?    [USE]
?    [SET ECHO OFF]
?    [SET TALK OFF]
?    [STORE " " TO selecao]
?    [@ 22,0 SAY limpalin]
?    [@ 22,0 SAY "Pressione qualquer tecla para continuar...";]
?    [       GET selecao]
?    [READ NOUPDATE]
?    [RETURN]
?    [* EOF: ] + arqsai 
?    
SET  ALTERNATE OFF
ERAS 
STOR arqsist + "-PESQ" + extensao TO ar
tȰCvu6  % t<Ȱ"CuD  % tȰ"Ctd  ] =]  _strtok   T  t          STRSTR
  strstr  CODEDATADGROUP_DATA_TEXT H\  H   ]`   UVW~3ɋI+P~3IXIN@~؋u
ËߋN3H_^]  _strstr   I  t  	 MEMCCPYb  memccpyՖ  CODEDATADGROUP_DATA_TEXT H'  H   ]+   UWV~vf
N:t3^_]5  _memccpy     t     MEMCHR
  memchrI  CODEDATADGROUP_DATA_TEXT H$  H   ](   U3N
ߌ؎~F  uE]H  _memchr     t           MEMCPY  memmove͖  CODEDATADGROUP_DATA_TEXT HH Ș H   ]L   U׋ތ؎v~ǋN
*;v;sNOǨtI]*  _memmove     t    	 MEMICMPh  memicmpۖ  CODEDATADGROUP_DATA_TEXT HO  H   ]S   UVWv~N
5AZ $FG:r:w:r:w:u3:t	  rIIы_^]Ԑ  _memicmp     t             MEMCMP
  memcmpF  CODEDATADGROUP_DATA_TEXT H'  H   ]+   U׋ތ؎v~3N
	t]ސ  _memcmp   |  t        MEMCPY
  memcpy:  CODEDATADGROUP_DATA_TEXT H,  H   ]0   U׋ތ؎v~ǋN
tI]ˬ  _memcpy   p  t   MEMSET
  memset:  CODEDATADGROUP_DATA_TEXT H-  H   ]1   U׌؎~ߋN
F tI]  _memset   p  t  XTOA:  xtoa
  CODEDATADGROUP_DATA_TEXT H_  H   ]c   NFV~
W
t
uy
-ۃ ڋ3t0<9v'uODD;rX_^],  
__cltoasub   9  __cxtoa  q  t                SWABI  swab  CODEDATADGROUP_DATA_TEXT H!  H   ]%   UN
~VWv~_^][  _swab   R  t    fcvt.c.  fcvt  0mO  CV7.  DGROUP_TEXTCODE_DATADATACONST_BSSBSS? H i H  
 H  
 H]	 V
  @E 
__acrtused_ecvt &	 _fpcvt  __fltout 	__fptostr _fcvt   _ecvt8  
  _fpcvtb  R  _fcvt   L  Ѡ   UVvv
vv    vvDFPV  ^]ːUvvvvv
vv    P  ]UVvVF=[~[P  P    <-u +^^
D  ^]ːP Ġ~Vz[VQV-VVъ  t           gcvt.c-  gcvt  0mO  CV7.  DGROUP_TEXTCODE_DATADATACONST_BSSBSS? H c H  
 H  
 H  	 V
  @E0 
__acrtused_gcvt __fltout __cftoe __cftof   _gcvt   K  Ѡ   U
WVvv
vv    F؋GHF=|F9F|+PvvFP    v#F^+GPvFP    ݐ<.tF< uF| t$<etF< uNN<0tFG
uF^_]ːS
 dVCVV)  t 
 strtod.c=
  strtod%  0mO  CV7.  DGROUP_TEXTCODE_DATADATACONST_BSSBSS? H 1 H  
 H  H 	 V
  @Ed 	__fltused 
__acrtused__ctype _errno _strtod __fltin __fldd __fchs __fstdp _HUGE _strlen   _strtod   [  Ѡ           Q   UWVv~F u+PPV    PV    Ft	؋GƉ^FFt6<-u          ^    VW~  _^  " ?F t      F@t      ^    ^VW~w_^VW  v_^  ^_]Μ= ؟ʟ̭V	̥VĢ̔VđĂVvV
iV	aV\VYV
-V#VV4  t       STRTOL
  strtol  CODEDATADGROUP_DATA_TEXT H H   ]	 _errno   UVW UVW3҉Vv< t<	t3u
<+t<-uOW33ۋN
$v#N
 <0u<xt<Xt<0r<7w N  r?N;s8rPYrǃ rج  " Nt NuxY~
 u
D$_<LuF~tN&5؃ _^]<ar$,0r
<
r<r,<$s
 n  ę  _strtol  E  _strtoul   ܊  t             abs.c  abs  0mO  CV7.  DGROUP_TEXTCODE_DATADATACONST_BSSBSS? H  H  
 H  
 H  	 V
  @E 
__acrtused_abs   _abs   ˈ  Ѡ   U~ |F]ˋF]ː  t          	bsearch.c  bsearch  0mO  CV7.  DGROUP_TEXTCODE_DATADATACONST_BSSBSS? H w H  
 H  
 H  	 V
  @E 
__acrtused_bsearch   _bsearch   !  Ѡ   U
WVvF
Hf;wpF
FtPF
uHfƉFPv^Fu
F^_]ː~ }~+~F
uFH	vvFF
렃~
 tVv^t+^_]ˋ^_]j  t     
 doserr.cN
  doserr6  0mO  CV7.  DGROUP_TEXTCOqsai 
SET  ALTERNATE TO &arqsai 
SET  ALTERNATE ON
?    [* Programa.: ]+arqsai 
?    [* Autor....: ]+seunome 
?    [* Data.....: ]+DATE()
?    [* Nota.....: Copyright 19]+$(DATE(),7,2)+                [, Direitos Reservados]
?    [*]
?    [STORE " " TO posopc]
?    [@ ]+STR(ultlinha+1,2)+[,0 SAY limpalin]
?    [@ ]+STR(ultlinha+2,2)+[,0 SAY limpalin]
?    [@ ]+STR(ultlinha+1,2)+      [,0 SAY "COMANDO: (M)ostrar, (P)esquisar, "+;]
?    [           "(L)ocalizar, (C)ontinuar, (A)vanar ";]
?    [       GET posopc PICTURE "!"]
?    [READ NOUPDATE]
?    [CLEAR GETS]
?    [@ ]+STR(ultlinha+1,2)+[,0 SAY limpalin]
?    [@ ]+STR(ultlinha+2,2)+[,0 SAY limpalin]
?    [IF .NOT. (posopc $ "MPLCA")]
?    [   RETURN]
?    [ENDIF]
?    [IF posopc = "P"]
?    [   * ---(P)esquisar]
?    [   @ ]+STR(ultlinha,2)+[,0 SAY "-"]
?    [   ACCEPT "Digite ]+cpochave+[ " TO chavepesq]
?    [   @ ]+STR(ultlinha+1,2)+[,0 SAY limpalin]
?    [   @ ]+STR(ultlinha+2,2)+[,0 SAY limpalin]
?    [   STORE TRIM(chavepesq) TO chavepesq]
?    [   IF chavepesq = " "]
?    [      RETURN]
?    [   ENDIF]
?    [   STORE # TO ultreg]
?    [   FIND &chavepesq]
?    [   IF (# <> 0)]
?    [      DO ] + arqsist + [-gets]
?    [      CLEAR GETS]
?    [   ELSE]
?    [      * ---NAO ENCONTROU.]
?    [      GOTO ultreg]
?    [      @ ]+STR(ultlinha+1,2)+[,0 SAY limpalin]
?    [      @ ]+STR(ultlinha+2,2)+[,0 SAY limpalin]
?    [      @ ]+STR(ultlinha+1,2)+            [,0 SAY '"'+chavepesq+'"'+" no est no ndice"]
?    [      STORE " " TO selecao]
?    [      @ ]+STR(ultlinha+2,2)+            [,0 SAY "Pressione qualquer tecla para continuar...";]
?    [             GET selecao]
?    [      READ NOUPDATE]
?    [      @ ]+STR(ultlinha+1,2)+[,0 SAY limpalin]
?    [      @ ]+STR(ultlinha+2,2)+[,0 SAY limpalin]
?    [      @ ]+STR(ultlinha+3,2)+[,0 SAY limpalin]
?    [   ENDIF]
?    [ELSE]
?    [   * ---(A)vanar, (C)ontinuar, (M)ostrar, ou (L)ocalizar]
?    [   STORE # TO ultreg]
?    [   DO CASE]
?    [      CASE posopc = "A"]
?    [      * ---(A)vancar.]
?    [         SKIP]
?    [      CASE posopc = "C"]
?    [      * ---(C)ontinuar.]
?    [         CONTINUE]
?    [      OTHERWISE]
?    [      * ---(M)ostrar ou (L)ocalizar]
?    [         DO ] + arqsist + [-locat]
?    [         IF expressao = " "]
?    [            RETURN]
?    [         ENDIF]
?    [         IF posopc = "M"]
?    [            IF string = " "]
?    [               RETURN]
?    [            ENDIF]
?    [            DO ] + arqsist + [-telas]
?    [         ENDIF]
?    [   ENDCASE]
?    [   * ---Checa por END-OF-FILE.]
?    [   IF .NOT. EOF]
?    [      DO ] + arqsist + [-gets]
?    [      CLEAR GETS]
?    [   ELSE]
?    [      * ---EOF encontrado.]
?    [      GOTO ultreg]
?    [      @ ]+STR(ultlinha+1,2)+[,0 SAY limpalin]
?    [      @ ]+STR(ultlinha+1,2)+[,0 SAY "END-OF-FILE encontrado"]
?    [      STORE " " TO selecao]
?    [      @ ]+STR(ultlinha+2,2)+            [,0 SAY "Pressione qualquer tecla para continuar...";]
?    [             GET selecao]
?    [      READ NOUPDATE]
?    [      @ ]+STR(ultlinha+1,2)+[,0 SAY limpalin]
?    [      @ ]+STR(ultlinha+2,2)+[,0 SAY limpalin]
?    [      @ ]+STR(ultlinha+3,2)+[,0 SAY limpalin]
?    [   ENDIF]
?    [ENDIF]
?    [RETURN]
?    [* EOF: ] + arqsai 
?    
ERAS 
STOR arqsist + "-LOCAT" + extensao TO arqsai 
SET  ALTERNATE TO &arqsai 
SET  ALTERNATE ON
?    [* Programa.: ]+arqsai 
?    [* Autor....: ]+seunome 
?    [* Data.....: ]+DATE()
?    [* Nota.....: Copyright 19]+$(DATE(),7,2)+                [, Direitos Reservados]
?    [*]
?    [STORE " " TO expressao,string]
?    [* ---LOCALIZACAO.]
?    [DO WHILE expressao = " "]
?    [   @ ]+STR(ultlinha-1,2)+[,0 SAY 'EXEMPLO :ESTADO="SP"']
?    [   @ ]+STR(ultlinha+1,2)+[,0 SAY limpalin]
?    [   @ ]+STR(ultlinha+2,2)+[,0 SAY limpalin]
?    [   *]
?    [   @ ]+STR(ultlinha,2)+[,0 SAY "-"]
?    [   ACCEPT "Digite expressao para LOCALIZACAO " TO expressao]
?    [   @ ]+STR(ultlinha-1,2)+[,0 SAY limpalin]
?    [   STORE TRIM(expressao) TO expressao]
?    [   DO CASE]
?    [      CASE expressao = " "]
?    [      * ---Sair.]
?    [         RETURN]
?    [      CASE 0 = TEST(&expressao)]
?    [      * ---EXPRESSAO INVALIDA.]
?    [         @ ]+STR(ultlinha+2,2)+[,0 SAY limpalin]
?    [         @ ]+STR(ultlinha+3,2)+[,0 SAY limpalin]
?    [         STORE " " TO selecao]
?    [         @ ]+STR(ultlinha+2,2)+               [,0 SAY "EXPRESSO INVLIDA: "+;]
?    [                    "Pressione qualquer o _strcpy _sys_errlist 	_sys_nerr 
__strerror !  
__strerror     Ѡ   
 :  
 堲   UWVv t< uC>   |	  9  |        P      P  P    ^_]   V  P     P  P    >   |	  9  |        P     뚐ٜ` ĩ̡VĝĚVĔVĎVĈVĄV~VuVqmeVa\MVIE=V96V0V)V#VVV  t         
 syserr.c5
  syserr  0mO  CV7.  DGROUP_TEXTCODE_DATADATACONST_BSSBSS? H   H H  
 H  	 V
  @E
 
__acrtusedC  	_sys_nerr _sys_errlist4   Ѡ  Error 0  No such file or directory     Arg list too long Exec format error Bad file number   Not enough core Permission denied    File exists Cross-device link    Invalid argument  Too many open files    No space left on device     Math argument Result too large  Resource deadlock would occur Unknown error    	 # $ % & ' 9 K [ \ ] m                      &% s ~|zxvtrpnljhfdb`^\ZXVTRPNLJHFDB@><:864/  t   UMASK	  umask  CODEDATADGROUP_DATA_TEXT H  H   ]
 
__umaskval ;   UF%  ]ܜ w
  _umask   ܊  t       	 WRT2ERRX  wrt2err  CODEDATADGROUP_DATA_TEXT H  H   ]   *Cӻ @!ˑ  	__wrt2err     t            OVLM6L
  ovlm6le  CODEDATADGROUP_DATA_TEXT HBɘ HDǚ ]j $$EXENAM $$INTNO $$MAIN $$MPGSNBASE 
$$MPGSNOVL 
$$MPOVLLFA 	$$OVLBASE __intno 	__ovlflag __ovlvec    PRV
t!F^ZXPQ?!YXPR3B!ZXWPSQR    r)  3Ҏt= r	 - +  rZY[X_PSQRWV    rPtK=@ r-@ @  ȋ3      r"ϋ  =T׎&&^_ZY[XPSQRWV  
t:  u    3҉     =!s.= u	      3҉              !ǣ    M    r     r	<MZt  9Dt\ӹ	  UD3ҹ +D tdTt-  PDع  MX  r-MT D  r>  !  t
    !^_ZY[Xã      H  ؁  7CC7CC2    s	            ˣ        >  6    [2&C&CC6   r	      F6    ^5GGGG          s	          SRQ  6  >          P  r3  P P  XP  r3  P P  XÀ>   t>   t  QVW5!    &:uFG    _^Y  ش0!<s    3P      5!    ʎں  %!    ؎    PSRWV    =!rJؾ  !A  F:F\FG3!
t
</u: = ' B&_  z } ' ĥ Ĩ  Ĵ      <  "%(%+4 @I L ' TW  e  2  q   T   - 0  58; <> B E I M Q
 U Y ] b t} <ƐƔ Ƣ Ƭƴ    <      
    ' > ' >)B0C;BK6]Cb@o|ǈ	ǌǑǚ
Ǟ
 ǧ Hˮ ϼ&08J\F|\t\F  GF
u  , &=3  F
t&G
t:t&G
u&
ue  &}:t
!AF:F&
t<;t</u\GF|\t\F  CF
u       =!s	&= tG롋                
!
!2  
t׾     |:t
!AG:G2
tO\t:u
  
u       =!rش>!^_Z[XðL!0  1+0SċĘě0Ğ 1ķĽ#&0)                          D           P p        P      ``Incorrect DOS version
 
Please insert diskette containing  
in drive  : and strike any key when ready.
 
Please restore original diskette.
Strike any key when ready.
 
Overlay not found
 Cannot find  
Overlay Manager stack overflow
 
Please enter new program spec:  
Cannot load overlay:  too many open files
 .
 PATH= CVDEBUG {     ː  	$$OVLINITm y  t       LROTL	  lrotl  CODEDATADGROUP_DATA_TEXT H  H   ]#   UFVN
 	  ]ˆ  __lrotl   o  t  LROTR	  lrotr  CODEDATADGROUP_DATA_TEXT H   H   ]$   UFVN
 
]y  __lrotr   i  ttecla para continuar... ";]
?    [                GET selecao]
?    [         READ NOUPDATE]
?    [         @ ]+STR(ultlinha+2,2)+[,0 SAY limpalin]
?    [         @ ]+STR(ultlinha+3,2)+[,0 SAY limpalin]
?    [         @ ]+STR(ultlinha+4,2)+[,0 SAY limpalin]
?    [         STORE " " TO expressao]
?    [      OTHERWISE]
?    [      * ---LOCALIZAR o registro.]
?    [         * ---Fecha o arquivo de indice para um LOCATE mais rapido.]
?    [         SET INDEX TO]
?    [         LOCATE FOR &expressao]
?    [         IF .NOT. EOF]
?    [            * ---Encontra um registro que satisfaz a condicao.]
?    [            STORE # TO ultreg]
?    [            * ---Reabre o arquivo de indice.]
?    [            SET INDEX TO ] + arqindice
?    [            GOTO ultreg]
?    [         ELSE]
?    [            * ---Reabre o arquivo de indice e]
?    [            * ---forca a marca do EOF para verdadeiro (.T.).]
?    [            SET INDEX TO ] + arqindice
?    [            GO BOTTOM]
?    [            SKIP]
?    [         ENDIF]
?    [   ENDCASE]
?    [ENDDO]
?    [IF posopc = "L"]
?    [   * ---Retorna para o programa chamador ]+           [se somente o LOCATE foi desejado.]
?    [   RETURN]
?    [ENDIF]
?    [*]
?    [* ---MOSTRAR.]
?    [STORE " " TO string]
?    [DO WHILE string = " "]
?    [   @ ]+STR(ultlinha-1,2)+         [,0 SAY "EXEMPLO :NOME+ENDERECO"]
?    [   @ ]+STR(ultlinha+3,2)+[,0 SAY " "]
?    [   ACCEPT "Digite a string a ser mostrada " TO string]
?    [   @ ]+STR(ultlinha-1,2)+[,0 SAY limpalin]
?    [   STORE TRIM(string) TO string]
?    [   DO CASE]
?    [      CASE string = " "]
?    [      * ---Sair.]
?    [         @ ]+STR(ultlinha+1,2)+[,0 SAY limpalin]
?    [         @ ]+STR(ultlinha+2,2)+[,0 SAY limpalin]
?    [         @ ]+STR(ultlinha+3,2)+[,0 SAY limpalin]
?    [         RETURN]
?    [      CASE 0 = TEST(&string)]
?    [      * ---EXPRESSAO INVALIDA.]
?    [         @ ]+STR(ultlinha+2,2)+[,0 SAY limpalin]
?    [         @ ]+STR(ultlinha+3,2)+[,0 SAY limpalin]
?    [         STORE " " TO selecao]
?    [         @ ]+STR(ultlinha+2,2)+               [,0 SAY "EXPRESSO PARA DISPLAY INVLIDA: "+;]
?    [                    "Pressione qualquer tecla para continuar... ";]
?    [                GET selecao]
?    [         READ NOUPDATE]
?    [         @ ]+STR(ultlinha+2,2)+[,0 SAY limpalin]
?    [         @ ]+STR(ultlinha+3,2)+[,0 SAY limpalin]
?    [         STORE " " TO string]
?    [   ENDCASE]
?    [ENDDO]
?    [* ---Agora, o DISPLAY da expressao.]
?    [STORE F TO e:eof,qualq]
?    [DO WHILE .NOT. e:eof]
?    [   * ---O conjunto seguinte de comandos dBASE II, sao para]
?    [   * ---limpar ate o fim da tela. Se voce tem um IBM-PC,]
?    [   * ---voce pode trocar estes comandos por um unico:]
?    [   * ---@ 4,0 ERASE]
?    [   *]
STOR 4 TO lin
DO WHILE lin <= 22
   ?    [   @ ]+STR(lin,2)+[,0 SAY limpalin]
   STOR lin + 1 TO lin
ENDD 
?    [   @ 20, 0 SAY "---------------------------------------"]
?    [   @ 20,40 SAY "---------------------------------------"]
?    [   STORE 4 TO lin]
?    [   DO WHILE .NOT. EOF .AND. lin-3 <= 15]
?    [      STORE T TO qualq]
?    [      @ lin,0 SAY ]+[&]+[string]
?    [      STORE lin + 1 TO lin]
?    [      CONTINUE]
?    [   ENDDO]
?    [   * ---Uma variavel de memoria logica e usada para    ]
?    [   * ---detectar o fim de arquivo. A funcao EOF nao pode ser]
?    [   * ---resetado devido ao comando READ abaixo.]
?    [   STORE EOF TO e:eof]
?    [   IF .NOT. qualq]
?    [      * ---Registros nao satisfazem a condicao.]
?    [      @ 4,0 SAY "*** NO H REGISTRO QUE SATISFAA A CONDIO ***"]
?    [   ENDIF]
?    [   STORE " " TO selecao]
?    [   @ 21,0 SAY "Pressione qualquer tecla para continuar... ";]
?    [          GET selecao]
?    [   READ NOUPDATE]
?    [   @ 21,0 SAY limpalin]
?    [ENDDO]
?    [* ---O conjunto seguinte de comandos do dBASE II sao para]
?    [* ---limpar ate o fim da tela. Se voce tem um IBM-PC,]
?    [* ---voce pode trocar estes comandos por um unico:]
?    [* ---@ 4,0 ERASE]
?    [*]
STOR 4 TO lin
DO WHILE lin <= 22
   ?    [@ ]+STR(lin,2)+[,0 SAY limpalin]
   STOR lin + 1 TO lin
ENDD 
?    [GO TOP]
?    [RETURN]
?    [* EOF: ] + arqsai 
?    
SET ALTERNATE OFF
SET  ALTERNATE TO
USE  
DELE FILE &arqent..$$$
ERAS 
?    [PARA INICIAR O SISTEMA "]+arqent+["  , DIGITE O SEGUINTE:]
?    [.]
?    [.]
?    [. DO ]+arqsist+[-PRIN]
?    [.]
CLEA 
SET  RAW OFF
SET  TALK ON
SET  ESCAPE ON
RETU 

ndexado> --
faz com que arquivos indڀ>  us
&  I!s  J!rZRBB+s6  t@J!<u+sԋH& @+s
&  tJ!r[H!r  &, 3vNRS>   t    #%!  [ZSR!&G[@;t;t&9 uI!& r&>  Zu׎ûJ!J!s
  	!L!& Y+r+  3\   ~ to   6    ߃~ uFFFFvN
   ! vAAӿ\   \ vF)!<t2ؿl )!<t2YƠ ~ ыuR  &&GPK.  !s> <t<
t<t33\ t B FV^&c {  Q  Tn
v	z
 
      1Ƨ נY GGKu״	!L!_^ǒҋWP!s> <t<
t<t33o tOA 7