home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS018.DSK / DATAMAN.SMM < prev    next >
INI File  |  1992-09-29  |  104KB  |  7,853 lines

  1. [ver]
  2.     4
  3. [sty]
  4.     
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PostScript Printer
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Build and edit a database.
  19.     
  20.     
  21.     
  22.     Autorun
  23.     717791288
  24.     92
  25.     698116454
  26.     6693
  27.     32
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     0
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     130
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [ParaNum]
  54.     1
  55. [tag]
  56.     Body Text
  57.     2
  58.     [fnt]
  59.         Arial MT
  60.         200
  61.         0
  62.         16384
  63.     [algn]
  64.         1
  65.         1
  66.         0
  67.         0
  68.         0
  69.     [spc]
  70.         33
  71.         273
  72.         1
  73.         0
  74.         0
  75.         1
  76.         100
  77.     [brk]
  78.         4
  79.     [line]
  80.         8
  81.         0
  82.         1
  83.         0
  84.         1
  85.         1
  86.         1
  87.         10
  88.         10
  89.         1
  90.     [spec]
  91.         0
  92.         0
  93.         
  94.         0
  95.         1
  96.         1
  97.         0
  98.         0
  99.         0
  100.         0
  101.     [nfmt]
  102.         280
  103.         1
  104.         2
  105.         .
  106.         ,
  107.         $
  108.     Body Text
  109.     0
  110.     0
  111. [tag]
  112.     Function
  113.     3
  114.     [fnt]
  115.         Courier
  116.         200
  117.         0
  118.         32769
  119.     [algn]
  120.         1
  121.         1
  122.         0
  123.         0
  124.         0
  125.     [spc]
  126.         33
  127.         244
  128.         1
  129.         0
  130.         0
  131.         1
  132.         100
  133.     [brk]
  134.         68
  135.     [line]
  136.         8
  137.         0
  138.         1
  139.         0
  140.         1
  141.         1
  142.         1
  143.         10
  144.         10
  145.         1
  146.     [spec]
  147.         0
  148.         1
  149.         
  150.         0
  151.         1
  152.         1
  153.         0
  154.         0
  155.         0
  156.         0
  157.     [nfmt]
  158.         272
  159.         1
  160.         3
  161.         .
  162.         ,
  163.         $
  164.     Body Text
  165.     0
  166.     0
  167. [tag]
  168.     Footer
  169.     4
  170.     [fnt]
  171.         Times New Roman
  172.         240
  173.         0
  174.         49152
  175.     [algn]
  176.         1
  177.         1
  178.         0
  179.         0
  180.         0
  181.     [spc]
  182.         33
  183.         273
  184.         1
  185.         0
  186.         0
  187.         1
  188.         100
  189.     [brk]
  190.         4
  191.     [line]
  192.         8
  193.         0
  194.         1
  195.         0
  196.         1
  197.         1
  198.         1
  199.         10
  200.         10
  201.         1
  202.     [spec]
  203.         0
  204.         0
  205.         
  206.         0
  207.         1
  208.         1
  209.         0
  210.         0
  211.         0
  212.         0
  213.     [nfmt]
  214.         280
  215.         1
  216.         2
  217.         .
  218.         ,
  219.         $
  220.     Footer
  221.     0
  222.     0
  223. [tag]
  224.     2nd Function
  225.     5
  226.     [fnt]
  227.         Courier
  228.         200
  229.         0
  230.         32769
  231.     [algn]
  232.         1
  233.         1
  234.         0
  235.         0
  236.         0
  237.     [spc]
  238.         33
  239.         244
  240.         1
  241.         0
  242.         0
  243.         1
  244.         100
  245.     [brk]
  246.         4
  247.     [line]
  248.         8
  249.         0
  250.         1
  251.         0
  252.         1
  253.         1
  254.         1
  255.         10
  256.         10
  257.         1
  258.     [spec]
  259.         0
  260.         2
  261.         
  262.         0
  263.         1
  264.         1
  265.         0
  266.         0
  267.         0
  268.         0
  269.     [nfmt]
  270.         272
  271.         1
  272.         3
  273.         .
  274.         ,
  275.         $
  276.     2nd Function
  277.     0
  278.     0
  279. [tag]
  280.     Number List
  281.     6
  282.     [fnt]
  283.         TimesNewRomanPS
  284.         240
  285.         0
  286.         49152
  287.     [algn]
  288.         1
  289.         1
  290.         360
  291.         360
  292.         360
  293.     [spc]
  294.         33
  295.         273
  296.         1
  297.         0
  298.         0
  299.         1
  300.         100
  301.     [brk]
  302.         4
  303.     [line]
  304.         8
  305.         0
  306.         1
  307.         0
  308.         1
  309.         1
  310.         1
  311.         10
  312.         10
  313.         1
  314.     [spec]
  315.         0
  316.         0
  317.         <*:>.
  318.         360
  319.         1
  320.         1
  321.         0
  322.         0
  323.         0
  324.         0
  325.     [nfmt]
  326.         272
  327.         1
  328.         2
  329.         .
  330.         ,
  331.         $
  332.     Number List
  333.     0
  334.     0
  335. [tag]
  336.     Subhead
  337.     7
  338.     [fnt]
  339.         TimesNewRomanPS
  340.         240
  341.         0
  342.         49155
  343.     [algn]
  344.         1
  345.         1
  346.         0
  347.         0
  348.         0
  349.     [spc]
  350.         33
  351.         273
  352.         1
  353.         72
  354.         72
  355.         1
  356.         100
  357.     [brk]
  358.         4
  359.     [line]
  360.         8
  361.         0
  362.         1
  363.         0
  364.         1
  365.         1
  366.         1
  367.         10
  368.         10
  369.         1
  370.     [spec]
  371.         0
  372.         0
  373.         
  374.         0
  375.         1
  376.         1
  377.         0
  378.         0
  379.         0
  380.         0
  381.     [nfmt]
  382.         272
  383.         1
  384.         2
  385.         .
  386.         ,
  387.         $
  388.     Subhead
  389.     0
  390.     0
  391. [tag]
  392.     Title
  393.     8
  394.     [fnt]
  395.         Arial MT
  396.         360
  397.         0
  398.         16385
  399.     [algn]
  400.         4
  401.         1
  402.         0
  403.         0
  404.         0
  405.     [spc]
  406.         33
  407.         446
  408.         1
  409.         144
  410.         72
  411.         1
  412.         100
  413.     [brk]
  414.         16
  415.     [line]
  416.         8
  417.         0
  418.         1
  419.         0
  420.         1
  421.         1
  422.         1
  423.         10
  424.         10
  425.         1
  426.     [spec]
  427.         0
  428.         0
  429.         
  430.         0
  431.         1
  432.         1
  433.         0
  434.         0
  435.         0
  436.         0
  437.     [nfmt]
  438.         272
  439.         1
  440.         2
  441.         .
  442.         ,
  443.         $
  444.     Title
  445.     0
  446.     0
  447. [tag]
  448.     Body Single
  449.     9
  450.     [fnt]
  451.         Arial MT
  452.         240
  453.         0
  454.         16385
  455.     [algn]
  456.         1
  457.         1
  458.         0
  459.         0
  460.         0
  461.     [spc]
  462.         33
  463.         273
  464.         1
  465.         0
  466.         0
  467.         1
  468.         100
  469.     [brk]
  470.         4
  471.     [line]
  472.         8
  473.         0
  474.         1
  475.         0
  476.         1
  477.         1
  478.         1
  479.         10
  480.         10
  481.         1
  482.     [spec]
  483.         0
  484.         0
  485.         
  486.         0
  487.         1
  488.         1
  489.         0
  490.         0
  491.         0
  492.         0
  493.     [nfmt]
  494.         280
  495.         1
  496.         2
  497.         .
  498.         ,
  499.         $
  500.     Body Single
  501.     0
  502.     0
  503. [tag]
  504.     Bullet
  505.     11
  506.     [fnt]
  507.         TimesNewRomanPS
  508.         240
  509.         0
  510.         49152
  511.     [algn]
  512.         1
  513.         1
  514.         0
  515.         288
  516.         288
  517.     [spc]
  518.         33
  519.         273
  520.         1
  521.         0
  522.         0
  523.         1
  524.         100
  525.     [brk]
  526.         4
  527.     [line]
  528.         8
  529.         0
  530.         1
  531.         0
  532.         1
  533.         1
  534.         1
  535.         10
  536.         10
  537.         1
  538.     [spec]
  539.         0
  540.         0
  541.         <*0>
  542.         360
  543.         1
  544.         1
  545.         0
  546.         0
  547.         0
  548.         0
  549.     [nfmt]
  550.         272
  551.         1
  552.         2
  553.         .
  554.         ,
  555.         $
  556.     Bullet
  557.     0
  558.     0
  559. [tag]
  560.     Bullet 1
  561.     12
  562.     [fnt]
  563.         TimesNewRomanPS
  564.         240
  565.         0
  566.         49152
  567.     [algn]
  568.         1
  569.         1
  570.         288
  571.         288
  572.         288
  573.     [spc]
  574.         33
  575.         273
  576.         1
  577.         0
  578.         0
  579.         1
  580.         100
  581.     [brk]
  582.         4
  583.     [line]
  584.         8
  585.         0
  586.         1
  587.         0
  588.         1
  589.         1
  590.         1
  591.         10
  592.         10
  593.         1
  594.     [spec]
  595.         0
  596.         0
  597.         <*5>
  598.         0
  599.         1
  600.         1
  601.         0
  602.         0
  603.         0
  604.         0
  605.     [nfmt]
  606.         280
  607.         1
  608.         2
  609.         .
  610.         ,
  611.         $
  612.     Bullet 1
  613.     0
  614.     0
  615. [tag]
  616.     Header
  617.     0
  618.     [fnt]
  619.         Times New Roman
  620.         240
  621.         0
  622.         49152
  623.     [algn]
  624.         1
  625.         1
  626.         0
  627.         0
  628.         0
  629.     [spc]
  630.         33
  631.         273
  632.         1
  633.         0
  634.         0
  635.         1
  636.         100
  637.     [brk]
  638.         4
  639.     [line]
  640.         8
  641.         0
  642.         1
  643.         0
  644.         1
  645.         1
  646.         1
  647.         10
  648.         10
  649.         1
  650.     [spec]
  651.         0
  652.         0
  653.         
  654.         0
  655.         1
  656.         1
  657.         0
  658.         0
  659.         0
  660.         0
  661.     [nfmt]
  662.         280
  663.         1
  664.         2
  665.         .
  666.         ,
  667.         $
  668.     Header
  669.     0
  670.     0
  671. [lay]
  672.     Standard
  673.     513
  674.     [rght]
  675.         15840
  676.         12240
  677.         1
  678.         1440
  679.         1440
  680.         1
  681.         1440
  682.         1440
  683.         0
  684.         1
  685.         0
  686.         1
  687.         0
  688.         2
  689.         1
  690.         1440
  691.         10800
  692.         12
  693.         1
  694.         720
  695.         1
  696.         1440
  697.         1
  698.         2160
  699.         1
  700.         2880
  701.         1
  702.         3600
  703.         1
  704.         4320
  705.         1
  706.         5040
  707.         1
  708.         5760
  709.         1
  710.         6480
  711.         1
  712.         7200
  713.         1
  714.         7920
  715.         1
  716.         8640
  717.     [hrght]
  718.     [lyfrm]
  719.         1
  720.         11200
  721.         0
  722.         0
  723.         12240
  724.         1440
  725.         0
  726.         1
  727.         3
  728.         1 0 0 0 0 0 0
  729.         0
  730.         0
  731.         1
  732.     [frmlay]
  733.         1440
  734.         12240
  735.         1
  736.         1440
  737.         72
  738.         1
  739.         792
  740.         1440
  741.         0
  742.         1
  743.         0
  744.         1
  745.         1
  746.         0
  747.         1
  748.         1440
  749.         10800
  750.         1
  751.         3
  752.         9360
  753.     [txt]
  754. <+B><+!>CardFile<-!>   <+!><:P10,0,> of   <:da<*7><* >>
  755.  
  756. <+B><+!><:Db><-!><+!>       <:b<* >><-!>
  757.  
  758. <+B>             
  759.  
  760. >
  761.     [frght]
  762.     [lyfrm]
  763.         1
  764.         13248
  765.         0
  766.         14400
  767.         12240
  768.         15840
  769.         0
  770.         1
  771.         3
  772.         1 0 0 0 0 0 0
  773.         0
  774.         0
  775.         2
  776.     [frmlay]
  777.         15840
  778.         12240
  779.         1
  780.         1440
  781.         792
  782.         1
  783.         14472
  784.         1440
  785.         0
  786.         1
  787.         0
  788.         1
  789.         1
  790.         0
  791.         1
  792.         1440
  793.         10800
  794.         2
  795.         2
  796.         4680
  797.         3
  798.         9360
  799.     [txt]
  800.  
  801.  
  802.  
  803. Endif
  804.  
  805.  
  806.  
  807. Endif
  808.  
  809.  
  810. >
  811. [elay]
  812. [l1]
  813.     0
  814. [edoc]
  815. @Function@' PDX Defines
  816.  
  817. ' view in outline mode.
  818.  
  819. define Dllname  "pxengwin.dll"
  820.  
  821. define PXSingleClient 0
  822.  
  823. 'define PXSHARE 2
  824.  
  825. define     PXWinInit()
  826.  
  827.      DllCall("PXEngWin.dll,PXWinInit,HCH", %1, %2)
  828.  
  829. define    PXexit()
  830.  
  831.     DllCall("PXEngWin.dll,PXExit,H",)
  832.  
  833. define     PXTblExist() 
  834.  
  835.     DllCall("PXEngWin.dll,PXTblExist,HCL", %1, %2)
  836.  
  837. define     PXTblCreate()
  838.  
  839.     DllCall("PXEngWin.dll,PXTblCreate,HCHMM", %1, %2, %3, %4)
  840.  
  841. define     PXTblOpen()
  842.  
  843.     DllCall("PXEngWin.dll,PXTblOpen,HCLHH",%1, %2, %3, %4)
  844.  
  845. define     PXRecBufOpen()
  846.  
  847.     DllCall("PXEngWin.dll,PXRecBufOpen,HHL", %1, %2)
  848.  
  849. define    PXRecBufClose()
  850.  
  851.     DllCall("PXEngWin.dll,PXRecBufClose,HH", %1)
  852.  
  853. define    PXTblClose()
  854.  
  855.     DllCall("PXEngWin.dll,PXTblClose,HH", %1)
  856.  
  857. define    PXRecAppend()
  858.  
  859.     DllCall("PXEngWin.dll,PXRecAppend,HHH", %1, %2)
  860.  
  861. define    PXPutAlpha()
  862.  
  863.     DllCall("PXEngWin.dll,PXPutAlpha,HHHC", %1, %2, %3)
  864.  
  865. define    PXPutDate()
  866.  
  867.     Dllcall("PXEngWin.dll,PXPutDate,HHHJ",%1,%2,%3)
  868.  
  869. define    PXPutLong()
  870.  
  871.     DllCall("PxEngWin.dll,PXPutLong,HHHJ",%1,%2,%3)
  872.  
  873. define    PXGetAlpha()
  874.  
  875.     DllCall("PXEngWin.dll,PXGetAlpha,HHHHC", %1, %2, %3, %4)
  876.  
  877. define    PXGetDate()
  878.  
  879.     DllCall("PXEngWin.dll,PXGetDate,HHHO",%1,%2,%3)
  880.  
  881. define    PXGetLong()
  882.  
  883.     DllCall("PXEngWin.dll,PXGetLong,HHHO",%1,%2,%3)
  884.  
  885. Define    PXDateDecode()
  886.  
  887.     DllCall("PXEngWin.dll,PXDateDecode,HJLLL",%1,%2,%3,%4)
  888.  
  889. define    PXRecFirst()
  890.  
  891.     DllCall("PXEngWin.dll,PXRecFirst,HH", %1)
  892.  
  893. define    PXRecLast()
  894.  
  895.     DllCall("PxEngWin.dll,PXRecLast,HH",%1)
  896.  
  897. define    PXRecNext()
  898.  
  899.     DllCall("PXEngWin.dll,PXRecNext,HH", %1)
  900.  
  901. define    PXRecPrev()
  902.  
  903.     DllCall("PXEngWin.dll,PXRecPrev,HH", %1)
  904.  
  905. define    PXRecGet()
  906.  
  907.     DllCall("PXEngWin.dll,PXRecGet,HHH", %1, %2)
  908.  
  909. define    PXRecUpdate()
  910.  
  911.     DllCall("PXEngWin.dll,PXRecUpdate,HHH", %1, %2)
  912.  
  913. define    PXRecNFlds()
  914.  
  915.     DllCall("PXEngWin.dll,PXRecNFlds,HHL", %1, %2)
  916.  
  917.  
  918. define    PXKeyNFlds()
  919.  
  920.     DllCall("PXEngWin.dll,PXKeyNFlds,HHL",%1,%2)
  921.  
  922. define    PXRecBufEmpty()
  923.  
  924.     DllCall("PXEngWin.dll,PXRecBufEmpty,HH",%1)
  925.  
  926.  
  927. define    PXRecInsert()
  928.  
  929.     DllCall("PxEngWin.dll,PXRecInsert,HHH",%1,%2)
  930.  
  931. define    PXFldName()
  932.  
  933.     DllCall("PXEngWin.dll,PXFldName,HHHHC", %1, %2, %3, %4)
  934.  
  935. define    PXFldType()
  936.  
  937.     DllCall("PXEngWin.dll,PXFldType,HHHHC", %1, %2, %3, %4)
  938.  
  939.  
  940. ' Peyton's follow....
  941.  
  942. define    PXRecNum()
  943.  
  944.     DllCall("PXEngWin.dll,PXRecNum,HHO", %1, %2)
  945.  
  946. define    PXRecDelete()
  947.  
  948.     DLLCall("PXEngWin.dll,PXRecDelete,HH", %1)
  949.  
  950. define     PXSrchFld()
  951.  
  952.     DllCall("PXEngWin.dll,PXSrchFld,HHHHH",%1,%2,%3,%4)
  953.  
  954. define    PXFldHandle()
  955.  
  956.     DllCall("PXEngWin.dll,PXFldHandle,HHCL",%1,%2,%3)
  957.  
  958. define    PXRecGoto()
  959.  
  960.     DllCall("PXEngWin.dll,PXRecGoto,HHJ",%1, %2)
  961.  
  962. define    PXTblNRecs()
  963.  
  964.     DllCall("PXEngWin.dll,PXTblNRecs,HHO",%1,%2)
  965.  
  966. define    PXKeyAdd()
  967.  
  968.     DllCall("PXEngWin.dll,PXKeyAdd,HCHNH",%1,%2,%3,%4)
  969.  
  970. define    PXNetUserNAme(BufferSize,Char)
  971.  
  972.     DllCall("PXEngWin.dll,PXNetUserName,HHC"%1,%2)
  973.  
  974. define    PXErrMsg(Errcode)
  975.  
  976.     DllCall("PXEngWin.dll,PXErrMsg,CH",%1)
  977.  
  978. define    PXNetTblRefresh(TblHan)
  979.  
  980.     DllCall("PXEngWin.dll,PXNetTblRefresh,HH",%1)
  981.  
  982. define    PXTblName(Tblhand,&Tblname)
  983.  
  984.     DllCall("PXEngWin.dll,PXTblName,HHHC",%1,%2,%3)
  985.  
  986. define    PXNetErrUser(bufsize,username)
  987.  
  988.     Dllcall("PXEngWin.dll,PXNetErrUser,HHC",%1,%2)
  989.  
  990. define    PXNetRecLock(THand,&LckHand)
  991.  
  992.     DllCall("PXEngWin.dll,PXNetRecLock,HHO",%1,%2)
  993.  
  994. define    PXNetRecUnlock(Than,LckHand)
  995.  
  996.     DllCall("PXEngWin.dll,PXNetRecUnlock,HHH",%1,%2)
  997.  
  998. define    PXNetRecLocked(thand,&Locked)
  999.  
  1000.     DllCall("PXEngWin.dll,PXNetRecLocked,HHO",%1,%2)
  1001.  
  1002.  
  1003.  
  1004.  
  1005. define NOTONNET        1        ' not on a net                         
  1006.  
  1007. define NOVELLNET       2        ' Novell                               
  1008.  
  1009. define THREECOMNET     3        ' 3Com                                 
  1010.  
  1011. define THREEOPENNET    4     '  3Com 3+Open                          
  1012.  
  1013. define OTHERNET        5        ' other: unknown DOS 3.1 compatible    
  1014.  
  1015. define STARLANNET      7        '  Starlan                             
  1016.  
  1017. define BANYANNET       8        ' Banyan                               
  1018.  
  1019. define IBMPCNET        9        ' IBM PC                               
  1020.  
  1021.  
  1022.  
  1023.  
  1024.  
  1025. @Function@' Defines
  1026.  
  1027.  
  1028. Define     GetFocus()        DllCall("User,GetFocus,H")
  1029.  
  1030. Define    SetFocus()        DllCall("User,SetFocus,HH",%1)
  1031.  
  1032. Define    GetDlgCtrlId()        DllCall("User,GetDlgCtrlId,HH",%1)
  1033.  
  1034. Define    EnableWindow()    DllCall("User,EnableWindow,AHA",%1,%2)
  1035.  
  1036. Define    ShowWindow()        DllCall("User,ShowWindow,AHH",%1,%2)
  1037.  
  1038. define     LBGetText(hwnd,Id,Ptr)    dllcall("user,sendmessage,HHHHC", %1, LB_GETTEXT, %2, %3)
  1039.  
  1040. Define    SetWindowText(hwnd,text)    DllCall("User,SetWindowText,HHC",%1,%2)
  1041.  
  1042.  
  1043. @Outline2@Define     LB_GETCURSEL        1033
  1044.  
  1045. @Outline2@define     LB_DELETESTRING    1027
  1046.  
  1047. @Outline2@define     LB_GETCOUNT        1036
  1048.  
  1049. @Outline2@define     LB_GETTEXT        1034
  1050.  
  1051. @Outline2@define     LB_SETCURSEL        1031
  1052.  
  1053. define     LB_INSERTSTRING    1026    
  1054.  
  1055. @Outline2@Define    LB_SetTopIndex    1048
  1056.  
  1057. Define    EM_LimitText        1045
  1058.  
  1059.  
  1060. Define    DM_SETDEFID        1025
  1061.  
  1062. Define    SetDefID()        AppSendMessage(hdlg,DM_SETDEFID,%1,0)
  1063.  
  1064. Define    RB_Text    20
  1065.  
  1066. Define    EB_Width    8001
  1067.  
  1068. Define    BN_Add    51
  1069.  
  1070. Define    BN_Remove    52
  1071.  
  1072. Define    Bn_Prv    29
  1073.  
  1074. Define    Bn_Nxt    28
  1075.  
  1076. Define    LB_ID        9000
  1077.  
  1078. Define    BN_Clr    33
  1079.  
  1080. Define    EB_Handle()    GetDlgItem(Hdlg,8000)
  1081.  
  1082. Define    GetProfilePdx()    GetProfileString$("Paradox Engine",%1,"Win.ini")
  1083.  
  1084. Define    WriteProfilePdx()    WriteProfileString("Paradox Engine",%1,%2,"Win.ini")
  1085.  
  1086. define    CloseDlg(id)    dllcall("user,PostMessage,HHHHHH", HDLG, 0X111, %1, 0, 0).
  1087.  
  1088.  
  1089.  
  1090.  
  1091. @Function@'Declares
  1092.  
  1093. Declare     AddField(Hdlg)
  1094.  
  1095. Declare    BuildIndex(FileName,FldName)
  1096.  
  1097. Declare    BuildTable(TableName)
  1098.  
  1099. Declare    CloseTable()
  1100.  
  1101. Declare     CollectHeader(Fieldname,fldSep,RecSep)
  1102.  
  1103. Declare    CreateOptionsBox()
  1104.  
  1105. Declare     DefineFields()
  1106.  
  1107. Declare    FastForward(hdlg)
  1108.  
  1109. Declare    FastReverse(Hdlg,Id, Dummy)
  1110.  
  1111. Declare     Finditem(p1,p2)
  1112.  
  1113. Declare    FreeGlobals()
  1114.  
  1115. Declare    GetFieldData(Hdlg)
  1116.  
  1117. Declare     GotoMain(Hdlg)
  1118.  
  1119. Declare     Init(Libid)
  1120.  
  1121. Declare    Lockem(Hdlg)
  1122.  
  1123. Declare    MainCall(Hdlg,id,dummy)
  1124.  
  1125. Declare    MoveFirst()
  1126.  
  1127. Declare    OpenBox(initpath,initmask)
  1128.  
  1129. Declare    OpenTable(FileName,Thandle,RecHandle)
  1130.  
  1131. Declare    PackGlobals(FieldNameArray, FieldTypeArray,RecHandle,Thandle)
  1132.  
  1133. Declare    ReadFields(FieldNames, FieldType,Thandle)
  1134.  
  1135. Declare    ReadFive(Hdlg)
  1136.  
  1137. Declare    ShutDown()
  1138.  
  1139. Declare    SortEm()
  1140.  
  1141. Declare    Stopit()
  1142.  
  1143. Declare    StuffInfo(Hdlg)
  1144.  
  1145. Declare    StuffRecBuf()
  1146.  
  1147. Declare    UpdateDisplay(Hdlg,id,Dummy)
  1148.  
  1149. Declare     WriteFields(p1)
  1150.  
  1151. Declare    WriteOut()
  1152.  
  1153. Declare    GetKeyFields(p1,p2)
  1154.  
  1155. Declare    GetFieldInfo(Rhand, FldNum, FldData)
  1156.  
  1157. Declare    ShiftNames(ArrrayData, Hdlg)
  1158.  
  1159. Declare    CopyToClip()
  1160.  
  1161. Declare    OnMenu(Menu, Item)
  1162.  
  1163. Declare    MainEntrybox(FileName)
  1164.  
  1165.  
  1166. @Function@Function Main()
  1167.  
  1168. IgnoreKeyBoard(2)
  1169.  
  1170. DefStr FldSep,RecSep,Stat,Libid;
  1171.  
  1172. Dim FieldNames(1)
  1173.  
  1174. 'Stat = Init(&Libid)    'DEZ
  1175.  
  1176. 'If (Stat = 0 or Stat = 82)
  1177.  
  1178. 'Else
  1179.  
  1180. '    Error=PXErrMsg(Stat)
  1181.  
  1182. '    'Message(error)
  1183.  
  1184. '    Exit Function
  1185.  
  1186. 'Endif
  1187.  
  1188. Barid=1
  1189.  
  1190. If 1=OnMenu("&Card File","&Open...")
  1191.  
  1192.     LastOpen = GetProfileString$("Card File", "LastOpen", "AmiPro2.ini")
  1193.  
  1194.     MainEntryBox(LastOpen)
  1195.  
  1196.     Exit Function
  1197.  
  1198. Endif
  1199.  
  1200.  
  1201. MenuName="&Card File"
  1202.  
  1203. Deletemenu(Barid, MenuName)
  1204.  
  1205. AddMenu(Barid, MenuName)
  1206.  
  1207. Mac=GetRunningMacroFile$()
  1208.  
  1209. <:Zaddmenutitem>AddMenuItem<:Z~addmenutitem>(BarId,MenuName,"&New Card File...","{mac}!Build()")
  1210.  
  1211. AddMenuItem(BarId,MenuName,"&Open...","{mac}!MainEntryBox")
  1212.  
  1213. AddmenuItem(BarId,MenuName,"-","")
  1214.  
  1215. AddMenuItem(BarId,MenuName,"E&xit Card File","{Mac}!Shutdown()")
  1216.  
  1217. AddMenuItem(BarId,MenuName,"&Setup...","{Mac}!Configure()")
  1218.  
  1219. End Function
  1220.  
  1221.  
  1222. @2nd Function@Function Init(LibId)
  1223.  
  1224. *Libid = DllLoadLib(STrCat$(GetAMiDirectory$(),Dllname), "PXWinInit", "HCH");
  1225.  
  1226. allocglobalvar("LibId", 1)    'DEZ
  1227.  
  1228. setglobalvar("LibId", LibID)
  1229.  
  1230. 'id=PXWinInit("PDXMain",PXShare)
  1231.  
  1232. id=PXWinInit("PDXMain",PXSingleClient)
  1233.  
  1234. Return id;
  1235.  
  1236. end function
  1237.  
  1238. @2nd Function@FUNCTION OnMenu(menu, item)
  1239.  
  1240. <: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$()
  1241.  
  1242. <: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 
  1243.  
  1244. <: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
  1245.  
  1246. <: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
  1247.  
  1248. <: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
  1249.  
  1250. <: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
  1251.  
  1252. <: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
  1253.  
  1254. <: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
  1255.  
  1256. <: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
  1257.  
  1258. <: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,>
  1259.  
  1260. @Function@<:R>Function <:Zmainentrybox>MainEntryBox<:Z~mainentrybox>(FileName)
  1261.  
  1262. DefStr Stat,Thandle,RecHandle, nKeyFlds, Libid;
  1263.  
  1264. Dim FieldNames(1)
  1265.  
  1266. Dim FieldType(1)
  1267.  
  1268. allocglobalvar("LibId", 1)
  1269.  
  1270. if getglobalvar$("libid") = ""    'dez
  1271.  
  1272.     Stat = Init(&Libid)
  1273.  
  1274.     If (Stat = 0 or Stat = 82)
  1275.  
  1276.     Else
  1277.  
  1278.         Error=PXErrMsg(Stat)
  1279.  
  1280.         'Message(error)
  1281.  
  1282.     Exit Function
  1283.  
  1284.     Endif
  1285.  
  1286. endif
  1287.  
  1288. If FileName = ""
  1289.  
  1290.     FileName = ""
  1291.  
  1292.     initpath=GetDocPath$()    ' Assign the file path here    
  1293.  
  1294.     initmask="*.db"    ' Assign the file mask here
  1295.  
  1296.         If "" != Assign(&filename, OpenBox(initpath,initmask))
  1297.  
  1298.             Else 
  1299.  
  1300.                 Exit Function
  1301.  
  1302.         Endif
  1303.  
  1304. 'singlestep(on)
  1305.  
  1306. Endif
  1307.  
  1308. HourGlass(on)
  1309.  
  1310. If 0=Assign(&Stat,OpenTable(FileName,&Thandle,&RecHandle))
  1311.  
  1312.     WriteProfileString("Card File", "LastOpen", FileName, "AmiPro2.ini")
  1313.  
  1314. Else
  1315.  
  1316.     Error=PXErrMsg(Stat)
  1317.  
  1318.     'Message(error)
  1319.  
  1320.     Return -1
  1321.  
  1322. Endif
  1323.  
  1324.  
  1325. If 0=Assign(&Stat,ReadFields(&FieldNames, &FieldType,Thandle))
  1326.  
  1327. Else
  1328.  
  1329.     Error=PXErrMsg(Stat)
  1330.  
  1331.     'Message(error)
  1332.  
  1333.     Return -1
  1334.  
  1335. Endif
  1336.  
  1337.  
  1338. If 0 = Assign(&Stat,GetKeyFields(Thandle,*nKeyFlds))
  1339.  
  1340. Else
  1341.  
  1342.     Error=PXErrMsg(Stat)
  1343.  
  1344.     'Message(error)
  1345.  
  1346. Endif
  1347.  
  1348.  
  1349.  
  1350. PackGlobals(&FieldNames, &FieldType, RecHandle,Thandle)
  1351.  
  1352. Mac=GetRunningMacroFile$()
  1353.  
  1354. ProDir=GetAmiDirectory$()
  1355.  
  1356. Filledit(1000,"{ProDir}GreyBlue.bmt")
  1357.  
  1358. Filledit(1011,"")
  1359.  
  1360. Filledit(34,"{ProDir}Lock.bmp")
  1361.  
  1362. Filledit(23,"{ProDir}Down.bmt")
  1363.  
  1364. Filledit(24,"{ProDir}Up.bmt")
  1365.  
  1366.  
  1367.  
  1368. Filledit(28,"{ProDir}Next3.Bmt")
  1369.  
  1370. Filledit(29,"{ProDir}Prev3.bmt")
  1371.  
  1372. Filledit(35,"{ProDir}FFWRD.Bmt")
  1373.  
  1374. Filledit(36,"{ProDir}Frev.bmt")
  1375.  
  1376. Filledit(55,"{ProDir}Stop.bmt")
  1377.  
  1378. Filledit(56,"{ProDir}Stop.bmt")
  1379.  
  1380.  
  1381. Filledit(82,"")
  1382.  
  1383. Filledit(83,"")
  1384.  
  1385. Filledit(84,"")
  1386.  
  1387. Filledit(85,"")
  1388.  
  1389. SetDlgCallBack(0,"{Mac}!PreBuild")
  1390.  
  1391. SetDlgCallBack(21,"{Mac}!MainCall")
  1392.  
  1393. SetDlgCallBack(23,"{Mac}!MainCall")
  1394.  
  1395. SetDlgCallBack(24,"{Mac}!MainCall")
  1396.  
  1397. SetDlgCallBack(27,"{Mac}!MainCall")
  1398.  
  1399. SetDlgCallBack(28,"{Mac}!MainCall")
  1400.  
  1401. SetDlgCallBack(29,"{Mac}!MainCall")
  1402.  
  1403. SetDlgCallBack(30,"{Mac}!MainCall")
  1404.  
  1405. SetDlgCallBack(31,"{Mac}!MainCall")
  1406.  
  1407. SetDlgCallBack(32,"{Mac}!MainCall")
  1408.  
  1409. SetDlgCallBack(33,"{Mac}!MainCall")
  1410.  
  1411. SetDlgCallBack(34,"{Mac}!MainCall")
  1412.  
  1413. SetDlgCallBack(35,"{Mac}!MainCall")
  1414.  
  1415. SetDlgCallBack(36,"{Mac}!MainCall")
  1416.  
  1417. SetDlgCallBack(39,"{Mac}!MainCall")
  1418.  
  1419.  
  1420. SetDlgCallBack(55,"{Mac}!MainCall")
  1421.  
  1422. SetDlgCallBack(56,"{Mac}!MainCall")
  1423.  
  1424. SetDlgCallBack(41,"{Mac}!HitEnter")
  1425.  
  1426. SetDlgCallBack(82,"{Mac}!HitFolder")
  1427.  
  1428. SetDlgCallBack(83,"{Mac}!HitFolder")
  1429.  
  1430. SetDlgCallBack(84,"{Mac}!HitFolder")
  1431.  
  1432. SetDlgCallBack(85,"{Mac}!HitFolder")
  1433.  
  1434. IgnoreKeyBoard(2)
  1435.  
  1436. HourGlass(off)
  1437.  
  1438. Box=DialogBox(".","Mainbox")
  1439.  
  1440. libid=GetGlobalVar$("LibId")
  1441.  
  1442. 'message(libid)
  1443.  
  1444. CloseTable()
  1445.  
  1446. If 0 != Assign(&Stat, PxExit())
  1447.  
  1448.             Error=PXErrMsg(Stat)
  1449.  
  1450.             'Message(error)
  1451.  
  1452. Endif
  1453.  
  1454. result=DLLFreeLib(libid)    'DEZ
  1455.  
  1456. FreeGlobals()
  1457.  
  1458. end Function
  1459.  
  1460.  
  1461. @2nd Function@Function PreBuild(Hdlg,id,dummy)
  1462.  
  1463. IgnoreKeyBoard(2)
  1464.  
  1465. DefStr Stat,UserName, TblName;
  1466.  
  1467. TotalFields=GetGlobalArray$("TotalFields",1)
  1468.  
  1469. Thand=GetGlobalArray$("Thandle",1)
  1470.  
  1471. RHand=GetGlobalArray$("RecHandle",1)
  1472.  
  1473. If 0 = PXTblName(Thand, 80,&TblName)
  1474.  
  1475. Else
  1476.  
  1477. Endif
  1478.  
  1479.  
  1480. ShowWindow(GetDlgItem(Hdlg,34),0) ' hide the field management
  1481.  
  1482. ShowWindow(GetDlgItem(Hdlg,55),0)  ' hide the two stop buttons under ffwd + revers
  1483.  
  1484. ShowWindow(GetDlgItem(Hdlg,56),0)  
  1485.  
  1486. ShowWindow(GetDlgItem(Hdlg,93),0) ' hide the cover for down
  1487.  
  1488.  
  1489. 'EnableWindow(GetDlgItem(Hdlg,27),0)    ' Index buttongrey these guys
  1490.  
  1491. If TotalFields<<10
  1492.  
  1493.     ShowWindow(GetDlgItem(Hdlg,23),0)
  1494.  
  1495.     ShowWindow(GetDlgItem(Hdlg,24),0)
  1496.  
  1497. Endif
  1498.  
  1499. Title="Edit Card File - {TblName}"
  1500.  
  1501. SetWindowText(Hdlg,"{Title}")
  1502.  
  1503.  
  1504. If 0=Assign(&Stat,PXNetUserName(80,&UserName))
  1505.  
  1506. Else
  1507.  
  1508. '    Message("UserName failed with {Stat}")
  1509.  
  1510. Endif
  1511.  
  1512. 'Message("Username = {username}")
  1513.  
  1514.  
  1515.  
  1516. SetDefId(41)
  1517.  
  1518. If 0 = Assign(&Stat, PXRecFirst(Thand))
  1519.  
  1520.     PXRecGet(Thand,Rhand)
  1521.  
  1522.     GetFieldData(Hdlg)
  1523.  
  1524.     UpdateDisplay(Hdlg,0,0)
  1525.  
  1526.     ReadFive(Hdlg)
  1527.  
  1528. Else
  1529.  
  1530.     Error=PXErrMsg(Stat)
  1531.  
  1532.     UpdateDisplay(Hdlg,0,0)
  1533.  
  1534. Endif
  1535.  
  1536. End Function
  1537.  
  1538.  
  1539.  
  1540. @2nd Function@Function <:ZMainCall>MainCall<:Z~MainCall>(Hdlg,id,dummy)
  1541.  
  1542. IgnoreKeyBoard(2)
  1543.  
  1544. DefStr Stat, UserName, LckHand;
  1545.  
  1546. LastField=GetGlobalArray$("LastField",1)
  1547.  
  1548. TotalFields=GetGlobalArray$("TotalFields",1)
  1549.  
  1550. Thand=GetGlobalArray$("Thandle",1)
  1551.  
  1552. RHand=GetGlobalArray$("RecHandle",1)
  1553.  
  1554. Switch id
  1555.  
  1556.  
  1557.     Case 21 ' Update the current record
  1558.  
  1559.             StuffInfo(Hdlg)
  1560.  
  1561.             StuffRecBuf()
  1562.  
  1563.             If 0!=Assign(&Stat,PXRecUpdate(Thand,Rhand))
  1564.  
  1565.                 Error=PXErrMsg(Stat)
  1566.  
  1567.                 'Message(error)
  1568.  
  1569.             Endif
  1570.  
  1571.             PXRecGet(Thand,RHand)
  1572.  
  1573.             GetFieldData(Hdlg)
  1574.  
  1575.             UpdateDisplay(hdlg,id,dummy)
  1576.  
  1577.  
  1578.     Case 23' scroll fields forward
  1579.  
  1580.         StuffInfo(Hdlg)
  1581.  
  1582.         LastField=LastField+10
  1583.  
  1584.         If LastField<;>=TotalFields
  1585.  
  1586.             LastField=LastField - 10
  1587.  
  1588.         Endif
  1589.  
  1590.         SetGlobalArray("RefreshMain",1,1) ' set refresh flag on 
  1591.  
  1592.         SetGlobalArray("LastField",1,LastField)
  1593.  
  1594.         UpdateDisplay(hdlg,id,dummy)
  1595.  
  1596.         
  1597.  
  1598.     Case 24' scroll fields backward
  1599.  
  1600.         StuffInfo(Hdlg)
  1601.  
  1602.         LastField=LastField - 10
  1603.  
  1604.         If LastField <<0
  1605.  
  1606.             LastField=0
  1607.  
  1608.         Endif
  1609.  
  1610.         SetGlobalArray("RefreshMain",1,1) ' set refresh flag on 
  1611.  
  1612.         SetGlobalArray("LastField",1,LastField)
  1613.  
  1614.         UpdateDisplay(Hdlg,id,dummy)
  1615.  
  1616.  
  1617.     Case 27 ' Sort the records in this database
  1618.  
  1619.         EnableWindow(Hdlg,0)
  1620.  
  1621.         If SortEm()
  1622.  
  1623.             GetFieldData(Hdlg)
  1624.  
  1625.             UpdateDisplay(Hdlg,id,dummy)
  1626.  
  1627.         Endif
  1628.  
  1629.         EnableWindow(hdlg,1)
  1630.  
  1631.         SetFocus(Hdlg)
  1632.  
  1633.         ReadFive(Hdlg)
  1634.  
  1635.  
  1636.     Case 28 ' Move Next Record
  1637.  
  1638.         If 0=Assign(&Stat,PXRecNext(Thand))
  1639.  
  1640.             ReadFive(Hdlg)
  1641.  
  1642.             PXRecGet(Thand,RHand)
  1643.  
  1644.             GetFieldData(Hdlg)
  1645.  
  1646.             UpdateDisplay(Hdlg,id,dummy)
  1647.  
  1648.         Else
  1649.  
  1650.             Error=PXErrMsg(Stat)
  1651.  
  1652.             'Message(error)
  1653.  
  1654.         Endif
  1655.  
  1656.  
  1657.  
  1658.     Case 29 ' Move Previous Record
  1659.  
  1660.         If 0=Assign(&Stat,PXRecPrev(Thand))
  1661.  
  1662.             ReadFive(Hdlg)
  1663.  
  1664.             PXRecGet(Thand,RHand)
  1665.  
  1666.             GetFieldData(Hdlg)
  1667.  
  1668.             UpdateDisplay(Hdlg,id,dummy)
  1669.  
  1670.         Else
  1671.  
  1672.             Error=PXErrMsg(Stat)
  1673.  
  1674.             'Message(error)
  1675.  
  1676.         Endif
  1677.  
  1678.  
  1679.  
  1680.     Case 30 ' Goto Location
  1681.  
  1682.         EnableWindow(Hdlg,0)
  1683.  
  1684.         Stat = GotoMain(Hdlg)
  1685.  
  1686.         EnableWindow(hdlg,1)
  1687.  
  1688.         PXRecGet(Thand,RHand)
  1689.  
  1690.         GetFieldData(Hdlg)
  1691.  
  1692.         UpdateDisplay(Hdlg,id,dummy)
  1693.  
  1694.         SetFocus(Hdlg)
  1695.  
  1696.         ReadFive(Hdlg)
  1697.  
  1698.  
  1699.  
  1700.     Case 31 ' Add button pressed
  1701.  
  1702.         StuffInfo(Hdlg)
  1703.  
  1704.         StuffRecBuf()
  1705.  
  1706.         If 0!=Assign(&Stat,PXRecInsert(Thand,Rhand))
  1707.  
  1708.             Error=PXErrMsg(Stat)
  1709.  
  1710.             'Message(error)
  1711.  
  1712.         Endif
  1713.  
  1714.         LastField=0
  1715.  
  1716.         SetGlobalArray("LastField",1,LastField)
  1717.  
  1718.         SetGlobalArray("RefreshMain",1,1)
  1719.  
  1720.         SetFocus(Hdlg)
  1721.  
  1722.         UpdateDisplay(Hdlg,id,dummy)
  1723.  
  1724.         ReadFive(Hdlg)
  1725.  
  1726.  
  1727.  
  1728.     Case 32 ' Delete this record
  1729.  
  1730.         GetFieldData(Hdlg)
  1731.  
  1732.          If  Decide("Really Delete This Card?")
  1733.  
  1734.             IF (0=Assign(&Stat,PXRecDelete(Thand)))
  1735.  
  1736.                 PXRecGet(Thand,RHand)
  1737.  
  1738.                 GetFieldData(Hdlg)
  1739.  
  1740.                 UpdateDisplay(Hdlg,id,dummy)
  1741.  
  1742.                 ReadFive(Hdlg)
  1743.  
  1744.             Else
  1745.  
  1746.                 Error=PXErrMsg(Stat)
  1747.  
  1748.                 'Message(error)
  1749.  
  1750.             Endif
  1751.  
  1752.         Endif
  1753.  
  1754.         Break;
  1755.  
  1756.  
  1757.         
  1758.  
  1759.  
  1760.     Case 33 '  New button pressed
  1761.  
  1762.         For t=1 to TotalFields
  1763.  
  1764.             SetGlobalArray("EditData",t,"")
  1765.  
  1766.         Next
  1767.  
  1768.         LastField=0
  1769.  
  1770.         SetGlobalArray("LastField",1,LastField)
  1771.  
  1772.         UpdateDisplay(Hdlg,id,dummy)
  1773.  
  1774.  
  1775.         
  1776.  
  1777.     Case 34 ' Clear Button Hit
  1778.  
  1779.  
  1780.     Case 35 ' Fast Forward hit
  1781.  
  1782.         SetGlobalVar("Speed",1)
  1783.  
  1784.         ShowWindow(GetDlgItem(Hdlg,35),0) ' hide the fast frwd button
  1785.  
  1786.         ShowWindow(GetDlgItem(Hdlg,55),1) ' Show the stop button
  1787.  
  1788.         FastForward(Hdlg)
  1789.  
  1790.         ShowWindow(GetDlgItem(Hdlg,55),0) ' hide the stop 
  1791.  
  1792.         ShowWindow(GetDlgItem(Hdlg,35),1) ' show the fast forward
  1793.  
  1794.         ReadFive(Hdlg)
  1795.  
  1796.         PXRecGet(Thand,RHand)
  1797.  
  1798.         GetFieldData(Hdlg)
  1799.  
  1800.         UpdateDisplay(Hdlg,id,dummy)
  1801.  
  1802.  
  1803.     Case 36 ' Fast Reverse        
  1804.  
  1805.         SetGlobalVar("Speed",1)
  1806.  
  1807.         ShowWindow(GetDlgItem(Hdlg,36),0) ' hide the fast frwd button
  1808.  
  1809.         ShowWindow(GetDlgItem(Hdlg,56),1) ' Show the stop button
  1810.  
  1811.         FastReverse(Hdlg,id, dummy)
  1812.  
  1813.         ShowWindow(GetDlgItem(Hdlg,56),0) ' hide the stop 
  1814.  
  1815.         ShowWindow(GetDlgItem(Hdlg,36),1) ' show the fast forward
  1816.  
  1817.         ReadFive(Hdlg)
  1818.  
  1819.         PXRecGet(Thand,RHand)
  1820.  
  1821.         GetFieldData(Hdlg)
  1822.  
  1823.         UpdateDisplay(Hdlg,id,dummy)
  1824.  
  1825.  
  1826.     Case 39 ' Copy to clipboard    
  1827.  
  1828.         StuffInfo(Hdlg)
  1829.  
  1830.         CopyToClip()
  1831.  
  1832.         Break;
  1833.  
  1834.  
  1835.  
  1836. EndSwitch
  1837.  
  1838. SetDefId(41) ' Set the default id to the return key
  1839.  
  1840.  
  1841. End Function
  1842.  
  1843.  
  1844. @2nd Function@Function HitFolder(Hdlg,id,dummy)
  1845.  
  1846. IgnoreKeyBoard(2)
  1847.  
  1848. DefStr CurNumber, Stat;
  1849.  
  1850. TotalFields=GetGlobalArray$("TotalFields",1)
  1851.  
  1852. Thand=GetGlobalArray$("Thandle",1)
  1853.  
  1854. RHand=GetGlobalArray$("RecHandle",1)
  1855.  
  1856. If 0 =  Assign(&Stat,PxRecNum(Thand,&CurNumber))
  1857.  
  1858. Else
  1859.  
  1860.     ' error with stat
  1861.  
  1862. Endif
  1863.  
  1864. Folder=Id - 81
  1865.  
  1866.  For t = 1 to Folder
  1867.  
  1868.     If 0 = Assign(&Stat,PxRecNext(Thand))
  1869.  
  1870.     Else
  1871.  
  1872.         ' error with stat
  1873.  
  1874.     Endif
  1875.  
  1876. Next
  1877.  
  1878.     PxRecGet(Thand, Rhand)
  1879.  
  1880.     GetFieldData(Hdlg)
  1881.  
  1882.     UpdateDisplay(Hdlg,id,dummy)
  1883.  
  1884.     ReadFive(Hdlg)
  1885.  
  1886.  
  1887. End Function
  1888.  
  1889. @2nd Function@Function HitEnter(Hdlg,id,dummy)
  1890.  
  1891. IgnoreKeyBoard(2)
  1892.  
  1893. hWnd=GetFocus()
  1894.  
  1895. Id=GetDlgCtrlId(hWnd)
  1896.  
  1897. If Id <<8000 or id <;>8010
  1898.  
  1899.     Return -1
  1900.  
  1901. Endif
  1902.  
  1903. Forward=id+1
  1904.  
  1905. TargetEdit=GetGlobalArray$("EditTarget",1)
  1906.  
  1907. LastEditField=GetGlobalArray$("LastEditField",1) 
  1908.  
  1909. if Forward=LastEditField             ' need to set default button to add
  1910.  
  1911.     Nextwin=GetDlgItem(Hdlg,Forward)
  1912.  
  1913.     SetFocus(NextWin)
  1914.  
  1915.     SetDefId(31)
  1916.  
  1917. ElseIf Id = LastEditField  ' Enter was hit, and on the last field 
  1918.  
  1919.     MainCall(Hdlg,31,0)
  1920.  
  1921. Elseif id<<TargetEdit
  1922.  
  1923.     Nextwin=GetDlgItem(Hdlg,Forward)
  1924.  
  1925.     SetFocus(NextWin)
  1926.  
  1927.  
  1928. Else
  1929.  
  1930.     NextWin=GetDlgITem(Hdlg,8001)
  1931.  
  1932.     SetFocus(NextWin)
  1933.  
  1934.     MainCall(Hdlg,23,0)
  1935.  
  1936. Endif
  1937.  
  1938. End Function
  1939.  
  1940.  
  1941.  
  1942. @2nd Function@Function <:ZFastForward>FastForward<:Z~FastForward>(Hdlg)
  1943.  
  1944. IgnoreKeyBoard(2)
  1945.  
  1946. DefStr Stat, Name, FldData;
  1947.  
  1948. MouseInterrupt("Stopit")
  1949.  
  1950. Dim StoreName(6)
  1951.  
  1952. TotalFields=GetGlobalArray$("TotalFields",1)
  1953.  
  1954. Thand=GetGlobalArray$("Thandle",1)
  1955.  
  1956. RHand=GetGlobalArray$("RecHandle",1)
  1957.  
  1958. KeyField = GetGlobalArray$("KeyField",1)
  1959.  
  1960.         While (0= Assign(&Stat, PxRecNext(Thand)))
  1961.  
  1962.             If GetGlobalVar$("Speed") = 0
  1963.  
  1964.                 Break
  1965.  
  1966.             Endif
  1967.  
  1968.             PxRecGet(Thand, RHand)
  1969.  
  1970.                 If 0 = GetFieldInfo(Rhand, KeyField, &FldData)
  1971.  
  1972. '            If 0 = Assign(&Stat,   PXGetAlpha(Rhand,KeyField,250,&FldData))
  1973.  
  1974.             Else
  1975.  
  1976.                 Return Stat    
  1977.  
  1978.             Endif
  1979.  
  1980.             ShiftNames(&StoreName,Hdlg)
  1981.  
  1982.             StoreName(1) = FldData
  1983.  
  1984.             SetDlgItemText(Hdlg, 1021, StoreName(1))
  1985.  
  1986.         Wend
  1987.  
  1988. If Stat != 0
  1989.  
  1990.     Error=PXErrMsg(Stat)
  1991.  
  1992. '    'Message(error)
  1993.  
  1994. Endif
  1995.  
  1996.  
  1997. Return 0
  1998.  
  1999. End Function
  2000.  
  2001.  
  2002. @2nd Function@Function <:ZFastReverse>FastReverse<:Z~FastReverse>(Hdlg,id,dummy)
  2003.  
  2004. IgnoreKeyboard(2)
  2005.  
  2006. DefStr Stat, Name, FldData;
  2007.  
  2008. MouseInterrupt("Stopit")
  2009.  
  2010. Dim StoreName(6)
  2011.  
  2012. TotalFields=GetGlobalArray$("TotalFields",1)
  2013.  
  2014. Thand=GetGlobalArray$("Thandle",1)
  2015.  
  2016. RHand=GetGlobalArray$("RecHandle",1)
  2017.  
  2018. KeyField = GetGlobalArray$("KeyField",1)
  2019.  
  2020.         While (0= Assign(&Stat, PxRecPrev(Thand)))
  2021.  
  2022.             If GetGlobalVar$("Speed") = 0
  2023.  
  2024.                 Break
  2025.  
  2026.             Endif
  2027.  
  2028.             PxRecGet(Thand, RHand)
  2029.  
  2030.                 If 0 = GetFieldInfo(Rhand, KeyField, &FldData)
  2031.  
  2032.                     Else
  2033.  
  2034.                         Message(Stat)
  2035.  
  2036.                 Endif
  2037.  
  2038.             ShiftNames(&StoreName,Hdlg)
  2039.  
  2040.             StoreName(1)=FldData
  2041.  
  2042.             SetDlgItemText(Hdlg,1021,StoreName(1))
  2043.  
  2044.         Wend
  2045.  
  2046. If Stat != 0
  2047.  
  2048.     Error=PXErrMsg(Stat)
  2049.  
  2050.     'Message(error)
  2051.  
  2052. Endif
  2053.  
  2054.  
  2055.  
  2056. Return 0
  2057.  
  2058. End Function
  2059.  
  2060.  
  2061. @2nd Function@Function ShiftNames(StoreName,Hdlg)
  2062.  
  2063. IgnoreKeyboard(2)
  2064.  
  2065. For t = 5 to 2 step -1;
  2066.  
  2067.     *StoreName(T) = *StoreName(T - 1);
  2068.  
  2069.     SetDlgItemText(Hdlg, (1017 + (5 - T)), *StoreName(T))
  2070.  
  2071. Next
  2072.  
  2073. End Function
  2074.  
  2075. @2nd Function@Function Stopit()
  2076.  
  2077. MouseInterrupt("")
  2078.  
  2079. SetGlobalVar("Speed",0)
  2080.  
  2081. End Function
  2082.  
  2083. @Body Single@
  2084. @2nd Function@Function Lockem(Hdlg)
  2085.  
  2086. IgnoreKeyBoard(2)
  2087.  
  2088. DefStr LckHand, Stat, UserName, id, Dummy;
  2089.  
  2090. Thand=GetGlobalArray$("Thandle",1)
  2091.  
  2092. Rhand=GetGlobalArray$("RecHandle",1)
  2093.  
  2094. OldLock = GetGlobalVar$("PrevLock")
  2095.  
  2096. ProDir = GetAmiDirectory$()
  2097.  
  2098. If OldLock !=0
  2099.  
  2100.     If 0 = Assign(&Stat,PXNetRecUnlock(THand,OldLock))
  2101.  
  2102.     Else
  2103.  
  2104.         Error=PXErrMsg(Stat)
  2105.  
  2106.     Endif
  2107.  
  2108. Endif
  2109.  
  2110.     If 0= Assign(&Stat,PXNetRecLock(Thand, &LckHand))
  2111.  
  2112.         SetGlobalVar("PrevLock",LckHand)
  2113.  
  2114.     Else
  2115.  
  2116.         SetGlobalVar("PrevLock",0)     ' no need for a prev lock
  2117.  
  2118.         Switch Stat
  2119.  
  2120.             Case 9 ' Record locked by another user
  2121.  
  2122.                 If 0= Assign(&Stat, PXNetErrUser(80,&UserName))
  2123.  
  2124.                     ShowWindow(GetDlgItem(hdlg,34),1)
  2125.  
  2126.                     SetDlgItemText(Hdlg,1012,"{UserName}")
  2127.  
  2128.                     
  2129.  
  2130.                     If 0 != Assign(&Stat,PXNetTblRefresh(Thand))
  2131.  
  2132.                         Error=PXErrMsg(Stat)
  2133.  
  2134.                         'Message(error)
  2135.  
  2136.                     Endif    
  2137.  
  2138.                 Endif
  2139.  
  2140.             Case 105 ' Operation on empty table
  2141.  
  2142.                 Break;
  2143.  
  2144.             Default 
  2145.  
  2146.                 Error=PXErrMsg(Stat)
  2147.  
  2148.                 'Message(error)        
  2149.  
  2150.         EndSwitch
  2151.  
  2152.     Endif
  2153.  
  2154. end Function
  2155.  
  2156. @2nd Function@Function ReadFive(Hdlg)
  2157.  
  2158. IgnoreKeyboard(2)
  2159.  
  2160. DefStr FldData, Stat, CurNumber;
  2161.  
  2162. TotalFields=GetGlobalArray$("TotalFields",1)
  2163.  
  2164. Thand=GetGlobalArray$("Thandle",1)
  2165.  
  2166. RHand=GetGlobalArray$("RecHandle",1)
  2167.  
  2168. KeyField = GetGlobalArray$("KeyField",1)
  2169.  
  2170. If 0 =  Assign(&Stat,PxRecNum(Thand,&CurNumber))
  2171.  
  2172. Else
  2173.  
  2174.     ' error with stat
  2175.  
  2176. Endif
  2177.  
  2178. For x = 1 to 4 
  2179.  
  2180.     If 0 = Assign(&Stat,PxRecNext(Thand))
  2181.  
  2182.         PxRecGet(Thand, Rhand)
  2183.  
  2184.         If "A" = Left$(GetGlobalArray$("FieldType",KeyField),1)
  2185.  
  2186.             PXGetAlpha(Rhand, KeyField, 250, &FldData)
  2187.  
  2188.         Else
  2189.  
  2190.             If 0 = GetFieldInfo(Rhand, KeyField, &FldData)
  2191.  
  2192.                 Else
  2193.  
  2194.                     Message(Stat)
  2195.  
  2196.             Endif
  2197.  
  2198.         Endif
  2199.  
  2200.         SetDlgItemText(Hdlg,1017 + x, FldData)
  2201.  
  2202.     Else
  2203.  
  2204.         SetDlgItemText(Hdlg,1017+x,"")
  2205.  
  2206.     Endif
  2207.  
  2208. Next
  2209.  
  2210. PxRecGoto(Thand, CurNumber)
  2211.  
  2212. End Function
  2213.  
  2214. @2nd Function@<:Zcopytoclip><:Z~copytoclip>Function CopyToClip()
  2215.  
  2216. IgnoreKeyboard(2)
  2217.  
  2218. TotalFields = GetGlobalArray$("TotalFields",1)
  2219.  
  2220. For t = 1 to TotalFields
  2221.  
  2222.     FieldInfo = GetGlobalArray$("EditData",t)
  2223.  
  2224.     Info = StrCat$(Info,FieldInfo, "<[>Enter]<[>0x0A]")
  2225.  
  2226. Next
  2227.  
  2228. Info=BracketsToBin(Info)
  2229.  
  2230. Clipboardwrite(info,0)
  2231.  
  2232. End Function
  2233.  
  2234. @Function@Function CloseTable()
  2235.  
  2236. Rhand=GetGlobalArray$("RecHandle",1)
  2237.  
  2238. Thand=GetGlobalArray$("THandle",1)
  2239.  
  2240.  
  2241. PXRecBufClose(Rhand)
  2242.  
  2243. PXTblClose(Thand)
  2244.  
  2245. End Function
  2246.  
  2247. @Function@Function UpDateDisplay(Hdlg,id,dummy)
  2248.  
  2249. IgnoreKeyboard(2)
  2250.  
  2251. DefStr Temp, Stat,CurrentRecnum,TblNRecs;
  2252.  
  2253. Identifier=GetGlobalArray$("KeyField",1)
  2254.  
  2255. TotalFields=GetGlobalArray$("TotalFields",1)
  2256.  
  2257. LastField=GetGlobalArray$("LastField",1)
  2258.  
  2259. Thand=GetGlobalArray$("Thandle",1)
  2260.  
  2261. RHand=GetGlobalArray$("RecHandle",1)
  2262.  
  2263. RefreshStat=GetGlobalArray$("RefreshMain",1)
  2264.  
  2265. If 0 != Assign(&Stat,PXNetTblRefresh(Thand))
  2266.  
  2267.     Error=PXErrMsg(Stat)
  2268.  
  2269.     'Message(error)
  2270.  
  2271. Endif    
  2272.  
  2273. IF (0=Assign(&Stat, PXRecNum(Thand,&CurrentRecnum)))
  2274.  
  2275. Endif
  2276.  
  2277. If (0=Assign(&Stat, PXTblNRecs(THand, &TblNRecs)))
  2278.  
  2279.     SetDlgItemText(Hdlg, 1013, "Card {CurrentRecNum} of {TblNRecs}")
  2280.  
  2281. Else
  2282.  
  2283. Endif
  2284.  
  2285.  
  2286. Switch RefreshStat
  2287.  
  2288.  
  2289. Case 0 ' no need to repaint entire box
  2290.  
  2291. For t=1 to 10
  2292.  
  2293.     If LastField+T << TotalFields
  2294.  
  2295.         SetGlobalArray("EditTarget",1,8000+t)
  2296.  
  2297.         SetDlgItemText(Hdlg,8000+t,GetGlobalArray$("EditData",T+LastField))
  2298.  
  2299.     Elseif LastField+t=Totalfields
  2300.  
  2301.         SetDlgItemText(Hdlg,8000+t,GetGlobalArray$("EditData",t+LastField))
  2302.  
  2303.         SetGlobalArray("EditTarget",1,8000+t)
  2304.  
  2305.     Endif
  2306.  
  2307. Next
  2308.  
  2309.  
  2310. Case 1 ' Need to repaint box
  2311.  
  2312.  
  2313. If LastField=0
  2314.  
  2315.     ShowWindow(GetDlgItem(Hdlg,24),0) ' hide the up button
  2316.  
  2317.     ShowWindow(GetDlgItem(Hdlg,94),1) ' Show the cover
  2318.  
  2319. Else
  2320.  
  2321.     ShowWindow(GetDlgItem(hdlg,24),1) ' The up button is fine
  2322.  
  2323.     ShowWindow(GetDlgItem(hdlg,94),0) ' Hide the cover
  2324.  
  2325. Endif
  2326.  
  2327.  
  2328. If LastField+10 <;>TotalFields
  2329.  
  2330.     ShowWindow(GetDlgItem(Hdlg,23),0) ' hide the down button
  2331.  
  2332.     ShowWindow(GetDlgItem(Hdlg,93),1) ' Show the cover
  2333.  
  2334. Else
  2335.  
  2336.     ShowWindow(GetDlgItem(hdlg,23),1) ' it is fine
  2337.  
  2338.     ShowWindow(GetDlgItem(Hdlg,93),0) ' hide the cover
  2339.  
  2340. Endif
  2341.  
  2342.  
  2343. For t=1 to 10
  2344.  
  2345.     If LastField+T << TotalFields
  2346.  
  2347.         SetDlgItemText(Hdlg,8000+t,GetGlobalArray$("EditData",t+LastField))
  2348.  
  2349.         SetGlobalArray("EditTarget",1,8000+t)
  2350.  
  2351.         SetGlobalArray("LastEditField",1,0)     'no need to auto add
  2352.  
  2353.         SetDlgItemText(Hdlg,1000+t,GetGlobalArray$("FieldNames",T+LastField))
  2354.  
  2355.         ShowWindow(GetDlgItem(Hdlg,8000+t),1)
  2356.  
  2357.     Elseif LastField+t=Totalfields
  2358.  
  2359.         SetDlgItemText(Hdlg,8000+t,GetGlobalArray$("EditData",t+LastField))
  2360.  
  2361.         SetGlobalArray("EditTarget",1,8000+t)
  2362.  
  2363.         SetGlobalArray("LastEditField",1,8000+t)    ' set autoadd flag
  2364.  
  2365.         SetDlgItemText(Hdlg,1000+t,GetGlobalArray$("FieldNames",T+LastField))
  2366.  
  2367.         ShowWindow(GetDlgItem(Hdlg,8000+t),1)
  2368.  
  2369.     Else
  2370.  
  2371.         SetDlgItemText(Hdlg,1000+t,"")
  2372.  
  2373.         ShowWindow(GetDlgItem(Hdlg,8000+t),0)
  2374.  
  2375.         SetDlgItemText(Hdlg,8000+T,"")
  2376.  
  2377.     Endif
  2378.  
  2379. Next
  2380.  
  2381.     SetGlobalArray("RefreshMain",1,0) ' no need to repaint next time 
  2382.  
  2383.  
  2384. EndSwitch
  2385.  
  2386.  
  2387. SetDlgItemText(Hdlg,1017,GetGlobalArray$("EditData",Identifier))
  2388.  
  2389. SetFocus(GetDlgItem(Hdlg,8001))
  2390.  
  2391. End Function
  2392.  
  2393. End Function
  2394.  
  2395.  
  2396.  
  2397. @Function@Function StuffInfo(Hdlg)
  2398.  
  2399. IgnoreKeyBoard(2)
  2400.  
  2401. LastField=GetGlobalArray$("LastField",1)
  2402.  
  2403. TotalFields=GetGlobalArray$("TotalFields",1)
  2404.  
  2405.  
  2406. For t=1 to 10
  2407.  
  2408.     Info=GetDlgItemText(Hdlg,8000+t)
  2409.  
  2410.         If LastField+t <<= TotalFields
  2411.  
  2412.             SetGlobalArray("EditData",LastField+t,Info)
  2413.  
  2414.         Endif
  2415.  
  2416. Next
  2417.  
  2418. End Function
  2419.  
  2420.  
  2421.  
  2422.  
  2423. @Function@Function GetFieldInfo(Rhand, FldNum, FldData)
  2424.  
  2425. IgnoreKeyBoard(2)
  2426.  
  2427. DefStr Stat, Date, Mn,Day,Yr, TempData;
  2428.  
  2429. Type =Left$(GetGlobalArray$("FieldType",FldNum),1)
  2430.  
  2431. Switch Type
  2432.  
  2433.         Case "A"
  2434.  
  2435.             If 0 = Assign(&Stat,   PXGetAlpha(Rhand,FldNum,250,&TempData))
  2436.  
  2437.             Else
  2438.  
  2439.                 Return Stat    
  2440.  
  2441.             Endif
  2442.  
  2443.             Break;
  2444.  
  2445.     
  2446.  
  2447.         Case "D"    ' This is a date
  2448.  
  2449.             If 0 = Assign(&Stat, PXGetDate(Rhand, FldNum, &Date)) 
  2450.  
  2451.                 If 0 = Assign(&Stat, PXDateDecode(Date,&Mn,&Day,&Yr));
  2452.  
  2453. '                    TempData = "{Mn}\ {Day}\{Yr}";
  2454.  
  2455.                 Endif
  2456.  
  2457.             Else
  2458.  
  2459.                 Return Stat    
  2460.  
  2461.             Endif
  2462.  
  2463.             Break;
  2464.  
  2465.             
  2466.  
  2467.         Case "N"    ' this is numeric
  2468.  
  2469.             If 0 = Assign(&Stat, PXGetLong(Rhand, FldNum, &TempData))
  2470.  
  2471.             Else
  2472.  
  2473.                 Return Stat    
  2474.  
  2475.             Endif
  2476.  
  2477.             Break;
  2478.  
  2479.     EndSwitch
  2480.  
  2481. *FldData = TempData;
  2482.  
  2483. Return 0;
  2484.  
  2485. End Function
  2486.  
  2487.  
  2488. @Function@Function GetFieldData(Hdlg)
  2489.  
  2490. IgnoreKeyBoard(2)
  2491.  
  2492. DefStr Name, Stat, Date, Mn, Day, Yr, Number, FldData;
  2493.  
  2494. Thand=GetGlobalArray$("Thandle",1)
  2495.  
  2496. Rhand=GetGlobalArray$("RecHandle",1)
  2497.  
  2498. TotalFields=GetGlobalArray$("TotalFields",1)
  2499.  
  2500.  
  2501. For x=1 to TotalFields
  2502.  
  2503.         If 0 = GetFieldInfo(Rhand, X, &FldData)
  2504.  
  2505.             SetGlobalArray("EditData",x, FldData)
  2506.  
  2507.         Else
  2508.  
  2509.                 Message(Stat)
  2510.  
  2511.         Endif
  2512.  
  2513. Next
  2514.  
  2515. 'Lockem(Hdlg)
  2516.  
  2517. End Function
  2518.  
  2519. @Function@Function GetKeyfields(Thandle, nKeyFlds)
  2520.  
  2521. DefStr Stat ;
  2522.  
  2523. If 0= Assign(&Stat, PXKeyNFlds(Thandle,&nKeyFlds))
  2524.  
  2525. Else
  2526.  
  2527.             Error = PXerrMsg(Stat)
  2528.  
  2529.             'Message(error)
  2530.  
  2531. endif
  2532.  
  2533. end Function
  2534.  
  2535.  
  2536. @Function@Function StuffRecBuf()
  2537.  
  2538. IgnoreKeyBoard(2)
  2539.  
  2540. DefStr Stat, FldType;
  2541.  
  2542. TotalFields=GetGlobalArray$("TotalFields",1)
  2543.  
  2544. Rhand=GetGlobalArray$("RecHandle",1)
  2545.  
  2546. Thand=GetGlobalArray$("Thandle",1)
  2547.  
  2548.  
  2549. For t=1 to TotalFields
  2550.  
  2551.     Info=GetGlobalArray$("EditData",T)
  2552.  
  2553.     SetGlobalArray("EditData",t,"")
  2554.  
  2555.     Type = GetGlobalArray$("FieldType",T)
  2556.  
  2557.     IF 0 = Assign(&Stat, PXFldType(Thand, T, 5, &FldType))
  2558.  
  2559.     Else
  2560.  
  2561.     Endif
  2562.  
  2563.     LeftChar = Left$(FldType,1)
  2564.  
  2565. 'message(leftChar)
  2566.  
  2567.     Switch LeftChar
  2568.  
  2569.         Case "A"
  2570.  
  2571.             If 0 = Assign(&Stat,   PXPutAlpha(Rhand,t,Info))
  2572.  
  2573.             Else
  2574.  
  2575.                 Error=PXErrMsg(Stat)
  2576.  
  2577.                 'Message(error)    
  2578.  
  2579.             Endif
  2580.  
  2581.             Break;
  2582.  
  2583.     
  2584.  
  2585.         Case "D"    ' This is a date
  2586.  
  2587.             If 0 = Assign(&Stat, PXPutDate(Rhand, t, Info)) 
  2588.  
  2589.             Else
  2590.  
  2591.                 Error = PXerrMsg(Stat)
  2592.  
  2593.                 'Message(error)
  2594.  
  2595.             Endif
  2596.  
  2597.             Break;
  2598.  
  2599.             
  2600.  
  2601.         Case "N"    ' this is numeric
  2602.  
  2603.             If 0 = Assign(&Stat,   PXPutLong(Rhand,t,Info))
  2604.  
  2605.             Else
  2606.  
  2607.                 Error = PXerrMsg(Stat)
  2608.  
  2609.                 'Message(error)
  2610.  
  2611.             Endif
  2612.  
  2613.             Break;
  2614.  
  2615.     EndSwitch
  2616.  
  2617. Next
  2618.  
  2619. End Function
  2620.  
  2621.  
  2622. @Function@Function PackGlobals(FieldNames,FieldType,RecHandle,Thandle)
  2623.  
  2624. IgnoreKeyBoard(2)
  2625.  
  2626. TotalFields=ArraySize(&FieldNames)
  2627.  
  2628. 'AllocGlobalVar("LibId",1)    'DEZ
  2629.  
  2630. AllocGlobalVar("TotalFields",1)
  2631.  
  2632. AllocGlobalVar("FieldNames",TotalFields)
  2633.  
  2634. AllocGlobalVar("FieldType", TotalFields)
  2635.  
  2636. AllocGlobalVar("LastField",1)
  2637.  
  2638. AllocGlobalVar("EditData",TotalFields)
  2639.  
  2640. AllocGlobalVar("Thandle",1)
  2641.  
  2642. AllocGlobalVar("RecHandle",1)
  2643.  
  2644. AllocGlobalVar("KeyField",1)
  2645.  
  2646. AllocGlobalVar("EditTarget",1)
  2647.  
  2648. AllocGlobalVar("RedoNames",1)
  2649.  
  2650. AllocGlobalVar("RefreshMain",1)
  2651.  
  2652. AllocGlobalVar("LastEditField",1)
  2653.  
  2654. AllocGlobalVar("Speed",1)
  2655.  
  2656. AllocGlobalVar("PrevLock",1)
  2657.  
  2658.  
  2659. SetGlobalVar("Speed",1)
  2660.  
  2661. SetGlobalArray("RedoNames",1,0)
  2662.  
  2663. SetGlobalArray("RefreshMain",1,1)
  2664.  
  2665. SetGlobalArray("LastEditField",1,0)
  2666.  
  2667.  
  2668. SetGlobalArray("Thandle",1,Thandle)
  2669.  
  2670. SetGlobalArray("RecHandle",1,RecHandle)
  2671.  
  2672. SetGlobalArray("TotalFields",1,TotalFields)
  2673.  
  2674. SetGlobalArray("LastField",1,0)
  2675.  
  2676. SetGlobalArray("KeyField",1,1)
  2677.  
  2678. SetGlobalVar("PrevLock",0)
  2679.  
  2680.  
  2681. For t=1 to TotalFields
  2682.  
  2683.     SetGlobalArray("FieldNames",T,*FieldNames(T))
  2684.  
  2685.     SetGlobalArray("FieldType", T, *FieldType(T))
  2686.  
  2687. Next
  2688.  
  2689. End Function
  2690.  
  2691.  
  2692. @Function@Function <:ZSortEm>SortEm<:Z~SortEm>()
  2693.  
  2694. DefStr FileName, Stat, Thandle, RecHandle;
  2695.  
  2696. Dim FieldName(1)
  2697.  
  2698. Thand=GetGlobalArray$("Thandle",1)
  2699.  
  2700. Rhand=GetGlobalArray$("RecHandle",1)
  2701.  
  2702. TotalFields=GetGlobalArray$("TotalFields",1)
  2703.  
  2704. For t=1 to TotalFields
  2705.  
  2706.     ArrayInsert(&FieldName,t,GetGlobalArray$("FieldNames",t))
  2707.  
  2708. Next
  2709.  
  2710. Filledit(9500,&FieldName)
  2711.  
  2712. Box = DialogBox(".","Index")
  2713.  
  2714. If Box<<<;>1
  2715.  
  2716.     Exit Function
  2717.  
  2718. Endif
  2719.  
  2720. Field = GetDialogField$(9500)
  2721.  
  2722. Number = ArraySearch(&FieldName, Field)
  2723.  
  2724. SetGlobalVar("KeyField",Number)
  2725.  
  2726.  
  2727. End Function
  2728.  
  2729.  
  2730.  
  2731. @Function@Function GotoMain(Hdlg)
  2732.  
  2733. IgnoreKeyBoard(2)
  2734.  
  2735. DefStr Stat, id, dummy;
  2736.  
  2737. Rhand=GetGlobalArray$("RecHandle",1)
  2738.  
  2739. Thand=GetGlobalArray$("THandle",1)
  2740.  
  2741.  
  2742. Dim TempFields(1)
  2743.  
  2744. TotalFields=GetGlobalArray$("TotalFields",1)
  2745.  
  2746. For t=1 to TotalFields
  2747.  
  2748.     ArrayInsert(&TempFields,t,GetGlobalArray$("FieldNames",t))
  2749.  
  2750. Next
  2751.  
  2752. Filledit(9500,&TempFields)
  2753.  
  2754. Filledit(20,True)
  2755.  
  2756. Box=DialogBox(".","Goto")
  2757.  
  2758. If Box<<<;>1
  2759.  
  2760.     Return -1
  2761.  
  2762. Endif
  2763.  
  2764. GotoField=GetdialogField$(20)
  2765.  
  2766. GotoFirst=Getdialogfield$(21)
  2767.  
  2768. GotoLast=GetDialogField$(22)
  2769.  
  2770. FieldName=GetDialogField$(9500)
  2771.  
  2772. TargetName=GetDialogField$(8000)
  2773.  
  2774.  
  2775.  
  2776. If GotoField
  2777.  
  2778.     FieldIndex=ArraySearch(&TempFields,FieldName)
  2779.  
  2780.     If 0=FindItem(TargetName,FieldIndex)
  2781.  
  2782.             PXRecGet(Thand,RHand)
  2783.  
  2784.             GetFieldData(Hdlg)
  2785.  
  2786.             UpdateDisplay(hdlg,id,dummy)
  2787.  
  2788.         Else
  2789.  
  2790.             PXRecGet(Thand,RHand)
  2791.  
  2792.             GetFieldData(Hdlg)
  2793.  
  2794.             UpdateDisplay(hdlg,id,dummy)
  2795.  
  2796.             Message("No match found","Search Results")
  2797.  
  2798.     Endif
  2799.  
  2800. Endif
  2801.  
  2802. If GotoFirst
  2803.  
  2804.     If 0 = Assign(&Stat, PXRecFirst(Thand))
  2805.  
  2806.         PXRecGet(Thand,Rhand)
  2807.  
  2808.         GetFieldData(Hdlg)
  2809.  
  2810.         UpdateDisplay(Hdlg,0,0)
  2811.  
  2812.     Else
  2813.  
  2814.         Error=PXErrMsg(Stat)
  2815.  
  2816.         'Message(error)        
  2817.  
  2818.     Endif
  2819.  
  2820. Endif
  2821.  
  2822.  
  2823. If GotoLast
  2824.  
  2825.     If 0 = Assign(&Stat, PXRecLast(Thand))
  2826.  
  2827.         PXRecGet(Thand,Rhand)
  2828.  
  2829.         GetFieldData(Hdlg)
  2830.  
  2831.         UpdateDisplay(Hdlg,0,0)
  2832.  
  2833.     Else
  2834.  
  2835.         Error=PXErrMsg(Stat)
  2836.  
  2837.         'Message(error)        
  2838.  
  2839.     Endif
  2840.  
  2841. Endif
  2842.  
  2843.  
  2844. End Function
  2845.  
  2846.  
  2847. @Function@Function FindItem(SearchData,FieldIndex)
  2848.  
  2849. DefStr Stat;
  2850.  
  2851. TotalFields=GetGlobalArray$("TotalFields",1)
  2852.  
  2853. Rhand=GetGlobalArray$("RecHandle",1)
  2854.  
  2855. Thand=GetGlobalArray$("THandle",1)
  2856.  
  2857.  
  2858. PxRecBufEmpty(Rhand)
  2859.  
  2860. If 0 = Assign(&Stat,PXPutAlpha(Rhand,FieldIndex,SearchData))
  2861.  
  2862.     Else
  2863.  
  2864.             Error=PXErrMsg(Stat)
  2865.  
  2866.             'Message(error)
  2867.  
  2868.     Endif
  2869.  
  2870.  
  2871. If (0 = Assign(&Stat, PXSrchFld(Thand, Rhand, FieldIndex, 2)) or 89=Assign(&Stat,PXSrchFld(Thand,Rhand,FieldIndex,2)))
  2872.  
  2873.     Return 0;
  2874.  
  2875. Else
  2876.  
  2877.             Error=PXErrMsg(Stat)
  2878.  
  2879. '            'Message(error)
  2880.  
  2881.             Return -1
  2882.  
  2883. Endif
  2884.  
  2885.  
  2886. End Function
  2887.  
  2888.  
  2889.  
  2890.  
  2891.  
  2892. @Function@Function <:ZBuild>Build<:Z~Build>()
  2893.  
  2894. defstr Libid;
  2895.  
  2896. SingleStep(0)
  2897.  
  2898. allocglobalvar("LibId", 1)
  2899.  
  2900. if getglobalvar$("libid") = ""    'dez
  2901.  
  2902.     Stat = Init(&Libid)
  2903.  
  2904.     If (Stat = 0 or Stat = 82)
  2905.  
  2906.     Else
  2907.  
  2908.         Error=PXErrMsg(Stat)
  2909.  
  2910.         'Message(error)
  2911.  
  2912.     Exit Function
  2913.  
  2914.     Endif
  2915.  
  2916. endif
  2917.  
  2918. DefStr FileNameBuilt;
  2919.  
  2920. AllocGlobalVar("PMFields",70)
  2921.  
  2922. AllocGlobalVar("PMTypes",70)
  2923.  
  2924. AllocGlobalVar("NumFields",1)
  2925.  
  2926.  
  2927. SetGlobalArray("NumFields",1,0)
  2928.  
  2929. SetGlobalArray("PMFields",1,1)
  2930.  
  2931. SetGlobalArray("PMTypes",1,1)
  2932.  
  2933. Mac=GetRunningMacroFile$()
  2934.  
  2935. Filledit(EB_Width,20)
  2936.  
  2937. SetDlgCallBack(LB_ID,"{Mac}!CallBuild")
  2938.  
  2939. SetDlgCallBack(BN_Add,"{Mac}!CallBuild")
  2940.  
  2941.  
  2942. Box=DialogBox(".","Build")
  2943.  
  2944. If Box=1
  2945.  
  2946.     If 0 = BuildTable(&FileNameBuilt)
  2947.  
  2948.         FreeGlobalVar("PMTypes")
  2949.  
  2950.         FreeGlobalVar("PMFields")
  2951.  
  2952.         MainEntryBox(FileNameBuilt)
  2953.  
  2954.     Endif    
  2955.  
  2956. Else
  2957.  
  2958.     'ShutDown()
  2959.  
  2960.         FreeGlobalVar("PMTypes")
  2961.  
  2962.         FreeGlobalVar("PMFields")
  2963.  
  2964. Endif
  2965.  
  2966. End Function
  2967.  
  2968.  
  2969. @2nd Function@Function BuildTable(TableName)
  2970.  
  2971. Mac=GetRunningMacroFile$()
  2972.  
  2973. Defstr Stat, NumFields;
  2974.  
  2975. If 0 = Assign(&NumFields, GetGlobalArray$("NumFields",1))
  2976.  
  2977.     Return -1
  2978.  
  2979. Endif
  2980.  
  2981.  
  2982. Dim FieldName(NumFields)
  2983.  
  2984. Dim Width(Numfields)
  2985.  
  2986. For t=1 to NumFields;
  2987.  
  2988.     FieldName(t)=GetGlobalArray$("PMFields",t)
  2989.  
  2990.     Width(t)=GetGlobalArray$("PMtypes",t)
  2991.  
  2992. Next
  2993.  
  2994. FillEdit(9001,"*.db")
  2995.  
  2996. Box=DialogBox(".","Save")
  2997.  
  2998. Dir = GetCurrentDir$()
  2999.  
  3000. If Box<<<;>0
  3001.  
  3002.     Flname=GetDialogField$(8000)
  3003.  
  3004.     Filename=StrCat$(dir,Flname)
  3005.  
  3006.     If (0=Assign(&Stat,PxTblCreate(Filename,NumFields,&FieldName,&Width)))
  3007.  
  3008.         Stat = BuildIndex(Flname,&FieldName)
  3009.  
  3010.     Else
  3011.  
  3012.         Error=PXErrMsg(Stat)
  3013.  
  3014.         'Message(error)
  3015.  
  3016.         Return -1
  3017.  
  3018.     Endif
  3019.  
  3020. Endif
  3021.  
  3022. *TableName= FileName;
  3023.  
  3024. Return Stat;
  3025.  
  3026. End Function
  3027.  
  3028.  
  3029. @2nd Function@Function CallBuild(Hdlg,Id,Dummy)
  3030.  
  3031. IgnoreKeyBoard(2)
  3032.  
  3033. 'EB_Handle=GetDlgItem(Hdlg,8000)
  3034.  
  3035. If GetDlgItemText(Hdlg, 8000) = ""
  3036.  
  3037.     CloseDlg(1)
  3038.  
  3039.     Exit Function
  3040.  
  3041. Endif
  3042.  
  3043. Switch Id
  3044.  
  3045.     Case BN_Add
  3046.  
  3047.         Name=GetDlgItemText(Hdlg,8000)
  3048.  
  3049.         Width=GetDlgItemText(Hdlg,8001)
  3050.  
  3051.         NumFields= GetGlobalArray$("NumFields",1)
  3052.  
  3053.         Type="A"
  3054.  
  3055.         Type="{Type}{Width}"
  3056.  
  3057.  
  3058.         FieldNumber=NumFields+1
  3059.  
  3060.         SetGlobalArray("PMFields",FieldNumber,Name)
  3061.  
  3062.         SetGlobalArray("PMTypes",FieldNumber,type)
  3063.  
  3064.         SetGlobalVar("NumFields",FieldNumber)
  3065.  
  3066.         SetDlgItemText(Hdlg,9000,Name)    ' set it in the listbox
  3067.  
  3068.  
  3069.     Case BN_Remove
  3070.  
  3071.         Message(id)
  3072.  
  3073.     Case LB_ID
  3074.  
  3075.         Message("This is the list box")
  3076.  
  3077. EndSwitch
  3078.  
  3079. SetDlgItemText(Hdlg,8000,"")
  3080.  
  3081. SetFocus(EB_Handle())
  3082.  
  3083. End Function
  3084.  
  3085.  
  3086.  
  3087. @2nd Function@Function <:ZBuildIndex>BuildIndex<:Z~BuildIndex>(FileName,FieldName)
  3088.  
  3089. DefStr Stat, Numfields;
  3090.  
  3091. Dim IndexNumber(1)
  3092.  
  3093. 'Filledit (9500,&FieldName)
  3094.  
  3095. If 0 = Assign(&NumFields, GetGlobalArray$("NumFields",1))
  3096.  
  3097.     Return -1
  3098.  
  3099. Endif
  3100.  
  3101. IF NumFields <;>3
  3102.  
  3103.     TotalFields = 3
  3104.  
  3105. Else
  3106.  
  3107.     TotalFields = Numfields
  3108.  
  3109. Endif
  3110.  
  3111.  
  3112. if 0 = Assign(&Stat, PXKeyAdd(FileName,TotalFields,&IndexNumber,0))
  3113.  
  3114.     Else
  3115.  
  3116.         Error=PXErrMsg(Stat)
  3117.  
  3118.         'Message(error)
  3119.  
  3120.         Return -1
  3121.  
  3122. endif
  3123.  
  3124. Dim Second(1)
  3125.  
  3126. For Q = 1 to TotalFields
  3127.  
  3128.     Second(1) = Q
  3129.  
  3130.     If 0 = Assign(&Stat, PXKeyAdd(FileName,1,&Second,2))
  3131.  
  3132.         Else
  3133.  
  3134.             Error=PXErrMsg(Stat)
  3135.  
  3136.             'Message(error)
  3137.  
  3138.             Return -1
  3139.  
  3140.     Endif
  3141.  
  3142. Next            
  3143.  
  3144. Return 0
  3145.  
  3146. End Function
  3147.  
  3148. @Function@Function OpenTable(Filename,Thandle,RecHandle)
  3149.  
  3150. DefStr exists,thand,rhand,stat;
  3151.  
  3152.     If (0=Assign(&Stat,PXTblExist(Filename,&Exists)))
  3153.  
  3154.         Else
  3155.  
  3156.             Error=PXErrMsg(Stat)
  3157.  
  3158.             'Message(error)
  3159.  
  3160.             Return -1;
  3161.  
  3162.     Endif
  3163.  
  3164.  
  3165.     If 0=Assign(&Stat,PXtblopen(Filename,&Thand,0,1))
  3166.  
  3167.             If 0=Assign(&Stat,PXRecBufopen(Thand,&Rhand));
  3168.  
  3169.                     *Thandle=Thand;
  3170.  
  3171.                     *RecHandle=Rhand;
  3172.  
  3173.                     Return 0;
  3174.  
  3175.             Else
  3176.  
  3177.                     Return Stat
  3178.  
  3179.             Endif
  3180.  
  3181.     Else
  3182.  
  3183.         Return Stat
  3184.  
  3185.     Endif
  3186.  
  3187. End Function
  3188.  
  3189.  
  3190. @Function@Function ReadFields(FieldNames,FieldType,Thandle)
  3191.  
  3192. Defstr Stat, Stat2,NumFlds,Size,Name, FldType;
  3193.  
  3194. If 0=Assign(&Stat,PXRecNFlds(Thandle,&NumFlds))
  3195.  
  3196.         For x=1 to NumFlds
  3197.  
  3198.             Assign(&Stat,PXFldName(Thandle,X,80,&Name))
  3199.  
  3200.             Assign(&Stat2,PXFldType(Thandle,X,80,&FldType))
  3201.  
  3202.             ArrayInsert(&FieldNames,x,Name)
  3203.  
  3204.             ArrayInsert(&FieldType,x,FldType)
  3205.  
  3206.         Next
  3207.  
  3208. Else
  3209.  
  3210.     Return Stat
  3211.  
  3212. Endif
  3213.  
  3214. Return 0
  3215.  
  3216. End Function
  3217.  
  3218. @Function@Function FreeGlobals()
  3219.  
  3220.  
  3221.  
  3222. FreeGlobalVar("TotalFields")
  3223.  
  3224. FreeGlobalVar("FieldNames")
  3225.  
  3226. FreeGlobalVar("LastField")
  3227.  
  3228. FreeGlobalVar("EditData")
  3229.  
  3230. FreeGlobalVar("FieldSep")
  3231.  
  3232. FreeGlobalVar("RecSep")
  3233.  
  3234. FreeGlobalVar("DefineField")
  3235.  
  3236. FreeGlobalVar("DefineRec")
  3237.  
  3238. FreeGlobalVar("BoxReturn")
  3239.  
  3240. FreeGlobalVar("KeyField")
  3241.  
  3242. FreeGlobalVar("LibId")
  3243.  
  3244. FreeGlobalVar("FieldType")
  3245.  
  3246. FreeGlobalVar("RecHandle")
  3247.  
  3248. FreeGlobalVar("Speed")
  3249.  
  3250. FreeGlobalVar("KeyField")
  3251.  
  3252. FreeGlobalVar("EditTarget")
  3253.  
  3254. FreeGlobalVar("LastEditField")
  3255.  
  3256. FreeGlobalVar("NumFields")
  3257.  
  3258. FreeGlobalVar("RedoNames")
  3259.  
  3260. FreeGlobalVar("Thandle")
  3261.  
  3262. FreeGlobalVar("PrevLock")
  3263.  
  3264. FreeGlobalVar("RefreshMain")
  3265.  
  3266. FreeGlobalVar("PMTypes")
  3267.  
  3268. FreeGlobalVar("PMFields")
  3269.  
  3270.  
  3271. End Function
  3272.  
  3273.  
  3274. @Function@Function Configure()
  3275.  
  3276. DefStr NetType, NetNamePath, Name;
  3277.  
  3278. Dim Net(9)
  3279.  
  3280. Net(1) = "Not on network"
  3281.  
  3282. Net(2) = "Novell"
  3283.  
  3284. Net(3) = "3Com"
  3285.  
  3286. Net(4) = "3Com 3+Open"
  3287.  
  3288. Net(5) = "Other: unknown"
  3289.  
  3290. Net(6) = "Starlan"
  3291.  
  3292. Net(7) = "Banyan"
  3293.  
  3294. Net(8) = "IBM PC"
  3295.  
  3296. size = Arraysize(&Net)
  3297.  
  3298. Dim Temp(Size)
  3299.  
  3300. For t =1 to Size
  3301.  
  3302.     Temp(T) = Net(t)
  3303.  
  3304. Next
  3305.  
  3306. IF "" = Assign(&Name,GetProfilePdx("UserName"))
  3307.  
  3308.     Name = GetProfileString$("AmiPro","UserName","AmiPro.Ini")
  3309.  
  3310. Endif
  3311.  
  3312.  
  3313. 'If "" != Assign(&NetType, GetProfilePdx("NetType"))
  3314.  
  3315. '    ArrayInsert(&Net,1,Net(NetType))
  3316.  
  3317. 'Else
  3318.  
  3319. 'Endif
  3320.  
  3321.  
  3322. If "" = Assign(&NetNamePath,GetProfilePdx("NetNamePath"))
  3323.  
  3324.     NetNamePath = "C:\"
  3325.  
  3326. Endif
  3327.  
  3328.  
  3329. Filledit(9500,&Net)
  3330.  
  3331. Filledit(8000,Name)
  3332.  
  3333. Filledit(8002,NetNamePath)
  3334.  
  3335. Box = DialogBox(".","NetWork")
  3336.  
  3337. If Box<<<;>1
  3338.  
  3339.     Return 2
  3340.  
  3341. Endif
  3342.  
  3343. DlgUser=GetDialogField$(8000)
  3344.  
  3345. DlgNetType = GetDialogField$(9500)
  3346.  
  3347. DlgPath = GetDialogField$(8002)
  3348.  
  3349. NetType = ArraySearch(&Temp, DlgNetType)
  3350.  
  3351. WriteProfilePdx("UserName",DlgUser)
  3352.  
  3353. WriteProfilePdx("NetNamePath",DlgPath)
  3354.  
  3355. 'WriteProfilePDx("NetType",NetType)
  3356.  
  3357.  
  3358.  
  3359. End Function
  3360.  
  3361. @Function@Function ShutDown()
  3362.  
  3363. DefStr Stat;
  3364.  
  3365. allocglobalvar("LibId", 1)
  3366.  
  3367. if getglobalvar$("libid") != ""    'DEZ
  3368.  
  3369.     If 0 != Assign(&Stat, PxExit())
  3370.  
  3371.             Error=PXErrMsg(Stat)
  3372.  
  3373.             'Message(error)
  3374.  
  3375.     Endif
  3376.  
  3377. endif
  3378.  
  3379. freeglobalvar("LibId")
  3380.  
  3381. Barid=1
  3382.  
  3383. MenuName="&Card File"
  3384.  
  3385. Deletemenu(Barid, MenuName)
  3386.  
  3387.  
  3388. End Function
  3389.  
  3390.  
  3391. @Function@FUNCTION OpenBox(initpath,initmask)
  3392.  
  3393. <: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
  3394.  
  3395. <: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
  3396.  
  3397. <: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
  3398.  
  3399. <: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
  3400.  
  3401. <: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
  3402.  
  3403. <: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
  3404.  
  3405. <: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)
  3406.  
  3407. <: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)
  3408.  
  3409. <: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)
  3410.  
  3411. <:R>ONCANCEL endit
  3412.  
  3413. ONERROR endit
  3414.  
  3415. HourGlass(1)
  3416.  
  3417. AllocGlobalVar("BN",2)
  3418.  
  3419. AllocGlobalVar("FN",1)
  3420.  
  3421. AllocGlobalVar("MS",1)
  3422.  
  3423. SetGlobalVar("MS",initmask)
  3424.  
  3425. IF Right$(initpath,1)<<<;>"\" THEN
  3426.  
  3427.     initpath=strcat$(initpath,"\")
  3428.  
  3429. ENDIF
  3430.  
  3431. IF Len(initpath)<;>3 THEN
  3432.  
  3433.     disppath=Left$(initpath,(Len(initpath)- 1))
  3434.  
  3435. ELSE
  3436.  
  3437.     disppath=initpath
  3438.  
  3439. ENDIF
  3440.  
  3441. FillEdit(8000,initmask)
  3442.  
  3443. FillEdit(8888,LCASE$(disppath))
  3444.  
  3445. FillEdit(9500,"*.*,0x4000")
  3446.  
  3447. SetDlgCallback(0,"boxinits")
  3448.  
  3449. SetDlgCallback(25,"okbutton")
  3450.  
  3451. SetDlgCallback(9005,"selfile")
  3452.  
  3453. SetDlgCallback(9006,"chdirs")
  3454.  
  3455. SetDlgCallback(9500,"chdrv")
  3456.  
  3457. SetDlgCallback(8000,"chmask")
  3458.  
  3459. HourGlass(0)
  3460.  
  3461. box=DialogBox(".","OPENBOX")
  3462.  
  3463. filename=GetGlobalVar$("FN")
  3464.  
  3465. IF box=0 THEN
  3466.  
  3467.     GOTO endit
  3468.  
  3469. ENDIF
  3470.  
  3471. endit:
  3472.  
  3473. FreeGlobalVar("FN")
  3474.  
  3475. FreeGlobalVar("BN")
  3476.  
  3477. FreeGlobalVar("MS")
  3478.  
  3479. RETURN(filename)
  3480.  
  3481. END FUNCTION
  3482.  
  3483.  
  3484. FUNCTION chmask(hDlg,id,value)
  3485.  
  3486. IgnoreKeyboard(1)
  3487.  
  3488. SetDlgItemText(hDlg,8123,"~")
  3489.  
  3490. END FUNCTION
  3491.  
  3492.  
  3493. FUNCTION okbutton(hDlg,id,value)
  3494.  
  3495. IF GetDlgItemText(hDlg,8123)="~" THEN
  3496.  
  3497.     newmask=GetDlgItemText(hDlg,8000)
  3498.  
  3499.     IF Mid$(newmask,2,1)=":" THEN
  3500.  
  3501.         res=Len(newmask)
  3502.  
  3503.         lb=chr$(91)
  3504.  
  3505.         WHILE(1)
  3506.  
  3507.             sep=instr(res,newmask,"\")
  3508.  
  3509.             IF sep=res THEN
  3510.  
  3511.                 BREAK
  3512.  
  3513.             ENDIF
  3514.  
  3515.             res=res - 1
  3516.  
  3517.         WEND
  3518.  
  3519.         IF sep<<<;>0 THEN
  3520.  
  3521.             curdir=Left$(newmask,sep)
  3522.  
  3523.             newmask=Right$(newmask,(Len(newmask) - sep))
  3524.  
  3525.             IF Len(curdir)=3 THEN
  3526.  
  3527.                 bks=0
  3528.  
  3529.             ELSE
  3530.  
  3531.                 bks=1
  3532.  
  3533.             ENDIF
  3534.  
  3535.             SetDlgItemText(hDlg,8888,Left$(curdir,(Len(curdir) - bks)))
  3536.  
  3537.             SetDlgItemText(hDlg,8000,LCASE$(newmask))
  3538.  
  3539.             SetGlobalVar("MS",newmask)
  3540.  
  3541.             handle=GetDlgItem(hDlg,9006)
  3542.  
  3543.             filldir=strcat$(curdir,"*.*")
  3544.  
  3545.             AppSendMessage(handle,LB_ResetContent,0,0)
  3546.  
  3547.             AppSendMessage(handle,CB_SetCurSel,0x8010,filldir)
  3548.  
  3549.         ENDIF
  3550.  
  3551.         IF Left$(curdir,1)<<<;>GetDlgItemText(hDlg,9500) THEN
  3552.  
  3553.             dletter=Left$(curdir,1)
  3554.  
  3555.             initdrv="{lb}-{dletter}-]"
  3556.  
  3557.             FOR drvnum=0 to 25
  3558.  
  3559.                 handle=GetDlgItem(hDlg,9500)
  3560.  
  3561.                 AppSendMessage(handle,CB_SetCurSel,drvnum,0)
  3562.  
  3563.                 seldrv=GetDlgItemText(hDlg,9500)
  3564.  
  3565.                 IF seldrv=initdrv THEN
  3566.  
  3567.                     BREAK
  3568.  
  3569.                 ENDIF
  3570.  
  3571.             NEXT
  3572.  
  3573.         ENDIF
  3574.  
  3575.     ELSE
  3576.  
  3577.         curdir=GetDlgItemText(hDlg,8888)
  3578.  
  3579.         IF Right$(curdir,1)<<<;>"\" THEN
  3580.  
  3581.             curdir=strcat$(curdir,"\")
  3582.  
  3583.         ENDIF
  3584.  
  3585.     ENDIF
  3586.  
  3587.     fillfile=strcat$(curdir,newmask)
  3588.  
  3589.     handle=GetDlgItem(hDlg,9005)
  3590.  
  3591.     AppSendMessage(handle,LB_ResetContent,0,0)
  3592.  
  3593.     AppSendMessage(handle,CB_SetCurSel,0,fillfile)
  3594.  
  3595.     SetDlgItemText(hDlg,8123,"")
  3596.  
  3597. ELSEIF
  3598.  
  3599.     GetDlgItemText(hDlg,9005)<<<;>"" THEN
  3600.  
  3601.     filename=GetDlgItemText(hDlg,9005)
  3602.  
  3603.     fpath=GetDlgItemText(hDlg,8888)
  3604.  
  3605.     IF right$(fpath,1)<<<;>"\" THEN
  3606.  
  3607.         fpath=strcat$(fpath,"\")
  3608.  
  3609.     ENDIF
  3610.  
  3611.     filename=strcat$(fpath,filename)
  3612.  
  3613.     SetGlobalVar("FN",filename)
  3614.  
  3615.     CloseBox(hDlg)
  3616.  
  3617. ENDIF
  3618.  
  3619. END FUNCTION
  3620.  
  3621.  
  3622. FUNCTION selfile(hDlg,id,value)
  3623.  
  3624. SetdlgItemText(hDlg,8000,value)
  3625.  
  3626. thetime=Now()
  3627.  
  3628. IF value=GetGlobalArray$("BN",1) AND 1<;>thetime-GetGlobalArray$("BN",2) THEN
  3629.  
  3630.     SetGlobalArray("BN",1,"")
  3631.  
  3632. ELSE
  3633.  
  3634.     SetGlobalArray("BN",1,value)
  3635.  
  3636.     SetGlobalArray("BN",2,thetime)
  3637.  
  3638.     EXIT FUNCTION
  3639.  
  3640. ENDIF
  3641.  
  3642. filename=value
  3643.  
  3644. fpath=GetDlgItemText(hDlg,8888)
  3645.  
  3646. IF right$(fpath,1)<<<;>"\" THEN
  3647.  
  3648.     fpath=strcat$(fpath,"\")
  3649.  
  3650. ENDIF
  3651.  
  3652. filename=strcat$(fpath,filename)
  3653.  
  3654. SetGlobalVar("FN",filename)
  3655.  
  3656. CloseBox(hDlg)
  3657.  
  3658. END FUNCTION
  3659.  
  3660.  
  3661. FUNCTION chdrv(hDlg,id,value)
  3662.  
  3663. HourGlass(1)
  3664.  
  3665. lb=chr$(91)
  3666.  
  3667. dletter=Mid$(value,3,1)
  3668.  
  3669. newdir=strcat$(dletter,":\")
  3670.  
  3671. SetDlgItemText(hDlg,8888,newdir)
  3672.  
  3673. handle=GetDlgItem(hDlg,9501)
  3674.  
  3675. cbnum=AppSendMessage(handle,CB_GetCurSel,0,0)
  3676.  
  3677. mask=GetDlgItemText(hDlg,8000)
  3678.  
  3679. fillfile=strcat$(newdir,"*",mask)
  3680.  
  3681. handle=GetDlgItem(hDlg,9005)
  3682.  
  3683. AppSendMessage(handle,LB_ResetContent,0,0)
  3684.  
  3685. AppSendMessage(handle,CB_SetCurSel,0,fillfile)
  3686.  
  3687. filldir=strcat$(newdir,"*.*")
  3688.  
  3689. handle=GetDlgItem(hDlg,9006)
  3690.  
  3691. AppSendMessage(handle,LB_ResetContent,0,0)
  3692.  
  3693. AppSendMessage(handle,CB_SetCurSel,0x8010,filldir)
  3694.  
  3695. HourGlass(0)
  3696.  
  3697. END FUNCTION
  3698.  
  3699.  
  3700. FUNCTION chdirs(hDlg,id,value)
  3701.  
  3702. singlestep(0)
  3703.  
  3704. mask=GetGlobalVar$("MS")
  3705.  
  3706. godir=GetDlgItemText(hDlg,9006)
  3707.  
  3708. ln=(Len(godir) - 2)
  3709.  
  3710. IF godir<<<;>"" THEN
  3711.  
  3712.     godir=MID$(godir,2,ln)
  3713.  
  3714.     dispmask=strcat$(godir,"\",UCASE$(mask))
  3715.  
  3716. ELSE
  3717.  
  3718.     dispmask=UCASE$(mask)
  3719.  
  3720. ENDIF
  3721.  
  3722. SetDlgItemText(hDlg,8000,dispmask)
  3723.  
  3724. IF godir="" THEN
  3725.  
  3726.     EXIT FUNCTION
  3727.  
  3728. ENDIF
  3729.  
  3730. thetime=Now()
  3731.  
  3732. IF godir=GetGlobalArray$("BN",1) AND 1<;>thetime-GetGlobalArray$("BN",2) THEN
  3733.  
  3734.     SetGlobalArray("BN",1,"")
  3735.  
  3736. ELSE
  3737.  
  3738.     SetGlobalArray("BN",1,godir)
  3739.  
  3740.     SetGlobalArray("BN",2,thetime)
  3741.  
  3742.     EXIT FUNCTION
  3743.  
  3744. ENDIF
  3745.  
  3746. HourGlass(1)
  3747.  
  3748. lb=chr$(91)
  3749.  
  3750. space=" "
  3751.  
  3752. cdr=GetDlgItemText(hDlg,8888)
  3753.  
  3754. IF Len(cdr)=3 THEN
  3755.  
  3756.     bs=""
  3757.  
  3758. ELSE
  3759.  
  3760.     bs="\"
  3761.  
  3762. ENDIF
  3763.  
  3764. IF godir<<<;>".." THEN
  3765.  
  3766.     newdir=strcat$(cdr,bs,godir)
  3767.  
  3768. ELSE
  3769.  
  3770.     cnt=1
  3771.  
  3772.     WHILE(1)
  3773.  
  3774.         res=MID$(cdr,(Len(cdr) - cnt),1)
  3775.  
  3776.         IF res="\" THEN
  3777.  
  3778.             BREAK
  3779.  
  3780.         ENDIF
  3781.  
  3782.         cnt=cnt+1
  3783.  
  3784.     WEND
  3785.  
  3786.     newdir=Left$(cdr,(Len(cdr)-cnt))
  3787.  
  3788. ENDIF
  3789.  
  3790. IF Len(newdir)<<<;>3 AND Right$(newdir,1)="\" THEN
  3791.  
  3792.     newdir=Left$(newdir,Len(newdir) - 1)
  3793.  
  3794. ENDIF
  3795.  
  3796. SetDlgItemText(hDlg,8888,(LCASE$(newdir)))
  3797.  
  3798. SetDlgItemText(hDlg,8000,UCASE$(mask))
  3799.  
  3800. IF Right$(newdir,1)<<<;>"\" THEN
  3801.  
  3802.     newdir=strcat$(newdir,"\")
  3803.  
  3804. ENDIF
  3805.  
  3806. handle=GetDlgItem(hDlg,9501)
  3807.  
  3808. cbnum=AppSendMessage(handle,CB_GetCurSel,0,0)
  3809.  
  3810. fillfile=strcat$(newdir,mask)
  3811.  
  3812. handle=GetDlgItem(hDlg,9005)
  3813.  
  3814. AppSendMessage(handle,LB_ResetContent,0,0)
  3815.  
  3816. AppSendMessage(handle,CB_SetCurSel,0,fillfile)
  3817.  
  3818. filldir=strcat$(newdir,"*.*")
  3819.  
  3820. handle=GetDlgItem(hDlg,9006)
  3821.  
  3822. AppSendMessage(handle,LB_ResetContent,0,0)
  3823.  
  3824. AppSendMessage(handle,CB_SetCurSel,0x8010,filldir)
  3825.  
  3826. HourGlass(0)
  3827.  
  3828. END FUNCTION
  3829.  
  3830.  
  3831. FUNCTION boxinits(hDlg,id,value)
  3832.  
  3833. HourGlass(1)
  3834.  
  3835. lb=chr$(91)
  3836.  
  3837. dletter=Left$((GetDocPath$()),1)
  3838.  
  3839. dletter=Lcase$(dletter)
  3840.  
  3841. initdrv="{lb}-{dletter}-]"
  3842.  
  3843. FOR drvnum=0 to 25
  3844.  
  3845.     handle=GetDlgItem(hDlg,9500)
  3846.  
  3847.     AppSendMessage(handle,CB_SetCurSel,drvnum,0)
  3848.  
  3849.     seldrv=GetDlgItemText(hDlg,9500)
  3850.  
  3851.     IF seldrv=initdrv THEN
  3852.  
  3853.         BREAK
  3854.  
  3855.     ENDIF
  3856.  
  3857. NEXT
  3858.  
  3859. filldir=GetDlgItemText(hDlg,8888)
  3860.  
  3861. mask=GetDlgItemText(hDlg,8000)
  3862.  
  3863. IF Right$(filldir,1)<<<;>"\" THEN
  3864.  
  3865.     filldir=strcat$(filldir,"\")
  3866.  
  3867. ENDIF
  3868.  
  3869. fillfile=strcat$(filldir,mask)
  3870.  
  3871. filldir=strcat$(filldir,"*.*")
  3872.  
  3873. handle=GetDlgItem(hDlg,9006)
  3874.  
  3875. AppSendMessage(handle,CB_SetCurSel,0x8010,filldir)
  3876.  
  3877. handle=GetDlgItem(hDlg,9005)
  3878.  
  3879. AppSendMessage(handle,CB_SetCurSel,0,fillfile)
  3880.  
  3881. handle=GetDlgItem(hDlg,8000)
  3882.  
  3883. AppSendMessage(handle,EM_SetSel,0,5)
  3884.  
  3885. HourGlass(0)
  3886.  
  3887. END FUNCTION
  3888.  
  3889.  
  3890. ------------------------------------------------------------------------------------------
  3891.  
  3892. @Function@DIALOG OPENBOX
  3893.  
  3894. -2134376448 13 26 28 212 115 "" "" "Open  Card File"
  3895.  
  3896. FONT 6 "Helv"
  3897.  
  3898. 5 4 40 10 1001 1342308352 "static" "File &name:" 0 
  3899.  
  3900. 66 3 95 12 8000 1350631552 "edit" "" 0 
  3901.  
  3902. 5 15 40 10 1002 1342308352 "static" "Directory:" 0 
  3903.  
  3904. 66 16 95 9 8888 1342177280 "static" "show directory here" 0 
  3905.  
  3906. 5 26 27 10 1003 1342308352 "static" "&Files:" 0 
  3907.  
  3908. 5 36 58 69 9005 1352728579 "listbox" "" 0 
  3909.  
  3910. 66 26 44 10 1004 1342308352 "static" "&Directories:" 0 
  3911.  
  3912. 66 36 58 69 9006 1352728579 "listbox" "" 0 
  3913.  
  3914. 127 26 27 10 1006 1342308352 "static" "Dri&ves:" 0 
  3915.  
  3916. 127 36 34 45 9500 1344339971 "combobox" "" 0 
  3917.  
  3918. 166 3 40 14 25 1342373889 "button" "OK" 0 
  3919.  
  3920. 166 19 40 14 2 1342373888 "button" "Cancel" 0 
  3921.  
  3922. 196 150 7 12 8123 1350631424 "edit" "" 0 
  3923.  
  3924. END DIALOG
  3925.  
  3926.  
  3927. @Function@' Dialog boxes
  3928.  
  3929. @2nd Function@DIALOG    MainBox
  3930.  
  3931. -2134376448    51    29    32    296    194    ""    ""    "Edit Card File"
  3932.  
  3933. FONT    8    "Helv"
  3934.  
  3935. 6    6    235    178    1000    1342177290    "static"    "filename.bmp"    0 
  3936.  
  3937. 94    27    130    12    8001    1350762624    "edit"    ""    0 
  3938.  
  3939. 94    41    130    12    8002    1350631552    "edit"    ""    0 
  3940.  
  3941. 94    55    130    12    8003    1350631552    "edit"    ""    0 
  3942.  
  3943. 94    69    130    12    8004    1350631552    "edit"    ""    0 
  3944.  
  3945. 94    83    130    12    8005    1350631552    "edit"    ""    0 
  3946.  
  3947. 94    97    130    12    8006    1350631552    "edit"    ""    0 
  3948.  
  3949. 94    111    130    12    8007    1350631552    "edit"    ""    0 
  3950.  
  3951. 94    125    130    12    8008    1350631552    "edit"    ""    0 
  3952.  
  3953. 94    139    130    12    8009    1350631552    "edit"    ""    0 
  3954.  
  3955. 94    153    130    12    8010    1350762624    "edit"    ""    0 
  3956.  
  3957. 247    17    46    14    31    1342373889    "button"    "&Add"    0 
  3958.  
  3959. 247    33    46    14    32    1342373888    "button"    "&Delete"    0 
  3960.  
  3961. 247    49    46    14    21    1342373888    "button"    "&Update"    0 
  3962.  
  3963. 247    65    46    14    33    1342373888    "button"    "&New Card"    0 
  3964.  
  3965. 247    81    46    14    1    1342373888    "button"    "Close"    0 
  3966.  
  3967. 247    119    46    14    27    1342373888    "button"    "&Index..."    0 
  3968.  
  3969. 247    135    46    14    30    1342373888    "button"    "&Go To..."    0 
  3970.  
  3971. 247    151    21    14    29    1342373896    "button"    "prev"    0 
  3972.  
  3973. 272    151    21    14    28    1342373896    "button"    "next"    0 
  3974.  
  3975. 272    167    21    14    35    1342373896    "button"    "ffwrd"    0 
  3976.  
  3977. 272    167    21    14    55    1342373896    "button"    "Stopffwr"    0 
  3978.  
  3979. 247    167    21    14    36    1342373896    "button"    "frev"    0 
  3980.  
  3981. 247    167    21    14    56    1342373896    "button"    "StopFrv"    0 
  3982.  
  3983. '211    168    12    12    23    1342373896    "button"    "<;><;>"    0 
  3984.  
  3985. '226    168    12    12    24    1342373896    "button"    "<<<<"    0 
  3986.  
  3987. 110    168    12    12    23    1342373896    "button"    "<;><;>"    0 
  3988.  
  3989. 125    168    12    12    24    1342373896    "button"    "<<<<"    0 
  3990.  
  3991. 8    160    36    26    1011    1342177290    "static"    "filename.bmp"    0 
  3992.  
  3993. 24    29    64    8    1001    1342177282    "static"    ""    0 
  3994.  
  3995. 28    43    60    8    1002    1342177282    "static"    ""    0 
  3996.  
  3997. 24    57    64    8    1003    1342177282    "static"    ""    0 
  3998.  
  3999. 24    71    64    8    1004    1342177282    "static"    ""    0 
  4000.  
  4001. 24    85    64    8    1005    1342177282    "static"    ""    0 
  4002.  
  4003. 24    99    64    8    1006    1342177282    "static"    ""    0 
  4004.  
  4005. 24    113    64    8    1007    1342177282    "static"    ""    0 
  4006.  
  4007. 24    127    64    8    1008    1342177282    "static"    ""    0 
  4008.  
  4009. 24    141    64    8    1009    1342177282    "static"    ""    0 
  4010.  
  4011. 24    155    64    8    1010    1342177282    "static"    ""    0 
  4012.  
  4013. 59    9    36    8    82    1342177288    "button"    ""    0 
  4014.  
  4015. 104    9    37    8    83    1342177288    "button"    ""    0 
  4016.  
  4017. 151    9    34    8    84    1342177288    "button"    ""    0 
  4018.  
  4019. 198    9    35    8    85    1342177288    "button"    ""    0 
  4020.  
  4021. 11    250    12    7    41    1342177280    "button"    "RET"    0 
  4022.  
  4023. 13    9    36    8    1017    1342177280    "static"    "text"    0 
  4024.  
  4025. 59    9    36    8    1018    1342177280    "static"    ""    0 
  4026.  
  4027. 104    9    37    8    1019    1342177280    "static"    ""    0 
  4028.  
  4029. 151    9    35    8    1020    1342177280    "static"    ""    0 
  4030.  
  4031. 198    9    35    8    1021    1342177280    "static"    ""    0 
  4032.  
  4033. 110    168    14    14    93    1342177280    "static"    ""    0 
  4034.  
  4035. 125    168    14    14    94    1342177280    "static"    ""    0 
  4036.  
  4037. 247    103    46    14    39    1342373888    "button"    "&Copy"    0 
  4038.  
  4039. 165    172    70    9    1013    1342177280    "static"    "text"    0 
  4040.  
  4041. END DIALOG
  4042.  
  4043. @2nd Function@DIALOG Sort
  4044.  
  4045. -2134376448 10 102 60 152 82 "" "" "Sort Records"
  4046.  
  4047. FONT 8 "Helvetica"
  4048.  
  4049. 6 14 86 40 9500 1344274435 "combobox" "" 0 
  4050.  
  4051. 108 4 40 14 1 1342242817 "button" "OK" 0 
  4052.  
  4053. 108 20 40 14 2 1342242816 "button" "Cancel" 0 
  4054.  
  4055. 6 4 52 8 1000 1342177280 "static" "Sort by field:" 0 
  4056.  
  4057. 6 36 66 40 20 1342242823 "button" "Sort type" 0 
  4058.  
  4059. 80 36 68 40 21 1342242823 "button" "Sort order" 0 
  4060.  
  4061. 8 48 54 12 22 1342373897 "button" "&Alphanumeric" 0 
  4062.  
  4063. 8 60 50 12 23 1342177289 "button" "&Numeric" 0 
  4064.  
  4065. 84 48 50 10 24 1342373897 "button" "&Ascending" 0 
  4066.  
  4067. 84 60 54 12 25 1342177289 "button" "&Descending" 0 
  4068.  
  4069. END DIALOG
  4070.  
  4071.  
  4072.  
  4073. @2nd Function@DIALOG Goto
  4074.  
  4075. -2134376448 8 34 64 251 42 "" "" "Go To Card"
  4076.  
  4077. FONT 8 "Helv"
  4078.  
  4079. 129 3 73 12 8000 1350631552 "edit" "" 0 
  4080.  
  4081. 207 2 40 14 1 1342242817 "button" "Go To" 0 
  4082.  
  4083. 207 18 40 14 2 1342242816 "button" "Cancel" 0 
  4084.  
  4085. 4 3 41 10 20 1342242825 "button" "&Field:" 0 
  4086.  
  4087. 54 3 65 38 9500 1344339971 "combobox" "" 0 
  4088.  
  4089. 4 14 48 12 21 1342242825 "button" "First record" 0 
  4090.  
  4091. 4 27 47 10 22 1342242825 "button" "Last record" 0 
  4092.  
  4093. 121 5 6 8 1000 1342177280 "static" "=" 0 
  4094.  
  4095. END DIALOG
  4096.  
  4097.  
  4098. @2nd Function@DIALOG MakeFields
  4099.  
  4100. -2134376448 11 67 51 142 105 "" "" "Create Data File"
  4101.  
  4102. FONT 8 "Helvetica"
  4103.  
  4104. 6 13 86 12 8001 1350631552 "edit" "" 0 
  4105.  
  4106. 98 4 40 14 20 1342242816 "button" "Done" 0 
  4107.  
  4108. 98 20 40 14 2 1342242816 "button" "Cancel" 0 
  4109.  
  4110. 98 36 40 14 21 1342242817 "button" "&Add" 0 
  4111.  
  4112. 98 52 40 14 22 1342242816 "button" "&Remove" 0 
  4113.  
  4114. 98 68 16 14 23 1342242816 "button" "&Up" 0 
  4115.  
  4116. 122 68 16 14 24 1342242816 "button" "&Dn" 0 
  4117.  
  4118. 6 39 86 62 9000 1352728577 "listbox" "" 0 
  4119.  
  4120. 6 3 68 8 1000 1342177280 "static" "Field Name:" 0 
  4121.  
  4122. 99 87 40 14 30 1342242816 "button" "&Options..." 0 
  4123.  
  4124. 7 29 59 9 1001 1342177280 "static" "Fields in data file:" 0 
  4125.  
  4126. END DIALOG
  4127.  
  4128.  
  4129.  
  4130. @2nd Function@DIALOG NoMatch
  4131.  
  4132. -2134376448 2 86 56 121 50 "" "" "Search Results"
  4133.  
  4134. 41 25 40 14 1 1342373889 "button" "OK" 0 
  4135.  
  4136. 34 7 57 10 1000 1342177280 "static" "No match found" 0 
  4137.  
  4138. END DIALOG
  4139.  
  4140.  
  4141. @2nd Function@DIALOG    Build
  4142.  
  4143. -2134376448    8    47    32    160    100    ""    ""    "Create Card File"
  4144.  
  4145. FONT    8    "Helv"
  4146.  
  4147. 4    14    64    12    8000    1350631552    "Edit"    ""    0 
  4148.  
  4149. 4    30    64    61    9000    1352728579    "listbox"    ""    0 
  4150.  
  4151. 115    4    40    14    1    1342242816    "button"    "OK"    0 
  4152.  
  4153. 115    20    40    14    2    1342242816    "button"    "Cancel"    0 
  4154.  
  4155. 115    36    40    14    51    1342242817    "button"    "&Add"    0 
  4156.  
  4157. 70    14    40    12    8001    1350631552    "SamNumeditBox"    ""    0 
  4158.  
  4159. 5    3    62    10    1000    1342177280    "static"    "Enter field name:"    0 
  4160.  
  4161. 74    3    40    10    1001    1342177280    "static"    "Field size:"    0 
  4162.  
  4163. END DIALOG
  4164.  
  4165.  
  4166. @2nd Function@DIALOG Save
  4167.  
  4168. -2134376448 7 58 34 138 88 "" "" "Save Card File"
  4169.  
  4170. FONT 8 "Helv"
  4171.  
  4172. 6 16 68 12 8000 1350631424 "edit" "" 0 
  4173.  
  4174. 6 44 82 40 9001 1352728579 "listbox" "" 0 
  4175.  
  4176. 30 32 56 8 7999 1342177280 "static" "" 0 
  4177.  
  4178. 92 4 40 14 1 1342242816 "button" "OK" 0 
  4179.  
  4180. 92 20 40 14 2 1342242816 "button" "Cancel" 0 
  4181.  
  4182. 6 6 38 10 1000 1342177280 "static" "File name:" 0 
  4183.  
  4184. 6 32 20 10 1001 1342177280 "static" "Path:" 0 
  4185.  
  4186. END DIALOG
  4187.  
  4188.  
  4189. @2nd Function@DIALOG    Index
  4190.  
  4191. -2134376448    5    42    50    178    48    ""    ""    "Select Field"
  4192.  
  4193. FONT    6    "Helv"
  4194.  
  4195. 132    4    40    14    1    1342373889    "button"    "OK"    0 
  4196.  
  4197. 132    20    40    14    2    1342373888    "button"    "Cancel"    0 
  4198.  
  4199. 6    8    48    10    1000    1342177280    "static"    "Field Name:"    0 
  4200.  
  4201. 56    6    68    36    9500    1344274435    "combobox"    ""    0 
  4202.  
  4203. 6    30    118    16    1001    1342177280    "static"    "Please select a field to display in the tab folder."    0 
  4204.  
  4205. END DIALOG
  4206.  
  4207.  
  4208. @2nd Function@DIALOG    Network
  4209.  
  4210. -2134376448    6    45    48    202    41    ""    ""    "Card File Setup"
  4211.  
  4212. FONT    8    "Helv"
  4213.  
  4214. 158    4    40    14    1    1342373889    "button"    "OK"    0 
  4215.  
  4216. 158    20    40    14    2    1342373888    "button"    "Cancel"    0 
  4217.  
  4218. 70    6    82    12    8000    1350631552    "edit"    ""    0 
  4219.  
  4220. 5    8    40    10    1000    1342177280    "static"    "User name:"    0 
  4221.  
  4222. 70    20    82    12    8002    1350631552    "edit"    ""    0 
  4223.  
  4224. 5    22    62    10    1002    1342177280    "static"    "Paradox.Net path:"    0 
  4225.  
  4226. END DIALOG
  4227.  
  4228. >
  4229.  
  4230. [Embedded]
  4231. 00059349
  4232. >
  4233. [macsum] 52
  4234. Main 0 0 10 184
  4235. Init 511 1 2 213
  4236. OnMenu 718 2 3 221
  4237. MainEntryBox 902 1 15 232
  4238. PreBuild 3008 3 9 337
  4239. MainCall 4077 3 10 380
  4240. HitFolder 8233 3 8 543
  4241. HitEnter 8808 3 6 566
  4242. FastForward 9448 1 10 594
  4243. FastReverse 10086 3 10 625
  4244. ShiftNames 10728 2 2 656
  4245. Stopit 10953 0 1 663
  4246. Lockem 11004 1 11 668
  4247. ReadFive 11939 1 9 704
  4248. CopyToClip 12791 0 5 733
  4249. CloseTable 13065 0 3 743
  4250. UpDateDisplay 13237 3 13 750
  4251. StuffInfo 16021 1 5 830
  4252. GetFieldInfo 16341 3 8 845
  4253. GetFieldData 17091 1 13 878
  4254. GetKeyfields 17441 2 3 894
  4255. StuffRecBuf 17624 0 11 903
  4256. PackGlobals 18731 4 3 947
  4257. SortEm 19511 0 13 984
  4258. GotoMain 19946 1 17 1005
  4259. FindItem 21328 2 6 1066
  4260. Build 21940 0 7 1092
  4261. BuildTable 22827 1 12 1132
  4262. CallBuild 23849 3 6 1163
  4263. BuildIndex 24700 2 8 1194
  4264. OpenTable 25635 3 6 1225
  4265. ReadFields 26303 3 8 1247
  4266. FreeGlobals 26968 0 1 1261
  4267. Configure 27629 0 12 1291
  4268. ShutDown 28956 0 5 1337
  4269. OpenBox 29362 2 4 1353
  4270. chmask 30355 3 1 1400
  4271. okbutton 30470 3 16 1405
  4272. selfile 32618 3 4 1470
  4273. chdrv 33215 3 9 1490
  4274. chdirs 33913 3 17 1510
  4275. boxinits 36009 3 10 1576
  4276. OPENBOX 37043 0 -1 1607
  4277. MainBox 37770 0 -1 1626
  4278. Sort 40187 0 -1 1683
  4279. Goto 40774 0 -1 1699
  4280. MakeFields 41227 0 -1 1712
  4281. NoMatch 41853 0 -1 1729
  4282. Build 42021 0 -1 1735
  4283. Save 42493 0 -1 1748
  4284. Index 42891 0 -1 1760
  4285. Network 43255 0 -1 1770
  4286. [macse]
  4287. 14 Main
  4288. 0 32 2
  4289. 5 1
  4290. 21 5 [X]
  4291. 5 1
  4292. 8 6
  4293. 5 1
  4294. 16 OnMenu "&Card File" "&Open..."
  4295. 13
  4296. 18 0
  4297. 11 00000193
  4298. 0 286 "Card File" "LastOpen" "AmiPro2.ini"
  4299. 13
  4300. 8 7
  4301. 16 MainEntryBox "{7}"
  4302. 6 0
  4303. 15
  4304. 9
  4305. 7 "&Card File"
  4306. 8 8
  4307. 0 521 "{6}" "{8}"
  4308. 0 515 "{6}" "{8}"
  4309. 0 802
  4310. 13
  4311. 8 9
  4312. 0 516 "{6}" "{8}" "&New Card File..." "{9}!Build()"
  4313. 0 516 "{6}" "{8}" "&Open..." "{9}!MainEntryBox"
  4314. 0 516 "{6}" "{8}" "-" ""
  4315. 0 516 "{6}" "{8}" "E&xit Card File" "{9}!Shutdown()"
  4316. 0 516 "{6}" "{8}" "&Setup..." "{9}!Configure()"
  4317. 6 0
  4318. 15
  4319. 9
  4320. 14 Init
  4321. 0 798
  4322. 13
  4323. 0 16 [X] "pxengwin.dll"
  4324. 13
  4325. 0 297 [X] "PXWinInit" "HCH"
  4326. 13
  4327. 28 0
  4328. 0 271 "LibId" 1
  4329. 0 264 "LibId" "{0}"
  4330. 0 284 "PXEngWin.dll,PXWinInit,HCH" "PDXMain" 0
  4331. 13
  4332. 8 2
  4333. 6 2
  4334. 15
  4335. 9
  4336. 6 1
  4337. 15
  4338. 9
  4339. 14 OnMenu
  4340. 0 802
  4341. 13
  4342. 8 3
  4343. 0 518 1 "{0}" "{1}" 1
  4344. 13
  4345. 8 4
  4346. 0 518 1 "{0}" "{1}" 0
  4347. 13
  4348. 8 4
  4349. 6 4
  4350. 5 8
  4351. 18 0
  4352. 11 00000143
  4353. 5 1
  4354. 8 2
  4355. 10 00000172
  4356. 6 2
  4357. 5 0
  4358. 18 0
  4359. 11 00000172
  4360. 6 2
  4361. 15
  4362. 9
  4363. 14 MainEntryBox
  4364. 5 1
  4365. 21 7 [X]
  4366. 5 1
  4367. 21 8 [X]
  4368. 0 271 "LibId" 1
  4369. 0 265 "libid"
  4370. 13
  4371. 7 ""
  4372. 18 0
  4373. 11 00000254
  4374. 16 Init &6
  4375. 13
  4376. 8 2
  4377. 6 2
  4378. 5 0
  4379. 18 0
  4380. 6 2
  4381. 5 82
  4382. 18 0
  4383. 1 2
  4384. 11 00000193
  4385. 10 00000254
  4386. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{2}"
  4387. 13
  4388. 8 9
  4389. 6 1
  4390. 15
  4391. 9
  4392. 6 0
  4393. 7 ""
  4394. 18 0
  4395. 11 00000426
  4396. 7 ""
  4397. 8 0
  4398. 0 268
  4399. 13
  4400. 8 10
  4401. 7 "*.db"
  4402. 8 11
  4403. 7 ""
  4404. 16 OpenBox "{10}" "{11}"
  4405. 13
  4406. 0 805 &0 [X]
  4407. 13
  4408. 18 1
  4409. 11 00000414
  4410. 10 00000426
  4411. 6 1
  4412. 15
  4413. 9
  4414. 0 296 1
  4415. 5 0
  4416. 16 OpenTable "{0}" &3 &4
  4417. 13
  4418. 0 805 &2 [X]
  4419. 13
  4420. 18 0
  4421. 11 00000570
  4422. 0 287 "Card File" "LastOpen" "{0}" "AmiPro2.ini"
  4423. 10 00000632
  4424. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{2}"
  4425. 13
  4426. 8 9
  4427. 5 -1
  4428. 15
  4429. 9
  4430. 5 0
  4431. 16 ReadFields &7 &8 "{3}"
  4432. 13
  4433. 0 805 &2 [X]
  4434. 13
  4435. 18 0
  4436. 11 00000718
  4437. 10 00000780
  4438. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{2}"
  4439. 13
  4440. 8 9
  4441. 5 -1
  4442. 15
  4443. 9
  4444. 5 0
  4445. 16 GetKeyFields "{3}" *
  4446. 13
  4447. 0 805 &2 [X]
  4448. 13
  4449. 18 0
  4450. 11 00000864
  4451. 10 00000913
  4452. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{2}"
  4453. 13
  4454. 8 9
  4455. 16 PackGlobals &7 &8 "{4}" "{3}"
  4456. 0 802
  4457. 13
  4458. 8 12
  4459. 0 798
  4460. 13
  4461. 8 13
  4462. 0 31 1000 "{13}GreyBlue.bmt"
  4463. 0 31 1011 ""
  4464. 0 31 34 "{13}Lock.bmp"
  4465. 0 31 23 "{13}Down.bmt"
  4466. 0 31 24 "{13}Up.bmt"
  4467. 0 31 28 "{13}Next3.Bmt"
  4468. 0 31 29 "{13}Prev3.bmt"
  4469. 0 31 35 "{13}FFWRD.Bmt"
  4470. 0 31 36 "{13}Frev.bmt"
  4471. 0 31 55 "{13}Stop.bmt"
  4472. 0 31 56 "{13}Stop.bmt"
  4473. 0 31 82 ""
  4474. 0 31 83 ""
  4475. 0 31 84 ""
  4476. 0 31 85 ""
  4477. 0 41 0 "{12}!PreBuild"
  4478. 0 41 21 "{12}!MainCall"
  4479. 0 41 23 "{12}!MainCall"
  4480. 0 41 24 "{12}!MainCall"
  4481. 0 41 27 "{12}!MainCall"
  4482. 0 41 28 "{12}!MainCall"
  4483. 0 41 29 "{12}!MainCall"
  4484. 0 41 30 "{12}!MainCall"
  4485. 0 41 31 "{12}!MainCall"
  4486. 0 41 32 "{12}!MainCall"
  4487. 0 41 33 "{12}!MainCall"
  4488. 0 41 34 "{12}!MainCall"
  4489. 0 41 35 "{12}!MainCall"
  4490. 0 41 36 "{12}!MainCall"
  4491. 0 41 39 "{12}!MainCall"
  4492. 0 41 55 "{12}!MainCall"
  4493. 0 41 56 "{12}!MainCall"
  4494. 0 41 41 "{12}!HitEnter"
  4495. 0 41 82 "{12}!HitFolder"
  4496. 0 41 83 "{12}!HitFolder"
  4497. 0 41 84 "{12}!HitFolder"
  4498. 0 41 85 "{12}!HitFolder"
  4499. 0 32 2
  4500. 0 296 0
  4501. 0 26 "." "Mainbox"
  4502. 13
  4503. 8 14
  4504. 0 265 "LibId"
  4505. 13
  4506. 8 6
  4507. 16 CloseTable
  4508. 5 0
  4509. 0 284 "PXEngWin.dll,PXExit,H"
  4510. 13
  4511. 0 805 &2 [X]
  4512. 13
  4513. 18 1
  4514. 11 00002055
  4515. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{2}"
  4516. 13
  4517. 8 9
  4518. 0 298 "{6}"
  4519. 13
  4520. 8 15
  4521. 16 FreeGlobals
  4522. 6 1
  4523. 15
  4524. 9
  4525. 14 PreBuild
  4526. 0 32 2
  4527. 0 273 "TotalFields" 1
  4528. 13
  4529. 8 7
  4530. 0 273 "Thandle" 1
  4531. 13
  4532. 8 8
  4533. 0 273 "RecHandle" 1
  4534. 13
  4535. 8 9
  4536. 5 0
  4537. 0 284 "PXEngWin.dll,PXTblName,HHHC" "{8}" 80 &6
  4538. 13
  4539. 18 0
  4540. 11 00000201
  4541. 10 00000201
  4542. 0 44 "{0}" 34
  4543. 13
  4544. 0 284 "User,ShowWindow,AHH" [X] 0
  4545. 0 44 "{0}" 55
  4546. 13
  4547. 0 284 "User,ShowWindow,AHH" [X] 0
  4548. 0 44 "{0}" 56
  4549. 13
  4550. 0 284 "User,ShowWindow,AHH" [X] 0
  4551. 0 44 "{0}" 93
  4552. 13
  4553. 0 284 "User,ShowWindow,AHH" [X] 0
  4554. 6 7
  4555. 5 10
  4556. 18 5
  4557. 11 00000555
  4558. 0 44 "{0}" 23
  4559. 13
  4560. 0 284 "User,ShowWindow,AHH" [X] 0
  4561. 0 44 "{0}" 24
  4562. 13
  4563. 0 284 "User,ShowWindow,AHH" [X] 0
  4564. 7 "Edit Card File - {6}"
  4565. 8 10
  4566. 0 284 "User,SetWindowText,HHC" "{0}" "{10}"
  4567. 5 0
  4568. 0 284 "PXEngWin.dll,PXNetUserName,HHC" 80 &5
  4569. 13
  4570. 0 805 &4 [X]
  4571. 13
  4572. 18 0
  4573. 11 00000737
  4574. 10 00000737
  4575. 0 1036 "{0}" 1025 41 0
  4576. 5 0
  4577. 0 284 "PXEngWin.dll,PXRecFirst,HH" "{8}"
  4578. 13
  4579. 0 805 &4 [X]
  4580. 13
  4581. 18 0
  4582. 11 00000979
  4583. 0 284 "PXEngWin.dll,PXRecGet,HHH" "{8}" "{9}"
  4584. 16 GetFieldData "{0}"
  4585. 16 UpdateDisplay "{0}" 0 0
  4586. 16 ReadFive "{0}"
  4587. 10 00001057
  4588. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{4}"
  4589. 13
  4590. 8 11
  4591. 16 UpdateDisplay "{0}" 0 0
  4592. 6 3
  4593. 15
  4594. 9
  4595. 14 MainCall
  4596. 0 32 2
  4597. 0 273 "LastField" 1
  4598. 13
  4599. 8 7
  4600. 0 273 "TotalFields" 1
  4601. 13
  4602. 8 8
  4603. 0 273 "Thandle" 1
  4604. 13
  4605. 8 9
  4606. 0 273 "RecHandle" 1
  4607. 13
  4608. 8 10
  4609. 5 21
  4610. 6 1
  4611. 18 0
  4612. 11 00000475
  4613. 16 StuffInfo "{0}"
  4614. 16 StuffRecBuf
  4615. 5 0
  4616. 0 284 "PXEngWin.dll,PXRecUpdate,HHH" "{9}" "{10}"
  4617. 13
  4618. 0 805 &4 [X]
  4619. 13
  4620. 18 1
  4621. 11 00000355
  4622. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{4}"
  4623. 13
  4624. 8 11
  4625. 0 284 "PXEngWin.dll,PXRecGet,HHH" "{9}" "{10}"
  4626. 16 GetFieldData "{0}"
  4627. 16 UpdateDisplay "{0}" "{1}" "{2}"
  4628. 10 00004120
  4629. 5 23
  4630. 6 1
  4631. 18 0
  4632. 11 00000697
  4633. 16 StuffInfo "{0}"
  4634. 6 7
  4635. 5 10
  4636. 3 0
  4637. 8 7
  4638. 6 7
  4639. 6 8
  4640. 18 2
  4641. 11 00000596
  4642. 6 7
  4643. 5 10
  4644. 3 1
  4645. 8 7
  4646. 0 272 "RefreshMain" 1 1
  4647. 0 272 "LastField" 1 "{7}"
  4648. 16 UpdateDisplay "{0}" "{1}" "{2}"
  4649. 10 00004120
  4650. 5 24
  4651. 6 1
  4652. 18 0
  4653. 11 00000908
  4654. 16 StuffInfo "{0}"
  4655. 6 7
  4656. 5 10
  4657. 3 1
  4658. 8 7
  4659. 6 7
  4660. 5 0
  4661. 18 5
  4662. 11 00000807
  4663. 5 0
  4664. 8 7
  4665. 0 272 "RefreshMain" 1 1
  4666. 0 272 "LastField" 1 "{7}"
  4667. 16 UpdateDisplay "{0}" "{1}" "{2}"
  4668. 10 00004120
  4669. 5 27
  4670. 6 1
  4671. 18 0
  4672. 11 00001167
  4673. 0 284 "User,EnableWindow,AHA" "{0}" 0
  4674. 16 SortEm
  4675. 13
  4676. 11 00001064
  4677. 16 GetFieldData "{0}"
  4678. 16 UpdateDisplay "{0}" "{1}" "{2}"
  4679. 0 284 "User,EnableWindow,AHA" "{0}" 1
  4680. 0 284 "User,SetFocus,HH" "{0}"
  4681. 16 ReadFive "{0}"
  4682. 10 00004120
  4683. 5 28
  4684. 6 1
  4685. 18 0
  4686. 11 00001486
  4687. 5 0
  4688. 0 284 "PXEngWin.dll,PXRecNext,HH" "{9}"
  4689. 13
  4690. 0 805 &4 [X]
  4691. 13
  4692. 18 0
  4693. 11 00001423
  4694. 16 ReadFive "{0}"
  4695. 0 284 "PXEngWin.dll,PXRecGet,HHH" "{9}" "{10}"
  4696. 16 GetFieldData "{0}"
  4697. 16 UpdateDisplay "{0}" "{1}" "{2}"
  4698. 10 00001473
  4699. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{4}"
  4700. 13
  4701. 8 11
  4702. 10 00004120
  4703. 5 29
  4704. 6 1
  4705. 18 0
  4706. 11 00001805
  4707. 5 0
  4708. 0 284 "PXEngWin.dll,PXRecPrev,HH" "{9}"
  4709. 13
  4710. 0 805 &4 [X]
  4711. 13
  4712. 18 0
  4713. 11 00001742
  4714. 16 ReadFive "{0}"
  4715. 0 284 "PXEngWin.dll,PXRecGet,HHH" "{9}" "{10}"
  4716. 16 GetFieldData "{0}"
  4717. 16 UpdateDisplay "{0}" "{1}" "{2}"
  4718. 10 00001792
  4719. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{4}"
  4720. 13
  4721. 8 11
  4722. 10 00004120
  4723. 5 30
  4724. 6 1
  4725. 18 0
  4726. 11 00002112
  4727. 0 284 "User,EnableWindow,AHA" "{0}" 0
  4728. 16 GotoMain "{0}"
  4729. 13
  4730. 8 4
  4731. 0 284 "User,EnableWindow,AHA" "{0}" 1
  4732. 0 284 "PXEngWin.dll,PXRecGet,HHH" "{9}" "{10}"
  4733. 16 GetFieldData "{0}"
  4734. 16 UpdateDisplay "{0}" "{1}" "{2}"
  4735. 0 284 "User,SetFocus,HH" "{0}"
  4736. 16 ReadFive "{0}"
  4737. 10 00004120
  4738. 5 31
  4739. 6 1
  4740. 18 0
  4741. 11 00002487
  4742. 16 StuffInfo "{0}"
  4743. 16 StuffRecBuf
  4744. 5 0
  4745. 0 284 "PxEngWin.dll,PXRecInsert,HHH" "{9}" "{10}"
  4746. 13
  4747. 0 805 &4 [X]
  4748. 13
  4749. 18 1
  4750. 11 00002325
  4751. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{4}"
  4752. 13
  4753. 8 11
  4754. 5 0
  4755. 8 7
  4756. 0 272 "LastField" 1 "{7}"
  4757. 0 272 "RefreshMain" 1 1
  4758. 0 284 "User,SetFocus,HH" "{0}"
  4759. 16 UpdateDisplay "{0}" "{1}" "{2}"
  4760. 16 ReadFive "{0}"
  4761. 10 00004120
  4762. 5 32
  4763. 6 1
  4764. 18 0
  4765. 11 00002893
  4766. 16 GetFieldData "{0}"
  4767. 0 2 "Really Delete This Card?"
  4768. 13
  4769. 11 00002867
  4770. 5 0
  4771. 0 284 "PXEngWin.dll,PXRecDelete,HH" "{9}"
  4772. 13
  4773. 0 805 &4 [X]
  4774. 13
  4775. 18 0
  4776. 11 00002817
  4777. 0 284 "PXEngWin.dll,PXRecGet,HHH" "{9}" "{10}"
  4778. 16 GetFieldData "{0}"
  4779. 16 UpdateDisplay "{0}" "{1}" "{2}"
  4780. 16 ReadFive "{0}"
  4781. 10 00002867
  4782. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{4}"
  4783. 13
  4784. 8 11
  4785. 10 00004120
  4786. 10 00004120
  4787. 5 33
  4788. 6 1
  4789. 18 0
  4790. 11 00003139
  4791. 5 1
  4792. 8 12
  4793. 6 8
  4794. 6 12
  4795. 18 2
  4796. 12 00003012
  4797. 10 00003053
  4798. 5 1
  4799. 6 12
  4800. 3 0
  4801. 8 12
  4802. 10 00002934
  4803. 0 272 "EditData" "{12}" ""
  4804. 10 00002977
  4805. 5 0
  4806. 8 7
  4807. 0 272 "LastField" 1 "{7}"
  4808. 16 UpdateDisplay "{0}" "{1}" "{2}"
  4809. 10 00004120
  4810. 5 34
  4811. 6 1
  4812. 18 0
  4813. 11 00003182
  4814. 10 00004120
  4815. 5 35
  4816. 6 1
  4817. 18 0
  4818. 11 00003606
  4819. 0 264 "Speed" 1
  4820. 0 44 "{0}" 35
  4821. 13
  4822. 0 284 "User,ShowWindow,AHH" [X] 0
  4823. 0 44 "{0}" 55
  4824. 13
  4825. 0 284 "User,ShowWindow,AHH" [X] 1
  4826. 16 FastForward "{0}"
  4827. 0 44 "{0}" 55
  4828. 13
  4829. 0 284 "User,ShowWindow,AHH" [X] 0
  4830. 0 44 "{0}" 35
  4831. 13
  4832. 0 284 "User,ShowWindow,AHH" [X] 1
  4833. 16 ReadFive "{0}"
  4834. 0 284 "PXEngWin.dll,PXRecGet,HHH" "{9}" "{10}"
  4835. 16 GetFieldData "{0}"
  4836. 16 UpdateDisplay "{0}" "{1}" "{2}"
  4837. 10 00004120
  4838. 5 36
  4839. 6 1
  4840. 18 0
  4841. 11 00004042
  4842. 0 264 "Speed" 1
  4843. 0 44 "{0}" 36
  4844. 13
  4845. 0 284 "User,ShowWindow,AHH" [X] 0
  4846. 0 44 "{0}" 56
  4847. 13
  4848. 0 284 "User,ShowWindow,AHH" [X] 1
  4849. 16 FastReverse "{0}" "{1}" "{2}"
  4850. 0 44 "{0}" 56
  4851. 13
  4852. 0 284 "User,ShowWindow,AHH" [X] 0
  4853. 0 44 "{0}" 36
  4854. 13
  4855. 0 284 "User,ShowWindow,AHH" [X] 1
  4856. 16 ReadFive "{0}"
  4857. 0 284 "PXEngWin.dll,PXRecGet,HHH" "{9}" "{10}"
  4858. 16 GetFieldData "{0}"
  4859. 16 UpdateDisplay "{0}" "{1}" "{2}"
  4860. 10 00004120
  4861. 5 39
  4862. 6 1
  4863. 18 0
  4864. 11 00004120
  4865. 16 StuffInfo "{0}"
  4866. 16 CopyToClip
  4867. 10 00004120
  4868. 0 1036 "{0}" 1025 41 0
  4869. 6 3
  4870. 15
  4871. 9
  4872. 14 HitFolder
  4873. 0 32 2
  4874. 0 273 "TotalFields" 1
  4875. 13
  4876. 8 6
  4877. 0 273 "Thandle" 1
  4878. 13
  4879. 8 7
  4880. 0 273 "RecHandle" 1
  4881. 13
  4882. 8 8
  4883. 5 0
  4884. 0 284 "PXEngWin.dll,PXRecNum,HHO" "{7}" &4
  4885. 13
  4886. 0 805 &5 [X]
  4887. 13
  4888. 18 0
  4889. 11 00000215
  4890. 10 00000215
  4891. 6 1
  4892. 5 81
  4893. 3 1
  4894. 8 9
  4895. 5 1
  4896. 8 10
  4897. 6 9
  4898. 6 10
  4899. 18 2
  4900. 12 00000325
  4901. 10 00000438
  4902. 5 1
  4903. 6 10
  4904. 3 0
  4905. 8 10
  4906. 10 00000247
  4907. 5 0
  4908. 0 284 "PXEngWin.dll,PXRecNext,HH" "{7}"
  4909. 13
  4910. 0 805 &5 [X]
  4911. 13
  4912. 18 0
  4913. 11 00000425
  4914. 10 00000425
  4915. 10 00000290
  4916. 0 284 "PXEngWin.dll,PXRecGet,HHH" "{7}" "{8}"
  4917. 16 GetFieldData "{0}"
  4918. 16 UpdateDisplay "{0}" "{1}" "{2}"
  4919. 16 ReadFive "{0}"
  4920. 6 3
  4921. 15
  4922. 9
  4923. 14 HitEnter
  4924. 0 32 2
  4925. 0 284 "User,GetFocus,H"
  4926. 13
  4927. 8 4
  4928. 0 284 "User,GetDlgCtrlId,HH" "{4}"
  4929. 13
  4930. 8 1
  4931. 6 1
  4932. 5 8000
  4933. 18 5
  4934. 6 1
  4935. 5 8010
  4936. 18 3
  4937. 1 2
  4938. 11 00000169
  4939. 5 -1
  4940. 15
  4941. 9
  4942. 6 1
  4943. 5 1
  4944. 3 0
  4945. 8 5
  4946. 0 273 "EditTarget" 1
  4947. 13
  4948. 8 6
  4949. 0 273 "LastEditField" 1
  4950. 13
  4951. 8 7
  4952. 6 5
  4953. 6 7
  4954. 18 0
  4955. 11 00000379
  4956. 0 44 "{0}" "{5}"
  4957. 13
  4958. 8 8
  4959. 0 284 "User,SetFocus,HH" "{8}"
  4960. 0 1036 "{0}" 1025 31 0
  4961. 10 00000628
  4962. 6 1
  4963. 6 7
  4964. 18 0
  4965. 11 00000445
  4966. 16 MainCall "{0}" 31 0
  4967. 10 00000628
  4968. 6 1
  4969. 6 6
  4970. 18 5
  4971. 11 00000546
  4972. 0 44 "{0}" "{5}"
  4973. 13
  4974. 8 8
  4975. 0 284 "User,SetFocus,HH" "{8}"
  4976. 10 00000628
  4977. 0 44 "{0}" 8001
  4978. 13
  4979. 8 8
  4980. 0 284 "User,SetFocus,HH" "{8}"
  4981. 16 MainCall "{0}" 23 0
  4982. 6 3
  4983. 15
  4984. 9
  4985. 14 FastForward
  4986. 0 32 2
  4987. 0 1315 "Stopit"
  4988. 5 6
  4989. 21 5 [X]
  4990. 0 273 "TotalFields" 1
  4991. 13
  4992. 8 6
  4993. 0 273 "Thandle" 1
  4994. 13
  4995. 8 7
  4996. 0 273 "RecHandle" 1
  4997. 13
  4998. 8 8
  4999. 0 273 "KeyField" 1
  5000. 13
  5001. 8 9
  5002. 5 0
  5003. 0 284 "PXEngWin.dll,PXRecNext,HH" "{7}"
  5004. 13
  5005. 0 805 &2 [X]
  5006. 13
  5007. 18 0
  5008. 11 00000535
  5009. 0 265 "Speed"
  5010. 13
  5011. 5 0
  5012. 18 0
  5013. 11 00000318
  5014. 10 00000535
  5015. 0 284 "PXEngWin.dll,PXRecGet,HHH" "{7}" "{8}"
  5016. 5 0
  5017. 16 GetFieldInfo "{8}" "{9}" &4
  5018. 13
  5019. 18 0
  5020. 11 00000438
  5021. 10 00000450
  5022. 6 2
  5023. 15
  5024. 9
  5025. 16 ShiftNames &5 "{0}"
  5026. 5 1
  5027. 6 4
  5028. 23 5
  5029. 5 1
  5030. 22 5
  5031. 0 43 "{0}" 1021 [X]
  5032. 10 00000175
  5033. 6 2
  5034. 5 0
  5035. 18 1
  5036. 11 00000614
  5037. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{2}"
  5038. 13
  5039. 8 10
  5040. 5 0
  5041. 15
  5042. 9
  5043. 6 1
  5044. 15
  5045. 9
  5046. 14 FastReverse
  5047. 0 32 2
  5048. 0 1315 "Stopit"
  5049. 5 6
  5050. 21 7 [X]
  5051. 0 273 "TotalFields" 1
  5052. 13
  5053. 8 8
  5054. 0 273 "Thandle" 1
  5055. 13
  5056. 8 9
  5057. 0 273 "RecHandle" 1
  5058. 13
  5059. 8 10
  5060. 0 273 "KeyField" 1
  5061. 13
  5062. 8 11
  5063. 5 0
  5064. 0 284 "PXEngWin.dll,PXRecPrev,HH" "{9}"
  5065. 13
  5066. 0 805 &4 [X]
  5067. 13
  5068. 18 0
  5069. 11 00000539
  5070. 0 265 "Speed"
  5071. 13
  5072. 5 0
  5073. 18 0
  5074. 11 00000320
  5075. 10 00000539
  5076. 0 284 "PXEngWin.dll,PXRecGet,HHH" "{9}" "{10}"
  5077. 5 0
  5078. 16 GetFieldInfo "{10}" "{11}" &6
  5079. 13
  5080. 18 0
  5081. 11 00000443
  5082. 10 00000454
  5083. 0 3 "{4}"
  5084. 16 ShiftNames &7 "{0}"
  5085. 5 1
  5086. 6 6
  5087. 23 7
  5088. 5 1
  5089. 22 7
  5090. 0 43 "{0}" 1021 [X]
  5091. 10 00000177
  5092. 6 4
  5093. 5 0
  5094. 18 1
  5095. 11 00000618
  5096. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{4}"
  5097. 13
  5098. 8 12
  5099. 5 0
  5100. 15
  5101. 9
  5102. 6 3
  5103. 15
  5104. 9
  5105. 14 ShiftNames
  5106. 0 32 2
  5107. 5 5
  5108. 8 3
  5109. 5 2
  5110. 6 3
  5111. 18 4
  5112. 12 00000109
  5113. 10 00000213
  5114. 5 -1
  5115. 6 3
  5116. 3 0
  5117. 8 3
  5118. 10 00000033
  5119. 6 3
  5120. 6 3
  5121. 5 1
  5122. 3 1
  5123. 22 0
  5124. 23 0
  5125. 5 1017
  5126. 5 5
  5127. 6 3
  5128. 3 1
  5129. 3 0
  5130. 6 3
  5131. 22 0
  5132. 0 43 "{1}" [X] [X]
  5133. 10 00000075
  5134. 6 2
  5135. 15
  5136. 9
  5137. 14 Stopit
  5138. 0 1315 ""
  5139. 0 264 "Speed" 0
  5140. 6 0
  5141. 15
  5142. 9
  5143. 14 Lockem
  5144. 0 32 2
  5145. 0 273 "Thandle" 1
  5146. 13
  5147. 8 7
  5148. 0 273 "RecHandle" 1
  5149. 13
  5150. 8 8
  5151. 0 265 "PrevLock"
  5152. 13
  5153. 8 9
  5154. 0 798
  5155. 13
  5156. 8 10
  5157. 6 9
  5158. 5 0
  5159. 18 1
  5160. 11 00000312
  5161. 5 0
  5162. 0 284 "PXEngWin.dll,PXNetRecUnlock,HHH" "{7}" "{9}"
  5163. 13
  5164. 0 805 &3 [X]
  5165. 13
  5166. 18 0
  5167. 11 00000262
  5168. 10 00000312
  5169. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{3}"
  5170. 13
  5171. 8 11
  5172. 5 0
  5173. 0 284 "PXEngWin.dll,PXNetRecLock,HHO" "{7}" &2
  5174. 13
  5175. 0 805 &3 [X]
  5176. 13
  5177. 18 0
  5178. 11 00000443
  5179. 0 264 "PrevLock" "{2}"
  5180. 10 00000923
  5181. 0 264 "PrevLock" 0
  5182. 5 9
  5183. 6 3
  5184. 18 0
  5185. 11 00000816
  5186. 5 0
  5187. 0 284 "PXEngWin.dll,PXNetErrUser,HHC" 80 &4
  5188. 13
  5189. 0 805 &3 [X]
  5190. 13
  5191. 18 0
  5192. 11 00000803
  5193. 0 44 "{0}" 34
  5194. 13
  5195. 0 284 "User,ShowWindow,AHH" [X] 1
  5196. 0 43 "{0}" 1012 "{4}"
  5197. 5 0
  5198. 0 284 "PXEngWin.dll,PXNetTblRefresh,HH" "{7}"
  5199. 13
  5200. 0 805 &3 [X]
  5201. 13
  5202. 18 1
  5203. 11 00000803
  5204. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{3}"
  5205. 13
  5206. 8 11
  5207. 10 00000923
  5208. 5 105
  5209. 6 3
  5210. 18 0
  5211. 11 00000873
  5212. 10 00000923
  5213. 10 00000923
  5214. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{3}"
  5215. 13
  5216. 8 11
  5217. 6 1
  5218. 15
  5219. 9
  5220. 14 ReadFive
  5221. 0 32 2
  5222. 0 273 "TotalFields" 1
  5223. 13
  5224. 8 5
  5225. 0 273 "Thandle" 1
  5226. 13
  5227. 8 6
  5228. 0 273 "RecHandle" 1
  5229. 13
  5230. 8 7
  5231. 0 273 "KeyField" 1
  5232. 13
  5233. 8 8
  5234. 5 0
  5235. 0 284 "PXEngWin.dll,PXRecNum,HHO" "{6}" &4
  5236. 13
  5237. 0 805 &3 [X]
  5238. 13
  5239. 18 0
  5240. 11 00000243
  5241. 10 00000243
  5242. 5 1
  5243. 8 9
  5244. 5 4
  5245. 6 9
  5246. 18 2
  5247. 12 00000328
  5248. 10 00000792
  5249. 5 1
  5250. 6 9
  5251. 3 0
  5252. 8 9
  5253. 10 00000253
  5254. 5 0
  5255. 0 284 "PXEngWin.dll,PXRecNext,HH" "{6}"
  5256. 13
  5257. 0 805 &3 [X]
  5258. 13
  5259. 18 0
  5260. 11 00000742
  5261. 0 284 "PXEngWin.dll,PXRecGet,HHH" "{6}" "{7}"
  5262. 7 "A"
  5263. 0 273 "FieldType" "{8}"
  5264. 13
  5265. 0 806 [X] 1
  5266. 13
  5267. 18 0
  5268. 11 00000605
  5269. 0 284 "PXEngWin.dll,PXGetAlpha,HHHHC" "{7}" "{8}" 250 &2
  5270. 10 00000689
  5271. 5 0
  5272. 16 GetFieldInfo "{7}" "{8}" &2
  5273. 13
  5274. 18 0
  5275. 11 00000678
  5276. 10 00000689
  5277. 0 3 "{3}"
  5278. 5 1017
  5279. 6 9
  5280. 3 0
  5281. 0 43 "{0}" [X] "{2}"
  5282. 10 00000779
  5283. 5 1017
  5284. 6 9
  5285. 3 0
  5286. 0 43 "{0}" [X] ""
  5287. 10 00000295
  5288. 0 284 "PXEngWin.dll,PXRecGoto,HHJ" "{6}" "{4}"
  5289. 6 1
  5290. 15
  5291. 9
  5292. 14 CopyToClip
  5293. 0 32 2
  5294. 0 273 "TotalFields" 1
  5295. 13
  5296. 8 1
  5297. 5 1
  5298. 8 2
  5299. 6 1
  5300. 6 2
  5301. 18 2
  5302. 12 00000140
  5303. 10 00000224
  5304. 5 1
  5305. 6 2
  5306. 3 0
  5307. 8 2
  5308. 10 00000065
  5309. 0 273 "EditData" "{2}"
  5310. 13
  5311. 8 3
  5312. 0 16 "{4}" "{3}" "[13][10]"
  5313. 13
  5314. 8 4
  5315. 10 00000107
  5316. 0 784 "{4}"
  5317. 13
  5318. 8 4
  5319. 0 1038 "{4}" 0
  5320. 6 0
  5321. 15
  5322. 9
  5323. 14 CloseTable
  5324. 0 273 "RecHandle" 1
  5325. 13
  5326. 8 1
  5327. 0 273 "THandle" 1
  5328. 13
  5329. 8 2
  5330. 0 284 "PXEngWin.dll,PXRecBufClose,HH" "{1}"
  5331. 0 284 "PXEngWin.dll,PXTblClose,HH" "{2}"
  5332. 6 0
  5333. 15
  5334. 9
  5335. 14 UpDateDisplay
  5336. 0 32 2
  5337. 0 273 "KeyField" 1
  5338. 13
  5339. 8 8
  5340. 0 273 "TotalFields" 1
  5341. 13
  5342. 8 9
  5343. 0 273 "LastField" 1
  5344. 13
  5345. 8 10
  5346. 0 273 "Thandle" 1
  5347. 13
  5348. 8 11
  5349. 0 273 "RecHandle" 1
  5350. 13
  5351. 8 12
  5352. 0 273 "RefreshMain" 1
  5353. 13
  5354. 8 13
  5355. 5 0
  5356. 0 284 "PXEngWin.dll,PXNetTblRefresh,HH" "{11}"
  5357. 13
  5358. 0 805 &5 [X]
  5359. 13
  5360. 18 1
  5361. 11 00000355
  5362. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{5}"
  5363. 13
  5364. 8 14
  5365. 5 0
  5366. 0 284 "PXEngWin.dll,PXRecNum,HHO" "{11}" &6
  5367. 13
  5368. 0 805 &5 [X]
  5369. 13
  5370. 18 0
  5371. 11 00000446
  5372. 5 0
  5373. 0 284 "PXEngWin.dll,PXTblNRecs,HHO" "{11}" &7
  5374. 13
  5375. 0 805 &5 [X]
  5376. 13
  5377. 18 0
  5378. 11 00000587
  5379. 0 43 "{0}" 1013 "Card {6} of {7}"
  5380. 10 00000587
  5381. 5 0
  5382. 6 13
  5383. 18 0
  5384. 11 00001082
  5385. 5 1
  5386. 8 15
  5387. 5 10
  5388. 6 15
  5389. 18 2
  5390. 12 00000707
  5391. 10 00001069
  5392. 5 1
  5393. 6 15
  5394. 3 0
  5395. 8 15
  5396. 10 00000628
  5397. 6 10
  5398. 6 15
  5399. 3 0
  5400. 6 9
  5401. 18 5
  5402. 11 00000888
  5403. 5 8000
  5404. 6 15
  5405. 3 0
  5406. 0 272 "EditTarget" 1 [X]
  5407. 5 8000
  5408. 6 15
  5409. 3 0
  5410. 6 15
  5411. 6 10
  5412. 3 0
  5413. 0 273 "EditData" [X]
  5414. 13
  5415. 0 43 "{0}" [X] [X]
  5416. 10 00001056
  5417. 6 10
  5418. 6 15
  5419. 3 0
  5420. 6 9
  5421. 18 0
  5422. 11 00001056
  5423. 5 8000
  5424. 6 15
  5425. 3 0
  5426. 6 15
  5427. 6 10
  5428. 3 0
  5429. 0 273 "EditData" [X]
  5430. 13
  5431. 0 43 "{0}" [X] [X]
  5432. 5 8000
  5433. 6 15
  5434. 3 0
  5435. 0 272 "EditTarget" 1 [X]
  5436. 10 00000672
  5437. 10 00002672
  5438. 5 1
  5439. 6 13
  5440. 18 0
  5441. 11 00002672
  5442. 6 10
  5443. 5 0
  5444. 18 0
  5445. 11 00001263
  5446. 0 44 "{0}" 24
  5447. 13
  5448. 0 284 "User,ShowWindow,AHH" [X] 0
  5449. 0 44 "{0}" 94
  5450. 13
  5451. 0 284 "User,ShowWindow,AHH" [X] 1
  5452. 10 00001371
  5453. 0 44 "{0}" 24
  5454. 13
  5455. 0 284 "User,ShowWindow,AHH" [X] 1
  5456. 0 44 "{0}" 94
  5457. 13
  5458. 0 284 "User,ShowWindow,AHH" [X] 0
  5459. 6 10
  5460. 5 10
  5461. 3 0
  5462. 6 9
  5463. 18 3
  5464. 11 00001533
  5465. 0 44 "{0}" 23
  5466. 13
  5467. 0 284 "User,ShowWindow,AHH" [X] 0
  5468. 0 44 "{0}" 93
  5469. 13
  5470. 0 284 "User,ShowWindow,AHH" [X] 1
  5471. 10 00001641
  5472. 0 44 "{0}" 23
  5473. 13
  5474. 0 284 "User,ShowWindow,AHH" [X] 1
  5475. 0 44 "{0}" 93
  5476. 13
  5477. 0 284 "User,ShowWindow,AHH" [X] 0
  5478. 5 1
  5479. 8 15
  5480. 5 10
  5481. 6 15
  5482. 18 2
  5483. 12 00001731
  5484. 10 00002647
  5485. 5 1
  5486. 6 15
  5487. 3 0
  5488. 8 15
  5489. 10 00001652
  5490. 6 10
  5491. 6 15
  5492. 3 0
  5493. 6 9
  5494. 18 5
  5495. 11 00002097
  5496. 5 8000
  5497. 6 15
  5498. 3 0
  5499. 6 15
  5500. 6 10
  5501. 3 0
  5502. 0 273 "EditData" [X]
  5503. 13
  5504. 0 43 "{0}" [X] [X]
  5505. 5 8000
  5506. 6 15
  5507. 3 0
  5508. 0 272 "EditTarget" 1 [X]
  5509. 0 272 "LastEditField" 1 0
  5510. 5 1000
  5511. 6 15
  5512. 3 0
  5513. 6 15
  5514. 6 10
  5515. 3 0
  5516. 0 273 "FieldNames" [X]
  5517. 13
  5518. 0 43 "{0}" [X] [X]
  5519. 5 8000
  5520. 6 15
  5521. 3 0
  5522. 0 44 "{0}" [X]
  5523. 13
  5524. 0 284 "User,ShowWindow,AHH" [X] 1
  5525. 10 00002634
  5526. 6 10
  5527. 6 15
  5528. 3 0
  5529. 6 9
  5530. 18 0
  5531. 11 00002484
  5532. 5 8000
  5533. 6 15
  5534. 3 0
  5535. 6 15
  5536. 6 10
  5537. 3 0
  5538. 0 273 "EditData" [X]
  5539. 13
  5540. 0 43 "{0}" [X] [X]
  5541. 5 8000
  5542. 6 15
  5543. 3 0
  5544. 0 272 "EditTarget" 1 [X]
  5545. 5 8000
  5546. 6 15
  5547. 3 0
  5548. 0 272 "LastEditField" 1 [X]
  5549. 5 1000
  5550. 6 15
  5551. 3 0
  5552. 6 15
  5553. 6 10
  5554. 3 0
  5555. 0 273 "FieldNames" [X]
  5556. 13
  5557. 0 43 "{0}" [X] [X]
  5558. 5 8000
  5559. 6 15
  5560. 3 0
  5561. 0 44 "{0}" [X]
  5562. 13
  5563. 0 284 "User,ShowWindow,AHH" [X] 1
  5564. 10 00002634
  5565. 5 1000
  5566. 6 15
  5567. 3 0
  5568. 0 43 "{0}" [X] ""
  5569. 5 8000
  5570. 6 15
  5571. 3 0
  5572. 0 44 "{0}" [X]
  5573. 13
  5574. 0 284 "User,ShowWindow,AHH" [X] 0
  5575. 5 8000
  5576. 6 15
  5577. 3 0
  5578. 0 43 "{0}" [X] ""
  5579. 10 00001696
  5580. 0 272 "RefreshMain" 1 0
  5581. 0 273 "EditData" "{8}"
  5582. 13
  5583. 0 43 "{0}" 1017 [X]
  5584. 0 44 "{0}" 8001
  5585. 13
  5586. 0 284 "User,SetFocus,HH" [X]
  5587. 6 3
  5588. 15
  5589. 9
  5590. 14 StuffInfo
  5591. 0 32 2
  5592. 0 273 "LastField" 1
  5593. 13
  5594. 8 2
  5595. 0 273 "TotalFields" 1
  5596. 13
  5597. 8 3
  5598. 5 1
  5599. 8 4
  5600. 5 10
  5601. 6 4
  5602. 18 2
  5603. 12 00000170
  5604. 10 00000308
  5605. 5 1
  5606. 6 4
  5607. 3 0
  5608. 8 4
  5609. 10 00000094
  5610. 5 8000
  5611. 6 4
  5612. 3 0
  5613. 0 42 "{0}" [X]
  5614. 13
  5615. 8 5
  5616. 6 2
  5617. 6 4
  5618. 3 0
  5619. 6 3
  5620. 18 4
  5621. 11 00000295
  5622. 6 2
  5623. 6 4
  5624. 3 0
  5625. 0 272 "EditData" [X] "{5}"
  5626. 10 00000137
  5627. 6 1
  5628. 15
  5629. 9
  5630. 14 GetFieldInfo
  5631. 0 32 2
  5632. 0 273 "FieldType" "{1}"
  5633. 13
  5634. 0 806 [X] 1
  5635. 13
  5636. 8 10
  5637. 7 "A"
  5638. 6 10
  5639. 18 0
  5640. 11 00000264
  5641. 5 0
  5642. 0 284 "PXEngWin.dll,PXGetAlpha,HHHHC" "{0}" "{1}" 250 &9
  5643. 13
  5644. 0 805 &4 [X]
  5645. 13
  5646. 18 0
  5647. 11 00000226
  5648. 10 00000238
  5649. 6 4
  5650. 15
  5651. 9
  5652. 10 00000715
  5653. 10 00000715
  5654. 7 "D"
  5655. 6 10
  5656. 18 0
  5657. 11 00000547
  5658. 5 0
  5659. 0 284 "PXEngWin.dll,PXGetDate,HHHO" "{0}" "{1}" &5
  5660. 13
  5661. 0 805 &4 [X]
  5662. 13
  5663. 18 0
  5664. 11 00000509
  5665. 5 0
  5666. 0 284 "PXEngWin.dll,PXDateDecode,HJLLL" "{5}" &6 &7 &8
  5667. 13
  5668. 0 805 &4 [X]
  5669. 13
  5670. 18 0
  5671. 11 00000496
  5672. 10 00000521
  5673. 6 4
  5674. 15
  5675. 9
  5676. 10 00000715
  5677. 10 00000715
  5678. 7 "N"
  5679. 6 10
  5680. 18 0
  5681. 11 00000715
  5682. 5 0
  5683. 0 284 "PXEngWin.dll,PXGetLong,HHHO" "{0}" "{1}" &9
  5684. 13
  5685. 0 805 &4 [X]
  5686. 13
  5687. 18 0
  5688. 11 00000690
  5689. 10 00000702
  5690. 6 4
  5691. 15
  5692. 9
  5693. 10 00000715
  5694. 6 9
  5695. 28 2
  5696. 5 0
  5697. 15
  5698. 9
  5699. 6 3
  5700. 15
  5701. 9
  5702. 14 GetFieldData
  5703. 0 32 2
  5704. 0 273 "Thandle" 1
  5705. 13
  5706. 8 10
  5707. 0 273 "RecHandle" 1
  5708. 13
  5709. 8 11
  5710. 0 273 "TotalFields" 1
  5711. 13
  5712. 8 12
  5713. 5 1
  5714. 8 13
  5715. 6 12
  5716. 6 13
  5717. 18 2
  5718. 12 00000208
  5719. 10 00000338
  5720. 5 1
  5721. 6 13
  5722. 3 0
  5723. 8 13
  5724. 10 00000129
  5725. 5 0
  5726. 16 GetFieldInfo "{11}" "{13}" &9
  5727. 13
  5728. 18 0
  5729. 11 00000314
  5730. 0 272 "EditData" "{13}" "{9}"
  5731. 10 00000325
  5732. 0 3 "{3}"
  5733. 10 00000173
  5734. 6 1
  5735. 15
  5736. 9
  5737. 14 GetKeyfields
  5738. 5 0
  5739. 0 284 "PXEngWin.dll,PXKeyNFlds,HHL" "{0}" &1
  5740. 13
  5741. 0 805 &3 [X]
  5742. 13
  5743. 18 0
  5744. 11 00000122
  5745. 10 00000171
  5746. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{3}"
  5747. 13
  5748. 8 4
  5749. 6 2
  5750. 15
  5751. 9
  5752. 14 StuffRecBuf
  5753. 0 32 2
  5754. 0 273 "TotalFields" 1
  5755. 13
  5756. 8 3
  5757. 0 273 "RecHandle" 1
  5758. 13
  5759. 8 4
  5760. 0 273 "Thandle" 1
  5761. 13
  5762. 8 5
  5763. 5 1
  5764. 8 6
  5765. 6 3
  5766. 6 6
  5767. 18 2
  5768. 12 00000199
  5769. 10 00001095
  5770. 5 1
  5771. 6 6
  5772. 3 0
  5773. 8 6
  5774. 10 00000124
  5775. 0 273 "EditData" "{6}"
  5776. 13
  5777. 8 7
  5778. 0 272 "EditData" "{6}" ""
  5779. 0 273 "FieldType" "{6}"
  5780. 13
  5781. 8 8
  5782. 5 0
  5783. 0 284 "PXEngWin.dll,PXFldType,HHHHC" "{5}" "{6}" 5 &2
  5784. 13
  5785. 0 805 &1 [X]
  5786. 13
  5787. 18 0
  5788. 11 00000407
  5789. 10 00000407
  5790. 0 806 "{2}" 1
  5791. 13
  5792. 8 9
  5793. 7 "A"
  5794. 6 9
  5795. 18 0
  5796. 11 00000653
  5797. 5 0
  5798. 0 284 "PXEngWin.dll,PXPutAlpha,HHHC" "{4}" "{6}" "{7}"
  5799. 13
  5800. 0 805 &1 [X]
  5801. 13
  5802. 18 0
  5803. 11 00000577
  5804. 10 00000627
  5805. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{1}"
  5806. 13
  5807. 8 10
  5808. 10 00001082
  5809. 10 00001082
  5810. 7 "D"
  5811. 6 9
  5812. 18 0
  5813. 11 00000874
  5814. 5 0
  5815. 0 284 "PXEngWin.dll,PXPutDate,HHHJ" "{4}" "{6}" "{7}"
  5816. 13
  5817. 0 805 &1 [X]
  5818. 13
  5819. 18 0
  5820. 11 00000798
  5821. 10 00000848
  5822. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{1}"
  5823. 13
  5824. 8 10
  5825. 10 00001082
  5826. 10 00001082
  5827. 7 "N"
  5828. 6 9
  5829. 18 0
  5830. 11 00001082
  5831. 5 0
  5832. 0 284 "PxEngWin.dll,PXPutLong,HHHJ" "{4}" "{6}" "{7}"
  5833. 13
  5834. 0 805 &1 [X]
  5835. 13
  5836. 18 0
  5837. 11 00001019
  5838. 10 00001069
  5839. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{1}"
  5840. 13
  5841. 8 10
  5842. 10 00001082
  5843. 10 00000166
  5844. 6 0
  5845. 15
  5846. 9
  5847. 14 PackGlobals
  5848. 0 32 2
  5849. 0 1046 &0
  5850. 13
  5851. 8 5
  5852. 0 271 "TotalFields" 1
  5853. 0 271 "FieldNames" "{5}"
  5854. 0 271 "FieldType" "{5}"
  5855. 0 271 "LastField" 1
  5856. 0 271 "EditData" "{5}"
  5857. 0 271 "Thandle" 1
  5858. 0 271 "RecHandle" 1
  5859. 0 271 "KeyField" 1
  5860. 0 271 "EditTarget" 1
  5861. 0 271 "RedoNames" 1
  5862. 0 271 "RefreshMain" 1
  5863. 0 271 "LastEditField" 1
  5864. 0 271 "Speed" 1
  5865. 0 271 "PrevLock" 1
  5866. 0 264 "Speed" 1
  5867. 0 272 "RedoNames" 1 0
  5868. 0 272 "RefreshMain" 1 1
  5869. 0 272 "LastEditField" 1 0
  5870. 0 272 "Thandle" 1 "{3}"
  5871. 0 272 "RecHandle" 1 "{2}"
  5872. 0 272 "TotalFields" 1 "{5}"
  5873. 0 272 "LastField" 1 0
  5874. 0 272 "KeyField" 1 1
  5875. 0 264 "PrevLock" 0
  5876. 5 1
  5877. 8 6
  5878. 6 5
  5879. 6 6
  5880. 18 2
  5881. 12 00000674
  5882. 10 00000768
  5883. 5 1
  5884. 6 6
  5885. 3 0
  5886. 8 6
  5887. 10 00000599
  5888. 6 6
  5889. 22 0
  5890. 0 272 "FieldNames" "{6}" [X]
  5891. 6 6
  5892. 22 1
  5893. 0 272 "FieldType" "{6}" [X]
  5894. 10 00000641
  5895. 6 4
  5896. 15
  5897. 9
  5898. 14 SortEm
  5899. 5 1
  5900. 21 5 [X]
  5901. 0 273 "Thandle" 1
  5902. 13
  5903. 8 6
  5904. 0 273 "RecHandle" 1
  5905. 13
  5906. 8 7
  5907. 0 273 "TotalFields" 1
  5908. 13
  5909. 8 8
  5910. 5 1
  5911. 8 9
  5912. 6 8
  5913. 6 9
  5914. 18 2
  5915. 12 00000201
  5916. 10 00000265
  5917. 5 1
  5918. 6 9
  5919. 3 0
  5920. 8 9
  5921. 10 00000126
  5922. 0 273 "FieldNames" "{9}"
  5923. 13
  5924. 0 1041 &5 "{9}" [X]
  5925. 10 00000168
  5926. 0 31 9500 &5
  5927. 0 26 "." "Index"
  5928. 13
  5929. 8 10
  5930. 6 10
  5931. 5 1
  5932. 18 1
  5933. 11 00000349
  5934. 6 0
  5935. 15
  5936. 9
  5937. 0 27 9500
  5938. 13
  5939. 8 11
  5940. 0 1044 &5 "{11}"
  5941. 13
  5942. 8 12
  5943. 0 264 "KeyField" "{12}"
  5944. 6 0
  5945. 15
  5946. 9
  5947. 14 GotoMain
  5948. 0 32 2
  5949. 0 273 "RecHandle" 1
  5950. 13
  5951. 8 5
  5952. 0 273 "THandle" 1
  5953. 13
  5954. 8 6
  5955. 5 1
  5956. 21 7 [X]
  5957. 0 273 "TotalFields" 1
  5958. 13
  5959. 8 8
  5960. 5 1
  5961. 8 9
  5962. 6 8
  5963. 6 9
  5964. 18 2
  5965. 12 00000211
  5966. 10 00000275
  5967. 5 1
  5968. 6 9
  5969. 3 0
  5970. 8 9
  5971. 10 00000136
  5972. 0 273 "FieldNames" "{9}"
  5973. 13
  5974. 0 1041 &7 "{9}" [X]
  5975. 10 00000178
  5976. 0 31 9500 &7
  5977. 0 31 20 1
  5978. 0 26 "." "Goto"
  5979. 13
  5980. 8 10
  5981. 6 10
  5982. 5 1
  5983. 18 1
  5984. 11 00000370
  5985. 5 -1
  5986. 15
  5987. 9
  5988. 0 27 20
  5989. 13
  5990. 8 11
  5991. 0 27 21
  5992. 13
  5993. 8 12
  5994. 0 27 22
  5995. 13
  5996. 8 13
  5997. 0 27 9500
  5998. 13
  5999. 8 14
  6000. 0 27 8000
  6001. 13
  6002. 8 15
  6003. 6 11
  6004. 11 00000835
  6005. 0 1044 &7 "{14}"
  6006. 13
  6007. 8 16
  6008. 5 0
  6009. 16 FindItem "{15}" "{16}"
  6010. 13
  6011. 18 0
  6012. 11 00000690
  6013. 0 284 "PXEngWin.dll,PXRecGet,HHH" "{6}" "{5}"
  6014. 16 GetFieldData "{0}"
  6015. 16 UpdateDisplay "{0}" "{3}" "{4}"
  6016. 10 00000835
  6017. 0 284 "PXEngWin.dll,PXRecGet,HHH" "{6}" "{5}"
  6018. 16 GetFieldData "{0}"
  6019. 16 UpdateDisplay "{0}" "{3}" "{4}"
  6020. 0 3 "No match found" "Search Results"
  6021. 6 12
  6022. 11 00001103
  6023. 5 0
  6024. 0 284 "PXEngWin.dll,PXRecFirst,HH" "{6}"
  6025. 13
  6026. 0 805 &2 [X]
  6027. 13
  6028. 18 0
  6029. 11 00001053
  6030. 0 284 "PXEngWin.dll,PXRecGet,HHH" "{6}" "{5}"
  6031. 16 GetFieldData "{0}"
  6032. 16 UpdateDisplay "{0}" 0 0
  6033. 10 00001103
  6034. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{2}"
  6035. 13
  6036. 8 17
  6037. 6 13
  6038. 11 00001370
  6039. 5 0
  6040. 0 284 "PxEngWin.dll,PXRecLast,HH" "{6}"
  6041. 13
  6042. 0 805 &2 [X]
  6043. 13
  6044. 18 0
  6045. 11 00001320
  6046. 0 284 "PXEngWin.dll,PXRecGet,HHH" "{6}" "{5}"
  6047. 16 GetFieldData "{0}"
  6048. 16 UpdateDisplay "{0}" 0 0
  6049. 10 00001370
  6050. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{2}"
  6051. 13
  6052. 8 17
  6053. 6 1
  6054. 15
  6055. 9
  6056. 14 FindItem
  6057. 0 273 "TotalFields" 1
  6058. 13
  6059. 8 4
  6060. 0 273 "RecHandle" 1
  6061. 13
  6062. 8 5
  6063. 0 273 "THandle" 1
  6064. 13
  6065. 8 6
  6066. 0 284 "PXEngWin.dll,PXRecBufEmpty,HH" "{5}"
  6067. 5 0
  6068. 0 284 "PXEngWin.dll,PXPutAlpha,HHHC" "{5}" "{1}" "{0}"
  6069. 13
  6070. 0 805 &3 [X]
  6071. 13
  6072. 18 0
  6073. 11 00000263
  6074. 10 00000312
  6075. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{3}"
  6076. 13
  6077. 8 7
  6078. 5 0
  6079. 0 284 "PXEngWin.dll,PXSrchFld,HHHHH" "{6}" "{5}" "{1}" 2
  6080. 13
  6081. 0 805 &3 [X]
  6082. 13
  6083. 18 0
  6084. 5 89
  6085. 0 284 "PXEngWin.dll,PXSrchFld,HHHHH" "{6}" "{5}" "{1}" 2
  6086. 13
  6087. 0 805 &3 [X]
  6088. 13
  6089. 18 0
  6090. 1 2
  6091. 11 00000538
  6092. 5 0
  6093. 15
  6094. 9
  6095. 10 00000600
  6096. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{3}"
  6097. 13
  6098. 8 7
  6099. 5 -1
  6100. 15
  6101. 9
  6102. 6 2
  6103. 15
  6104. 9
  6105. 14 Build
  6106. 0 4 0
  6107. 17 3
  6108. 0 271 "LibId" 1
  6109. 17 4
  6110. 0 265 "libid"
  6111. 13
  6112. 7 ""
  6113. 18 0
  6114. 11 00000277
  6115. 17 5
  6116. 29 2 Stat
  6117. 16 Init &1
  6118. 13
  6119. 8 2
  6120. 17 6
  6121. 6 2
  6122. 5 0
  6123. 18 0
  6124. 6 2
  6125. 5 82
  6126. 18 0
  6127. 1 2
  6128. 11 00000198
  6129. 10 00000277
  6130. 17 8
  6131. 29 3 Error
  6132. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{2}"
  6133. 13
  6134. 8 3
  6135. 6 0
  6136. 15
  6137. 9
  6138. 17 13
  6139. 29 4 FileNameBuilt
  6140. 17 14
  6141. 0 271 "PMFields" 70
  6142. 17 15
  6143. 0 271 "PMTypes" 70
  6144. 17 16
  6145. 0 271 "NumFields" 1
  6146. 17 18
  6147. 0 272 "NumFields" 1 0
  6148. 17 19
  6149. 0 272 "PMFields" 1 1
  6150. 17 20
  6151. 0 272 "PMTypes" 1 1
  6152. 17 21
  6153. 29 5 Mac
  6154. 0 802
  6155. 13
  6156. 8 5
  6157. 17 22
  6158. 0 31 8001 20
  6159. 17 23
  6160. 0 41 9000 "{5}!CallBuild"
  6161. 17 24
  6162. 0 41 51 "{5}!CallBuild"
  6163. 17 26
  6164. 29 6 Box
  6165. 0 26 "." "Build"
  6166. 13
  6167. 8 6
  6168. 17 27
  6169. 6 6
  6170. 5 1
  6171. 18 0
  6172. 11 00000819
  6173. 17 28
  6174. 5 0
  6175. 16 BuildTable &4
  6176. 13
  6177. 18 0
  6178. 11 00000806
  6179. 17 29
  6180. 0 266 "PMTypes"
  6181. 17 30
  6182. 0 266 "PMFields"
  6183. 17 31
  6184. 16 MainEntryBox "{4}"
  6185. 10 00000868
  6186. 17 35
  6187. 0 266 "PMTypes"
  6188. 17 36
  6189. 0 266 "PMFields"
  6190. 6 0
  6191. 15
  6192. 17 38
  6193. 9
  6194. 14 BuildTable
  6195. 29 0 TableName
  6196. 29 1 BuildTable
  6197. 17 1
  6198. 29 2 Mac
  6199. 0 802
  6200. 13
  6201. 8 2
  6202. 17 2
  6203. 29 3 Stat
  6204. 29 4 NumFields
  6205. 17 3
  6206. 5 0
  6207. 0 273 "NumFields" 1
  6208. 13
  6209. 0 805 &4 [X]
  6210. 13
  6211. 18 0
  6212. 11 00000205
  6213. 17 4
  6214. 5 -1
  6215. 15
  6216. 9
  6217. 17 7
  6218. 6 4
  6219. 29 5 FieldName
  6220. 21 5 [X]
  6221. 17 8
  6222. 6 4
  6223. 29 6 Width
  6224. 21 6 [X]
  6225. 29 7 t
  6226. 5 1
  6227. 8 7
  6228. 17 9
  6229. 6 4
  6230. 6 7
  6231. 18 2
  6232. 12 00000374
  6233. 10 00000478
  6234. 5 1
  6235. 6 7
  6236. 3 0
  6237. 8 7
  6238. 10 00000293
  6239. 17 10
  6240. 6 7
  6241. 0 273 "PMFields" "{7}"
  6242. 13
  6243. 23 5
  6244. 17 11
  6245. 6 7
  6246. 0 273 "PMtypes" "{7}"
  6247. 13
  6248. 23 6
  6249. 10 00000341
  6250. 17 13
  6251. 0 31 9001 "*.db"
  6252. 17 14
  6253. 29 8 Box
  6254. 0 26 "." "Save"
  6255. 13
  6256. 8 8
  6257. 17 15
  6258. 29 9 Dir
  6259. 0 290
  6260. 13
  6261. 8 9
  6262. 17 16
  6263. 6 8
  6264. 5 0
  6265. 18 1
  6266. 11 00000965
  6267. 17 17
  6268. 29 10 Flname
  6269. 0 27 8000
  6270. 13
  6271. 8 10
  6272. 17 18
  6273. 29 11 Filename
  6274. 0 16 "{9}" "{10}"
  6275. 13
  6276. 8 11
  6277. 17 19
  6278. 5 0
  6279. 0 284 "PXEngWin.dll,PXTblCreate,HCHMM" "{11}" "{4}" &5 &6
  6280. 13
  6281. 0 805 &3 [X]
  6282. 13
  6283. 18 0
  6284. 11 00000875
  6285. 17 20
  6286. 16 BuildIndex "{10}" &5
  6287. 13
  6288. 8 3
  6289. 10 00000965
  6290. 17 22
  6291. 29 12 Error
  6292. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{3}"
  6293. 13
  6294. 8 12
  6295. 17 24
  6296. 5 -1
  6297. 15
  6298. 9
  6299. 17 27
  6300. 6 11
  6301. 28 0
  6302. 17 28
  6303. 6 3
  6304. 15
  6305. 9
  6306. 6 1
  6307. 15
  6308. 17 29
  6309. 9
  6310. 14 CallBuild
  6311. 29 0 Hdlg
  6312. 29 1 Id
  6313. 29 2 Dummy
  6314. 29 3 CallBuild
  6315. 17 1
  6316. 0 32 2
  6317. 17 3
  6318. 0 42 "{0}" 8000
  6319. 13
  6320. 7 ""
  6321. 18 0
  6322. 11 00000195
  6323. 17 4
  6324. 0 284 "user,PostMessage,HHHHHH" "{0}" 273 1 0 0
  6325. 6 3
  6326. 15
  6327. 9
  6328. 17 7
  6329. 5 51
  6330. 6 1
  6331. 18 0
  6332. 11 00000619
  6333. 17 9
  6334. 29 4 Name
  6335. 0 42 "{0}" 8000
  6336. 13
  6337. 8 4
  6338. 17 10
  6339. 29 5 Width
  6340. 0 42 "{0}" 8001
  6341. 13
  6342. 8 5
  6343. 17 11
  6344. 29 6 NumFields
  6345. 0 273 "NumFields" 1
  6346. 13
  6347. 8 6
  6348. 17 12
  6349. 29 7 Type
  6350. 7 "A"
  6351. 8 7
  6352. 17 13
  6353. 7 "{7}{5}"
  6354. 8 7
  6355. 17 15
  6356. 29 8 FieldNumber
  6357. 6 6
  6358. 5 1
  6359. 3 0
  6360. 8 8
  6361. 17 16
  6362. 0 272 "PMFields" "{8}" "{4}"
  6363. 17 17
  6364. 0 272 "PMTypes" "{8}" "{7}"
  6365. 17 18
  6366. 0 264 "NumFields" "{8}"
  6367. 17 19
  6368. 0 43 "{0}" 9000 "{4}"
  6369. 10 00000747
  6370. 5 52
  6371. 6 1
  6372. 18 0
  6373. 11 00000680
  6374. 17 22
  6375. 0 3 "{1}"
  6376. 10 00000747
  6377. 5 9000
  6378. 6 1
  6379. 18 0
  6380. 11 00000747
  6381. 17 24
  6382. 0 3 "This is the list box"
  6383. 17 26
  6384. 0 43 "{0}" 8000 ""
  6385. 17 27
  6386. 0 44 "{0}" 8000
  6387. 13
  6388. 0 284 "User,SetFocus,HH" [X]
  6389. 6 3
  6390. 15
  6391. 17 28
  6392. 9
  6393. 14 BuildIndex
  6394. 29 0 FileName
  6395. 29 1 FieldName
  6396. 29 2 BuildIndex
  6397. 17 1
  6398. 29 3 Stat
  6399. 29 4 Numfields
  6400. 17 2
  6401. 5 1
  6402. 29 5 IndexNumber
  6403. 21 5 [X]
  6404. 17 4
  6405. 5 0
  6406. 0 273 "NumFields" 1
  6407. 13
  6408. 0 805 &4 [X]
  6409. 13
  6410. 18 0
  6411. 11 00000227
  6412. 17 5
  6413. 5 -1
  6414. 15
  6415. 9
  6416. 17 7
  6417. 6 4
  6418. 5 3
  6419. 18 3
  6420. 11 00000309
  6421. 17 8
  6422. 29 6 TotalFields
  6423. 5 3
  6424. 8 6
  6425. 10 00000326
  6426. 17 10
  6427. 6 4
  6428. 8 6
  6429. 17 13
  6430. 5 0
  6431. 0 284 "PXEngWin.dll,PXKeyAdd,HCHNH" "{0}" "{6}" &5 0
  6432. 13
  6433. 0 805 &3 [X]
  6434. 13
  6435. 18 0
  6436. 11 00000446
  6437. 10 00000534
  6438. 17 15
  6439. 29 7 Error
  6440. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{3}"
  6441. 13
  6442. 8 7
  6443. 17 17
  6444. 5 -1
  6445. 15
  6446. 9
  6447. 17 19
  6448. 5 1
  6449. 29 8 Second
  6450. 21 8 [X]
  6451. 29 9 Q
  6452. 5 1
  6453. 8 9
  6454. 17 20
  6455. 6 6
  6456. 6 9
  6457. 18 2
  6458. 12 00000669
  6459. 10 00000897
  6460. 5 1
  6461. 6 9
  6462. 3 0
  6463. 8 9
  6464. 10 00000587
  6465. 17 21
  6466. 5 1
  6467. 6 9
  6468. 23 8
  6469. 17 22
  6470. 5 0
  6471. 0 284 "PXEngWin.dll,PXKeyAdd,HCHNH" "{0}" 1 &8 2
  6472. 13
  6473. 0 805 &3 [X]
  6474. 13
  6475. 18 0
  6476. 11 00000808
  6477. 10 00000884
  6478. 17 24
  6479. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{3}"
  6480. 13
  6481. 8 7
  6482. 17 26
  6483. 5 -1
  6484. 15
  6485. 9
  6486. 10 00000636
  6487. 17 29
  6488. 5 0
  6489. 15
  6490. 9
  6491. 6 2
  6492. 15
  6493. 17 30
  6494. 9
  6495. 14 OpenTable
  6496. 29 0 Filename
  6497. 29 1 Thandle
  6498. 29 2 RecHandle
  6499. 29 3 OpenTable
  6500. 17 1
  6501. 29 4 exists
  6502. 29 5 thand
  6503. 29 6 rhand
  6504. 29 7 stat
  6505. 17 2
  6506. 5 0
  6507. 0 284 "PXEngWin.dll,PXTblExist,HCL" "{0}" &4
  6508. 13
  6509. 0 805 &7 [X]
  6510. 13
  6511. 18 0
  6512. 11 00000240
  6513. 10 00000326
  6514. 17 4
  6515. 29 8 Error
  6516. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{7}"
  6517. 13
  6518. 8 8
  6519. 17 6
  6520. 5 -1
  6521. 15
  6522. 9
  6523. 17 9
  6524. 5 0
  6525. 0 284 "PXEngWin.dll,PXTblOpen,HCLHH" "{0}" &5 0 1
  6526. 13
  6527. 0 805 &7 [X]
  6528. 13
  6529. 18 0
  6530. 11 00000630
  6531. 17 10
  6532. 5 0
  6533. 0 284 "PXEngWin.dll,PXRecBufOpen,HHL" "{5}" &6
  6534. 13
  6535. 0 805 &7 [X]
  6536. 13
  6537. 18 0
  6538. 11 00000598
  6539. 17 11
  6540. 6 5
  6541. 28 1
  6542. 17 12
  6543. 6 6
  6544. 28 2
  6545. 17 13
  6546. 5 0
  6547. 15
  6548. 9
  6549. 10 00000617
  6550. 17 15
  6551. 6 7
  6552. 15
  6553. 9
  6554. 10 00000649
  6555. 17 18
  6556. 6 7
  6557. 15
  6558. 9
  6559. 6 3
  6560. 15
  6561. 17 20
  6562. 9
  6563. 14 ReadFields
  6564. 29 0 FieldNames
  6565. 29 1 FieldType
  6566. 29 2 Thandle
  6567. 29 3 ReadFields
  6568. 17 1
  6569. 29 4 Stat
  6570. 29 5 Stat2
  6571. 29 6 NumFlds
  6572. 29 7 Size
  6573. 29 8 Name
  6574. 29 9 FldType
  6575. 17 2
  6576. 5 0
  6577. 0 284 "PXEngWin.dll,PXRecNFlds,HHL" "{2}" &6
  6578. 13
  6579. 0 805 &4 [X]
  6580. 13
  6581. 18 0
  6582. 11 00000608
  6583. 29 10 x
  6584. 5 1
  6585. 8 10
  6586. 17 3
  6587. 6 6
  6588. 6 10
  6589. 18 2
  6590. 12 00000360
  6591. 10 00000595
  6592. 5 1
  6593. 6 10
  6594. 3 0
  6595. 8 10
  6596. 10 00000276
  6597. 17 4
  6598. 0 284 "PXEngWin.dll,PXFldName,HHHHC" "{2}" "{10}" 80 &8
  6599. 13
  6600. 0 805 &4 [X]
  6601. 17 5
  6602. 0 284 "PXEngWin.dll,PXFldType,HHHHC" "{2}" "{10}" 80 &9
  6603. 13
  6604. 0 805 &5 [X]
  6605. 17 6
  6606. 0 1041 &0 "{10}" "{8}"
  6607. 17 7
  6608. 0 1041 &1 "{10}" "{9}"
  6609. 10 00000325
  6610. 10 00000627
  6611. 17 10
  6612. 6 4
  6613. 15
  6614. 9
  6615. 17 12
  6616. 5 0
  6617. 15
  6618. 9
  6619. 6 3
  6620. 15
  6621. 17 13
  6622. 9
  6623. 14 FreeGlobals
  6624. 29 0 FreeGlobals
  6625. 17 3
  6626. 0 266 "TotalFields"
  6627. 17 4
  6628. 0 266 "FieldNames"
  6629. 17 5
  6630. 0 266 "LastField"
  6631. 17 6
  6632. 0 266 "EditData"
  6633. 17 7
  6634. 0 266 "FieldSep"
  6635. 17 8
  6636. 0 266 "RecSep"
  6637. 17 9
  6638. 0 266 "DefineField"
  6639. 17 10
  6640. 0 266 "DefineRec"
  6641. 17 11
  6642. 0 266 "BoxReturn"
  6643. 17 12
  6644. 0 266 "KeyField"
  6645. 17 13
  6646. 0 266 "LibId"
  6647. 17 14
  6648. 0 266 "FieldType"
  6649. 17 15
  6650. 0 266 "RecHandle"
  6651. 17 16
  6652. 0 266 "Speed"
  6653. 17 17
  6654. 0 266 "KeyField"
  6655. 17 18
  6656. 0 266 "EditTarget"
  6657. 17 19
  6658. 0 266 "LastEditField"
  6659. 17 20
  6660. 0 266 "NumFields"
  6661. 17 21
  6662. 0 266 "RedoNames"
  6663. 17 22
  6664. 0 266 "Thandle"
  6665. 17 23
  6666. 0 266 "PrevLock"
  6667. 17 24
  6668. 0 266 "RefreshMain"
  6669. 17 25
  6670. 0 266 "PMTypes"
  6671. 17 26
  6672. 0 266 "PMFields"
  6673. 6 0
  6674. 15
  6675. 17 28
  6676. 9
  6677. 14 Configure
  6678. 29 0 Configure
  6679. 17 1
  6680. 29 1 NetType
  6681. 29 2 NetNamePath
  6682. 29 3 Name
  6683. 17 2
  6684. 5 9
  6685. 29 4 Net
  6686. 21 4 [X]
  6687. 17 3
  6688. 5 1
  6689. 7 "Not on network"
  6690. 23 4
  6691. 17 4
  6692. 5 2
  6693. 7 "Novell"
  6694. 23 4
  6695. 17 5
  6696. 5 3
  6697. 7 "3Com"
  6698. 23 4
  6699. 17 6
  6700. 5 4
  6701. 7 "3Com 3+Open"
  6702. 23 4
  6703. 17 7
  6704. 5 5
  6705. 7 "Other: unknown"
  6706. 23 4
  6707. 17 8
  6708. 5 6
  6709. 7 "Starlan"
  6710. 23 4
  6711. 17 9
  6712. 5 7
  6713. 7 "Banyan"
  6714. 23 4
  6715. 17 10
  6716. 5 8
  6717. 7 "IBM PC"
  6718. 23 4
  6719. 17 11
  6720. 29 5 size
  6721. 0 1046 &4
  6722. 13
  6723. 8 5
  6724. 17 12
  6725. 6 5
  6726. 29 6 Temp
  6727. 21 6 [X]
  6728. 29 7 t
  6729. 5 1
  6730. 8 7
  6731. 17 13
  6732. 6 5
  6733. 6 7
  6734. 18 2
  6735. 12 00000534
  6736. 10 00000576
  6737. 5 1
  6738. 6 7
  6739. 3 0
  6740. 8 7
  6741. 10 00000452
  6742. 17 14
  6743. 6 7
  6744. 6 7
  6745. 22 4
  6746. 23 6
  6747. 10 00000501
  6748. 17 16
  6749. 7 ""
  6750. 0 286 "Paradox Engine" "UserName" "Win.ini"
  6751. 13
  6752. 0 805 &3 [X]
  6753. 13
  6754. 18 0
  6755. 11 00000731
  6756. 17 17
  6757. 0 286 "AmiPro" "UserName" "AmiPro.Ini"
  6758. 13
  6759. 8 3
  6760. 17 25
  6761. 7 ""
  6762. 0 286 "Paradox Engine" "NetNamePath" "Win.ini"
  6763. 13
  6764. 0 805 &2 [X]
  6765. 13
  6766. 18 0
  6767. 11 00000854
  6768. 17 26
  6769. 7 "C:\"
  6770. 8 2
  6771. 17 29
  6772. 0 31 9500 &4
  6773. 17 30
  6774. 0 31 8000 "{3}"
  6775. 17 31
  6776. 0 31 8002 "{2}"
  6777. 17 32
  6778. 29 8 Box
  6779. 0 26 "." "NetWork"
  6780. 13
  6781. 8 8
  6782. 17 33
  6783. 6 8
  6784. 5 1
  6785. 18 1
  6786. 11 00001024
  6787. 17 34
  6788. 5 2
  6789. 15
  6790. 9
  6791. 17 36
  6792. 29 9 DlgUser
  6793. 0 27 8000
  6794. 13
  6795. 8 9
  6796. 17 37
  6797. 29 10 DlgNetType
  6798. 0 27 9500
  6799. 13
  6800. 8 10
  6801. 17 38
  6802. 29 11 DlgPath
  6803. 0 27 8002
  6804. 13
  6805. 8 11
  6806. 17 39
  6807. 0 1044 &6 "{10}"
  6808. 13
  6809. 8 1
  6810. 17 40
  6811. 0 287 "Paradox Engine" "UserName" "{9}" "Win.ini"
  6812. 17 41
  6813. 0 287 "Paradox Engine" "NetNamePath" "{11}" "Win.ini"
  6814. 6 0
  6815. 15
  6816. 17 45
  6817. 9
  6818. 14 ShutDown
  6819. 29 0 ShutDown
  6820. 17 1
  6821. 29 1 Stat
  6822. 17 2
  6823. 0 271 "LibId" 1
  6824. 17 3
  6825. 0 265 "libid"
  6826. 13
  6827. 7 ""
  6828. 18 1
  6829. 11 00000268
  6830. 17 4
  6831. 5 0
  6832. 0 284 "PXEngWin.dll,PXExit,H"
  6833. 13
  6834. 0 805 &1 [X]
  6835. 13
  6836. 18 1
  6837. 11 00000268
  6838. 17 5
  6839. 29 2 Error
  6840. 0 284 "PXEngWin.dll,PXErrMsg,CH" "{1}"
  6841. 13
  6842. 8 2
  6843. 17 9
  6844. 0 266 "LibId"
  6845. 17 10
  6846. 29 3 Barid
  6847. 5 1
  6848. 8 3
  6849. 17 11
  6850. 29 4 MenuName
  6851. 7 "&Card File"
  6852. 8 4
  6853. 17 12
  6854. 0 521 "{3}" "{4}"
  6855. 6 0
  6856. 15
  6857. 17 14
  6858. 9
  6859. 14 OpenBox
  6860. 29 0 initpath
  6861. 29 1 initmask
  6862. 29 2 OpenBox
  6863. 17 1
  6864. 17 2
  6865. 17 3
  6866. 17 4
  6867. 17 6
  6868. 17 7
  6869. 17 8
  6870. 17 9
  6871. 17 10
  6872. 19 00000898
  6873. 17 11
  6874. 20 00000898
  6875. 17 12
  6876. 0 296 1
  6877. 17 13
  6878. 0 271 "BN" 2
  6879. 17 14
  6880. 0 271 "FN" 1
  6881. 17 15
  6882. 0 271 "MS" 1
  6883. 17 16
  6884. 0 264 "MS" "{1}"
  6885. 17 17
  6886. 0 807 "{0}" 1
  6887. 13
  6888. 7 "\"
  6889. 18 1
  6890. 11 00000332
  6891. 17 18
  6892. 0 16 "{0}" "\"
  6893. 13
  6894. 8 0
  6895. 17 20
  6896. 0 14 "{0}"
  6897. 13
  6898. 5 3
  6899. 18 3
  6900. 11 00000466
  6901. 17 21
  6902. 29 3 disppath
  6903. 0 14 "{0}"
  6904. 13
  6905. 5 1
  6906. 3 1
  6907. 0 806 "{0}" [X]
  6908. 13
  6909. 8 3
  6910. 10 00000483
  6911. 17 23
  6912. 6 0
  6913. 8 3
  6914. 17 25
  6915. 0 31 8000 "{1}"
  6916. 17 26
  6917. 0 17 "{3}"
  6918. 13
  6919. 0 31 8888 [X]
  6920. 17 27
  6921. 0 31 9500 "*.*,0x4000"
  6922. 17 28
  6923. 0 41 0 "boxinits"
  6924. 17 29
  6925. 0 41 25 "okbutton"
  6926. 17 30
  6927. 0 41 9005 "selfile"
  6928. 17 31
  6929. 0 41 9006 "chdirs"
  6930. 17 32
  6931. 0 41 9500 "chdrv"
  6932. 17 33
  6933. 0 41 8000 "chmask"
  6934. 17 34
  6935. 0 296 0
  6936. 17 35
  6937. 29 4 box
  6938. 0 26 "." "OPENBOX"
  6939. 13
  6940. 8 4
  6941. 17 36
  6942. 29 5 filename
  6943. 0 265 "FN"
  6944. 13
  6945. 8 5
  6946. 17 37
  6947. 6 4
  6948. 5 0
  6949. 18 0
  6950. 11 00000898
  6951. 17 38
  6952. 10 00000898
  6953. 17 41
  6954. 0 266 "FN"
  6955. 17 42
  6956. 0 266 "BN"
  6957. 17 43
  6958. 0 266 "MS"
  6959. 17 44
  6960. 6 5
  6961. 15
  6962. 9
  6963. 6 2
  6964. 15
  6965. 17 45
  6966. 9
  6967. 14 chmask
  6968. 29 0 hDlg
  6969. 29 1 id
  6970. 29 2 value
  6971. 29 3 chmask
  6972. 17 1
  6973. 0 32 1
  6974. 17 2
  6975. 0 43 "{0}" 8123 "~"
  6976. 6 3
  6977. 15
  6978. 17 3
  6979. 9
  6980. 14 okbutton
  6981. 29 0 hDlg
  6982. 29 1 id
  6983. 29 2 value
  6984. 29 3 okbutton
  6985. 17 1
  6986. 0 42 "{0}" 8123
  6987. 13
  6988. 7 "~"
  6989. 18 0
  6990. 11 00001786
  6991. 17 2
  6992. 29 4 newmask
  6993. 0 42 "{0}" 8000
  6994. 13
  6995. 8 4
  6996. 17 3
  6997. 0 15 "{4}" 2 1
  6998. 13
  6999. 7 ":"
  7000. 18 0
  7001. 11 00001477
  7002. 17 4
  7003. 29 5 res
  7004. 0 14 "{4}"
  7005. 13
  7006. 8 5
  7007. 17 5
  7008. 29 6 lb
  7009. 0 39 91
  7010. 13
  7011. 8 6
  7012. 17 6
  7013. 5 1
  7014. 11 00000447
  7015. 17 7
  7016. 29 7 sep
  7017. 0 808 "{5}" "{4}" "\"
  7018. 13
  7019. 8 7
  7020. 17 8
  7021. 6 7
  7022. 6 5
  7023. 18 0
  7024. 11 00000407
  7025. 17 9
  7026. 10 00000447
  7027. 17 11
  7028. 6 5
  7029. 5 1
  7030. 3 1
  7031. 8 5
  7032. 10 00000281
  7033. 17 13
  7034. 6 7
  7035. 5 0
  7036. 18 1
  7037. 11 00001007
  7038. 17 14
  7039. 29 8 curdir
  7040. 0 806 "{4}" "{7}"
  7041. 13
  7042. 8 8
  7043. 17 15
  7044. 0 14 "{4}"
  7045. 13
  7046. 6 7
  7047. 3 1
  7048. 0 807 "{4}" [X]
  7049. 13
  7050. 8 4
  7051. 17 16
  7052. 0 14 "{8}"
  7053. 13
  7054. 5 3
  7055. 18 0
  7056. 11 00000677
  7057. 17 17
  7058. 29 9 bks
  7059. 5 0
  7060. 8 9
  7061. 10 00000694
  7062. 17 19
  7063. 5 1
  7064. 8 9
  7065. 17 21
  7066. 0 14 "{8}"
  7067. 13
  7068. 6 9
  7069. 3 1
  7070. 0 806 "{8}" [X]
  7071. 13
  7072. 0 43 "{0}" 8888 [X]
  7073. 17 22
  7074. 0 17 "{4}"
  7075. 13
  7076. 0 43 "{0}" 8000 [X]
  7077. 17 23
  7078. 0 264 "MS" "{4}"
  7079. 17 24
  7080. 29 10 handle
  7081. 0 44 "{0}" 9006
  7082. 13
  7083. 8 10
  7084. 17 25
  7085. 29 11 filldir
  7086. 0 16 "{8}" "*.*"
  7087. 13
  7088. 8 11
  7089. 17 26
  7090. 0 1036 "{10}" 1029 0 0
  7091. 17 27
  7092. 0 1036 "{10}" 1038 32784 "{11}"
  7093. 17 29
  7094. 0 806 "{8}" 1
  7095. 13
  7096. 0 42 "{0}" 9500
  7097. 13
  7098. 18 1
  7099. 11 00001464
  7100. 17 30
  7101. 29 12 dletter
  7102. 0 806 "{8}" 1
  7103. 13
  7104. 8 12
  7105. 17 31
  7106. 29 13 initdrv
  7107. 7 "{6}-{12}-]"
  7108. 8 13
  7109. 29 14 drvnum
  7110. 5 0
  7111. 8 14
  7112. 17 32
  7113. 5 25
  7114. 6 14
  7115. 18 2
  7116. 12 00001275
  7117. 10 00001464
  7118. 5 1
  7119. 6 14
  7120. 3 0
  7121. 8 14
  7122. 10 00001189
  7123. 17 33
  7124. 0 44 "{0}" 9500
  7125. 13
  7126. 8 10
  7127. 17 34
  7128. 0 1036 "{10}" 1038 "{14}" 0
  7129. 17 35
  7130. 29 15 seldrv
  7131. 0 42 "{0}" 9500
  7132. 13
  7133. 8 15
  7134. 17 36
  7135. 6 15
  7136. 6 13
  7137. 18 0
  7138. 11 00001451
  7139. 17 37
  7140. 10 00001464
  7141. 10 00001240
  7142. 10 00001594
  7143. 17 42
  7144. 0 42 "{0}" 8888
  7145. 13
  7146. 8 8
  7147. 17 43
  7148. 0 807 "{8}" 1
  7149. 13
  7150. 7 "\"
  7151. 18 1
  7152. 11 00001594
  7153. 17 44
  7154. 0 16 "{8}" "\"
  7155. 13
  7156. 8 8
  7157. 17 47
  7158. 29 16 fillfile
  7159. 0 16 "{8}" "{4}"
  7160. 13
  7161. 8 16
  7162. 17 48
  7163. 0 44 "{0}" 9005
  7164. 13
  7165. 8 10
  7166. 17 49
  7167. 0 1036 "{10}" 1029 0 0
  7168. 17 50
  7169. 0 1036 "{10}" 1038 0 "{16}"
  7170. 17 51
  7171. 0 43 "{0}" 8123 ""
  7172. 10 00002129
  7173. 17 52
  7174. 0 42 "{0}" 9005
  7175. 13
  7176. 7 ""
  7177. 18 1
  7178. 11 00002129
  7179. 17 54
  7180. 29 17 filename
  7181. 0 42 "{0}" 9005
  7182. 13
  7183. 8 17
  7184. 17 55
  7185. 29 18 fpath
  7186. 0 42 "{0}" 8888
  7187. 13
  7188. 8 18
  7189. 17 56
  7190. 0 807 "{18}" 1
  7191. 13
  7192. 7 "\"
  7193. 18 1
  7194. 11 00002023
  7195. 17 57
  7196. 0 16 "{18}" "\"
  7197. 13
  7198. 8 18
  7199. 17 59
  7200. 0 16 "{18}" "{17}"
  7201. 13
  7202. 8 17
  7203. 17 60
  7204. 0 264 "FN" "{17}"
  7205. 17 61
  7206. 0 284 "user,EndDialog,HHH" "{0}" 1
  7207. 6 3
  7208. 15
  7209. 17 63
  7210. 9
  7211. 14 selfile
  7212. 29 0 hDlg
  7213. 29 1 id
  7214. 29 2 value
  7215. 29 3 selfile
  7216. 17 1
  7217. 0 43 "{0}" 8000 "{2}"
  7218. 17 2
  7219. 29 4 thetime
  7220. 0 772
  7221. 13
  7222. 8 4
  7223. 17 3
  7224. 6 2
  7225. 0 273 "BN" 1
  7226. 13
  7227. 18 0
  7228. 5 1
  7229. 6 4
  7230. 0 273 "BN" 2
  7231. 13
  7232. 3 1
  7233. 18 3
  7234. 1 1
  7235. 11 00000251
  7236. 17 4
  7237. 0 272 "BN" 1 ""
  7238. 10 00000315
  7239. 17 6
  7240. 0 272 "BN" 1 "{2}"
  7241. 17 7
  7242. 0 272 "BN" 2 "{4}"
  7243. 6 3
  7244. 15
  7245. 9
  7246. 17 10
  7247. 29 5 filename
  7248. 6 2
  7249. 8 5
  7250. 17 11
  7251. 29 6 fpath
  7252. 0 42 "{0}" 8888
  7253. 13
  7254. 8 6
  7255. 17 12
  7256. 0 807 "{6}" 1
  7257. 13
  7258. 7 "\"
  7259. 18 1
  7260. 11 00000476
  7261. 17 13
  7262. 0 16 "{6}" "\"
  7263. 13
  7264. 8 6
  7265. 17 15
  7266. 0 16 "{6}" "{5}"
  7267. 13
  7268. 8 5
  7269. 17 16
  7270. 0 264 "FN" "{5}"
  7271. 17 17
  7272. 0 284 "user,EndDialog,HHH" "{0}" 1
  7273. 6 3
  7274. 15
  7275. 17 18
  7276. 9
  7277. 14 chdrv
  7278. 29 0 hDlg
  7279. 29 1 id
  7280. 29 2 value
  7281. 29 3 chdrv
  7282. 17 1
  7283. 0 296 1
  7284. 17 2
  7285. 29 4 lb
  7286. 0 39 91
  7287. 13
  7288. 8 4
  7289. 17 3
  7290. 29 5 dletter
  7291. 0 15 "{2}" 3 1
  7292. 13
  7293. 8 5
  7294. 17 4
  7295. 29 6 newdir
  7296. 0 16 "{5}" ":\"
  7297. 13
  7298. 8 6
  7299. 17 5
  7300. 0 43 "{0}" 8888 "{6}"
  7301. 17 6
  7302. 29 7 handle
  7303. 0 44 "{0}" 9501
  7304. 13
  7305. 8 7
  7306. 17 7
  7307. 29 8 cbnum
  7308. 0 1036 "{7}" 1031 0 0
  7309. 13
  7310. 8 8
  7311. 17 8
  7312. 29 9 mask
  7313. 0 42 "{0}" 8000
  7314. 13
  7315. 8 9
  7316. 17 9
  7317. 29 10 fillfile
  7318. 0 16 "{6}" "*" "{9}"
  7319. 13
  7320. 8 10
  7321. 17 10
  7322. 0 44 "{0}" 9005
  7323. 13
  7324. 8 7
  7325. 17 11
  7326. 0 1036 "{7}" 1029 0 0
  7327. 17 12
  7328. 0 1036 "{7}" 1038 0 "{10}"
  7329. 17 13
  7330. 29 11 filldir
  7331. 0 16 "{6}" "*.*"
  7332. 13
  7333. 8 11
  7334. 17 14
  7335. 0 44 "{0}" 9006
  7336. 13
  7337. 8 7
  7338. 17 15
  7339. 0 1036 "{7}" 1029 0 0
  7340. 17 16
  7341. 0 1036 "{7}" 1038 32784 "{11}"
  7342. 17 17
  7343. 0 296 0
  7344. 6 3
  7345. 15
  7346. 17 18
  7347. 9
  7348. 14 chdirs
  7349. 29 0 hDlg
  7350. 29 1 id
  7351. 29 2 value
  7352. 29 3 chdirs
  7353. 17 1
  7354. 0 4 0
  7355. 17 2
  7356. 29 4 mask
  7357. 0 265 "MS"
  7358. 13
  7359. 8 4
  7360. 17 3
  7361. 29 5 godir
  7362. 0 42 "{0}" 9006
  7363. 13
  7364. 8 5
  7365. 17 4
  7366. 29 6 ln
  7367. 0 14 "{5}"
  7368. 13
  7369. 5 2
  7370. 3 1
  7371. 8 6
  7372. 17 5
  7373. 6 5
  7374. 7 ""
  7375. 18 1
  7376. 11 00000347
  7377. 17 6
  7378. 0 15 "{5}" 2 "{6}"
  7379. 13
  7380. 8 5
  7381. 17 7
  7382. 29 7 dispmask
  7383. 0 18 "{4}"
  7384. 13
  7385. 0 16 "{5}" "\" [X]
  7386. 13
  7387. 8 7
  7388. 10 00000374
  7389. 17 9
  7390. 0 18 "{4}"
  7391. 13
  7392. 8 7
  7393. 17 11
  7394. 0 43 "{0}" 8000 "{7}"
  7395. 17 12
  7396. 6 5
  7397. 7 ""
  7398. 18 0
  7399. 11 00000453
  7400. 6 3
  7401. 15
  7402. 9
  7403. 17 15
  7404. 29 8 thetime
  7405. 0 772
  7406. 13
  7407. 8 8
  7408. 17 16
  7409. 6 5
  7410. 0 273 "BN" 1
  7411. 13
  7412. 18 0
  7413. 5 1
  7414. 6 8
  7415. 0 273 "BN" 2
  7416. 13
  7417. 3 1
  7418. 18 3
  7419. 1 1
  7420. 11 00000620
  7421. 17 17
  7422. 0 272 "BN" 1 ""
  7423. 10 00000686
  7424. 17 19
  7425. 0 272 "BN" 1 "{5}"
  7426. 17 20
  7427. 0 272 "BN" 2 "{8}"
  7428. 6 3
  7429. 15
  7430. 9
  7431. 17 23
  7432. 0 296 1
  7433. 17 24
  7434. 29 9 lb
  7435. 0 39 91
  7436. 13
  7437. 8 9
  7438. 17 25
  7439. 29 10 space
  7440. 7 " "
  7441. 8 10
  7442. 17 26
  7443. 29 11 cdr
  7444. 0 42 "{0}" 8888
  7445. 13
  7446. 8 11
  7447. 17 27
  7448. 0 14 "{11}"
  7449. 13
  7450. 5 3
  7451. 18 0
  7452. 11 00000904
  7453. 17 28
  7454. 29 12 bs
  7455. 7 ""
  7456. 8 12
  7457. 10 00000924
  7458. 17 30
  7459. 7 "\"
  7460. 8 12
  7461. 17 32
  7462. 6 5
  7463. 7 ".."
  7464. 18 1
  7465. 11 00001033
  7466. 17 33
  7467. 29 13 newdir
  7468. 0 16 "{11}" "{12}" "{5}"
  7469. 13
  7470. 8 13
  7471. 10 00001326
  7472. 17 35
  7473. 29 14 cnt
  7474. 5 1
  7475. 8 14
  7476. 17 36
  7477. 5 1
  7478. 11 00001263
  7479. 17 37
  7480. 29 15 res
  7481. 0 14 "{11}"
  7482. 13
  7483. 6 14
  7484. 3 1
  7485. 0 15 "{11}" [X] 1
  7486. 13
  7487. 8 15
  7488. 17 38
  7489. 6 15
  7490. 7 "\"
  7491. 18 0
  7492. 11 00001221
  7493. 17 39
  7494. 10 00001263
  7495. 17 41
  7496. 6 14
  7497. 5 1
  7498. 3 0
  7499. 8 14
  7500. 10 00001062
  7501. 17 43
  7502. 0 14 "{11}"
  7503. 13
  7504. 6 14
  7505. 3 1
  7506. 0 806 "{11}" [X]
  7507. 13
  7508. 8 13
  7509. 17 45
  7510. 0 14 "{13}"
  7511. 13
  7512. 5 3
  7513. 18 1
  7514. 0 807 "{13}" 1
  7515. 13
  7516. 7 "\"
  7517. 18 0
  7518. 1 1
  7519. 11 00001474
  7520. 17 46
  7521. 0 14 "{13}"
  7522. 13
  7523. 5 1
  7524. 3 1
  7525. 0 806 "{13}" [X]
  7526. 13
  7527. 8 13
  7528. 17 48
  7529. 0 17 "{13}"
  7530. 13
  7531. 0 43 "{0}" 8888 [X]
  7532. 17 49
  7533. 0 18 "{4}"
  7534. 13
  7535. 0 43 "{0}" 8000 [X]
  7536. 17 50
  7537. 0 807 "{13}" 1
  7538. 13
  7539. 7 "\"
  7540. 18 1
  7541. 11 00001650
  7542. 17 51
  7543. 0 16 "{13}" "\"
  7544. 13
  7545. 8 13
  7546. 17 53
  7547. 29 16 handle
  7548. 0 44 "{0}" 9501
  7549. 13
  7550. 8 16
  7551. 17 54
  7552. 29 17 cbnum
  7553. 0 1036 "{16}" 1031 0 0
  7554. 13
  7555. 8 17
  7556. 17 55
  7557. 29 18 fillfile
  7558. 0 16 "{13}" "{4}"
  7559. 13
  7560. 8 18
  7561. 17 56
  7562. 0 44 "{0}" 9005
  7563. 13
  7564. 8 16
  7565. 17 57
  7566. 0 1036 "{16}" 1029 0 0
  7567. 17 58
  7568. 0 1036 "{16}" 1038 0 "{18}"
  7569. 17 59
  7570. 29 19 filldir
  7571. 0 16 "{13}" "*.*"
  7572. 13
  7573. 8 19
  7574. 17 60
  7575. 0 44 "{0}" 9006
  7576. 13
  7577. 8 16
  7578. 17 61
  7579. 0 1036 "{16}" 1029 0 0
  7580. 17 62
  7581. 0 1036 "{16}" 1038 32784 "{19}"
  7582. 17 63
  7583. 0 296 0
  7584. 6 3
  7585. 15
  7586. 17 64
  7587. 9
  7588. 14 boxinits
  7589. 29 0 hDlg
  7590. 29 1 id
  7591. 29 2 value
  7592. 29 3 boxinits
  7593. 17 1
  7594. 0 296 1
  7595. 17 2
  7596. 29 4 lb
  7597. 0 39 91
  7598. 13
  7599. 8 4
  7600. 17 3
  7601. 29 5 dletter
  7602. 0 268
  7603. 13
  7604. 0 806 [X] 1
  7605. 13
  7606. 8 5
  7607. 17 4
  7608. 0 17 "{5}"
  7609. 13
  7610. 8 5
  7611. 17 5
  7612. 29 6 initdrv
  7613. 7 "{4}-{5}-]"
  7614. 8 6
  7615. 29 7 drvnum
  7616. 5 0
  7617. 8 7
  7618. 17 6
  7619. 5 25
  7620. 6 7
  7621. 18 2
  7622. 12 00000333
  7623. 10 00000525
  7624. 5 1
  7625. 6 7
  7626. 3 0
  7627. 8 7
  7628. 10 00000251
  7629. 17 7
  7630. 29 8 handle
  7631. 0 44 "{0}" 9500
  7632. 13
  7633. 8 8
  7634. 17 8
  7635. 0 1036 "{8}" 1038 "{7}" 0
  7636. 17 9
  7637. 29 9 seldrv
  7638. 0 42 "{0}" 9500
  7639. 13
  7640. 8 9
  7641. 17 10
  7642. 6 9
  7643. 6 6
  7644. 18 0
  7645. 11 00000512
  7646. 17 11
  7647. 10 00000525
  7648. 10 00000300
  7649. 17 14
  7650. 29 10 filldir
  7651. 0 42 "{0}" 8888
  7652. 13
  7653. 8 10
  7654. 17 15
  7655. 29 11 mask
  7656. 0 42 "{0}" 8000
  7657. 13
  7658. 8 11
  7659. 17 16
  7660. 0 807 "{10}" 1
  7661. 13
  7662. 7 "\"
  7663. 18 1
  7664. 11 00000707
  7665. 17 17
  7666. 0 16 "{10}" "\"
  7667. 13
  7668. 8 10
  7669. 17 19
  7670. 29 12 fillfile
  7671. 0 16 "{10}" "{11}"
  7672. 13
  7673. 8 12
  7674. 17 20
  7675. 0 16 "{10}" "*.*"
  7676. 13
  7677. 8 10
  7678. 17 21
  7679. 0 44 "{0}" 9006
  7680. 13
  7681. 8 8
  7682. 17 22
  7683. 0 1036 "{8}" 1038 32784 "{10}"
  7684. 17 23
  7685. 0 44 "{0}" 9005
  7686. 13
  7687. 8 8
  7688. 17 24
  7689. 0 1036 "{8}" 1038 0 "{12}"
  7690. 17 25
  7691. 0 44 "{0}" 8000
  7692. 13
  7693. 8 8
  7694. 17 26
  7695. 0 1036 "{8}" 1025 0 5
  7696. 17 27
  7697. 0 296 0
  7698. 6 3
  7699. 15
  7700. 17 28
  7701. 9
  7702. DIALOG OPENBOX
  7703. -2134376448 13 26 28 212 115 "" "" "Open  Card File" 
  7704. FONT 6 "Helv" 
  7705. 5 4 40 10 1001 1342308352 "static" "File &name:" 0 
  7706. 66 3 95 12 8000 1350631552 "edit" "" 0 
  7707. 5 15 40 10 1002 1342308352 "static" "Directory:" 0 
  7708. 66 16 95 9 8888 1342177280 "static" "show directory here" 0 
  7709. 5 26 27 10 1003 1342308352 "static" "&Files:" 0 
  7710. 5 36 58 69 9005 1352728579 "listbox" "" 0 
  7711. 66 26 44 10 1004 1342308352 "static" "&Directories:" 0 
  7712. 66 36 58 69 9006 1352728579 "listbox" "" 0 
  7713. 127 26 27 10 1006 1342308352 "static" "Dri&ves:" 0 
  7714. 127 36 34 45 9500 1344339971 "combobox" "" 0 
  7715. 166 3 40 14 25 1342373889 "button" "OK" 0 
  7716. 166 19 40 14 2 1342373888 "button" "Cancel" 0 
  7717. 196 150 7 12 8123 1350631424 "edit" "" 0 
  7718. DIALOG MainBox
  7719. -2134376448 51 29 32 296 194 "" "" "Edit Card File" 
  7720. FONT 8 "Helv" 
  7721. 6 6 235 178 1000 1342177290 "static" "filename.bmp" 0 
  7722. 94 27 130 12 8001 1350762624 "edit" "" 0 
  7723. 94 41 130 12 8002 1350631552 "edit" "" 0 
  7724. 94 55 130 12 8003 1350631552 "edit" "" 0 
  7725. 94 69 130 12 8004 1350631552 "edit" "" 0 
  7726. 94 83 130 12 8005 1350631552 "edit" "" 0 
  7727. 94 97 130 12 8006 1350631552 "edit" "" 0 
  7728. 94 111 130 12 8007 1350631552 "edit" "" 0 
  7729. 94 125 130 12 8008 1350631552 "edit" "" 0 
  7730. 94 139 130 12 8009 1350631552 "edit" "" 0 
  7731. 94 153 130 12 8010 1350762624 "edit" "" 0 
  7732. 247 17 46 14 31 1342373889 "button" "&Add" 0 
  7733. 247 33 46 14 32 1342373888 "button" "&Delete" 0 
  7734. 247 49 46 14 21 1342373888 "button" "&Update" 0 
  7735. 247 65 46 14 33 1342373888 "button" "&New Card" 0 
  7736. 247 81 46 14 1 1342373888 "button" "Close" 0 
  7737. 247 119 46 14 27 1342373888 "button" "&Index..." 0 
  7738. 247 135 46 14 30 1342373888 "button" "&Go To..." 0 
  7739. 247 151 21 14 29 1342373896 "button" "prev" 0 
  7740. 272 151 21 14 28 1342373896 "button" "next" 0 
  7741. 272 167 21 14 35 1342373896 "button" "ffwrd" 0 
  7742. 272 167 21 14 55 1342373896 "button" "Stopffwr" 0 
  7743. 247 167 21 14 36 1342373896 "button" "frev" 0 
  7744. 247 167 21 14 56 1342373896 "button" "StopFrv" 0 
  7745. 110 168 12 12 23 1342373896 "button" ">>" 0 
  7746. 125 168 12 12 24 1342373896 "button" "<<" 0 
  7747. 8 160 36 26 1011 1342177290 "static" "filename.bmp" 0 
  7748. 24 29 64 8 1001 1342177282 "static" "" 0 
  7749. 28 43 60 8 1002 1342177282 "static" "" 0 
  7750. 24 57 64 8 1003 1342177282 "static" "" 0 
  7751. 24 71 64 8 1004 1342177282 "static" "" 0 
  7752. 24 85 64 8 1005 1342177282 "static" "" 0 
  7753. 24 99 64 8 1006 1342177282 "static" "" 0 
  7754. 24 113 64 8 1007 1342177282 "static" "" 0 
  7755. 24 127 64 8 1008 1342177282 "static" "" 0 
  7756. 24 141 64 8 1009 1342177282 "static" "" 0 
  7757. 24 155 64 8 1010 1342177282 "static" "" 0 
  7758. 59 9 36 8 82 1342177288 "button" "" 0 
  7759. 104 9 37 8 83 1342177288 "button" "" 0 
  7760. 151 9 34 8 84 1342177288 "button" "" 0 
  7761. 198 9 35 8 85 1342177288 "button" "" 0 
  7762. 11 250 12 7 41 1342177280 "button" "RET" 0 
  7763. 13 9 36 8 1017 1342177280 "static" "text" 0 
  7764. 59 9 36 8 1018 1342177280 "static" "" 0 
  7765. 104 9 37 8 1019 1342177280 "static" "" 0 
  7766. 151 9 35 8 1020 1342177280 "static" "" 0 
  7767. 198 9 35 8 1021 1342177280 "static" "" 0 
  7768. 110 168 14 14 93 1342177280 "static" "" 0 
  7769. 125 168 14 14 94 1342177280 "static" "" 0 
  7770. 247 103 46 14 39 1342373888 "button" "&Copy" 0 
  7771. 165 172 70 9 1013 1342177280 "static" "text" 0 
  7772. DIALOG Sort
  7773. -2134376448 10 102 60 152 82 "" "" "Sort Records" 
  7774. FONT 8 "Helvetica" 
  7775. 6 14 86 40 9500 1344274435 "combobox" "" 0 
  7776. 108 4 40 14 1 1342242817 "button" "OK" 0 
  7777. 108 20 40 14 2 1342242816 "button" "Cancel" 0 
  7778. 6 4 52 8 1000 1342177280 "static" "Sort by field:" 0 
  7779. 6 36 66 40 20 1342242823 "button" "Sort type" 0 
  7780. 80 36 68 40 21 1342242823 "button" "Sort order" 0 
  7781. 8 48 54 12 22 1342373897 "button" "&Alphanumeric" 0 
  7782. 8 60 50 12 23 1342177289 "button" "&Numeric" 0 
  7783. 84 48 50 10 24 1342373897 "button" "&Ascending" 0 
  7784. 84 60 54 12 25 1342177289 "button" "&Descending" 0 
  7785. DIALOG Goto
  7786. -2134376448 8 34 64 251 42 "" "" "Go To Card" 
  7787. FONT 8 "Helv" 
  7788. 129 3 73 12 8000 1350631552 "edit" "" 0 
  7789. 207 2 40 14 1 1342242817 "button" "Go To" 0 
  7790. 207 18 40 14 2 1342242816 "button" "Cancel" 0 
  7791. 4 3 41 10 20 1342242825 "button" "&Field:" 0 
  7792. 54 3 65 38 9500 1344339971 "combobox" "" 0 
  7793. 4 14 48 12 21 1342242825 "button" "First record" 0 
  7794. 4 27 47 10 22 1342242825 "button" "Last record" 0 
  7795. 121 5 6 8 1000 1342177280 "static" "=" 0 
  7796. DIALOG MakeFields
  7797. -2134376448 11 67 51 142 105 "" "" "Create Data File" 
  7798. FONT 8 "Helvetica" 
  7799. 6 13 86 12 8001 1350631552 "edit" "" 0 
  7800. 98 4 40 14 20 1342242816 "button" "Done" 0 
  7801. 98 20 40 14 2 1342242816 "button" "Cancel" 0 
  7802. 98 36 40 14 21 1342242817 "button" "&Add" 0 
  7803. 98 52 40 14 22 1342242816 "button" "&Remove" 0 
  7804. 98 68 16 14 23 1342242816 "button" "&Up" 0 
  7805. 122 68 16 14 24 1342242816 "button" "&Dn" 0 
  7806. 6 39 86 62 9000 1352728577 "listbox" "" 0 
  7807. 6 3 68 8 1000 1342177280 "static" "Field Name:" 0 
  7808. 99 87 40 14 30 1342242816 "button" "&Options..." 0 
  7809. 7 29 59 9 1001 1342177280 "static" "Fields in data file:" 0 
  7810. DIALOG NoMatch
  7811. -2134376448 2 86 56 121 50 "" "" "Search Results" 
  7812. 41 25 40 14 1 1342373889 "button" "OK" 0 
  7813. 34 7 57 10 1000 1342177280 "static" "No match found" 0 
  7814. DIALOG Build
  7815. -2134376448 8 47 32 160 100 "" "" "Create Card File" 
  7816. FONT 8 "Helv" 
  7817. 4 14 64 12 8000 1350631552 "Edit" "" 0 
  7818. 4 30 64 61 9000 1352728579 "listbox" "" 0 
  7819. 115 4 40 14 1 1342242816 "button" "OK" 0 
  7820. 115 20 40 14 2 1342242816 "button" "Cancel" 0 
  7821. 115 36 40 14 51 1342242817 "button" "&Add" 0 
  7822. 70 14 40 12 8001 1350631552 "SamNumeditBox" "" 0 
  7823. 5 3 62 10 1000 1342177280 "static" "Enter field name:" 0 
  7824. 74 3 40 10 1001 1342177280 "static" "Field size:" 0 
  7825. DIALOG Save
  7826. -2134376448 7 58 34 138 88 "" "" "Save Card File" 
  7827. FONT 8 "Helv" 
  7828. 6 16 68 12 8000 1350631424 "edit" "" 0 
  7829. 6 44 82 40 9001 1352728579 "listbox" "" 0 
  7830. 30 32 56 8 7999 1342177280 "static" "" 0 
  7831. 92 4 40 14 1 1342242816 "button" "OK" 0 
  7832. 92 20 40 14 2 1342242816 "button" "Cancel" 0 
  7833. 6 6 38 10 1000 1342177280 "static" "File name:" 0 
  7834. 6 32 20 10 1001 1342177280 "static" "Path:" 0 
  7835. DIALOG Index
  7836. -2134376448 5 42 50 178 48 "" "" "Select Field" 
  7837. FONT 6 "Helv" 
  7838. 132 4 40 14 1 1342373889 "button" "OK" 0 
  7839. 132 20 40 14 2 1342373888 "button" "Cancel" 0 
  7840. 6 8 48 10 1000 1342177280 "static" "Field Name:" 0 
  7841. 56 6 68 36 9500 1344274435 "combobox" "" 0 
  7842. 6 30 118 16 1001 1342177280 "static" "Please select a field to display in the tab folder." 0 
  7843. DIALOG Network
  7844. -2134376448 6 45 48 202 41 "" "" "Card File Setup" 
  7845. FONT 8 "Helv" 
  7846. 158 4 40 14 1 1342373889 "button" "OK" 0 
  7847. 158 20 40 14 2 1342373888 "button" "Cancel" 0 
  7848. 70 6 82 12 8000 1350631552 "edit" "" 0 
  7849. 5 8 40 10 1000 1342177280 "static" "User name:" 0 
  7850. 70 20 82 12 8002 1350631552 "edit" "" 0 
  7851. 5 22 62 10 1002 1342177280 "static" "Paradox.Net path:" 0 
  7852. 00059374
  7853.