SBP ÿÿmain() ÿ×files$(100),flds$(0),f$(0),fSel$(0) ÿ¾ÿñÿt ÿ‰ÿñ"DateChk",0,0,220,140,"Date Check","MS Sans Serif",8 ÿ|ÿñ"DateChk",5,04,04,50,08,0,"File" ÿ|ÿñ"DateChk",5,84,04,50,08,0,"Date Fields" ÿ|ÿñ"DateChk",7,04,14,212,100,136,2,f$,fSel$,fSel$(0) ÿ|ÿñ"DateChk",1,04,118,60,14,0,"Open &File(s)",1,1 ÿ|ÿñ"DateChk",1,68,118,60,14,0,"Close &All",2,1 ÿ|ÿñ"DateChk",1,132,118,60,14,0,"&Change Format",3,1 ÿ|ÿñ"DateChk",1,196,118,20,14,1,"&OK",0,0 reload%%ÿÿ1 tab$ÿÿ(9) ÿØÿ1 ÿ¡reload%%ÿp ÿÿ f$(0) f$(0)ÿ"" f%%ÿ0 files%%ÿ0 ÿÿfiles$,0 ÿØfiles$(files%%)ÿ"" flds%%ÿ0 ÿÊÿË"Loading file def: "ÿfiles$(files%%) ÿ™files$(files%%) ÿÿ flds$(ÿõ(ÿ™,3)) ÿÿflds$,1 ÿØflds$(flds%%)ÿ""  ÿ¡ÿö(flds$(flds%%),0)ÿ"*DA*"ÿp  ÿ¡ÿO(ÿö(flds$(flds%%),4)ÿ"*YYYY*")ÿp  f$(f%%)ÿÿK(ÿ™,10)ÿtab$ÿÿK(flds$(flds%%),15)ÿtab$ÿÿö(flds$(flds%%),4)  f%%ÿf%%ÿ1  ÿÿ f$(f%%)  ÿ’ÿ¡  ÿ’ÿ¡  flds%%ÿflds%%ÿ1 ÿÙ files%%ÿfiles%%ÿ1 ÿÙ ÿÿ fSel$(f%%) reload%%ÿ0 ÿ’ÿ¡ ÿñ"DateChk",isok%% ÿÉÿæisok%% ÿæ0:ÿ’ÿØ ÿæ1 ÿÊÿ_ÿeÿt:ÿ…ÿ& ÿƒOpenFile() ÿÊÿ_ÿ³ÿt ÿ¡ÿ&ÿ0ÿp ÿÂ"Error opening file: "ÿÿ(ÿ&,""),ÿ((ÿ&),113 ÿ’ÿ¡ reload%%ÿÿ1 ÿæ2 ÿ†ÿt reload%%ÿÿ1 ÿæ3 f%%ÿ0 cr$ÿÿ(13)ÿÿ(10) fmod$ÿcr$ ÿØfSel$(f%%)ÿ"" f$ÿfSel$(f%%) fil$ÿÿF(ÿ+(f$,8)) fld$ÿÿF(ÿ,(f$,12,15)) ÿ™fil$ olddef$ÿÿö(fld$,4) pos%%ÿÿ?(olddef$,"yy") newdef$ÿÿö(fld$,0)ÿ" "ÿÿö(fld$,1)ÿ" "ÿÿö(fld$,2)ÿ";"ÿÿ+(olddef$,pos%%)ÿ"yy"ÿÿ,(olddef$,pos%%ÿ1) ÿÊÿ_ÿeÿt:ÿ…ÿ& ÿƒSetFieldDef(fld$,"",fil$,newdef$,ÿö(fld$,5),ÿö(fld$,6),ÿö(fld$,7),ÿö(fld$,8)) ÿÊÿ_ÿ³ÿt ÿ¡ÿ&ÿ0ÿp  ÿÂ"Error changing field def. for "ÿfld$ÿ"."ÿfil$ÿ": "ÿÿ(ÿ&,""),ÿ((ÿ&),113 ÿ^  ÿ¡ÿO(fmod$ÿ"*"ÿcr$ÿfil$ÿcr$ÿ"*")ÿp  fmod$ÿfmod$ÿfil$ÿcr$  ÿ’ÿ¡ ÿ’ÿ¡ f%%ÿf%%ÿ1 ÿÙ reload%%ÿÿ1 i%%ÿ2 ÿÊÿ_ÿeÿt ÿØÿ)(fmod$,10,i%%)ÿ"" ÿ…ÿ& ÿÅÿ™ÿ)(fmod$,10,i%%) ÿ¡ÿ&ÿ0ÿp  ÿÂ"Error saving file "ÿÿ)(fmod$,10,i%%)ÿ": "ÿÿ(ÿ&,""),ÿ((ÿ&),113 ÿ’ÿ¡ i%%ÿi%%ÿ1 ÿÙ ÿÊÿ_ÿ³ÿt ÿ’ÿæ ÿÙ ÿ¾ÿñ"DateChk" ÿ’ÿÿ ÿÿSetFieldDef(fld$,newfld$,fil$,newdef$,newclc$,newval$,hlp$,cmt$) ÿ™fil$ a%%ÿÿõ(fil$,1) ÿ×flds$(a%%) ÿÿflds$,1 ÿ¡newfld$ÿ""ÿpnewfld$ÿfld$ ÿ›i%%ÿ0ÿqa%% ÿ¡fld$ÿflds$(i%%)ÿpgotit%%ÿÿ1 ÿ± ÿ›i%%ÿ0ÿqa%% ÿ¡newfld$ÿflds$(i%%)ÿpgotnew%%ÿÿ1 ÿ± ÿ¡gotit%%ÿp'modify rather than add field ÿ¡ÿö(fld$,3)ÿ""ÿp ÿ¾ÿ£fld$$ ÿ’ÿ¡ xe$ÿ"MODIFY fld$$newfld$ + ~;~ + newdef$" ÿ^ÿ¡ÿOgotnew%%ÿp xe$ÿ"ADD newfld$ + ~;~ + newdef$" ÿ’ÿ¡ ÿ¡xe$ÿ""ÿp ÿ¡newclc$ÿ""ÿpxe$ÿxe$ÿ",newclc$" ÿ¡newval$ÿ""ÿpxe$ÿxe$ÿ",newval$" ÿ¡cmt$ÿ""ÿpc$ÿ"COM "ÿcmt$:xe$ÿxe$ÿ",c$" ÿ¡hlp$ÿ""ÿph$ÿ"HLP "ÿhlp$:xe$ÿxe$ÿ",h$"  ÿ–xe$ ÿ’ÿ¡ ÿ’ÿÿ