Program Metropolis - Software Boutique 95

home *** CD-ROM | disk | FTP | other *** search

/ Program Metropolis - Software Boutique 95 / SOFTWARECD.iso / camipro3 / macros.cmz / DATAMAN.SMM < prev next >

Wrap

INI File | 1994-08-14 | 105.0 KB | 7,891 lines

[ver] 4 [sty] [files] [charset] 82 CHINESEBIG5 (Windows) [revisions] 0 [prn] PostScript Printer [port] LPT1: [lang] 1 [desc] ½╪Ñ▀ñ╬╜s┐Φ╕Ω«╞«wíC Autorun 776291647 96 698116454 6698 34 0 0 0 0 0 [fopts] 0 1 0 0 [lnopts] 130 Body Text 1 [docopts] 5 2 [GramStyle] [ParaNum] 1 [tag] Body Text 2 [fnt] Arial MT 200 0 16384 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Text 0 0 [tag] Function 3 [fnt] Courier 200 0 32769 [algn] 1 1 0 0 0 [spc] 33 244 1 0 0 1 100 [brk] 68 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 3 . , $ Body Text 0 0 [tag] Footer 4 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Footer 0 0 [tag] 2nd Function 5 [fnt] Courier 200 0 32769 [algn] 1 1 0 0 0 [spc] 33 244 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 2 0 1 1 0 0 0 0 [nfmt] 272 1 3 . , $ 2nd Function 0 0 [tag] Number List 6 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 360 360 360 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*:>. 360 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Number List 0 0 [tag] Subhead 7 [fnt] TimesNewRomanPS 240 0 49155 [algn] 1 1 0 0 0 [spc] 33 273 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Subhead 0 0 [tag] Title 8 [fnt] Arial MT 360 0 16385 [algn] 4 1 0 0 0 [spc] 33 446 1 144 72 1 100 [brk] 16 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Title 0 0 [tag] Body Single 9 [fnt] Arial MT 240 0 16385 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Single 0 0 [tag] Bullet 11 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 0 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*0> 360 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Bullet 0 0 [tag] Bullet 1 12 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 288 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*5> 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Bullet 1 0 0 [tag] Header 0 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Header 0 0 [lay] Standard 513 [rght] 15840 12240 1 1440 1440 1 1440 1440 0 1 0 1 0 2 1 1440 10800 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 [hrght] [lyfrm] 1 11200 0 0 12240 1440 0 1 3 1 0 0 0 0 0 0 0 0 1 [frmlay] 1440 12240 1 1440 72 1 792 1440 0 1 0 1 1 0 1 1440 10800 1 3 9360 [txt] <+B><+!>CardFile<-!> <+!><:P10,0,> of <:da<*7><* >> <+B><+!><:Db ><-!><+!> <:b<* >><-!> <+B> > [frght] [lyfrm] 1 13248 0 14400 12240 15840 0 1 3 1 0 0 0 0 0 0 0 0 2 [frmlay] 15840 12240 1 1440 792 1 14472 1440 0 1 0 1 1 0 1 1440 10800 2 2 4680 3 9360 [txt] Endif Endif > [elay] [l1] 0 [pg] 34 54 0 45 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 53 108 0 0 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 100 162 0 20 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 146 216 0 31 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 197 270 0 10 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 249 324 0 17 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 296 378 0 12 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 344 432 0 37 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 392 486 0 22 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 438 540 0 51 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 484 594 0 0 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 532 648 0 12 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 584 702 0 11 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 634 756 0 40 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 687 810 0 69 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 735 864 0 16 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 781 918 0 30 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 831 972 0 35 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 882 1026 0 31 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 930 1079 0 0 32 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 976 1132 0 0 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 1022 1186 0 13 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 1072 1240 0 7 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 1122 1294 0 10 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 1171 1348 0 7 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 1220 1402 0 17 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 1271 1456 0 47 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 1324 1510 0 0 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 1375 1564 0 28 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 1429 1618 0 43 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 1481 1672 0 39 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 1534 1726 0 60 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 1585 1779 0 58 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 1633 1780 0 10 1025 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 1634 [edoc] @Function@' PDX Defines ' view in outline mode. define Dllname "pxengwin.dll" define PXSingleClient 0 'define PXSHARE 2 define PXWinInit() DllCall("PXEngWin.dll,PXWinInit,HCH", %1, %2) define PXexit() DllCall("PXEngWin.dll,PXExit,H",) define PXTblExist() DllCall("PXEngWin.dll,PXTblExist,HCL", %1, %2) define PXTblCreate() DllCall("PXEngWin.dll,PXTblCreate,HCHMM", %1, %2, %3, %4) define PXTblOpen() DllCall("PXEngWin.dll,PXTblOpen,HCLHH",%1, %2, %3, %4) define PXRecBufOpen() DllCall("PXEngWin.dll,PXRecBufOpen,HHL", %1, %2) define PXRecBufClose() DllCall("PXEngWin.dll,PXRecBufClose,HH", %1) define PXTblClose() DllCall("PXEngWin.dll,PXTblClose,HH", %1) define PXRecAppend() DllCall("PXEngWin.dll,PXRecAppend,HHH", %1, %2) define PXPutAlpha() DllCall("PXEngWin.dll,PXPutAlpha,HHHC", %1, %2, %3) define PXPutDate() Dllcall("PXEngWin.dll,PXPutDate,HHHJ",%1,%2,%3) define PXPutLong() DllCall("PxEngWin.dll,PXPutLong,HHHJ",%1,%2,%3) define PXGetAlpha() DllCall("PXEngWin.dll,PXGetAlpha,HHHHC", %1, %2, %3, %4) define PXGetDate() DllCall("PXEngWin.dll,PXGetDate,HHHO",%1,%2,%3) define PXGetLong() DllCall("PXEngWin.dll,PXGetLong,HHHO",%1,%2,%3) Define PXDateDecode() DllCall("PXEngWin.dll,PXDateDecode,HJLLL",%1,%2,%3,%4) define PXRecFirst() DllCall("PXEngWin.dll,PXRecFirst,HH", %1) define PXRecLast() DllCall("PxEngWin.dll,PXRecLast,HH",%1) define PXRecNext() DllCall("PXEngWin.dll,PXRecNext,HH", %1) define PXRecPrev() DllCall("PXEngWin.dll,PXRecPrev,HH", %1) define PXRecGet() DllCall("PXEngWin.dll,PXRecGet,HHH", %1, %2) define PXRecUpdate() DllCall("PXEngWin.dll,PXRecUpdate,HHH", %1, %2) define PXRecNFlds() DllCall("PXEngWin.dll,PXRecNFlds,HHL", %1, %2) define PXKeyNFlds() DllCall("PXEngWin.dll,PXKeyNFlds,HHL",%1,%2) define PXRecBufEmpty() DllCall("PXEngWin.dll,PXRecBufEmpty,HH",%1) define PXRecInsert() DllCall("PxEngWin.dll,PXRecInsert,HHH",%1,%2) define PXFldName() DllCall("PXEngWin.dll,PXFldName,HHHHC", %1, %2, %3, %4) define PXFldType() DllCall("PXEngWin.dll,PXFldType,HHHHC", %1, %2, %3, %4) ' Peyton's follow.... define PXRecNum() DllCall("PXEngWin.dll,PXRecNum,HHO", %1, %2) define PXRecDelete() DLLCall("PXEngWin.dll,PXRecDelete,HH", %1) define PXSrchFld() DllCall("PXEngWin.dll,PXSrchFld,HHHHH",%1,%2,%3,%4) define PXFldHandle() DllCall("PXEngWin.dll,PXFldHandle,HHCL",%1,%2,%3) define PXRecGoto() DllCall("PXEngWin.dll,PXRecGoto,HHJ",%1, %2) define PXTblNRecs() DllCall("PXEngWin.dll,PXTblNRecs,HHO",%1,%2) define PXKeyAdd() DllCall("PXEngWin.dll,PXKeyAdd,HCHNH",%1,%2,%3,%4) define PXNetUserNAme(BufferSize,Char) DllCall("PXEngWin.dll,PXNetUserName,HHC"%1,%2) define PXErrMsg(Errcode) DllCall("PXEngWin.dll,PXErrMsg,CH",%1) define PXNetTblRefresh(TblHan) DllCall("PXEngWin.dll,PXNetTblRefresh,HH",%1) define PXTblName(Tblhand,&Tblname) DllCall("PXEngWin.dll,PXTblName,HHHC",%1,%2,%3) define PXNetErrUser(bufsize,username) Dllcall("PXEngWin.dll,PXNetErrUser,HHC",%1,%2) define PXNetRecLock(THand,&LckHand) DllCall("PXEngWin.dll,PXNetRecLock,HHO",%1,%2) define PXNetRecUnlock(Than,LckHand) DllCall("PXEngWin.dll,PXNetRecUnlock,HHH",%1,%2) define PXNetRecLocked(thand,&Locked) DllCall("PXEngWin.dll,PXNetRecLocked,HHO",%1,%2) define NOTONNET 1 ' not on a net define NOVELLNET 2 ' Novell define THREECOMNET 3 ' 3Com define THREEOPENNET 4 ' 3Com 3+Open define OTHERNET 5 ' other: unknown DOS 3.1 compatible define STARLANNET 7 ' Starlan define BANYANNET 8 ' Banyan define IBMPCNET 9 ' IBM PC @Function@' Defines Define GetFocus() DllCall("User,GetFocus,H") Define SetFocus() DllCall("User,SetFocus,HH",%1) Define GetDlgCtrlId() DllCall("User,GetDlgCtrlId,HH",%1) Define EnableWindow() DllCall("User,EnableWindow,AHA",%1,%2) Define ShowWindow() DllCall("User,ShowWindow,AHH",%1,%2) define LBGetText(hwnd,Id,Ptr) dllcall("user,sendmessage,HHHHC", %1, LB_GETTEXT, %2, %3) Define SetWindowText(hwnd,text) DllCall("User,SetWindowText,HHC",%1,%2) @Outline2@Define LB_GETCURSEL 1033 @Outline2@define LB_DELETESTRING 1027 @Outline2@define LB_GETCOUNT 1036 @Outline2@define LB_GETTEXT 1034 @Outline2@define LB_SETCURSEL 1031 define LB_INSERTSTRING 1026 @Outline2@Define LB_SetTopIndex 1048 Define EM_LimitText 1045 Define DM_SETDEFID 1025 Define SetDefID() AppSendMessage(hdlg,DM_SETDEFID,%1,0) Define RB_Text 20 Define EB_Width 8001 Define BN_Add 51 Define BN_Remove 52 Define Bn_Prv 29 Define Bn_Nxt 28 Define LB_ID 9000 Define BN_Clr 33 Define EB_Handle() GetDlgItem(Hdlg,8000) Define GetProfilePdx() GetProfileString$("Paradox Engine",%1,"Win.ini") Define WriteProfilePdx() WriteProfileString("Paradox Engine",%1,%2,"Win.ini") define CloseDlg(id) dllcall("user,PostMessage,HHHHHH", HDLG, 0X111, %1, 0, 0). @Function@'Declares Declare AddField(Hdlg) Declare BuildIndex(FileName,FldName) Declare BuildTable(TableName) Declare CloseTable() Declare CollectHeader(Fieldname,fldSep,RecSep) Declare CreateOptionsBox() Declare DefineFields() Declare FastForward(hdlg) Declare FastReverse(Hdlg,Id, Dummy) Declare Finditem(p1,p2) Declare FreeGlobals() Declare GetFieldData(Hdlg) Declare GotoMain(Hdlg) Declare Init(Libid) Declare Lockem(Hdlg) Declare MainCall(Hdlg,id,dummy) Declare MoveFirst() Declare OpenBox(initpath,initmask) Declare OpenTable(FileName,Thandle,RecHandle) Declare PackGlobals(FieldNameArray, FieldTypeArray,RecHandle,Thandle) Declare ReadFields(FieldNames, FieldType,Thandle) Declare ReadFive(Hdlg) Declare ShutDown() Declare SortEm() Declare Stopit() Declare StuffInfo(Hdlg) Declare StuffRecBuf() Declare UpdateDisplay(Hdlg,id,Dummy) Declare WriteFields(p1) Declare WriteOut() Declare GetKeyFields(p1,p2) Declare GetFieldInfo(Rhand, FldNum, FldData) Declare ShiftNames(ArrrayData, Hdlg) Declare CopyToClip() Declare OnMenu(Menu, Item) Declare MainEntrybox(FileName) @Function@Function Main() IgnoreKeyBoard(2) DefStr FldSep,RecSep,Stat,Libid; Dim FieldNames(1) 'Stat = Init(&Libid) 'DEZ 'If (Stat = 0 or Stat = 82) 'Else ' Error=PXErrMsg(Stat) ' 'Message(error) ' Exit Function 'Endif Barid=1 If 1=OnMenu("&Card File","&Open...") LastOpen = GetProfileString$("Card File", "LastOpen", "AmiPro2.ini") MainEntryBox(LastOpen) Exit Function Endif MenuName="&Card File" Deletemenu(Barid, MenuName) AddMenu(Barid, MenuName) Mac=GetRunningMacroFile$() <:Zaddmenutitem>AddMenuItem<:Z~addmenutitem>(BarId,MenuName,"&New Card File...","{mac}!Build()") AddMenuItem(BarId,MenuName,"&Open...","{mac}!MainEntryBox") AddmenuItem(BarId,MenuName,"-","") AddMenuItem(BarId,MenuName,"E&xit Card File","{Mac}!Shutdown()") AddMenuItem(BarId,MenuName,"&Setup...","{Mac}!Configure()") End Function @2nd Function@Function Init(LibId) *Libid = DllLoadLib(STrCat$(GetAMiDirectory$(),Dllname), "PXWinInit", "HCH"); allocglobalvar("LibId", 1) 'DEZ setglobalvar("LibId", LibID) 'id=PXWinInit("PDXMain",PXShare) id=PXWinInit("PDXMain",PXSingleClient) Return id; end function @2nd Function@FUNCTION OnMenu(menu, item) <:R1,13,1,1080,1,1800,1,2520,1,3240,1,3960,1,4680,1,5400,1,6120,1,6840,1,7560,1,8280,1,9000,1,9720,>rmac=getrunningmacrofile$() <:R1,13,1,1080,1,1800,1,2520,1,3240,1,3960,1,4680,1,5400,1,6120,1,6840,1,7560,1,8280,1,9000,1,9720,>result=checkmenuitem(1, menu, item, 1) ' Must checkmenuitem twice so it gets <:R1,13,1,1080,1,1800,1,2520,1,3240,1,3960,1,4680,1,5400,1,6120,1,6840,1,7560,1,8280,1,9000,1,9720,>result=checkmenuitem(1, menu, item, 0) ' correct value without altering item <:R1,13,1,1080,1,1800,1,2520,1,3240,1,3960,1,4680,1,5400,1,6120,1,6840,1,7560,1,8280,1,9000,1,9720,>if result=8 <:R1,13,1,1080,1,1800,1,2520,1,3240,1,3960,1,4680,1,5400,1,6120,1,6840,1,7560,1,8280,1,9000,1,9720,> onmenu= 1 <:R1,13,1,1080,1,1800,1,2520,1,3240,1,3960,1,4680,1,5400,1,6120,1,6840,1,7560,1,8280,1,9000,1,9720,>elseif <:R1,13,1,1080,1,1800,1,2520,1,3240,1,3960,1,4680,1,5400,1,6120,1,6840,1,7560,1,8280,1,9000,1,9720,> onmenu= 0 <:R1,13,1,1080,1,1800,1,2520,1,3240,1,3960,1,4680,1,5400,1,6120,1,6840,1,7560,1,8280,1,9000,1,9720,>endif <:R1,13,1,1080,1,1800,1,2520,1,3240,1,3960,1,4680,1,5400,1,6120,1,6840,1,7560,1,8280,1,9000,1,9720,>END FUNCTION <:S+-1><:R1,13,1,1080,1,1800,1,2520,1,3240,1,3960,1,4680,1,5400,1,6120,1,6840,1,7560,1,8280,1,9000,1,9720,> @Function@<:R>Function <:Zmainentrybox>MainEntryBox<:Z~mainentrybox>(FileName) DefStr Stat,Thandle,RecHandle, nKeyFlds, Libid; Dim FieldNames(1) Dim FieldType(1) allocglobalvar("LibId", 1) if getglobalvar$("libid") = "" 'dez Stat = Init(&Libid) If (Stat = 0 or Stat = 82) Else Error=PXErrMsg(Stat) 'Message(error) Exit Function Endif endif If FileName = "" FileName = "" initpath=GetDocPath$() ' Assign the file path here initmask="*.db" ' Assign the file mask here If "" != Assign(&filename, OpenBox(initpath,initmask)) Else Exit Function Endif 'singlestep(on) Endif HourGlass(on) If 0=Assign(&Stat,OpenTable(FileName,&Thandle,&RecHandle)) WriteProfileString("Card File", "LastOpen", FileName, "AmiPro2.ini") Else Error=PXErrMsg(Stat) 'Message(error) Return -1 Endif If 0=Assign(&Stat,ReadFields(&FieldNames, &FieldType,Thandle)) Else Error=PXErrMsg(Stat) 'Message(error) Return -1 Endif If 0 = Assign(&Stat,GetKeyFields(Thandle,*nKeyFlds)) Else Error=PXErrMsg(Stat) 'Message(error) Endif PackGlobals(&FieldNames, &FieldType, RecHandle,Thandle) Mac=GetRunningMacroFile$() ProDir=GetAmiDirectory$() Filledit(1000,"{ProDir}GreyBlue.bmt") Filledit(1011,"") Filledit(34,"{ProDir}Lock.bmp") Filledit(23,"{ProDir}Down.bmt") Filledit(24,"{ProDir}Up.bmt") Filledit(28,"{ProDir}Next3.Bmt") Filledit(29,"{ProDir}Prev3.bmt") Filledit(35,"{ProDir}FFWRD.Bmt") Filledit(36,"{ProDir}Frev.bmt") Filledit(55,"{ProDir}Stop.bmt") Filledit(56,"{ProDir}Stop.bmt") Filledit(82,"") Filledit(83,"") Filledit(84,"") Filledit(85,"") SetDlgCallBack(0,"{Mac}!PreBuild") SetDlgCallBack(21,"{Mac}!MainCall") SetDlgCallBack(23,"{Mac}!MainCall") SetDlgCallBack(24,"{Mac}!MainCall") SetDlgCallBack(27,"{Mac}!MainCall") SetDlgCallBack(28,"{Mac}!MainCall") SetDlgCallBack(29,"{Mac}!MainCall") SetDlgCallBack(30,"{Mac}!MainCall") SetDlgCallBack(31,"{Mac}!MainCall") SetDlgCallBack(32,"{Mac}!MainCall") SetDlgCallBack(33,"{Mac}!MainCall") SetDlgCallBack(34,"{Mac}!MainCall") SetDlgCallBack(35,"{Mac}!MainCall") SetDlgCallBack(36,"{Mac}!MainCall") SetDlgCallBack(39,"{Mac}!MainCall") SetDlgCallBack(55,"{Mac}!MainCall") SetDlgCallBack(56,"{Mac}!MainCall") SetDlgCallBack(41,"{Mac}!HitEnter") SetDlgCallBack(82,"{Mac}!HitFolder") SetDlgCallBack(83,"{Mac}!HitFolder") SetDlgCallBack(84,"{Mac}!HitFolder") SetDlgCallBack(85,"{Mac}!HitFolder") IgnoreKeyBoard(2) HourGlass(off) Box=DialogBox(".","Mainbox") libid=GetGlobalVar$("LibId") 'message(libid) CloseTable() If 0 != Assign(&Stat, PxExit()) Error=PXErrMsg(Stat) 'Message(error) Endif result=DLLFreeLib(libid) 'DEZ FreeGlobals() end Function @2nd Function@Function PreBuild(Hdlg,id,dummy) IgnoreKeyBoard(2) DefStr Stat,UserName, TblName; TotalFields=GetGlobalArray$("TotalFields",1) Thand=GetGlobalArray$("Thandle",1) RHand=GetGlobalArray$("RecHandle",1) If 0 = PXTblName(Thand, 80,&TblName) Else Endif ShowWindow(GetDlgItem(Hdlg,34),0) ' hide the field management ShowWindow(GetDlgItem(Hdlg,55),0) ' hide the two stop buttons under ffwd + revers ShowWindow(GetDlgItem(Hdlg,56),0) ShowWindow(GetDlgItem(Hdlg,93),0) ' hide the cover for down 'EnableWindow(GetDlgItem(Hdlg,27),0) ' Index buttongrey these guys If TotalFields<<10 ShowWindow(GetDlgItem(Hdlg,23),0) ShowWindow(GetDlgItem(Hdlg,24),0) Endif Title="Edit Card File - {TblName}" SetWindowText(Hdlg,"{Title}") If 0=Assign(&Stat,PXNetUserName(80,&UserName)) Else ' Message("UserName failed with {Stat}") Endif 'Message("Username = {username}") SetDefId(41) If 0 = Assign(&Stat, PXRecFirst(Thand)) PXRecGet(Thand,Rhand) GetFieldData(Hdlg) UpdateDisplay(Hdlg,0,0) ReadFive(Hdlg) Else Error=PXErrMsg(Stat) UpdateDisplay(Hdlg,0,0) Endif End Function @2nd Function@Function <:ZMainCall>MainCall<:Z~MainCall>(Hdlg,id,dummy) IgnoreKeyBoard(2) DefStr Stat, UserName, LckHand; LastField=GetGlobalArray$("LastField",1) TotalFields=GetGlobalArray$("TotalFields",1) Thand=GetGlobalArray$("Thandle",1) RHand=GetGlobalArray$("RecHandle",1) Switch id Case 21 ' Update the current record StuffInfo(Hdlg) StuffRecBuf() If 0!=Assign(&Stat,PXRecUpdate(Thand,Rhand)) Error=PXErrMsg(Stat) 'Message(error) Endif PXRecGet(Thand,RHand) GetFieldData(Hdlg) UpdateDisplay(hdlg,id,dummy) Case 23' scroll fields forward StuffInfo(Hdlg) LastField=LastField+10 If LastField<;>=TotalFields LastField=LastField - 10 Endif SetGlobalArray("RefreshMain",1,1) ' set refresh flag on SetGlobalArray("LastField",1,LastField) UpdateDisplay(hdlg,id,dummy) Case 24' scroll fields backward StuffInfo(Hdlg) LastField=LastField - 10 If LastField <<0 LastField=0 Endif SetGlobalArray("RefreshMain",1,1) ' set refresh flag on SetGlobalArray("LastField",1,LastField) UpdateDisplay(Hdlg,id,dummy) Case 27 ' Sort the records in this database EnableWindow(Hdlg,0) If SortEm() GetFieldData(Hdlg) UpdateDisplay(Hdlg,id,dummy) Endif EnableWindow(hdlg,1) SetFocus(Hdlg) ReadFive(Hdlg) Case 28 ' Move Next Record If 0=Assign(&Stat,PXRecNext(Thand)) ReadFive(Hdlg) PXRecGet(Thand,RHand) GetFieldData(Hdlg) UpdateDisplay(Hdlg,id,dummy) Else Error=PXErrMsg(Stat) 'Message(error) Endif Case 29 ' Move Previous Record If 0=Assign(&Stat,PXRecPrev(Thand)) ReadFive(Hdlg) PXRecGet(Thand,RHand) GetFieldData(Hdlg) UpdateDisplay(Hdlg,id,dummy) Else Error=PXErrMsg(Stat) 'Message(error) Endif Case 30 ' Goto Location EnableWindow(Hdlg,0) Stat = GotoMain(Hdlg) EnableWindow(hdlg,1) PXRecGet(Thand,RHand) GetFieldData(Hdlg) UpdateDisplay(Hdlg,id,dummy) SetFocus(Hdlg) ReadFive(Hdlg) Case 31 ' Add button pressed StuffInfo(Hdlg) StuffRecBuf() If 0!=Assign(&Stat,PXRecInsert(Thand,Rhand)) Error=PXErrMsg(Stat) 'Message(error) Endif LastField=0 SetGlobalArray("LastField",1,LastField) SetGlobalArray("RefreshMain",1,1) SetFocus(Hdlg) UpdateDisplay(Hdlg,id,dummy) ReadFive(Hdlg) Case 32 ' Delete this record GetFieldData(Hdlg) If Decide("Really Delete This Card?") IF (0=Assign(&Stat,PXRecDelete(Thand))) PXRecGet(Thand,RHand) GetFieldData(Hdlg) UpdateDisplay(Hdlg,id,dummy) ReadFive(Hdlg) Else Error=PXErrMsg(Stat) 'Message(error) Endif Endif Break; Case 33 ' New button pressed For t=1 to TotalFields SetGlobalArray("EditData",t,"") Next LastField=0 SetGlobalArray("LastField",1,LastField) UpdateDisplay(Hdlg,id,dummy) Case 34 ' Clear Button Hit Case 35 ' Fast Forward hit SetGlobalVar("Speed",1) ShowWindow(GetDlgItem(Hdlg,35),0) ' hide the fast frwd button ShowWindow(GetDlgItem(Hdlg,55),1) ' Show the stop button FastForward(Hdlg) ShowWindow(GetDlgItem(Hdlg,55),0) ' hide the stop ShowWindow(GetDlgItem(Hdlg,35),1) ' show the fast forward ReadFive(Hdlg) PXRecGet(Thand,RHand) GetFieldData(Hdlg) UpdateDisplay(Hdlg,id,dummy) Case 36 ' Fast Reverse SetGlobalVar("Speed",1) ShowWindow(GetDlgItem(Hdlg,36),0) ' hide the fast frwd button ShowWindow(GetDlgItem(Hdlg,56),1) ' Show the stop button FastReverse(Hdlg,id, dummy) ShowWindow(GetDlgItem(Hdlg,56),0) ' hide the stop ShowWindow(GetDlgItem(Hdlg,36),1) ' show the fast forward ReadFive(Hdlg) PXRecGet(Thand,RHand) GetFieldData(Hdlg) UpdateDisplay(Hdlg,id,dummy) Case 39 ' Copy to clipboard StuffInfo(Hdlg) CopyToClip() Break; EndSwitch SetDefId(41) ' Set the default id to the return key End Function @2nd Function@Function HitFolder(Hdlg,id,dummy) IgnoreKeyBoard(2) DefStr CurNumber, Stat; TotalFields=GetGlobalArray$("TotalFields",1) Thand=GetGlobalArray$("Thandle",1) RHand=GetGlobalArray$("RecHandle",1) If 0 = Assign(&Stat,PxRecNum(Thand,&CurNumber)) Else ' error with stat Endif Folder=Id - 81 For t = 1 to Folder If 0 = Assign(&Stat,PxRecNext(Thand)) Else ' error with stat Endif Next PxRecGet(Thand, Rhand) GetFieldData(Hdlg) UpdateDisplay(Hdlg,id,dummy) ReadFive(Hdlg) End Function @2nd Function@Function HitEnter(Hdlg,id,dummy) IgnoreKeyBoard(2) hWnd=GetFocus() Id=GetDlgCtrlId(hWnd) If Id <<8000 or id <;>8010 Return -1 Endif Forward=id+1 TargetEdit=GetGlobalArray$("EditTarget",1) LastEditField=GetGlobalArray$("LastEditField",1) if Forward=LastEditField ' need to set default button to add Nextwin=GetDlgItem(Hdlg,Forward) SetFocus(NextWin) SetDefId(31) ElseIf Id = LastEditField ' Enter was hit, and on the last field MainCall(Hdlg,31,0) Elseif id<<TargetEdit Nextwin=GetDlgItem(Hdlg,Forward) SetFocus(NextWin) Else NextWin=GetDlgITem(Hdlg,8001) SetFocus(NextWin) MainCall(Hdlg,23,0) Endif End Function @2nd Function@Function <:ZFastForward>FastForward<:Z~FastForward>(Hdlg) IgnoreKeyBoard(2) DefStr Stat, Name, FldData; MouseInterrupt("Stopit") Dim StoreName(6) TotalFields=GetGlobalArray$("TotalFields",1) Thand=GetGlobalArray$("Thandle",1) RHand=GetGlobalArray$("RecHandle",1) KeyField = GetGlobalArray$("KeyField",1) While (0= Assign(&Stat, PxRecNext(Thand))) If GetGlobalVar$("Speed") = 0 Break Endif PxRecGet(Thand, RHand) If 0 = GetFieldInfo(Rhand, KeyField, &FldData) ' If 0 = Assign(&Stat, PXGetAlpha(Rhand,KeyField,250,&FldData)) Else Return Stat Endif ShiftNames(&StoreName,Hdlg) StoreName(1) = FldData SetDlgItemText(Hdlg, 1021, StoreName(1)) Wend If Stat != 0 Error=PXErrMsg(Stat) ' 'Message(error) Endif Return 0 End Function @2nd Function@Function <:ZFastReverse>FastReverse<:Z~FastReverse>(Hdlg,id,dummy) IgnoreKeyboard(2) DefStr Stat, Name, FldData; MouseInterrupt("Stopit") Dim StoreName(6) TotalFields=GetGlobalArray$("TotalFields",1) Thand=GetGlobalArray$("Thandle",1) RHand=GetGlobalArray$("RecHandle",1) KeyField = GetGlobalArray$("KeyField",1) While (0= Assign(&Stat, PxRecPrev(Thand))) If GetGlobalVar$("Speed") = 0 Break Endif PxRecGet(Thand, RHand) If 0 = GetFieldInfo(Rhand, KeyField, &FldData) Else Message(Stat) Endif ShiftNames(&StoreName,Hdlg) StoreName(1)=FldData SetDlgItemText(Hdlg,1021,StoreName(1)) Wend If Stat != 0 Error=PXErrMsg(Stat) 'Message(error) Endif Return 0 End Function @2nd Function@Function ShiftNames(StoreName,Hdlg) IgnoreKeyboard(2) For t = 5 to 2 step -1; *StoreName(T) = *StoreName(T - 1); SetDlgItemText(Hdlg, (1017 + (5 - T)), *StoreName(T)) Next End Function @2nd Function@Function Stopit() MouseInterrupt("") SetGlobalVar("Speed",0) End Function @Body Single@ @2nd Function@Function Lockem(Hdlg) IgnoreKeyBoard(2) DefStr LckHand, Stat, UserName, id, Dummy; Thand=GetGlobalArray$("Thandle",1) Rhand=GetGlobalArray$("RecHandle",1) OldLock = GetGlobalVar$("PrevLock") ProDir = GetAmiDirectory$() If OldLock !=0 If 0 = Assign(&Stat,PXNetRecUnlock(THand,OldLock)) Else Error=PXErrMsg(Stat) Endif Endif If 0= Assign(&Stat,PXNetRecLock(Thand, &LckHand)) SetGlobalVar("PrevLock",LckHand) Else SetGlobalVar("PrevLock",0) ' no need for a prev lock Switch Stat Case 9 ' Record locked by another user If 0= Assign(&Stat, PXNetErrUser(80,&UserName)) ShowWindow(GetDlgItem(hdlg,34),1) SetDlgItemText(Hdlg,1012,"{UserName}") If 0 != Assign(&Stat,PXNetTblRefresh(Thand)) Error=PXErrMsg(Stat) 'Message(error) Endif Endif Case 105 ' Operation on empty table Break; Default Error=PXErrMsg(Stat) 'Message(error) EndSwitch Endif end Function @2nd Function@Function ReadFive(Hdlg) IgnoreKeyboard(2) DefStr FldData, Stat, CurNumber; TotalFields=GetGlobalArray$("TotalFields",1) Thand=GetGlobalArray$("Thandle",1) RHand=GetGlobalArray$("RecHandle",1) KeyField = GetGlobalArray$("KeyField",1) If 0 = Assign(&Stat,PxRecNum(Thand,&CurNumber)) Else ' error with stat Endif For x = 1 to 4 If 0 = Assign(&Stat,PxRecNext(Thand)) PxRecGet(Thand, Rhand) If "A" = Kmid$(GetGlobalArray$("FieldType",KeyField),1,1) PXGetAlpha(Rhand, KeyField, 250, &FldData) Else If 0 = GetFieldInfo(Rhand, KeyField, &FldData) Else Message(Stat) Endif Endif SetDlgItemText(Hdlg,1017 + x, FldData) Else SetDlgItemText(Hdlg,1017+x,"") Endif Next PxRecGoto(Thand, CurNumber) End Function @2nd Function@<:Zcopytoclip><:Z~copytoclip>Function CopyToClip() IgnoreKeyboard(2) TotalFields = GetGlobalArray$("TotalFields",1) For t = 1 to TotalFields FieldInfo = GetGlobalArray$("EditData",t) Info = StrCat$(Info,FieldInfo, "<[>Enter]<[>0x0A]") Next Info=BracketsToBin(Info) Clipboardwrite(info,0) End Function @Function@Function CloseTable() Rhand=GetGlobalArray$("RecHandle",1) Thand=GetGlobalArray$("THandle",1) PXRecBufClose(Rhand) PXTblClose(Thand) End Function @Function@Function UpDateDisplay(Hdlg,id,dummy) IgnoreKeyboard(2) DefStr Temp, Stat,CurrentRecnum,TblNRecs; Identifier=GetGlobalArray$("KeyField",1) TotalFields=GetGlobalArray$("TotalFields",1) LastField=GetGlobalArray$("LastField",1) Thand=GetGlobalArray$("Thandle",1) RHand=GetGlobalArray$("RecHandle",1) RefreshStat=GetGlobalArray$("RefreshMain",1) If 0 != Assign(&Stat,PXNetTblRefresh(Thand)) Error=PXErrMsg(Stat) 'Message(error) Endif IF (0=Assign(&Stat, PXRecNum(Thand,&CurrentRecnum))) Endif If (0=Assign(&Stat, PXTblNRecs(THand, &TblNRecs))) SetDlgItemText(Hdlg, 1013, "Card {CurrentRecNum} of {TblNRecs}") Else Endif Switch RefreshStat Case 0 ' no need to repaint entire box For t=1 to 10 If LastField+T << TotalFields SetGlobalArray("EditTarget",1,8000+t) SetDlgItemText(Hdlg,8000+t,GetGlobalArray$("EditData",T+LastField)) Elseif LastField+t=Totalfields SetDlgItemText(Hdlg,8000+t,GetGlobalArray$("EditData",t+LastField)) SetGlobalArray("EditTarget",1,8000+t) Endif Next Case 1 ' Need to repaint box If LastField=0 ShowWindow(GetDlgItem(Hdlg,24),0) ' hide the up button ShowWindow(GetDlgItem(Hdlg,94),1) ' Show the cover Else ShowWindow(GetDlgItem(hdlg,24),1) ' The up button is fine ShowWindow(GetDlgItem(hdlg,94),0) ' Hide the cover Endif If LastField+10 <;>TotalFields ShowWindow(GetDlgItem(Hdlg,23),0) ' hide the down button ShowWindow(GetDlgItem(Hdlg,93),1) ' Show the cover Else ShowWindow(GetDlgItem(hdlg,23),1) ' it is fine ShowWindow(GetDlgItem(Hdlg,93),0) ' hide the cover Endif For t=1 to 10 If LastField+T << TotalFields SetDlgItemText(Hdlg,8000+t,GetGlobalArray$("EditData",t+LastField)) SetGlobalArray("EditTarget",1,8000+t) SetGlobalArray("LastEditField",1,0) 'no need to auto add SetDlgItemText(Hdlg,1000+t,GetGlobalArray$("FieldNames",T+LastField)) ShowWindow(GetDlgItem(Hdlg,8000+t),1) Elseif LastField+t=Totalfields SetDlgItemText(Hdlg,8000+t,GetGlobalArray$("EditData",t+LastField)) SetGlobalArray("EditTarget",1,8000+t) SetGlobalArray("LastEditField",1,8000+t) ' set autoadd flag SetDlgItemText(Hdlg,1000+t,GetGlobalArray$("FieldNames",T+LastField)) ShowWindow(GetDlgItem(Hdlg,8000+t),1) Else SetDlgItemText(Hdlg,1000+t,"") ShowWindow(GetDlgItem(Hdlg,8000+t),0) SetDlgItemText(Hdlg,8000+T,"") Endif Next SetGlobalArray("RefreshMain",1,0) ' no need to repaint next time EndSwitch SetDlgItemText(Hdlg,1017,GetGlobalArray$("EditData",Identifier)) SetFocus(GetDlgItem(Hdlg,8001)) End Function End Function @Function@Function StuffInfo(Hdlg) IgnoreKeyBoard(2) LastField=GetGlobalArray$("LastField",1) TotalFields=GetGlobalArray$("TotalFields",1) For t=1 to 10 Info=GetDlgItemText(Hdlg,8000+t) If LastField+t <<= TotalFields SetGlobalArray("EditData",LastField+t,Info) Endif Next End Function @Function@Function GetFieldInfo(Rhand, FldNum, FldData) IgnoreKeyBoard(2) DefStr Stat, Date, Mn,Day,Yr, TempData; Type =KMID$(GetGlobalArray$("FieldType",FldNum),1,1) Switch Type Case "A" If 0 = Assign(&Stat, PXGetAlpha(Rhand,FldNum,250,&TempData)) Else Return Stat Endif Break; Case "D" ' This is a date If 0 = Assign(&Stat, PXGetDate(Rhand, FldNum, &Date)) If 0 = Assign(&Stat, PXDateDecode(Date,&Mn,&Day,&Yr)); ' TempData = "{Mn}\ {Day}\{Yr}"; Endif Else Return Stat Endif Break; Case "N" ' this is numeric If 0 = Assign(&Stat, PXGetLong(Rhand, FldNum, &TempData)) Else Return Stat Endif Break; EndSwitch *FldData = TempData; Return 0; End Function @Function@Function GetFieldData(Hdlg) IgnoreKeyBoard(2) DefStr Name, Stat, Date, Mn, Day, Yr, Number, FldData; Thand=GetGlobalArray$("Thandle",1) Rhand=GetGlobalArray$("RecHandle",1) TotalFields=GetGlobalArray$("TotalFields",1) For x=1 to TotalFields If 0 = GetFieldInfo(Rhand, X, &FldData) SetGlobalArray("EditData",x, FldData) Else Message(Stat) Endif Next 'Lockem(Hdlg) End Function @Function@Function GetKeyfields(Thandle, nKeyFlds) DefStr Stat ; If 0= Assign(&Stat, PXKeyNFlds(Thandle,&nKeyFlds)) Else Error = PXerrMsg(Stat) 'Message(error) endif end Function @Function@Function StuffRecBuf() IgnoreKeyBoard(2) DefStr Stat, FldType; TotalFields=GetGlobalArray$("TotalFields",1) Rhand=GetGlobalArray$("RecHandle",1) Thand=GetGlobalArray$("Thandle",1) For t=1 to TotalFields Info=GetGlobalArray$("EditData",T) SetGlobalArray("EditData",t,"") Type = GetGlobalArray$("FieldType",T) IF 0 = Assign(&Stat, PXFldType(Thand, T, 5, &FldType)) Else Endif LeftChar = Kmid$(FldType,1,1) 'message(leftChar) Switch LeftChar Case "A" If 0 = Assign(&Stat, PXPutAlpha(Rhand,t,Info)) Else Error=PXErrMsg(Stat) 'Message(error) Endif Break; Case "D" ' This is a date If 0 = Assign(&Stat, PXPutDate(Rhand, t, Info)) Else Error = PXerrMsg(Stat) 'Message(error) Endif Break; Case "N" ' this is numeric If 0 = Assign(&Stat, PXPutLong(Rhand,t,Info)) Else Error = PXerrMsg(Stat) 'Message(error) Endif Break; EndSwitch Next End Function @Function@Function PackGlobals(FieldNames,FieldType,RecHandle,Thandle) IgnoreKeyBoard(2) TotalFields=ArraySize(&FieldNames) 'AllocGlobalVar("LibId",1) 'DEZ AllocGlobalVar("TotalFields",1) AllocGlobalVar("FieldNames",TotalFields) AllocGlobalVar("FieldType", TotalFields) AllocGlobalVar("LastField",1) AllocGlobalVar("EditData",TotalFields) AllocGlobalVar("Thandle",1) AllocGlobalVar("RecHandle",1) AllocGlobalVar("KeyField",1) AllocGlobalVar("EditTarget",1) AllocGlobalVar("RedoNames",1) AllocGlobalVar("RefreshMain",1) AllocGlobalVar("LastEditField",1) AllocGlobalVar("Speed",1) AllocGlobalVar("PrevLock",1) SetGlobalVar("Speed",1) SetGlobalArray("RedoNames",1,0) SetGlobalArray("RefreshMain",1,1) SetGlobalArray("LastEditField",1,0) SetGlobalArray("Thandle",1,Thandle) SetGlobalArray("RecHandle",1,RecHandle) SetGlobalArray("TotalFields",1,TotalFields) SetGlobalArray("LastField",1,0) SetGlobalArray("KeyField",1,1) SetGlobalVar("PrevLock",0) For t=1 to TotalFields SetGlobalArray("FieldNames",T,*FieldNames(T)) SetGlobalArray("FieldType", T, *FieldType(T)) Next End Function @Function@Function <:ZSortEm>SortEm<:Z~SortEm>() DefStr FileName, Stat, Thandle, RecHandle; Dim FieldName(1) Thand=GetGlobalArray$("Thandle",1) Rhand=GetGlobalArray$("RecHandle",1) TotalFields=GetGlobalArray$("TotalFields",1) For t=1 to TotalFields ArrayInsert(&FieldName,t,GetGlobalArray$("FieldNames",t)) Next Filledit(9500,&FieldName) Box = DialogBox(".","Index") If Box<<<;>1 Exit Function Endif Field = GetDialogField$(9500) Number = ArraySearch(&FieldName, Field) SetGlobalVar("KeyField",Number) End Function @Function@Function GotoMain(Hdlg) IgnoreKeyBoard(2) DefStr Stat, id, dummy; Rhand=GetGlobalArray$("RecHandle",1) Thand=GetGlobalArray$("THandle",1) Dim TempFields(1) TotalFields=GetGlobalArray$("TotalFields",1) For t=1 to TotalFields ArrayInsert(&TempFields,t,GetGlobalArray$("FieldNames",t)) Next Filledit(9500,&TempFields) Filledit(20,True) Box=DialogBox(".","Goto") If Box<<<;>1 Return -1 Endif GotoField=GetdialogField$(20) GotoFirst=Getdialogfield$(21) GotoLast=GetDialogField$(22) FieldName=GetDialogField$(9500) TargetName=GetDialogField$(8000) If GotoField FieldIndex=ArraySearch(&TempFields,FieldName) If 0=FindItem(TargetName,FieldIndex) PXRecGet(Thand,RHand) GetFieldData(Hdlg) UpdateDisplay(hdlg,id,dummy) Else PXRecGet(Thand,RHand) GetFieldData(Hdlg) UpdateDisplay(hdlg,id,dummy) Message("No match found","Search Results") Endif Endif If GotoFirst If 0 = Assign(&Stat, PXRecFirst(Thand)) PXRecGet(Thand,Rhand) GetFieldData(Hdlg) UpdateDisplay(Hdlg,0,0) Else Error=PXErrMsg(Stat) 'Message(error) Endif Endif If GotoLast If 0 = Assign(&Stat, PXRecLast(Thand)) PXRecGet(Thand,Rhand) GetFieldData(Hdlg) UpdateDisplay(Hdlg,0,0) Else Error=PXErrMsg(Stat) 'Message(error) Endif Endif End Function @Function@Function FindItem(SearchData,FieldIndex) DefStr Stat; TotalFields=GetGlobalArray$("TotalFields",1) Rhand=GetGlobalArray$("RecHandle",1) Thand=GetGlobalArray$("THandle",1) PxRecBufEmpty(Rhand) If 0 = Assign(&Stat,PXPutAlpha(Rhand,FieldIndex,SearchData)) Else Error=PXErrMsg(Stat) 'Message(error) Endif If (0 = Assign(&Stat, PXSrchFld(Thand, Rhand, FieldIndex, 2)) or 89=Assign(&Stat,PXSrchFld(Thand,Rhand,FieldIndex,2))) Return 0; Else Error=PXErrMsg(Stat) ' 'Message(error) Return -1 Endif End Function @Function@Function <:ZBuild>Build<:Z~Build>() defstr Libid; SingleStep(0) allocglobalvar("LibId", 1) if getglobalvar$("libid") = "" 'dez Stat = Init(&Libid) If (Stat = 0 or Stat = 82) Else Error=PXErrMsg(Stat) 'Message(error) Exit Function Endif endif DefStr FileNameBuilt; AllocGlobalVar("PMFields",70) AllocGlobalVar("PMTypes",70) AllocGlobalVar("NumFields",1) SetGlobalArray("NumFields",1,0) SetGlobalArray("PMFields",1,1) SetGlobalArray("PMTypes",1,1) Mac=GetRunningMacroFile$() Filledit(EB_Width,20) SetDlgCallBack(LB_ID,"{Mac}!CallBuild") SetDlgCallBack(BN_Add,"{Mac}!CallBuild") Box=DialogBox(".","Build") If Box=1 If 0 = BuildTable(&FileNameBuilt) FreeGlobalVar("PMTypes") FreeGlobalVar("PMFields") MainEntryBox(FileNameBuilt) Endif Else 'ShutDown() FreeGlobalVar("PMTypes") FreeGlobalVar("PMFields") Endif End Function @2nd Function@Function BuildTable(TableName) Mac=GetRunningMacroFile$() Defstr Stat, NumFields; If 0 = Assign(&NumFields, GetGlobalArray$("NumFields",1)) Return -1 Endif Dim FieldName(NumFields) Dim Width(Numfields) For t=1 to NumFields; FieldName(t)=GetGlobalArray$("PMFields",t) Width(t)=GetGlobalArray$("PMtypes",t) Next FillEdit(9001,"*.db") Box=DialogBox(".","Save") Dir = GetCurrentDir$() If Box<<<;>0 Flname=GetDialogField$(8000) Filename=StrCat$(dir,Flname) If (0=Assign(&Stat,PxTblCreate(Filename,NumFields,&FieldName,&Width))) Stat = BuildIndex(Flname,&FieldName) Else Error=PXErrMsg(Stat) Message(error) Return -1 Endif Endif *TableName= FileName; Return Stat; End Function @2nd Function@Function CallBuild(Hdlg,Id,Dummy) IgnoreKeyBoard(2) 'EB_Handle=GetDlgItem(Hdlg,8000) If GetDlgItemText(Hdlg, 8000) = "" CloseDlg(1) Exit Function Endif Switch Id Case BN_Add Name=GetDlgItemText(Hdlg,8000) Width=GetDlgItemText(Hdlg,8001) NumFields= GetGlobalArray$("NumFields",1) Type="A" Type="{Type}{Width}" FieldNumber=NumFields+1 SetGlobalArray("PMFields",FieldNumber,Name) SetGlobalArray("PMTypes",FieldNumber,type) SetGlobalVar("NumFields",FieldNumber) SetDlgItemText(Hdlg,9000,Name) ' set it in the listbox Case BN_Remove Message(id) Case LB_ID Message("This is the list box") EndSwitch SetDlgItemText(Hdlg,8000,"") SetFocus(EB_Handle()) End Function @2nd Function@Function <:ZBuildIndex>BuildIndex<:Z~BuildIndex>(FileName,FieldName) DefStr Stat, Numfields; Dim IndexNumber(1) 'Filledit (9500,&FieldName) If 0 = Assign(&NumFields, GetGlobalArray$("NumFields",1)) Return -1 Endif IF NumFields <;>3 TotalFields = 3 Else TotalFields = Numfields Endif if 0 = Assign(&Stat, PXKeyAdd(FileName,TotalFields,&IndexNumber,0)) Else Error=PXErrMsg(Stat) 'Message(error) Return -1 endif Dim Second(1) For Q = 1 to TotalFields Second(1) = Q If 0 = Assign(&Stat, PXKeyAdd(FileName,1,&Second,2)) Else Error=PXErrMsg(Stat) 'Message(error) Return -1 Endif Next Return 0 End Function @Function@Function OpenTable(Filename,Thandle,RecHandle) DefStr exists,thand,rhand,stat; If (0=Assign(&Stat,PXTblExist(Filename,&Exists))) Else Error=PXErrMsg(Stat) 'Message(error) Return -1; Endif If 0=Assign(&Stat,PXtblopen(Filename,&Thand,0,1)) If 0=Assign(&Stat,PXRecBufopen(Thand,&Rhand)); *Thandle=Thand; *RecHandle=Rhand; Return 0; Else Return Stat Endif Else Return Stat Endif End Function @Function@Function ReadFields(FieldNames,FieldType,Thandle) Defstr Stat, Stat2,NumFlds,Size,Name, FldType; If 0=Assign(&Stat,PXRecNFlds(Thandle,&NumFlds)) For x=1 to NumFlds Assign(&Stat,PXFldName(Thandle,X,80,&Name)) Assign(&Stat2,PXFldType(Thandle,X,80,&FldType)) ArrayInsert(&FieldNames,x,Name) ArrayInsert(&FieldType,x,FldType) Next Else Return Stat Endif Return 0 End Function @Function@Function FreeGlobals() FreeGlobalVar("TotalFields") FreeGlobalVar("FieldNames") FreeGlobalVar("LastField") FreeGlobalVar("EditData") FreeGlobalVar("FieldSep") FreeGlobalVar("RecSep") FreeGlobalVar("DefineField") FreeGlobalVar("DefineRec") FreeGlobalVar("BoxReturn") FreeGlobalVar("KeyField") FreeGlobalVar("LibId") FreeGlobalVar("FieldType") FreeGlobalVar("RecHandle") FreeGlobalVar("Speed") FreeGlobalVar("KeyField") FreeGlobalVar("EditTarget") FreeGlobalVar("LastEditField") FreeGlobalVar("NumFields") FreeGlobalVar("RedoNames") FreeGlobalVar("Thandle") FreeGlobalVar("PrevLock") FreeGlobalVar("RefreshMain") FreeGlobalVar("PMTypes") FreeGlobalVar("PMFields") End Function @Function@Function Configure() DefStr NetType, NetNamePath, Name; Dim Net(9) Net(1) = "Not on network" Net(2) = "Novell" Net(3) = "3Com" Net(4) = "3Com 3+Open" Net(5) = "Other: unknown" Net(6) = "Starlan" Net(7) = "Banyan" Net(8) = "IBM PC" size = Arraysize(&Net) Dim Temp(Size) For t =1 to Size Temp(T) = Net(t) Next IF "" = Assign(&Name,GetProfilePdx("UserName")) Name = GetProfileString$("AmiPro","UserName","AmiPro.Ini") Endif 'If "" != Assign(&NetType, GetProfilePdx("NetType")) ' ArrayInsert(&Net,1,Net(NetType)) 'Else 'Endif If "" = Assign(&NetNamePath,GetProfilePdx("NetNamePath")) NetNamePath = "C:\" Endif Filledit(9500,&Net) Filledit(8000,Name) Filledit(8002,NetNamePath) Box = DialogBox(".","NetWork") If Box<<<;>1 Return 2 Endif DlgUser=GetDialogField$(8000) DlgNetType = GetDialogField$(9500) DlgPath = GetDialogField$(8002) NetType = ArraySearch(&Temp, DlgNetType) WriteProfilePdx("UserName",DlgUser) WriteProfilePdx("NetNamePath",DlgPath) 'WriteProfilePDx("NetType",NetType) End Function @Function@Function ShutDown() DefStr Stat; allocglobalvar("LibId", 1) if getglobalvar$("libid") != "" 'DEZ If 0 != Assign(&Stat, PxExit()) Error=PXErrMsg(Stat) 'Message(error) Endif endif freeglobalvar("LibId") Barid=1 MenuName="&Card File" Deletemenu(Barid, MenuName) End Function @Function@FUNCTION OpenBox(initpath,initmask) <:R1,11,1,2700,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,>DEFINE EM_SetSel 0x401 <:R1,11,1,2700,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,>DEFINE LB_ResetContent 0x405 <:R1,11,1,2700,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,>DEFINE CB_GetCurSel 0x407 <:R1,11,1,2700,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,>DEFINE LB_GetSel 0x408 <:R1,11,1,2700,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,>'DEFINE LB_GetCount 0x40C <:R1,11,1,2700,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,>DEFINE CB_SetCurSel 0x40E <:R1,11,1,2700,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,>DEFINE GetSelItems() DllCall("user,SendMessage,HHHHN", %1,0x412, %2, %3) <:R1,11,1,2700,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,>DEFINE GetText() DllCall("user,SendMessage,HHHHD", %1,0x40A, %2, %3) <:R1,11,1,2700,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,>DEFINE CloseBox() DllCall("user,EndDialog,HHH",%1,1) <:R>ONCANCEL endit ONERROR endit HourGlass(1) AllocGlobalVar("BN",2) AllocGlobalVar("FN",1) AllocGlobalVar("MS",1) SetGlobalVar("MS",initmask) IF Right$(initpath,1)<<<;>"\" THEN initpath=strcat$(initpath,"\") ENDIF IF tlen(initpath)<;>3 THEN disppath=KMID$(initpath,1,(tlen(initpath)- 1)) ELSE disppath=initpath ENDIF FillEdit(8000,initmask) FillEdit(8888,LCASE$(disppath)) FillEdit(9500,"*.*,0x4000") SetDlgCallback(0,"boxinits") SetDlgCallback(25,"okbutton") SetDlgCallback(9005,"selfile") SetDlgCallback(9006,"chdirs") SetDlgCallback(9500,"chdrv") SetDlgCallback(8000,"chmask") HourGlass(0) box=DialogBox(".","OPENBOX") filename=GetGlobalVar$("FN") IF box=0 THEN GOTO endit ENDIF endit: FreeGlobalVar("FN") FreeGlobalVar("BN") FreeGlobalVar("MS") RETURN(filename) END FUNCTION FUNCTION chmask(hDlg,id,value) IgnoreKeyboard(1) SetDlgItemText(hDlg,8123,"~") END FUNCTION FUNCTION okbutton(hDlg,id,value) IF GetDlgItemText(hDlg,8123)="~" THEN newmask=GetDlgItemText(hDlg,8000) IF KMID$(newmask,2,1)=":" THEN res=tlen(newmask) lb=chr$(91) WHILE(1) sep=kinstr(res,newmask,"\") IF sep=res THEN BREAK ENDIF res=res - 1 WEND IF sep<<<;>0 THEN curdir=KMID$(newmask,1,sep) newmask=Right$(newmask,(tlen(newmask) - sep)) IF tlen(curdir)=3 THEN bks=0 ELSE bks=1 ENDIF SetDlgItemText(hDlg,8888,KMID$(curdir,1,(tlen(curdir) - bks))) SetDlgItemText(hDlg,8000,LCASE$(newmask)) SetGlobalVar("MS",newmask) handle=GetDlgItem(hDlg,9006) filldir=strcat$(curdir,"*.*") AppSendMessage(handle,LB_ResetContent,0,0) AppSendMessage(handle,CB_SetCurSel,0x8010,filldir) ENDIF IF KMID$(curdir,1,1)<<<;>GetDlgItemText(hDlg,9500) THEN dletter=KMID$(curdir,1,1) initdrv="{lb}-{dletter}-]" FOR drvnum=0 to 25 handle=GetDlgItem(hDlg,9500) AppSendMessage(handle,CB_SetCurSel,drvnum,0) seldrv=GetDlgItemText(hDlg,9500) IF seldrv=initdrv THEN BREAK ENDIF NEXT ENDIF ELSE curdir=GetDlgItemText(hDlg,8888) IF Right$(curdir,1)<<<;>"\" THEN curdir=strcat$(curdir,"\") ENDIF ENDIF fillfile=strcat$(curdir,newmask) handle=GetDlgItem(hDlg,9005) AppSendMessage(handle,LB_ResetContent,0,0) AppSendMessage(handle,CB_SetCurSel,0,fillfile) SetDlgItemText(hDlg,8123,"") ELSEIF GetDlgItemText(hDlg,9005)<<<;>"" THEN filename=GetDlgItemText(hDlg,9005) fpath=GetDlgItemText(hDlg,8888) IF right$(fpath,1)<<<;>"\" THEN fpath=strcat$(fpath,"\") ENDIF filename=strcat$(fpath,filename) SetGlobalVar("FN",filename) CloseBox(hDlg) ENDIF END FUNCTION FUNCTION selfile(hDlg,id,value) SetdlgItemText(hDlg,8000,value) thetime=Now() IF value=GetGlobalArray$("BN",1) AND 1<;>thetime-GetGlobalArray$("BN",2) THEN SetGlobalArray("BN",1,"") ELSE SetGlobalArray("BN",1,value) SetGlobalArray("BN",2,thetime) EXIT FUNCTION ENDIF filename=value fpath=GetDlgItemText(hDlg,8888) IF right$(fpath,1)<<<;>"\" THEN fpath=strcat$(fpath,"\") ENDIF filename=strcat$(fpath,filename) SetGlobalVar("FN",filename) CloseBox(hDlg) END FUNCTION FUNCTION chdrv(hDlg,id,value) HourGlass(1) lb=chr$(91) dletter=KMID$(value,3,1) newdir=strcat$(dletter,":\") SetDlgItemText(hDlg,8888,newdir) handle=GetDlgItem(hDlg,9501) cbnum=AppSendMessage(handle,CB_GetCurSel,0,0) mask=GetDlgItemText(hDlg,8000) fillfile=strcat$(newdir,"*",mask) handle=GetDlgItem(hDlg,9005) AppSendMessage(handle,LB_ResetContent,0,0) AppSendMessage(handle,CB_SetCurSel,0,fillfile) filldir=strcat$(newdir,"*.*") handle=GetDlgItem(hDlg,9006) AppSendMessage(handle,LB_ResetContent,0,0) AppSendMessage(handle,CB_SetCurSel,0x8010,filldir) HourGlass(0) END FUNCTION FUNCTION chdirs(hDlg,id,value) singlestep(0) mask=GetGlobalVar$("MS") godir=GetDlgItemText(hDlg,9006) ln=(tlen(godir) - 2) IF godir<<<;>"" THEN godir=KMID$(godir,2,ln) dispmask=strcat$(godir,"\",UCASE$(mask)) ELSE dispmask=UCASE$(mask) ENDIF SetDlgItemText(hDlg,8000,dispmask) IF godir="" THEN EXIT FUNCTION ENDIF thetime=Now() IF godir=GetGlobalArray$("BN",1) AND 1<;>thetime-GetGlobalArray$("BN",2) THEN SetGlobalArray("BN",1,"") ELSE SetGlobalArray("BN",1,godir) SetGlobalArray("BN",2,thetime) EXIT FUNCTION ENDIF HourGlass(1) lb=chr$(91) space=" " cdr=GetDlgItemText(hDlg,8888) IF tlen(cdr)=3 THEN bs="" ELSE bs="\" ENDIF IF godir<<<;>".." THEN newdir=strcat$(cdr,bs,godir) ELSE cnt=1 WHILE(1) res=KMID$(cdr,(tlen(cdr) - cnt),1) IF res="\" THEN BREAK ENDIF cnt=cnt+1 WEND newdir=KMID$(cdr,1,(tlen(cdr)-cnt)) ENDIF IF tlen(newdir)<<<;>3 AND Right$(newdir,1)="\" THEN newdir=KMID$(newdir,1,tlen(newdir) - 1) ENDIF SetDlgItemText(hDlg,8888,(LCASE$(newdir))) SetDlgItemText(hDlg,8000,UCASE$(mask)) IF Right$(newdir,1)<<<;>"\" THEN newdir=strcat$(newdir,"\") ENDIF handle=GetDlgItem(hDlg,9501) cbnum=AppSendMessage(handle,CB_GetCurSel,0,0) fillfile=strcat$(newdir,mask) handle=GetDlgItem(hDlg,9005) AppSendMessage(handle,LB_ResetContent,0,0) AppSendMessage(handle,CB_SetCurSel,0,fillfile) filldir=strcat$(newdir,"*.*") handle=GetDlgItem(hDlg,9006) AppSendMessage(handle,LB_ResetContent,0,0) AppSendMessage(handle,CB_SetCurSel,0x8010,filldir) HourGlass(0) END FUNCTION FUNCTION boxinits(hDlg,id,value) HourGlass(1) lb=chr$(91) dletter=KMID$((GetDocPath$()),1,1) dletter=Lcase$(dletter) initdrv="{lb}-{dletter}-]" FOR drvnum=0 to 25 handle=GetDlgItem(hDlg,9500) AppSendMessage(handle,CB_SetCurSel,drvnum,0) seldrv=GetDlgItemText(hDlg,9500) IF seldrv=initdrv THEN BREAK ENDIF NEXT filldir=GetDlgItemText(hDlg,8888) mask=GetDlgItemText(hDlg,8000) IF Right$(filldir,1)<<<;>"\" THEN filldir=strcat$(filldir,"\") ENDIF fillfile=strcat$(filldir,mask) filldir=strcat$(filldir,"*.*") handle=GetDlgItem(hDlg,9006) AppSendMessage(handle,CB_SetCurSel,0x8010,filldir) handle=GetDlgItem(hDlg,9005) AppSendMessage(handle,CB_SetCurSel,0,fillfile) handle=GetDlgItem(hDlg,8000) AppSendMessage(handle,EM_SetSel,0,5) HourGlass(0) END FUNCTION ------------------------------------------------------------------------------------------ @Function@DIALOG OPENBOX -2134376448 13 26 28 212 115 "" "" "Open Card File" FONT 6 "Helv" 5 4 40 10 1001 1342308352 "static" "File &name:" 0 66 3 95 12 8000 1350631552 "edit" "" 0 5 15 40 10 1002 1342308352 "static" "Directory:" 0 66 16 95 9 8888 1342177280 "static" "show directory here" 0 5 26 27 10 1003 1342308352 "static" "&Files:" 0 5 36 58 69 9005 1352728579 "listbox" "" 0 66 26 44 10 1004 1342308352 "static" "&Directories:" 0 66 36 58 69 9006 1352728579 "listbox" "" 0 127 26 27 10 1006 1342308352 "static" "Dri&ves:" 0 127 36 34 45 9500 1344339971 "combobox" "" 0 166 3 40 14 25 1342373889 "button" "OK" 0 166 19 40 14 2 1342373888 "button" "Cancel" 0 196 150 7 12 8123 1350631424 "edit" "" 0 END DIALOG @Function@' Dialog boxes @2nd Function@DIALOG MainBox -2134376448 51 29 32 296 194 "" "" "Edit Card File" FONT 8 "Helv" 6 6 235 178 1000 1342177290 "static" "filename.bmp" 0 94 27 130 12 8001 1350762624 "edit" "" 0 94 41 130 12 8002 1350631552 "edit" "" 0 94 55 130 12 8003 1350631552 "edit" "" 0 94 69 130 12 8004 1350631552 "edit" "" 0 94 83 130 12 8005 1350631552 "edit" "" 0 94 97 130 12 8006 1350631552 "edit" "" 0 94 111 130 12 8007 1350631552 "edit" "" 0 94 125 130 12 8008 1350631552 "edit" "" 0 94 139 130 12 8009 1350631552 "edit" "" 0 94 153 130 12 8010 1350762624 "edit" "" 0 247 17 46 14 31 1342373889 "button" "&Add" 0 247 33 46 14 32 1342373888 "button" "&Delete" 0 247 49 46 14 21 1342373888 "button" "&Update" 0 247 65 46 14 33 1342373888 "button" "&New Card" 0 247 81 46 14 1 1342373888 "button" "Close" 0 247 119 46 14 27 1342373888 "button" "&Index..." 0 247 135 46 14 30 1342373888 "button" "&Go To..." 0 247 151 21 14 29 1342373896 "button" "prev" 0 272 151 21 14 28 1342373896 "button" "next" 0 272 167 21 14 35 1342373896 "button" "ffwrd" 0 272 167 21 14 55 1342373896 "button" "Stopffwr" 0 247 167 21 14 36 1342373896 "button" "frev" 0 247 167 21 14 56 1342373896 "button" "StopFrv" 0 '211 168 12 12 23 1342373896 "button" "<;><;>" 0 '226 168 12 12 24 1342373896 "button" "<<<<" 0 110 168 12 12 23 1342373896 "button" "<;><;>" 0 125 168 12 12 24 1342373896 "button" "<<<<" 0 8 160 36 26 1011 1342177290 "static" "filename.bmp" 0 24 29 64 8 1001 1342177282 "static" "" 0 28 43 60 8 1002 1342177282 "static" "" 0 24 57 64 8 1003 1342177282 "static" "" 0 24 71 64 8 1004 1342177282 "static" "" 0 24 85 64 8 1005 1342177282 "static" "" 0 24 99 64 8 1006 1342177282 "static" "" 0 24 113 64 8 1007 1342177282 "static" "" 0 24 127 64 8 1008 1342177282 "static" "" 0 24 141 64 8 1009 1342177282 "static" "" 0 24 155 64 8 1010 1342177282 "static" "" 0 59 9 36 8 82 1342177288 "button" "" 0 104 9 37 8 83 1342177288 "button" "" 0 151 9 34 8 84 1342177288 "button" "" 0 198 9 35 8 85 1342177288 "button" "" 0 11 250 12 7 41 1342177280 "button" "RET" 0 13 9 36 8 1017 1342177280 "static" "text" 0 59 9 36 8 1018 1342177280 "static" "" 0 104 9 37 8 1019 1342177280 "static" "" 0 151 9 35 8 1020 1342177280 "static" "" 0 198 9 35 8 1021 1342177280 "static" "" 0 110 168 14 14 93 1342177280 "static" "" 0 125 168 14 14 94 1342177280 "static" "" 0 247 103 46 14 39 1342373888 "button" "&Copy" 0 165 172 70 9 1013 1342177280 "static" "text" 0 END DIALOG @2nd Function@DIALOG Sort -2134376448 10 102 60 152 82 "" "" "Sort Records" FONT 8 "Helvetica" 6 14 86 40 9500 1344274435 "combobox" "" 0 108 4 40 14 1 1342242817 "button" "OK" 0 108 20 40 14 2 1342242816 "button" "Cancel" 0 6 4 52 8 1000 1342177280 "static" "Sort by field:" 0 6 36 66 40 20 1342242823 "button" "Sort type" 0 80 36 68 40 21 1342242823 "button" "Sort order" 0 8 48 54 12 22 1342373897 "button" "&Alphanumeric" 0 8 60 50 12 23 1342177289 "button" "&Numeric" 0 84 48 50 10 24 1342373897 "button" "&Ascending" 0 84 60 54 12 25 1342177289 "button" "&Descending" 0 END DIALOG @2nd Function@DIALOG Goto -2134376448 8 34 64 251 42 "" "" "Go To Card" FONT 8 "Helv" 129 3 73 12 8000 1350631552 "edit" "" 0 207 2 40 14 1 1342242817 "button" "Go To" 0 207 18 40 14 2 1342242816 "button" "Cancel" 0 4 3 41 10 20 1342242825 "button" "&Field:" 0 54 3 65 38 9500 1344339971 "combobox" "" 0 4 14 48 12 21 1342242825 "button" "First record" 0 4 27 47 10 22 1342242825 "button" "Last record" 0 121 5 6 8 1000 1342177280 "static" "=" 0 END DIALOG @2nd Function@DIALOG MakeFields -2134376448 11 67 51 142 105 "" "" "Create Data File" FONT 8 "Helvetica" 6 13 86 12 8001 1350631552 "edit" "" 0 98 4 40 14 20 1342242816 "button" "Done" 0 98 20 40 14 2 1342242816 "button" "Cancel" 0 98 36 40 14 21 1342242817 "button" "&Add" 0 98 52 40 14 22 1342242816 "button" "&Remove" 0 98 68 16 14 23 1342242816 "button" "&Up" 0 122 68 16 14 24 1342242816 "button" "&Dn" 0 6 39 86 62 9000 1352728577 "listbox" "" 0 6 3 68 8 1000 1342177280 "static" "Field Name:" 0 99 87 40 14 30 1342242816 "button" "&Options..." 0 7 29 59 9 1001 1342177280 "static" "Fields in data file:" 0 END DIALOG @2nd Function@DIALOG NoMatch -2134376448 2 86 56 121 50 "" "" "Search Results" 41 25 40 14 1 1342373889 "button" "OK" 0 34 7 57 10 1000 1342177280 "static" "No match found" 0 END DIALOG @2nd Function@DIALOG Build -2134376448 8 47 32 160 100 "" "" "Create Card File" FONT 8 "Helv" 4 14 64 12 8000 1350631552 "Edit" "" 0 4 30 64 61 9000 1352728579 "listbox" "" 0 115 4 40 14 1 1342242816 "button" "OK" 0 115 20 40 14 2 1342242816 "button" "Cancel" 0 115 36 40 14 51 1342242817 "button" "&Add" 0 70 14 40 12 8001 1350631552 "SamNumeditBox" "" 0 5 3 62 10 1000 1342177280 "static" "Enter field name:" 0 74 3 40 10 1001 1342177280 "static" "Field size:" 0 END DIALOG @2nd Function@DIALOG Save -2134376448 7 58 34 138 88 "" "" "Save Card File" FONT 8 "Helv" 6 16 68 12 8000 1350631424 "edit" "" 0 6 44 82 40 9001 1352728579 "listbox" "" 0 30 32 56 8 7999 1342177280 "static" "" 0 92 4 40 14 1 1342242816 "button" "OK" 0 92 20 40 14 2 1342242816 "button" "Cancel" 0 6 6 38 10 1000 1342177280 "static" "File name:" 0 6 32 20 10 1001 1342177280 "static" "Path:" 0 END DIALOG @2nd Function@DIALOG Index -2134376448 5 42 50 178 48 "" "" "Select Field" FONT 6 "Helv" 132 4 40 14 1 1342373889 "button" "OK" 0 132 20 40 14 2 1342373888 "button" "Cancel" 0 6 8 48 10 1000 1342177280 "static" "Field Name:" 0 56 6 68 36 9500 1344274435 "combobox" "" 0 6 30 118 16 1001 1342177280 "static" "Please select a field to display in the tab folder." 0 END DIALOG @2nd Function@DIALOG Network -2134376448 6 45 48 202 41 "" "" "Card File Setup" FONT 8 "Helv" 158 4 40 14 1 1342373889 "button" "OK" 0 158 20 40 14 2 1342373888 "button" "Cancel" 0 70 6 82 12 8000 1350631552 "edit" "" 0 5 8 40 10 1000 1342177280 "static" "User name:" 0 70 20 82 12 8002 1350631552 "edit" "" 0 5 22 62 10 1002 1342177280 "static" "Paradox.Net path:" 0 END DIALOG > [Embedded] 00062539 > [macsum] 52 Main 0 0 10 184 Init 511 1 2 213 OnMenu 718 2 3 221 MainEntryBox 902 1 15 232 PreBuild 3008 3 9 337 MainCall 4077 3 10 380 HitFolder 8233 3 8 543 HitEnter 8808 3 6 566 FastForward 9448 1 10 594 FastReverse 10086 3 10 625 ShiftNames 10728 2 2 656 Stopit 10953 0 1 663 Lockem 11004 1 11 668 ReadFive 11939 1 9 704 CopyToClip 12793 0 5 733 CloseTable 13067 0 3 743 UpDateDisplay 13239 3 13 750 StuffInfo 16023 1 5 830 GetFieldInfo 16343 3 8 845 GetFieldData 17095 1 13 878 GetKeyfields 17445 2 3 894 StuffRecBuf 17628 0 11 903 PackGlobals 18737 4 3 947 SortEm 19517 0 13 984 GotoMain 19952 1 17 1005 FindItem 21334 2 6 1066 Build 21946 0 7 1092 BuildTable 22833 1 12 1132 CallBuild 23874 3 6 1163 BuildIndex 24725 2 8 1194 OpenTable 25660 3 6 1225 ReadFields 26328 3 8 1247 FreeGlobals 26993 0 1 1261 Configure 27654 0 12 1291 ShutDown 28981 0 5 1337 OpenBox 29387 2 4 1353 chmask 30384 3 1 1400 okbutton 30499 3 16 1405 selfile 32660 3 4 1470 chdrv 33257 3 9 1490 chdirs 33956 3 17 1510 boxinits 36064 3 10 1576 OPENBOX 37100 0 -1 1607 MainBox 37827 0 -1 1626 Sort 40244 0 -1 1683 Goto 40831 0 -1 1699 MakeFields 41284 0 -1 1712 NoMatch 41910 0 -1 1729 Build 42078 0 -1 1735 Save 42550 0 -1 1748 Index 42948 0 -1 1760 Network 43312 0 -1 1770 [macse] 14 Main 0 32 2 5 1 21 5 [X] 5 1 8 6 5 1 16 OnMenu "&Card File" "&Open..." 13 18 0 11 00000193 0 286 "Card File" "LastOpen" "AmiPro2.ini" 13 8 7 16 MainEntryBox "{7}" 6 0 15 9 7 "&Card File" 8 8 0 521 "{6}" "{8}" 0 515 "{6}" "{8}" 0 802 13 8 9 0 516 "{6}" "{8}" "&New Card File..." "{9}!Build()" 0 516 "{6}" "{8}" "&Open..." "{9}!MainEntryBox" 0 516 "{6}" "{8}" "-" "" 0 516 "{6}" "{8}" "E&xit Card File" "{9}!Shutdown()" 0 516 "{6}" "{8}" "&Setup..." "{9}!Configure()" 6 0 15 9 14 Init 0 798 13 0 16 [X] "pxengwin.dll" 13 0 297 [X] "PXWinInit" "HCH" 13 28 0 0 271 "LibId" 1 0 264 "LibId" "{0}" 0 284 "PXEngWin.dll,PXWinInit,HCH" "PDXMain" 0 13 8 2 6 2 15 9 6 1 15 9 14 OnMenu 0 802 13 8 3 0 518 1 "{0}" "{1}" 1 13 8 4 0 518 1 "{0}" "{1}" 0 13 8 4 6 4 5 8 18 0 11 00000143 5 1 8 2 10 00000172 6 2 5 0 18 0 11 00000172 6 2 15 9 14 MainEntryBox 5 1 21 7 [X] 5 1 21 8 [X] 0 271 "LibId" 1 0 265 "libid" 13 7 "" 18 0 11 00000254 16 Init &6 13 8 2 6 2 5 0 18 0 6 2 5 82 18 0 1 2 11 00000193 10 00000254 0 284 "PXEngWin.dll,PXErrMsg,CH" "{2}" 13 8 9 6 1 15 9 6 0 7 "" 18 0 11 00000426 7 "" 8 0 0 268 13 8 10 7 "*.db" 8 11 7 "" 16 OpenBox "{10}" "{11}" 13 0 805 &0 [X] 13 18 1 11 00000414 10 00000426 6 1 15 9 0 296 1 5 0 16 OpenTable "{0}" &3 &4 13 0 805 &2 [X] 13 18 0 11 00000570 0 287 "Card File" "LastOpen" "{0}" "AmiPro2.ini" 10 00000632 0 284 "PXEngWin.dll,PXErrMsg,CH" "{2}" 13 8 9 5 -1 15 9 5 0 16 ReadFields &7 &8 "{3}" 13 0 805 &2 [X] 13 18 0 11 00000718 10 00000780 0 284 "PXEngWin.dll,PXErrMsg,CH" "{2}" 13 8 9 5 -1 15 9 5 0 16 GetKeyFields "{3}" * 13 0 805 &2 [X] 13 18 0 11 00000864 10 00000913 0 284 "PXEngWin.dll,PXErrMsg,CH" "{2}" 13 8 9 16 PackGlobals &7 &8 "{4}" "{3}" 0 802 13 8 12 0 798 13 8 13 0 31 1000 "{13}GreyBlue.bmt" 0 31 1011 "" 0 31 34 "{13}Lock.bmp" 0 31 23 "{13}Down.bmt" 0 31 24 "{13}Up.bmt" 0 31 28 "{13}Next3.Bmt" 0 31 29 "{13}Prev3.bmt" 0 31 35 "{13}FFWRD.Bmt" 0 31 36 "{13}Frev.bmt" 0 31 55 "{13}Stop.bmt" 0 31 56 "{13}Stop.bmt" 0 31 82 "" 0 31 83 "" 0 31 84 "" 0 31 85 "" 0 41 0 "{12}!PreBuild" 0 41 21 "{12}!MainCall" 0 41 23 "{12}!MainCall" 0 41 24 "{12}!MainCall" 0 41 27 "{12}!MainCall" 0 41 28 "{12}!MainCall" 0 41 29 "{12}!MainCall" 0 41 30 "{12}!MainCall" 0 41 31 "{12}!MainCall" 0 41 32 "{12}!MainCall" 0 41 33 "{12}!MainCall" 0 41 34 "{12}!MainCall" 0 41 35 "{12}!MainCall" 0 41 36 "{12}!MainCall" 0 41 39 "{12}!MainCall" 0 41 55 "{12}!MainCall" 0 41 56 "{12}!MainCall" 0 41 41 "{12}!HitEnter" 0 41 82 "{12}!HitFolder" 0 41 83 "{12}!HitFolder" 0 41 84 "{12}!HitFolder" 0 41 85 "{12}!HitFolder" 0 32 2 0 296 0 0 26 "." "Mainbox" 13 8 14 0 265 "LibId" 13 8 6 16 CloseTable 5 0 0 284 "PXEngWin.dll,PXExit,H" 13 0 805 &2 [X] 13 18 1 11 00002055 0 284 "PXEngWin.dll,PXErrMsg,CH" "{2}" 13 8 9 0 298 "{6}" 13 8 15 16 FreeGlobals 6 1 15 9 14 PreBuild 0 32 2 0 273 "TotalFields" 1 13 8 7 0 273 "Thandle" 1 13 8 8 0 273 "RecHandle" 1 13 8 9 5 0 0 284 "PXEngWin.dll,PXTblName,HHHC" "{8}" 80 &6 13 18 0 11 00000201 10 00000201 0 44 "{0}" 34 13 0 284 "User,ShowWindow,AHH" [X] 0 0 44 "{0}" 55 13 0 284 "User,ShowWindow,AHH" [X] 0 0 44 "{0}" 56 13 0 284 "User,ShowWindow,AHH" [X] 0 0 44 "{0}" 93 13 0 284 "User,ShowWindow,AHH" [X] 0 6 7 5 10 18 5 11 00000555 0 44 "{0}" 23 13 0 284 "User,ShowWindow,AHH" [X] 0 0 44 "{0}" 24 13 0 284 "User,ShowWindow,AHH" [X] 0 7 "Edit Card File - {6}" 8 10 0 284 "User,SetWindowText,HHC" "{0}" "{10}" 5 0 0 284 "PXEngWin.dll,PXNetUserName,HHC" 80 &5 13 0 805 &4 [X] 13 18 0 11 00000737 10 00000737 0 1036 "{0}" 1025 41 0 5 0 0 284 "PXEngWin.dll,PXRecFirst,HH" "{8}" 13 0 805 &4 [X] 13 18 0 11 00000979 0 284 "PXEngWin.dll,PXRecGet,HHH" "{8}" "{9}" 16 GetFieldData "{0}" 16 UpdateDisplay "{0}" 0 0 16 ReadFive "{0}" 10 00001057 0 284 "PXEngWin.dll,PXErrMsg,CH" "{4}" 13 8 11 16 UpdateDisplay "{0}" 0 0 6 3 15 9 14 MainCall 0 32 2 0 273 "LastField" 1 13 8 7 0 273 "TotalFields" 1 13 8 8 0 273 "Thandle" 1 13 8 9 0 273 "RecHandle" 1 13 8 10 5 21 6 1 18 0 11 00000475 16 StuffInfo "{0}" 16 StuffRecBuf 5 0 0 284 "PXEngWin.dll,PXRecUpdate,HHH" "{9}" "{10}" 13 0 805 &4 [X] 13 18 1 11 00000355 0 284 "PXEngWin.dll,PXErrMsg,CH" "{4}" 13 8 11 0 284 "PXEngWin.dll,PXRecGet,HHH" "{9}" "{10}" 16 GetFieldData "{0}" 16 UpdateDisplay "{0}" "{1}" "{2}" 10 00004120 5 23 6 1 18 0 11 00000697 16 StuffInfo "{0}" 6 7 5 10 3 0 8 7 6 7 6 8 18 2 11 00000596 6 7 5 10 3 1 8 7 0 272 "RefreshMain" 1 1 0 272 "LastField" 1 "{7}" 16 UpdateDisplay "{0}" "{1}" "{2}" 10 00004120 5 24 6 1 18 0 11 00000908 16 StuffInfo "{0}" 6 7 5 10 3 1 8 7 6 7 5 0 18 5 11 00000807 5 0 8 7 0 272 "RefreshMain" 1 1 0 272 "LastField" 1 "{7}" 16 UpdateDisplay "{0}" "{1}" "{2}" 10 00004120 5 27 6 1 18 0 11 00001167 0 284 "User,EnableWindow,AHA" "{0}" 0 16 SortEm 13 11 00001064 16 GetFieldData "{0}" 16 UpdateDisplay "{0}" "{1}" "{2}" 0 284 "User,EnableWindow,AHA" "{0}" 1 0 284 "User,SetFocus,HH" "{0}" 16 ReadFive "{0}" 10 00004120 5 28 6 1 18 0 11 00001486 5 0 0 284 "PXEngWin.dll,PXRecNext,HH" "{9}" 13 0 805 &4 [X] 13 18 0 11 00001423 16 ReadFive "{0}" 0 284 "PXEngWin.dll,PXRecGet,HHH" "{9}" "{10}" 16 GetFieldData "{0}" 16 UpdateDisplay "{0}" "{1}" "{2}" 10 00001473 0 284 "PXEngWin.dll,PXErrMsg,CH" "{4}" 13 8 11 10 00004120 5 29 6 1 18 0 11 00001805 5 0 0 284 "PXEngWin.dll,PXRecPrev,HH" "{9}" 13 0 805 &4 [X] 13 18 0 11 00001742 16 ReadFive "{0}" 0 284 "PXEngWin.dll,PXRecGet,HHH" "{9}" "{10}" 16 GetFieldData "{0}" 16 UpdateDisplay "{0}" "{1}" "{2}" 10 00001792 0 284 "PXEngWin.dll,PXErrMsg,CH" "{4}" 13 8 11 10 00004120 5 30 6 1 18 0 11 00002112 0 284 "User,EnableWindow,AHA" "{0}" 0 16 GotoMain "{0}" 13 8 4 0 284 "User,EnableWindow,AHA" "{0}" 1 0 284 "PXEngWin.dll,PXRecGet,HHH" "{9}" "{10}" 16 GetFieldData "{0}" 16 UpdateDisplay "{0}" "{1}" "{2}" 0 284 "User,SetFocus,HH" "{0}" 16 ReadFive "{0}" 10 00004120 5 31 6 1 18 0 11 00002487 16 StuffInfo "{0}" 16 StuffRecBuf 5 0 0 284 "PxEngWin.dll,PXRecInsert,HHH" "{9}" "{10}" 13 0 805 &4 [X] 13 18 1 11 00002325 0 284 "PXEngWin.dll,PXErrMsg,CH" "{4}" 13 8 11 5 0 8 7 0 272 "LastField" 1 "{7}" 0 272 "RefreshMain" 1 1 0 284 "User,SetFocus,HH" "{0}" 16 UpdateDisplay "{0}" "{1}" "{2}" 16 ReadFive "{0}" 10 00004120 5 32 6 1 18 0 11 00002893 16 GetFieldData "{0}" 0 2 "Really Delete This Card?" 13 11 00002867 5 0 0 284 "PXEngWin.dll,PXRecDelete,HH" "{9}" 13 0 805 &4 [X] 13 18 0 11 00002817 0 284 "PXEngWin.dll,PXRecGet,HHH" "{9}" "{10}" 16 GetFieldData "{0}" 16 UpdateDisplay "{0}" "{1}" "{2}" 16 ReadFive "{0}" 10 00002867 0 284 "PXEngWin.dll,PXErrMsg,CH" "{4}" 13 8 11 10 00004120 10 00004120 5 33 6 1 18 0 11 00003139 5 1 8 12 6 8 6 12 18 2 12 00003012 10 00003053 5 1 6 12 3 0 8 12 10 00002934 0 272 "EditData" "{12}" "" 10 00002977 5 0 8 7 0 272 "LastField" 1 "{7}" 16 UpdateDisplay "{0}" "{1}" "{2}" 10 00004120 5 34 6 1 18 0 11 00003182 10 00004120 5 35 6 1 18 0 11 00003606 0 264 "Speed" 1 0 44 "{0}" 35 13 0 284 "User,ShowWindow,AHH" [X] 0 0 44 "{0}" 55 13 0 284 "User,ShowWindow,AHH" [X] 1 16 FastForward "{0}" 0 44 "{0}" 55 13 0 284 "User,ShowWindow,AHH" [X] 0 0 44 "{0}" 35 13 0 284 "User,ShowWindow,AHH" [X] 1 16 ReadFive "{0}" 0 284 "PXEngWin.dll,PXRecGet,HHH" "{9}" "{10}" 16 GetFieldData "{0}" 16 UpdateDisplay "{0}" "{1}" "{2}" 10 00004120 5 36 6 1 18 0 11 00004042 0 264 "Speed" 1 0 44 "{0}" 36 13 0 284 "User,ShowWindow,AHH" [X] 0 0 44 "{0}" 56 13 0 284 "User,ShowWindow,AHH" [X] 1 16 FastReverse "{0}" "{1}" "{2}" 0 44 "{0}" 56 13 0 284 "User,ShowWindow,AHH" [X] 0 0 44 "{0}" 36 13 0 284 "User,ShowWindow,AHH" [X] 1 16 ReadFive "{0}" 0 284 "PXEngWin.dll,PXRecGet,HHH" "{9}" "{10}" 16 GetFieldData "{0}" 16 UpdateDisplay "{0}" "{1}" "{2}" 10 00004120 5 39 6 1 18 0 11 00004120 16 StuffInfo "{0}" 16 CopyToClip 10 00004120 0 1036 "{0}" 1025 41 0 6 3 15 9 14 HitFolder 0 32 2 0 273 "TotalFields" 1 13 8 6 0 273 "Thandle" 1 13 8 7 0 273 "RecHandle" 1 13 8 8 5 0 0 284 "PXEngWin.dll,PXRecNum,HHO" "{7}" &4 13 0 805 &5 [X] 13 18 0 11 00000215 10 00000215 6 1 5 81 3 1 8 9 5 1 8 10 6 9 6 10 18 2 12 00000325 10 00000438 5 1 6 10 3 0 8 10 10 00000247 5 0 0 284 "PXEngWin.dll,PXRecNext,HH" "{7}" 13 0 805 &5 [X] 13 18 0 11 00000425 10 00000425 10 00000290 0 284 "PXEngWin.dll,PXRecGet,HHH" "{7}" "{8}" 16 GetFieldData "{0}" 16 UpdateDisplay "{0}" "{1}" "{2}" 16 ReadFive "{0}" 6 3 15 9 14 HitEnter 0 32 2 0 284 "User,GetFocus,H" 13 8 4 0 284 "User,GetDlgCtrlId,HH" "{4}" 13 8 1 6 1 5 8000 18 5 6 1 5 8010 18 3 1 2 11 00000169 5 -1 15 9 6 1 5 1 3 0 8 5 0 273 "EditTarget" 1 13 8 6 0 273 "LastEditField" 1 13 8 7 6 5 6 7 18 0 11 00000379 0 44 "{0}" "{5}" 13 8 8 0 284 "User,SetFocus,HH" "{8}" 0 1036 "{0}" 1025 31 0 10 00000628 6 1 6 7 18 0 11 00000445 16 MainCall "{0}" 31 0 10 00000628 6 1 6 6 18 5 11 00000546 0 44 "{0}" "{5}" 13 8 8 0 284 "User,SetFocus,HH" "{8}" 10 00000628 0 44 "{0}" 8001 13 8 8 0 284 "User,SetFocus,HH" "{8}" 16 MainCall "{0}" 23 0 6 3 15 9 14 FastForward 0 32 2 0 1315 "Stopit" 5 6 21 5 [X] 0 273 "TotalFields" 1 13 8 6 0 273 "Thandle" 1 13 8 7 0 273 "RecHandle" 1 13 8 8 0 273 "KeyField" 1 13 8 9 5 0 0 284 "PXEngWin.dll,PXRecNext,HH" "{7}" 13 0 805 &2 [X] 13 18 0 11 00000535 0 265 "Speed" 13 5 0 18 0 11 00000318 10 00000535 0 284 "PXEngWin.dll,PXRecGet,HHH" "{7}" "{8}" 5 0 16 GetFieldInfo "{8}" "{9}" &4 13 18 0 11 00000438 10 00000450 6 2 15 9 16 ShiftNames &5 "{0}" 5 1 6 4 23 5 5 1 22 5 0 43 "{0}" 1021 [X] 10 00000175 6 2 5 0 18 1 11 00000614 0 284 "PXEngWin.dll,PXErrMsg,CH" "{2}" 13 8 10 5 0 15 9 6 1 15 9 14 FastReverse 0 32 2 0 1315 "Stopit" 5 6 21 7 [X] 0 273 "TotalFields" 1 13 8 8 0 273 "Thandle" 1 13 8 9 0 273 "RecHandle" 1 13 8 10 0 273 "KeyField" 1 13 8 11 5 0 0 284 "PXEngWin.dll,PXRecPrev,HH" "{9}" 13 0 805 &4 [X] 13 18 0 11 00000539 0 265 "Speed" 13 5 0 18 0 11 00000320 10 00000539 0 284 "PXEngWin.dll,PXRecGet,HHH" "{9}" "{10}" 5 0 16 GetFieldInfo "{10}" "{11}" &6 13 18 0 11 00000443 10 00000454 0 3 "{4}" 16 ShiftNames &7 "{0}" 5 1 6 6 23 7 5 1 22 7 0 43 "{0}" 1021 [X] 10 00000177 6 4 5 0 18 1 11 00000618 0 284 "PXEngWin.dll,PXErrMsg,CH" "{4}" 13 8 12 5 0 15 9 6 3 15 9 14 ShiftNames 0 32 2 5 5 8 3 5 2 6 3 18 4 12 00000109 10 00000213 5 -1 6 3 3 0 8 3 10 00000033 6 3 6 3 5 1 3 1 22 0 23 0 5 1017 5 5 6 3 3 1 3 0 6 3 22 0 0 43 "{1}" [X] [X] 10 00000075 6 2 15 9 14 Stopit 0 1315 "" 0 264 "Speed" 0 6 0 15 9 14 Lockem 0 32 2 0 273 "Thandle" 1 13 8 7 0 273 "RecHandle" 1 13 8 8 0 265 "PrevLock" 13 8 9 0 798 13 8 10 6 9 5 0 18 1 11 00000312 5 0 0 284 "PXEngWin.dll,PXNetRecUnlock,HHH" "{7}" "{9}" 13 0 805 &3 [X] 13 18 0 11 00000262 10 00000312 0 284 "PXEngWin.dll,PXErrMsg,CH" "{3}" 13 8 11 5 0 0 284 "PXEngWin.dll,PXNetRecLock,HHO" "{7}" &2 13 0 805 &3 [X] 13 18 0 11 00000443 0 264 "PrevLock" "{2}" 10 00000923 0 264 "PrevLock" 0 5 9 6 3 18 0 11 00000816 5 0 0 284 "PXEngWin.dll,PXNetErrUser,HHC" 80 &4 13 0 805 &3 [X] 13 18 0 11 00000803 0 44 "{0}" 34 13 0 284 "User,ShowWindow,AHH" [X] 1 0 43 "{0}" 1012 "{4}" 5 0 0 284 "PXEngWin.dll,PXNetTblRefresh,HH" "{7}" 13 0 805 &3 [X] 13 18 1 11 00000803 0 284 "PXEngWin.dll,PXErrMsg,CH" "{3}" 13 8 11 10 00000923 5 105 6 3 18 0 11 00000873 10 00000923 10 00000923 0 284 "PXEngWin.dll,PXErrMsg,CH" "{3}" 13 8 11 6 1 15 9 14 ReadFive 0 32 2 0 273 "TotalFields" 1 13 8 5 0 273 "Thandle" 1 13 8 6 0 273 "RecHandle" 1 13 8 7 0 273 "KeyField" 1 13 8 8 5 0 0 284 "PXEngWin.dll,PXRecNum,HHO" "{6}" &4 13 0 805 &3 [X] 13 18 0 11 00000243 10 00000243 5 1 8 9 5 4 6 9 18 2 12 00000328 10 00000794 5 1 6 9 3 0 8 9 10 00000253 5 0 0 284 "PXEngWin.dll,PXRecNext,HH" "{6}" 13 0 805 &3 [X] 13 18 0 11 00000744 0 284 "PXEngWin.dll,PXRecGet,HHH" "{6}" "{7}" 7 "A" 0 273 "FieldType" "{8}" 13 0 133 [X] 1 1 13 18 0 11 00000607 0 284 "PXEngWin.dll,PXGetAlpha,HHHHC" "{7}" "{8}" 250 &2 10 00000691 5 0 16 GetFieldInfo "{7}" "{8}" &2 13 18 0 11 00000680 10 00000691 0 3 "{3}" 5 1017 6 9 3 0 0 43 "{0}" [X] "{2}" 10 00000781 5 1017 6 9 3 0 0 43 "{0}" [X] "" 10 00000295 0 284 "PXEngWin.dll,PXRecGoto,HHJ" "{6}" "{4}" 6 1 15 9 14 CopyToClip 0 32 2 0 273 "TotalFields" 1 13 8 1 5 1 8 2 6 1 6 2 18 2 12 00000140 10 00000224 5 1 6 2 3 0 8 2 10 00000065 0 273 "EditData" "{2}" 13 8 3 0 16 "{4}" "{3}" "[13][10]" 13 8 4 10 00000107 0 784 "{4}" 13 8 4 0 1038 "{4}" 0 6 0 15 9 14 CloseTable 0 273 "RecHandle" 1 13 8 1 0 273 "THandle" 1 13 8 2 0 284 "PXEngWin.dll,PXRecBufClose,HH" "{1}" 0 284 "PXEngWin.dll,PXTblClose,HH" "{2}" 6 0 15 9 14 UpDateDisplay 0 32 2 0 273 "KeyField" 1 13 8 8 0 273 "TotalFields" 1 13 8 9 0 273 "LastField" 1 13 8 10 0 273 "Thandle" 1 13 8 11 0 273 "RecHandle" 1 13 8 12 0 273 "RefreshMain" 1 13 8 13 5 0 0 284 "PXEngWin.dll,PXNetTblRefresh,HH" "{11}" 13 0 805 &5 [X] 13 18 1 11 00000355 0 284 "PXEngWin.dll,PXErrMsg,CH" "{5}" 13 8 14 5 0 0 284 "PXEngWin.dll,PXRecNum,HHO" "{11}" &6 13 0 805 &5 [X] 13 18 0 11 00000446 5 0 0 284 "PXEngWin.dll,PXTblNRecs,HHO" "{11}" &7 13 0 805 &5 [X] 13 18 0 11 00000587 0 43 "{0}" 1013 "Card {6} of {7}" 10 00000587 5 0 6 13 18 0 11 00001082 5 1 8 15 5 10 6 15 18 2 12 00000707 10 00001069 5 1 6 15 3 0 8 15 10 00000628 6 10 6 15 3 0 6 9 18 5 11 00000888 5 8000 6 15 3 0 0 272 "EditTarget" 1 [X] 5 8000 6 15 3 0 6 15 6 10 3 0 0 273 "EditData" [X] 13 0 43 "{0}" [X] [X] 10 00001056 6 10 6 15 3 0 6 9 18 0 11 00001056 5 8000 6 15 3 0 6 15 6 10 3 0 0 273 "EditData" [X] 13 0 43 "{0}" [X] [X] 5 8000 6 15 3 0 0 272 "EditTarget" 1 [X] 10 00000672 10 00002672 5 1 6 13 18 0 11 00002672 6 10 5 0 18 0 11 00001263 0 44 "{0}" 24 13 0 284 "User,ShowWindow,AHH" [X] 0 0 44 "{0}" 94 13 0 284 "User,ShowWindow,AHH" [X] 1 10 00001371 0 44 "{0}" 24 13 0 284 "User,ShowWindow,AHH" [X] 1 0 44 "{0}" 94 13 0 284 "User,ShowWindow,AHH" [X] 0 6 10 5 10 3 0 6 9 18 3 11 00001533 0 44 "{0}" 23 13 0 284 "User,ShowWindow,AHH" [X] 0 0 44 "{0}" 93 13 0 284 "User,ShowWindow,AHH" [X] 1 10 00001641 0 44 "{0}" 23 13 0 284 "User,ShowWindow,AHH" [X] 1 0 44 "{0}" 93 13 0 284 "User,ShowWindow,AHH" [X] 0 5 1 8 15 5 10 6 15 18 2 12 00001731 10 00002647 5 1 6 15 3 0 8 15 10 00001652 6 10 6 15 3 0 6 9 18 5 11 00002097 5 8000 6 15 3 0 6 15 6 10 3 0 0 273 "EditData" [X] 13 0 43 "{0}" [X] [X] 5 8000 6 15 3 0 0 272 "EditTarget" 1 [X] 0 272 "LastEditField" 1 0 5 1000 6 15 3 0 6 15 6 10 3 0 0 273 "FieldNames" [X] 13 0 43 "{0}" [X] [X] 5 8000 6 15 3 0 0 44 "{0}" [X] 13 0 284 "User,ShowWindow,AHH" [X] 1 10 00002634 6 10 6 15 3 0 6 9 18 0 11 00002484 5 8000 6 15 3 0 6 15 6 10 3 0 0 273 "EditData" [X] 13 0 43 "{0}" [X] [X] 5 8000 6 15 3 0 0 272 "EditTarget" 1 [X] 5 8000 6 15 3 0 0 272 "LastEditField" 1 [X] 5 1000 6 15 3 0 6 15 6 10 3 0 0 273 "FieldNames" [X] 13 0 43 "{0}" [X] [X] 5 8000 6 15 3 0 0 44 "{0}" [X] 13 0 284 "User,ShowWindow,AHH" [X] 1 10 00002634 5 1000 6 15 3 0 0 43 "{0}" [X] "" 5 8000 6 15 3 0 0 44 "{0}" [X] 13 0 284 "User,ShowWindow,AHH" [X] 0 5 8000 6 15 3 0 0 43 "{0}" [X] "" 10 00001696 0 272 "RefreshMain" 1 0 0 273 "EditData" "{8}" 13 0 43 "{0}" 1017 [X] 0 44 "{0}" 8001 13 0 284 "User,SetFocus,HH" [X] 6 3 15 9 14 StuffInfo 0 32 2 0 273 "LastField" 1 13 8 2 0 273 "TotalFields" 1 13 8 3 5 1 8 4 5 10 6 4 18 2 12 00000170 10 00000308 5 1 6 4 3 0 8 4 10 00000094 5 8000 6 4 3 0 0 42 "{0}" [X] 13 8 5 6 2 6 4 3 0 6 3 18 4 11 00000295 6 2 6 4 3 0 0 272 "EditData" [X] "{5}" 10 00000137 6 1 15 9 14 GetFieldInfo 0 32 2 0 273 "FieldType" "{1}" 13 0 133 [X] 1 1 13 8 10 7 "A" 6 10 18 0 11 00000266 5 0 0 284 "PXEngWin.dll,PXGetAlpha,HHHHC" "{0}" "{1}" 250 &9 13 0 805 &4 [X] 13 18 0 11 00000228 10 00000240 6 4 15 9 10 00000717 10 00000717 7 "D" 6 10 18 0 11 00000549 5 0 0 284 "PXEngWin.dll,PXGetDate,HHHO" "{0}" "{1}" &5 13 0 805 &4 [X] 13 18 0 11 00000511 5 0 0 284 "PXEngWin.dll,PXDateDecode,HJLLL" "{5}" &6 &7 &8 13 0 805 &4 [X] 13 18 0 11 00000498 10 00000523 6 4 15 9 10 00000717 10 00000717 7 "N" 6 10 18 0 11 00000717 5 0 0 284 "PXEngWin.dll,PXGetLong,HHHO" "{0}" "{1}" &9 13 0 805 &4 [X] 13 18 0 11 00000692 10 00000704 6 4 15 9 10 00000717 6 9 28 2 5 0 15 9 6 3 15 9 14 GetFieldData 0 32 2 0 273 "Thandle" 1 13 8 10 0 273 "RecHandle" 1 13 8 11 0 273 "TotalFields" 1 13 8 12 5 1 8 13 6 12 6 13 18 2 12 00000208 10 00000338 5 1 6 13 3 0 8 13 10 00000129 5 0 16 GetFieldInfo "{11}" "{13}" &9 13 18 0 11 00000314 0 272 "EditData" "{13}" "{9}" 10 00000325 0 3 "{3}" 10 00000173 6 1 15 9 14 GetKeyfields 5 0 0 284 "PXEngWin.dll,PXKeyNFlds,HHL" "{0}" &1 13 0 805 &3 [X] 13 18 0 11 00000122 10 00000171 0 284 "PXEngWin.dll,PXErrMsg,CH" "{3}" 13 8 4 6 2 15 9 14 StuffRecBuf 0 32 2 0 273 "TotalFields" 1 13 8 3 0 273 "RecHandle" 1 13 8 4 0 273 "Thandle" 1 13 8 5 5 1 8 6 6 3 6 6 18 2 12 00000199 10 00001097 5 1 6 6 3 0 8 6 10 00000124 0 273 "EditData" "{6}" 13 8 7 0 272 "EditData" "{6}" "" 0 273 "FieldType" "{6}" 13 8 8 5 0 0 284 "PXEngWin.dll,PXFldType,HHHHC" "{5}" "{6}" 5 &2 13 0 805 &1 [X] 13 18 0 11 00000407 10 00000407 0 133 "{2}" 1 1 13 8 9 7 "A" 6 9 18 0 11 00000655 5 0 0 284 "PXEngWin.dll,PXPutAlpha,HHHC" "{4}" "{6}" "{7}" 13 0 805 &1 [X] 13 18 0 11 00000579 10 00000629 0 284 "PXEngWin.dll,PXErrMsg,CH" "{1}" 13 8 10 10 00001084 10 00001084 7 "D" 6 9 18 0 11 00000876 5 0 0 284 "PXEngWin.dll,PXPutDate,HHHJ" "{4}" "{6}" "{7}" 13 0 805 &1 [X] 13 18 0 11 00000800 10 00000850 0 284 "PXEngWin.dll,PXErrMsg,CH" "{1}" 13 8 10 10 00001084 10 00001084 7 "N" 6 9 18 0 11 00001084 5 0 0 284 "PxEngWin.dll,PXPutLong,HHHJ" "{4}" "{6}" "{7}" 13 0 805 &1 [X] 13 18 0 11 00001021 10 00001071 0 284 "PXEngWin.dll,PXErrMsg,CH" "{1}" 13 8 10 10 00001084 10 00000166 6 0 15 9 14 PackGlobals 0 32 2 0 1046 &0 13 8 5 0 271 "TotalFields" 1 0 271 "FieldNames" "{5}" 0 271 "FieldType" "{5}" 0 271 "LastField" 1 0 271 "EditData" "{5}" 0 271 "Thandle" 1 0 271 "RecHandle" 1 0 271 "KeyField" 1 0 271 "EditTarget" 1 0 271 "RedoNames" 1 0 271 "RefreshMain" 1 0 271 "LastEditField" 1 0 271 "Speed" 1 0 271 "PrevLock" 1 0 264 "Speed" 1 0 272 "RedoNames" 1 0 0 272 "RefreshMain" 1 1 0 272 "LastEditField" 1 0 0 272 "Thandle" 1 "{3}" 0 272 "RecHandle" 1 "{2}" 0 272 "TotalFields" 1 "{5}" 0 272 "LastField" 1 0 0 272 "KeyField" 1 1 0 264 "PrevLock" 0 5 1 8 6 6 5 6 6 18 2 12 00000674 10 00000768 5 1 6 6 3 0 8 6 10 00000599 6 6 22 0 0 272 "FieldNames" "{6}" [X] 6 6 22 1 0 272 "FieldType" "{6}" [X] 10 00000641 6 4 15 9 14 SortEm 5 1 21 5 [X] 0 273 "Thandle" 1 13 8 6 0 273 "RecHandle" 1 13 8 7 0 273 "TotalFields" 1 13 8 8 5 1 8 9 6 8 6 9 18 2 12 00000201 10 00000265 5 1 6 9 3 0 8 9 10 00000126 0 273 "FieldNames" "{9}" 13 0 1041 &5 "{9}" [X] 10 00000168 0 31 9500 &5 0 26 "." "Index" 13 8 10 6 10 5 1 18 1 11 00000349 6 0 15 9 0 27 9500 13 8 11 0 1044 &5 "{11}" 13 8 12 0 264 "KeyField" "{12}" 6 0 15 9 14 GotoMain 0 32 2 0 273 "RecHandle" 1 13 8 5 0 273 "THandle" 1 13 8 6 5 1 21 7 [X] 0 273 "TotalFields" 1 13 8 8 5 1 8 9 6 8 6 9 18 2 12 00000211 10 00000275 5 1 6 9 3 0 8 9 10 00000136 0 273 "FieldNames" "{9}" 13 0 1041 &7 "{9}" [X] 10 00000178 0 31 9500 &7 0 31 20 1 0 26 "." "Goto" 13 8 10 6 10 5 1 18 1 11 00000370 5 -1 15 9 0 27 20 13 8 11 0 27 21 13 8 12 0 27 22 13 8 13 0 27 9500 13 8 14 0 27 8000 13 8 15 6 11 11 00000835 0 1044 &7 "{14}" 13 8 16 5 0 16 FindItem "{15}" "{16}" 13 18 0 11 00000690 0 284 "PXEngWin.dll,PXRecGet,HHH" "{6}" "{5}" 16 GetFieldData "{0}" 16 UpdateDisplay "{0}" "{3}" "{4}" 10 00000835 0 284 "PXEngWin.dll,PXRecGet,HHH" "{6}" "{5}" 16 GetFieldData "{0}" 16 UpdateDisplay "{0}" "{3}" "{4}" 0 3 "No match found" "Search Results" 6 12 11 00001103 5 0 0 284 "PXEngWin.dll,PXRecFirst,HH" "{6}" 13 0 805 &2 [X] 13 18 0 11 00001053 0 284 "PXEngWin.dll,PXRecGet,HHH" "{6}" "{5}" 16 GetFieldData "{0}" 16 UpdateDisplay "{0}" 0 0 10 00001103 0 284 "PXEngWin.dll,PXErrMsg,CH" "{2}" 13 8 17 6 13 11 00001370 5 0 0 284 "PxEngWin.dll,PXRecLast,HH" "{6}" 13 0 805 &2 [X] 13 18 0 11 00001320 0 284 "PXEngWin.dll,PXRecGet,HHH" "{6}" "{5}" 16 GetFieldData "{0}" 16 UpdateDisplay "{0}" 0 0 10 00001370 0 284 "PXEngWin.dll,PXErrMsg,CH" "{2}" 13 8 17 6 1 15 9 14 FindItem 0 273 "TotalFields" 1 13 8 4 0 273 "RecHandle" 1 13 8 5 0 273 "THandle" 1 13 8 6 0 284 "PXEngWin.dll,PXRecBufEmpty,HH" "{5}" 5 0 0 284 "PXEngWin.dll,PXPutAlpha,HHHC" "{5}" "{1}" "{0}" 13 0 805 &3 [X] 13 18 0 11 00000263 10 00000312 0 284 "PXEngWin.dll,PXErrMsg,CH" "{3}" 13 8 7 5 0 0 284 "PXEngWin.dll,PXSrchFld,HHHHH" "{6}" "{5}" "{1}" 2 13 0 805 &3 [X] 13 18 0 5 89 0 284 "PXEngWin.dll,PXSrchFld,HHHHH" "{6}" "{5}" "{1}" 2 13 0 805 &3 [X] 13 18 0 1 2 11 00000538 5 0 15 9 10 00000600 0 284 "PXEngWin.dll,PXErrMsg,CH" "{3}" 13 8 7 5 -1 15 9 6 2 15 9 14 Build 0 4 0 17 3 0 271 "LibId" 1 17 4 0 265 "libid" 13 7 "" 18 0 11 00000277 17 5 29 2 Stat 16 Init &1 13 8 2 17 6 6 2 5 0 18 0 6 2 5 82 18 0 1 2 11 00000198 10 00000277 17 8 29 3 Error 0 284 "PXEngWin.dll,PXErrMsg,CH" "{2}" 13 8 3 6 0 15 9 17 13 29 4 FileNameBuilt 17 14 0 271 "PMFields" 70 17 15 0 271 "PMTypes" 70 17 16 0 271 "NumFields" 1 17 18 0 272 "NumFields" 1 0 17 19 0 272 "PMFields" 1 1 17 20 0 272 "PMTypes" 1 1 17 21 29 5 Mac 0 802 13 8 5 17 22 0 31 8001 20 17 23 0 41 9000 "{5}!CallBuild" 17 24 0 41 51 "{5}!CallBuild" 17 26 29 6 Box 0 26 "." "Build" 13 8 6 17 27 6 6 5 1 18 0 11 00000819 17 28 5 0 16 BuildTable &4 13 18 0 11 00000806 17 29 0 266 "PMTypes" 17 30 0 266 "PMFields" 17 31 16 MainEntryBox "{4}" 10 00000868 17 35 0 266 "PMTypes" 17 36 0 266 "PMFields" 6 0 15 17 38 9 14 BuildTable 29 0 TableName 29 1 BuildTable 17 1 29 2 Mac 0 802 13 8 2 17 2 29 3 Stat 29 4 NumFields 17 3 5 0 0 273 "NumFields" 1 13 0 805 &4 [X] 13 18 0 11 00000205 17 4 5 -1 15 9 17 7 6 4 29 5 FieldName 21 5 [X] 17 8 6 4 29 6 Width 21 6 [X] 29 7 t 5 1 8 7 17 9 6 4 6 7 18 2 12 00000374 10 00000478 5 1 6 7 3 0 8 7 10 00000293 17 10 6 7 0 273 "PMFields" "{7}" 13 23 5 17 11 6 7 0 273 "PMtypes" "{7}" 13 23 6 10 00000341 17 13 0 31 9001 "*.db" 17 14 29 8 Box 0 26 "." "Save" 13 8 8 17 15 29 9 Dir 0 290 13 8 9 17 16 6 8 5 0 18 1 11 00000984 17 17 29 10 Flname 0 27 8000 13 8 10 17 18 29 11 Filename 0 16 "{9}" "{10}" 13 8 11 17 19 5 0 0 284 "PXEngWin.dll,PXTblCreate,HCHMM" "{11}" "{4}" &5 &6 13 0 805 &3 [X] 13 18 0 11 00000875 17 20 16 BuildIndex "{10}" &5 13 8 3 10 00000984 17 22 29 12 Error 0 284 "PXEngWin.dll,PXErrMsg,CH" "{3}" 13 8 12 17 23 0 3 "{12}" 17 24 5 -1 15 9 17 27 6 11 28 0 17 28 6 3 15 9 6 1 15 17 29 9 14 CallBuild 29 0 Hdlg 29 1 Id 29 2 Dummy 29 3 CallBuild 17 1 0 32 2 17 3 0 42 "{0}" 8000 13 7 "" 18 0 11 00000195 17 4 0 284 "user,PostMessage,HHHHHH" "{0}" 273 1 0 0 6 3 15 9 17 7 5 51 6 1 18 0 11 00000619 17 9 29 4 Name 0 42 "{0}" 8000 13 8 4 17 10 29 5 Width 0 42 "{0}" 8001 13 8 5 17 11 29 6 NumFields 0 273 "NumFields" 1 13 8 6 17 12 29 7 Type 7 "A" 8 7 17 13 7 "{7}{5}" 8 7 17 15 29 8 FieldNumber 6 6 5 1 3 0 8 8 17 16 0 272 "PMFields" "{8}" "{4}" 17 17 0 272 "PMTypes" "{8}" "{7}" 17 18 0 264 "NumFields" "{8}" 17 19 0 43 "{0}" 9000 "{4}" 10 00000747 5 52 6 1 18 0 11 00000680 17 22 0 3 "{1}" 10 00000747 5 9000 6 1 18 0 11 00000747 17 24 0 3 "This is the list box" 17 26 0 43 "{0}" 8000 "" 17 27 0 44 "{0}" 8000 13 0 284 "User,SetFocus,HH" [X] 6 3 15 17 28 9 14 BuildIndex 29 0 FileName 29 1 FieldName 29 2 BuildIndex 17 1 29 3 Stat 29 4 Numfields 17 2 5 1 29 5 IndexNumber 21 5 [X] 17 4 5 0 0 273 "NumFields" 1 13 0 805 &4 [X] 13 18 0 11 00000227 17 5 5 -1 15 9 17 7 6 4 5 3 18 3 11 00000309 17 8 29 6 TotalFields 5 3 8 6 10 00000326 17 10 6 4 8 6 17 13 5 0 0 284 "PXEngWin.dll,PXKeyAdd,HCHNH" "{0}" "{6}" &5 0 13 0 805 &3 [X] 13 18 0 11 00000446 10 00000534 17 15 29 7 Error 0 284 "PXEngWin.dll,PXErrMsg,CH" "{3}" 13 8 7 17 17 5 -1 15 9 17 19 5 1 29 8 Second 21 8 [X] 29 9 Q 5 1 8 9 17 20 6 6 6 9 18 2 12 00000669 10 00000897 5 1 6 9 3 0 8 9 10 00000587 17 21 5 1 6 9 23 8 17 22 5 0 0 284 "PXEngWin.dll,PXKeyAdd,HCHNH" "{0}" 1 &8 2 13 0 805 &3 [X] 13 18 0 11 00000808 10 00000884 17 24 0 284 "PXEngWin.dll,PXErrMsg,CH" "{3}" 13 8 7 17 26 5 -1 15 9 10 00000636 17 29 5 0 15 9 6 2 15 17 30 9 14 OpenTable 29 0 Filename 29 1 Thandle 29 2 RecHandle 29 3 OpenTable 17 1 29 4 exists 29 5 thand 29 6 rhand 29 7 stat 17 2 5 0 0 284 "PXEngWin.dll,PXTblExist,HCL" "{0}" &4 13 0 805 &7 [X] 13 18 0 11 00000240 10 00000326 17 4 29 8 Error 0 284 "PXEngWin.dll,PXErrMsg,CH" "{7}" 13 8 8 17 6 5 -1 15 9 17 9 5 0 0 284 "PXEngWin.dll,PXTblOpen,HCLHH" "{0}" &5 0 1 13 0 805 &7 [X] 13 18 0 11 00000630 17 10 5 0 0 284 "PXEngWin.dll,PXRecBufOpen,HHL" "{5}" &6 13 0 805 &7 [X] 13 18 0 11 00000598 17 11 6 5 28 1 17 12 6 6 28 2 17 13 5 0 15 9 10 00000617 17 15 6 7 15 9 10 00000649 17 18 6 7 15 9 6 3 15 17 20 9 14 ReadFields 29 0 FieldNames 29 1 FieldType 29 2 Thandle 29 3 ReadFields 17 1 29 4 Stat 29 5 Stat2 29 6 NumFlds 29 7 Size 29 8 Name 29 9 FldType 17 2 5 0 0 284 "PXEngWin.dll,PXRecNFlds,HHL" "{2}" &6 13 0 805 &4 [X] 13 18 0 11 00000608 29 10 x 5 1 8 10 17 3 6 6 6 10 18 2 12 00000360 10 00000595 5 1 6 10 3 0 8 10 10 00000276 17 4 0 284 "PXEngWin.dll,PXFldName,HHHHC" "{2}" "{10}" 80 &8 13 0 805 &4 [X] 17 5 0 284 "PXEngWin.dll,PXFldType,HHHHC" "{2}" "{10}" 80 &9 13 0 805 &5 [X] 17 6 0 1041 &0 "{10}" "{8}" 17 7 0 1041 &1 "{10}" "{9}" 10 00000325 10 00000627 17 10 6 4 15 9 17 12 5 0 15 9 6 3 15 17 13 9 14 FreeGlobals 29 0 FreeGlobals 17 3 0 266 "TotalFields" 17 4 0 266 "FieldNames" 17 5 0 266 "LastField" 17 6 0 266 "EditData" 17 7 0 266 "FieldSep" 17 8 0 266 "RecSep" 17 9 0 266 "DefineField" 17 10 0 266 "DefineRec" 17 11 0 266 "BoxReturn" 17 12 0 266 "KeyField" 17 13 0 266 "LibId" 17 14 0 266 "FieldType" 17 15 0 266 "RecHandle" 17 16 0 266 "Speed" 17 17 0 266 "KeyField" 17 18 0 266 "EditTarget" 17 19 0 266 "LastEditField" 17 20 0 266 "NumFields" 17 21 0 266 "RedoNames" 17 22 0 266 "Thandle" 17 23 0 266 "PrevLock" 17 24 0 266 "RefreshMain" 17 25 0 266 "PMTypes" 17 26 0 266 "PMFields" 6 0 15 17 28 9 14 Configure 29 0 Configure 17 1 29 1 NetType 29 2 NetNamePath 29 3 Name 17 2 5 9 29 4 Net 21 4 [X] 17 3 5 1 7 "Not on network" 23 4 17 4 5 2 7 "Novell" 23 4 17 5 5 3 7 "3Com" 23 4 17 6 5 4 7 "3Com 3+Open" 23 4 17 7 5 5 7 "Other: unknown" 23 4 17 8 5 6 7 "Starlan" 23 4 17 9 5 7 7 "Banyan" 23 4 17 10 5 8 7 "IBM PC" 23 4 17 11 29 5 size 0 1046 &4 13 8 5 17 12 6 5 29 6 Temp 21 6 [X] 29 7 t 5 1 8 7 17 13 6 5 6 7 18 2 12 00000534 10 00000576 5 1 6 7 3 0 8 7 10 00000452 17 14 6 7 6 7 22 4 23 6 10 00000501 17 16 7 "" 0 286 "Paradox Engine" "UserName" "Win.ini" 13 0 805 &3 [X] 13 18 0 11 00000731 17 17 0 286 "AmiPro" "UserName" "AmiPro.Ini" 13 8 3 17 25 7 "" 0 286 "Paradox Engine" "NetNamePath" "Win.ini" 13 0 805 &2 [X] 13 18 0 11 00000854 17 26 7 "C:\" 8 2 17 29 0 31 9500 &4 17 30 0 31 8000 "{3}" 17 31 0 31 8002 "{2}" 17 32 29 8 Box 0 26 "." "NetWork" 13 8 8 17 33 6 8 5 1 18 1 11 00001024 17 34 5 2 15 9 17 36 29 9 DlgUser 0 27 8000 13 8 9 17 37 29 10 DlgNetType 0 27 9500 13 8 10 17 38 29 11 DlgPath 0 27 8002 13 8 11 17 39 0 1044 &6 "{10}" 13 8 1 17 40 0 287 "Paradox Engine" "UserName" "{9}" "Win.ini" 17 41 0 287 "Paradox Engine" "NetNamePath" "{11}" "Win.ini" 6 0 15 17 45 9 14 ShutDown 29 0 ShutDown 17 1 29 1 Stat 17 2 0 271 "LibId" 1 17 3 0 265 "libid" 13 7 "" 18 1 11 00000268 17 4 5 0 0 284 "PXEngWin.dll,PXExit,H" 13 0 805 &1 [X] 13 18 1 11 00000268 17 5 29 2 Error 0 284 "PXEngWin.dll,PXErrMsg,CH" "{1}" 13 8 2 17 9 0 266 "LibId" 17 10 29 3 Barid 5 1 8 3 17 11 29 4 MenuName 7 "&Card File" 8 4 17 12 0 521 "{3}" "{4}" 6 0 15 17 14 9 14 OpenBox 29 0 initpath 29 1 initmask 29 2 OpenBox 17 1 17 2 17 3 17 4 17 6 17 7 17 8 17 9 17 10 19 00000902 17 11 20 00000902 17 12 0 296 1 17 13 0 271 "BN" 2 17 14 0 271 "FN" 1 17 15 0 271 "MS" 1 17 16 0 264 "MS" "{1}" 17 17 0 807 "{0}" 1 13 7 "\" 18 1 11 00000332 17 18 0 16 "{0}" "\" 13 8 0 17 20 0 134 "{0}" 13 5 3 18 3 11 00000470 17 21 29 3 disppath 0 134 "{0}" 13 5 1 3 1 0 133 "{0}" 1 [X] 13 8 3 10 00000487 17 23 6 0 8 3 17 25 0 31 8000 "{1}" 17 26 0 17 "{3}" 13 0 31 8888 [X] 17 27 0 31 9500 "*.*,0x4000" 17 28 0 41 0 "boxinits" 17 29 0 41 25 "okbutton" 17 30 0 41 9005 "selfile" 17 31 0 41 9006 "chdirs" 17 32 0 41 9500 "chdrv" 17 33 0 41 8000 "chmask" 17 34 0 296 0 17 35 29 4 box 0 26 "." "OPENBOX" 13 8 4 17 36 29 5 filename 0 265 "FN" 13 8 5 17 37 6 4 5 0 18 0 11 00000902 17 38 10 00000902 17 41 0 266 "FN" 17 42 0 266 "BN" 17 43 0 266 "MS" 17 44 6 5 15 9 6 2 15 17 45 9 14 chmask 29 0 hDlg 29 1 id 29 2 value 29 3 chmask 17 1 0 32 1 17 2 0 43 "{0}" 8123 "~" 6 3 15 17 3 9 14 okbutton 29 0 hDlg 29 1 id 29 2 value 29 3 okbutton 17 1 0 42 "{0}" 8123 13 7 "~" 18 0 11 00001799 17 2 29 4 newmask 0 42 "{0}" 8000 13 8 4 17 3 0 133 "{4}" 2 1 13 7 ":" 18 0 11 00001490 17 4 29 5 res 0 134 "{4}" 13 8 5 17 5 29 6 lb 0 39 91 13 8 6 17 6 5 1 11 00000449 17 7 29 7 sep 0 138 "{5}" "{4}" "\" 13 8 7 17 8 6 7 6 5 18 0 11 00000409 17 9 10 00000449 17 11 6 5 5 1 3 1 8 5 10 00000283 17 13 6 7 5 0 18 1 11 00001016 17 14 29 8 curdir 0 133 "{4}" 1 "{7}" 13 8 8 17 15 0 134 "{4}" 13 6 7 3 1 0 807 "{4}" [X] 13 8 4 17 16 0 134 "{8}" 13 5 3 18 0 11 00000683 17 17 29 9 bks 5 0 8 9 10 00000700 17 19 5 1 8 9 17 21 0 134 "{8}" 13 6 9 3 1 0 133 "{8}" 1 [X] 13 0 43 "{0}" 8888 [X] 17 22 0 17 "{4}" 13 0 43 "{0}" 8000 [X] 17 23 0 264 "MS" "{4}" 17 24 29 10 handle 0 44 "{0}" 9006 13 8 10 17 25 29 11 filldir 0 16 "{8}" "*.*" 13 8 11 17 26 0 1036 "{10}" 1029 0 0 17 27 0 1036 "{10}" 1038 32784 "{11}" 17 29 0 133 "{8}" 1 1 13 0 42 "{0}" 9500 13 18 1 11 00001477 17 30 29 12 dletter 0 133 "{8}" 1 1 13 8 12 17 31 29 13 initdrv 7 "{6}-{12}-]" 8 13 29 14 drvnum 5 0 8 14 17 32 5 25 6 14 18 2 12 00001288 10 00001477 5 1 6 14 3 0 8 14 10 00001202 17 33 0 44 "{0}" 9500 13 8 10 17 34 0 1036 "{10}" 1038 "{14}" 0 17 35 29 15 seldrv 0 42 "{0}" 9500 13 8 15 17 36 6 15 6 13 18 0 11 00001464 17 37 10 00001477 10 00001253 10 00001607 17 42 0 42 "{0}" 8888 13 8 8 17 43 0 807 "{8}" 1 13 7 "\" 18 1 11 00001607 17 44 0 16 "{8}" "\" 13 8 8 17 47 29 16 fillfile 0 16 "{8}" "{4}" 13 8 16 17 48 0 44 "{0}" 9005 13 8 10 17 49 0 1036 "{10}" 1029 0 0 17 50 0 1036 "{10}" 1038 0 "{16}" 17 51 0 43 "{0}" 8123 "" 10 00002142 17 52 0 42 "{0}" 9005 13 7 "" 18 1 11 00002142 17 54 29 17 filename 0 42 "{0}" 9005 13 8 17 17 55 29 18 fpath 0 42 "{0}" 8888 13 8 18 17 56 0 807 "{18}" 1 13 7 "\" 18 1 11 00002036 17 57 0 16 "{18}" "\" 13 8 18 17 59 0 16 "{18}" "{17}" 13 8 17 17 60 0 264 "FN" "{17}" 17 61 0 284 "user,EndDialog,HHH" "{0}" 1 6 3 15 17 63 9 14 selfile 29 0 hDlg 29 1 id 29 2 value 29 3 selfile 17 1 0 43 "{0}" 8000 "{2}" 17 2 29 4 thetime 0 772 13 8 4 17 3 6 2 0 273 "BN" 1 13 18 0 5 1 6 4 0 273 "BN" 2 13 3 1 18 3 1 1 11 00000251 17 4 0 272 "BN" 1 "" 10 00000315 17 6 0 272 "BN" 1 "{2}" 17 7 0 272 "BN" 2 "{4}" 6 3 15 9 17 10 29 5 filename 6 2 8 5 17 11 29 6 fpath 0 42 "{0}" 8888 13 8 6 17 12 0 807 "{6}" 1 13 7 "\" 18 1 11 00000476 17 13 0 16 "{6}" "\" 13 8 6 17 15 0 16 "{6}" "{5}" 13 8 5 17 16 0 264 "FN" "{5}" 17 17 0 284 "user,EndDialog,HHH" "{0}" 1 6 3 15 17 18 9 14 chdrv 29 0 hDlg 29 1 id 29 2 value 29 3 chdrv 17 1 0 296 1 17 2 29 4 lb 0 39 91 13 8 4 17 3 29 5 dletter 0 133 "{2}" 3 1 13 8 5 17 4 29 6 newdir 0 16 "{5}" ":\" 13 8 6 17 5 0 43 "{0}" 8888 "{6}" 17 6 29 7 handle 0 44 "{0}" 9501 13 8 7 17 7 29 8 cbnum 0 1036 "{7}" 1031 0 0 13 8 8 17 8 29 9 mask 0 42 "{0}" 8000 13 8 9 17 9 29 10 fillfile 0 16 "{6}" "*" "{9}" 13 8 10 17 10 0 44 "{0}" 9005 13 8 7 17 11 0 1036 "{7}" 1029 0 0 17 12 0 1036 "{7}" 1038 0 "{10}" 17 13 29 11 filldir 0 16 "{6}" "*.*" 13 8 11 17 14 0 44 "{0}" 9006 13 8 7 17 15 0 1036 "{7}" 1029 0 0 17 16 0 1036 "{7}" 1038 32784 "{11}" 17 17 0 296 0 6 3 15 17 18 9 14 chdirs 29 0 hDlg 29 1 id 29 2 value 29 3 chdirs 17 1 0 4 0 17 2 29 4 mask 0 265 "MS" 13 8 4 17 3 29 5 godir 0 42 "{0}" 9006 13 8 5 17 4 29 6 ln 0 134 "{5}" 13 5 2 3 1 8 6 17 5 6 5 7 "" 18 1 11 00000349 17 6 0 133 "{5}" 2 "{6}" 13 8 5 17 7 29 7 dispmask 0 18 "{4}" 13 0 16 "{5}" "\" [X] 13 8 7 10 00000376 17 9 0 18 "{4}" 13 8 7 17 11 0 43 "{0}" 8000 "{7}" 17 12 6 5 7 "" 18 0 11 00000455 6 3 15 9 17 15 29 8 thetime 0 772 13 8 8 17 16 6 5 0 273 "BN" 1 13 18 0 5 1 6 8 0 273 "BN" 2 13 3 1 18 3 1 1 11 00000622 17 17 0 272 "BN" 1 "" 10 00000688 17 19 0 272 "BN" 1 "{5}" 17 20 0 272 "BN" 2 "{8}" 6 3 15 9 17 23 0 296 1 17 24 29 9 lb 0 39 91 13 8 9 17 25 29 10 space 7 " " 8 10 17 26 29 11 cdr 0 42 "{0}" 8888 13 8 11 17 27 0 134 "{11}" 13 5 3 18 0 11 00000907 17 28 29 12 bs 7 "" 8 12 10 00000927 17 30 7 "\" 8 12 17 32 6 5 7 ".." 18 1 11 00001036 17 33 29 13 newdir 0 16 "{11}" "{12}" "{5}" 13 8 13 10 00001334 17 35 29 14 cnt 5 1 8 14 17 36 5 1 11 00001268 17 37 29 15 res 0 134 "{11}" 13 6 14 3 1 0 133 "{11}" [X] 1 13 8 15 17 38 6 15 7 "\" 18 0 11 00001226 17 39 10 00001268 17 41 6 14 5 1 3 0 8 14 10 00001065 17 43 0 134 "{11}" 13 6 14 3 1 0 133 "{11}" 1 [X] 13 8 13 17 45 0 134 "{13}" 13 5 3 18 1 0 807 "{13}" 1 13 7 "\" 18 0 1 1 11 00001486 17 46 0 134 "{13}" 13 5 1 3 1 0 133 "{13}" 1 [X] 13 8 13 17 48 0 17 "{13}" 13 0 43 "{0}" 8888 [X] 17 49 0 18 "{4}" 13 0 43 "{0}" 8000 [X] 17 50 0 807 "{13}" 1 13 7 "\" 18 1 11 00001662 17 51 0 16 "{13}" "\" 13 8 13 17 53 29 16 handle 0 44 "{0}" 9501 13 8 16 17 54 29 17 cbnum 0 1036 "{16}" 1031 0 0 13 8 17 17 55 29 18 fillfile 0 16 "{13}" "{4}" 13 8 18 17 56 0 44 "{0}" 9005 13 8 16 17 57 0 1036 "{16}" 1029 0 0 17 58 0 1036 "{16}" 1038 0 "{18}" 17 59 29 19 filldir 0 16 "{13}" "*.*" 13 8 19 17 60 0 44 "{0}" 9006 13 8 16 17 61 0 1036 "{16}" 1029 0 0 17 62 0 1036 "{16}" 1038 32784 "{19}" 17 63 0 296 0 6 3 15 17 64 9 14 boxinits 29 0 hDlg 29 1 id 29 2 value 29 3 boxinits 17 1 0 296 1 17 2 29 4 lb 0 39 91 13 8 4 17 3 29 5 dletter 0 268 13 0 133 [X] 1 1 13 8 5 17 4 0 17 "{5}" 13 8 5 17 5 29 6 initdrv 7 "{4}-{5}-]" 8 6 29 7 drvnum 5 0 8 7 17 6 5 25 6 7 18 2 12 00000335 10 00000527 5 1 6 7 3 0 8 7 10 00000253 17 7 29 8 handle 0 44 "{0}" 9500 13 8 8 17 8 0 1036 "{8}" 1038 "{7}" 0 17 9 29 9 seldrv 0 42 "{0}" 9500 13 8 9 17 10 6 9 6 6 18 0 11 00000514 17 11 10 00000527 10 00000302 17 14 29 10 filldir 0 42 "{0}" 8888 13 8 10 17 15 29 11 mask 0 42 "{0}" 8000 13 8 11 17 16 0 807 "{10}" 1 13 7 "\" 18 1 11 00000709 17 17 0 16 "{10}" "\" 13 8 10 17 19 29 12 fillfile 0 16 "{10}" "{11}" 13 8 12 17 20 0 16 "{10}" "*.*" 13 8 10 17 21 0 44 "{0}" 9006 13 8 8 17 22 0 1036 "{8}" 1038 32784 "{10}" 17 23 0 44 "{0}" 9005 13 8 8 17 24 0 1036 "{8}" 1038 0 "{12}" 17 25 0 44 "{0}" 8000 13 8 8 17 26 0 1036 "{8}" 1025 0 5 17 27 0 296 0 6 3 15 17 28 9 DIALOG OPENBOX -2134376448 13 26 28 212 115 "" "" "Open Card File" FONT 6 "Helv" 5 4 40 10 1001 1342308352 "static" "File &name:" 0 66 3 95 12 8000 1350631552 "edit" "" 0 5 15 40 10 1002 1342308352 "static" "Directory:" 0 66 16 95 9 8888 1342177280 "static" "show directory here" 0 5 26 27 10 1003 1342308352 "static" "&Files:" 0 5 36 58 69 9005 1352728579 "listbox" "" 0 66 26 44 10 1004 1342308352 "static" "&Directories:" 0 66 36 58 69 9006 1352728579 "listbox" "" 0 127 26 27 10 1006 1342308352 "static" "Dri&ves:" 0 127 36 34 45 9500 1344339971 "combobox" "" 0 166 3 40 14 25 1342373889 "button" "OK" 0 166 19 40 14 2 1342373888 "button" "Cancel" 0 196 150 7 12 8123 1350631424 "edit" "" 0 DIALOG MainBox -2134376448 51 29 32 296 194 "" "" "Edit Card File" FONT 8 "Helv" 6 6 235 178 1000 1342177290 "static" "filename.bmp" 0 94 27 130 12 8001 1350762624 "edit" "" 0 94 41 130 12 8002 1350631552 "edit" "" 0 94 55 130 12 8003 1350631552 "edit" "" 0 94 69 130 12 8004 1350631552 "edit" "" 0 94 83 130 12 8005 1350631552 "edit" "" 0 94 97 130 12 8006 1350631552 "edit" "" 0 94 111 130 12 8007 1350631552 "edit" "" 0 94 125 130 12 8008 1350631552 "edit" "" 0 94 139 130 12 8009 1350631552 "edit" "" 0 94 153 130 12 8010 1350762624 "edit" "" 0 247 17 46 14 31 1342373889 "button" "&Add" 0 247 33 46 14 32 1342373888 "button" "&Delete" 0 247 49 46 14 21 1342373888 "button" "&Update" 0 247 65 46 14 33 1342373888 "button" "&New Card" 0 247 81 46 14 1 1342373888 "button" "Close" 0 247 119 46 14 27 1342373888 "button" "&Index..." 0 247 135 46 14 30 1342373888 "button" "&Go To..." 0 247 151 21 14 29 1342373896 "button" "prev" 0 272 151 21 14 28 1342373896 "button" "next" 0 272 167 21 14 35 1342373896 "button" "ffwrd" 0 272 167 21 14 55 1342373896 "button" "Stopffwr" 0 247 167 21 14 36 1342373896 "button" "frev" 0 247 167 21 14 56 1342373896 "button" "StopFrv" 0 110 168 12 12 23 1342373896 "button" ">>" 0 125 168 12 12 24 1342373896 "button" "<<" 0 8 160 36 26 1011 1342177290 "static" "filename.bmp" 0 24 29 64 8 1001 1342177282 "static" "" 0 28 43 60 8 1002 1342177282 "static" "" 0 24 57 64 8 1003 1342177282 "static" "" 0 24 71 64 8 1004 1342177282 "static" "" 0 24 85 64 8 1005 1342177282 "static" "" 0 24 99 64 8 1006 1342177282 "static" "" 0 24 113 64 8 1007 1342177282 "static" "" 0 24 127 64 8 1008 1342177282 "static" "" 0 24 141 64 8 1009 1342177282 "static" "" 0 24 155 64 8 1010 1342177282 "static" "" 0 59 9 36 8 82 1342177288 "button" "" 0 104 9 37 8 83 1342177288 "button" "" 0 151 9 34 8 84 1342177288 "button" "" 0 198 9 35 8 85 1342177288 "button" "" 0 11 250 12 7 41 1342177280 "button" "RET" 0 13 9 36 8 1017 1342177280 "static" "text" 0 59 9 36 8 1018 1342177280 "static" "" 0 104 9 37 8 1019 1342177280 "static" "" 0 151 9 35 8 1020 1342177280 "static" "" 0 198 9 35 8 1021 1342177280 "static" "" 0 110 168 14 14 93 1342177280 "static" "" 0 125 168 14 14 94 1342177280 "static" "" 0 247 103 46 14 39 1342373888 "button" "&Copy" 0 165 172 70 9 1013 1342177280 "static" "text" 0 DIALOG Sort -2134376448 10 102 60 152 82 "" "" "Sort Records" FONT 8 "Helvetica" 6 14 86 40 9500 1344274435 "combobox" "" 0 108 4 40 14 1 1342242817 "button" "OK" 0 108 20 40 14 2 1342242816 "button" "Cancel" 0 6 4 52 8 1000 1342177280 "static" "Sort by field:" 0 6 36 66 40 20 1342242823 "button" "Sort type" 0 80 36 68 40 21 1342242823 "button" "Sort order" 0 8 48 54 12 22 1342373897 "button" "&Alphanumeric" 0 8 60 50 12 23 1342177289 "button" "&Numeric" 0 84 48 50 10 24 1342373897 "button" "&Ascending" 0 84 60 54 12 25 1342177289 "button" "&Descending" 0 DIALOG Goto -2134376448 8 34 64 251 42 "" "" "Go To Card" FONT 8 "Helv" 129 3 73 12 8000 1350631552 "edit" "" 0 207 2 40 14 1 1342242817 "button" "Go To" 0 207 18 40 14 2 1342242816 "button" "Cancel" 0 4 3 41 10 20 1342242825 "button" "&Field:" 0 54 3 65 38 9500 1344339971 "combobox" "" 0 4 14 48 12 21 1342242825 "button" "First record" 0 4 27 47 10 22 1342242825 "button" "Last record" 0 121 5 6 8 1000 1342177280 "static" "=" 0 DIALOG MakeFields -2134376448 11 67 51 142 105 "" "" "Create Data File" FONT 8 "Helvetica" 6 13 86 12 8001 1350631552 "edit" "" 0 98 4 40 14 20 1342242816 "button" "Done" 0 98 20 40 14 2 1342242816 "button" "Cancel" 0 98 36 40 14 21 1342242817 "button" "&Add" 0 98 52 40 14 22 1342242816 "button" "&Remove" 0 98 68 16 14 23 1342242816 "button" "&Up" 0 122 68 16 14 24 1342242816 "button" "&Dn" 0 6 39 86 62 9000 1352728577 "listbox" "" 0 6 3 68 8 1000 1342177280 "static" "Field Name:" 0 99 87 40 14 30 1342242816 "button" "&Options..." 0 7 29 59 9 1001 1342177280 "static" "Fields in data file:" 0 DIALOG NoMatch -2134376448 2 86 56 121 50 "" "" "Search Results" 41 25 40 14 1 1342373889 "button" "OK" 0 34 7 57 10 1000 1342177280 "static" "No match found" 0 DIALOG Build -2134376448 8 47 32 160 100 "" "" "Create Card File" FONT 8 "Helv" 4 14 64 12 8000 1350631552 "Edit" "" 0 4 30 64 61 9000 1352728579 "listbox" "" 0 115 4 40 14 1 1342242816 "button" "OK" 0 115 20 40 14 2 1342242816 "button" "Cancel" 0 115 36 40 14 51 1342242817 "button" "&Add" 0 70 14 40 12 8001 1350631552 "SamNumeditBox" "" 0 5 3 62 10 1000 1342177280 "static" "Enter field name:" 0 74 3 40 10 1001 1342177280 "static" "Field size:" 0 DIALOG Save -2134376448 7 58 34 138 88 "" "" "Save Card File" FONT 8 "Helv" 6 16 68 12 8000 1350631424 "edit" "" 0 6 44 82 40 9001 1352728579 "listbox" "" 0 30 32 56 8 7999 1342177280 "static" "" 0 92 4 40 14 1 1342242816 "button" "OK" 0 92 20 40 14 2 1342242816 "button" "Cancel" 0 6 6 38 10 1000 1342177280 "static" "File name:" 0 6 32 20 10 1001 1342177280 "static" "Path:" 0 DIALOG Index -2134376448 5 42 50 178 48 "" "" "Select Field" FONT 6 "Helv" 132 4 40 14 1 1342373889 "button" "OK" 0 132 20 40 14 2 1342373888 "button" "Cancel" 0 6 8 48 10 1000 1342177280 "static" "Field Name:" 0 56 6 68 36 9500 1344274435 "combobox" "" 0 6 30 118 16 1001 1342177280 "static" "Please select a field to display in the tab folder." 0 DIALOG Network -2134376448 6 45 48 202 41 "" "" "Card File Setup" FONT 8 "Helv" 158 4 40 14 1 1342373889 "button" "OK" 0 158 20 40 14 2 1342373888 "button" "Cancel" 0 70 6 82 12 8000 1350631552 "edit" "" 0 5 8 40 10 1000 1342177280 "static" "User name:" 0 70 20 82 12 8002 1350631552 "edit" "" 0 5 22 62 10 1002 1342177280 "static" "Paradox.Net path:" 0 00062564