(TPTKMCWINDEKTFIELDKWINDOROPTKWINDOFF1IDPROOFPROOF1FNAMEIDFLNCUNNRECORDNNFIELDFLENINSPLF1LENWINDOWWINDOIWINDOOWINDOCINPWINDEXDNAMEKKKWINDO@@@AUArB'7@- B @ @ @ BXQ e  ACAB& y ,,!A",# $ % & '''()*@+@,@-BH JJDATA-X UTILITIES PROGRAM I, LETS YOU DO GLOBAL CHANGES & OTHER STUFFBY J. SUMMERS(c)1988, ANTIC PUBLISHING< BINITIALIZATIONc AI - F:@,"@9#(8F:@,"@"I( Press :F:@,"@"%)@.6-?:,:-@ (7<, $ -( $X -(6-?:,$_6-F:@,!6-F:@,267@,._=67,._U67@,.7@,_ A -(6-6.  )"AUAPA&A@"A " 6-&(>:,_" A 967<,.>:,(>:,!6-%6F:@,"@99(A $ 6-&"6-$67<,. $,6-?:<@<@<@5<@,>-@@[(ɠؠm-@@( ʮg-@@(( Source file: 46-@> AD6.V-@@g( Dest file: m6-@ A6.) AF@@P Am@@4A, A@,0*0Av A66-?:<@<@<@5<@ ,H-@@W(Source: i-@@v(Dest: p-@@ #( dd field5-@@F( elete fieldX-@@p(hange field length@-@@%( ist fields7-@@@(xit$*)@!@*6-&@2."@eA 8"@gA@B"@hA0L"@iAPV"@vA`` A`X,6-?:<@<@<@4<@,>-@@X(Enter name of field: 1-@@!6-@+ A16.1-@@1(Enter length of field: +-@@!6-@+ A4 A6-A:,4 @)!AA.(@6-"4.6-@)@*@1)@$6-%AV$1*@)@*@ 1)@$6-%AV$1*@%)@%*@%@ _%@"@!)-@@=(Too many fieldsQ-@AU _ AP*/-@@+(@/ 4E(@-@+@468,-A(@E >(@H:-@-@:6-?:<@-@@Z(Enter number of field:  +-@@!6-@+ A 4 A6-A:,4 @)!@ A .(@6-"4.6-@ )@*@ 1)@$6-%AV$1*@ )@*@ 1)@$6-%AV$1*@ %)@%*@&@ ^&@"@)-@@<(Too few fieldsP-@AT ^ AP "@A1 7-@&@&@3(@7 & @"A100 1-%@ @-(@1 : "@A1PD @-@&@&@/68,-<(@@ N '@68,-'"A1pX :-%@ @)68,-6(@: b %-@%"@A2l E-@&@46-?:<@-@@Z(Enter number of field: +-@@!6-@+ A4 A6-A:,4 @)!@ AS-@@+(Enter new length:=-@@I6-@S A* 6-A:,* @)!AA.(@6-"4.6-@)@*@1)@$6-%AV$1*@)@*@1)@$6-%AV$1*@)@*@/-@@+(@/ "@AAI-@&@&@/68,-868,-E(@I /@68,-"68,-/(@"AA@"C-%@ @)68,-268,-?(@C ,Y-@-@067@,. A67A,. Y67@,.7@,6B6-?:<@ B @ AP.@@$@. BpX,6-?:<@<@<@5<@#,>-@@X(Field Lengthz/6-4")@/)@*)@)@*)@[-@@2-@@%<( @ N-@[@-@ @%(* -@@"*( Press O)@ A%@B@@O@ A`(#V-@@3(Error opening source fileG-@AK V@2# A A#_-@@1(Error opening dest fileE-@AI T@_@# A A#S-@@'( Illegal value;-@A? I AS A0T$`-@@2(File compatibility errorF-@AJ U@`@^$ A A$S-@@'( Illegal value;-@A? I AS A0%\-@@.(Do not use same nameB-@AF Q@\@&% A A' +INITIALIZATION'KA@'A @9@AKB7tA'RR;A0,;@,;AD,;AU,;@ ,;@ ,;A,'RR;A,;@9,;AI,;@ ,;@,9@ ,9@ ,'&&;@,;@,;@,$'g67@,. %67A,. =67@,.7@,V6.\SUMMERS\DATA.BAS\g67A,. )'6.\SUMMERS\DATA1BAS\.'C6-6-@#6-%+6-%36-%;6-%C6-%j'K:ARt' B'5 6-C:,6-C:,6-C:,,6-?:+BB67@<@9,.'hhhhEhDhIhHB VHԽI`\+kk67@<@,.Ph8ܭݠܪʆȱܪʆȱܪنȱܪ؆ȱ܅ȱ܅ݥX֥Yԥi(֥if+``67@<AI,.EץمԩՑ֥iܥiԥi(֥iץ؅`.$y +D1:DATAUTIL.BAS