home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / WORDPRO / AMIMERGE.SMM < prev    next >
Encoding:
INI File  |  1993-05-26  |  27.0 KB  |  1,839 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     
  5. [edoc]
  6. ' Defines
  7.  
  8. 'Declares
  9.  
  10. Declare    PackGlobals(FieldNameArray,FldSep,RecSep)
  11.  
  12. Declare    UpdateDisplay(Hdlg,id,Dummy)
  13.  
  14. Declare    MainCall(Hdlg,id,dummy)
  15.  
  16. Declare    StuffInfo(Hdlg)
  17.  
  18. Declare    WriteOut()
  19.  
  20. Declare    FreeGlobals()
  21.  
  22. Declare    GetFieldData(Hdlg)
  23.  
  24. Declare    SortEm()
  25.  
  26. Declare     CollectHeader(Fieldname,fldSep,RecSep)
  27.  
  28. Declare     GotoMain(Hdlg)
  29.  
  30. Declare     Finditem(p1,p2)
  31.  
  32. Declare     WriteFields(p1)
  33.  
  34. Declare     DefineFields()
  35.  
  36. Declare    MoveFirst()
  37.  
  38. Declare    CreateOptionsBox()
  39.  
  40. Declare    ReadFive(Hdlg)
  41.  
  42. Declare    ReloadNames(Hdlg)
  43.  
  44. Function Main()
  45.  
  46. IgnoreKeyBoard(2)
  47.  
  48. DefStr FldSep,RecSep,Stat;
  49.  
  50. Dim FieldNames(1)
  51.  
  52. Again:
  53.  
  54. If 0=Assign(&Stat,CollectHeader(&FieldNames,&FldSep,&RecSep))
  55.  
  56. Else
  57.  
  58. If 1=Assign(&Stat,DefineFields())
  59.  
  60. FreeGlobals()
  61.  
  62. Goto Again
  63.  
  64. Return 0
  65.  
  66. Else
  67.  
  68. Exit Function
  69.  
  70. Endif
  71.  
  72. Endif
  73.  
  74. PackGlobals(&FieldNames,FldSep,RecSep)
  75.  
  76. ProDir=GetAmiDirectory$()
  77.  
  78. Mac=GetRunningMacroFile$()
  79.  
  80. Filledit(1000,"{ProDir}GreyBlue.bmt")
  81.  
  82. 'Filledit(23,"{ProDir}Down.bmp")
  83.  
  84. 'Filledit(24,"{ProDir}Up.bmp")
  85.  
  86. 'Filledit(28,"{ProDir}Next.bmp")
  87.  
  88. 'Filledit(29,"{ProDir}Prev.bmp")
  89.  
  90. Filledit(82,"")
  91.  
  92. Filledit(83,"")
  93.  
  94. Filledit(84,"")
  95.  
  96. Filledit(85,"")
  97.  
  98. 'SetDlgCallBack(0,"{Mac}!PreBuild")
  99.  
  100. SetDlgCallBack(21,"{Mac}!MainCall")
  101.  
  102. SetDlgCallBack(23,"{Mac}!MainCall")
  103.  
  104. SetDlgCallBack(24,"{Mac}!MainCall")
  105.  
  106. SetDlgCallBack(27,"{Mac}!MainCall")
  107.  
  108. SetDlgCallBack(28,"{Mac}!MainCall")
  109.  
  110. SetDlgCallBack(29,"{Mac}!MainCall")
  111.  
  112. SetDlgCallBack(30,"{Mac}!MainCall")
  113.  
  114. SetDlgCallBack(31,"{Mac}!MainCall")
  115.  
  116. SetDlgCallBack(32,"{Mac}!MainCall")
  117.  
  118. SetDlgCallBack(33,"{Mac}!MainCall")
  119.  
  120. SetDlgCallBack(34,"{Mac}!MainCall")
  121.  
  122. 'SetDlgCallBack(41,"{Mac}!HitEnter")
  123.  
  124. 'SetDlgCallBack(82,"{Mac}!HitFolder")
  125.  
  126. 'SetDlgCallBack(83,"{Mac}!HitFolder")
  127.  
  128. 'SetDlgCallBack(84,"{Mac}!HitFolder")
  129.  
  130. 'SetDlgCallBack(85,"{Mac}!HitFolder")
  131.  
  132. Box=DialogBox(".","Mainbox")
  133.  
  134. FreeGlobals()
  135.  
  136. if ("" = GetOpenFileName$())
  137.  
  138. saveas
  139.  
  140. endif
  141.  
  142. fname = GetOpenFileName$()
  143.  
  144. if ("" != fname)
  145.  
  146. FileClose()
  147.  
  148. [UserInterface\Merge].Record = fname;
  149.  
  150. [UserInterface\Merge].Description = "";
  151.  
  152. [UserInterface\Merge].Flag = 2;
  153.  
  154. PostCommand(781)
  155.  
  156. endif
  157.  
  158. end Function
  159.  
  160. Function MainCall(Hdlg,id,dummy)
  161.  
  162. IgnoreKeyBoard(2)
  163.  
  164. LastField=GetGlobalArray$("LastField",1)
  165.  
  166. TotalFields=GetGlobalArray$("TotalFields",1)
  167.  
  168. Switch id
  169.  
  170. Case 21 ' Update the current record
  171.  
  172. 'StuffInfo(Hdlg)
  173.  
  174. 'If GetGlobalArray$("RedoNames",1)=1 '  Updating field names
  175.  
  176. 'For t=1 to TotalFields
  177.  
  178. 'SetGlobalArray("FieldNames",T,GetGlobalArray$("EditData",t))
  179.  
  180. 'Next
  181.  
  182. 'Endif
  183.  
  184. 'WriteOut()
  185.  
  186. '        Type("[Del]")
  187.  
  188. 'Type("[ShiftCtrlUp]")
  189.  
  190. 'GetFieldData(Hdlg)
  191.  
  192. 'UpdateDisplay(hdlg,id,dummy)
  193.  
  194. Case 23' scroll fields forward
  195.  
  196. 'StuffInfo(Hdlg)
  197.  
  198. 'LastField=LastField+9
  199.  
  200. 'If LastField<;>=TotalFields
  201.  
  202. 'LastField=LastField - 9
  203.  
  204. 'Endif
  205.  
  206. 'SetGlobalArray("RefreshMain",1,1)
  207.  
  208. 'SetGlobalArray("LastField",1,LastField)
  209.  
  210. 'UpdateDisplay(hdlg,id,dummy)
  211.  
  212. Case 24' scroll fields backward
  213.  
  214. 'StuffInfo(Hdlg)
  215.  
  216. 'LastField=LastField - 9
  217.  
  218. 'If LastField <<0
  219.  
  220. 'LastField=0
  221.  
  222. 'Endif
  223.  
  224. 'SetGlobalArray("RefreshMain",1,1)
  225.  
  226. 'SetGlobalArray("LastField",1,LastField)
  227.  
  228. 'UpdateDisplay(Hdlg,id,dummy)
  229.  
  230. Case 27 ' Sort the records in this database
  231.  
  232. 'EnableWindow(Hdlg,0)
  233.  
  234. 'If SortEm()
  235.  
  236. 'MoveFirst()
  237.  
  238. 'Getfielddata(hdlg)
  239.  
  240. 'UpdateDisplay(Hdlg,id,dummy)
  241.  
  242. 'Endif
  243.  
  244. 'EnableWindow(hdlg,1)
  245.  
  246. 'SetFocus(Hdlg)
  247.  
  248. 'ReadFive(Hdlg)
  249.  
  250. Case 28 ' Move Next Record
  251.  
  252. 'Type("[CtrlDown]")
  253.  
  254. 'Type ("[CtrlUp]")
  255.  
  256. 'If AtEof()
  257.  
  258. 'Type ("[CtrlUp]")
  259.  
  260. 'Endif
  261.  
  262. 'Type("[ShiftCtrlDown]")
  263.  
  264. 'Getfielddata(hdlg)
  265.  
  266. 'UpdateDisplay(Hdlg,id,dummy)
  267.  
  268. 'ReadFive(Hdlg)
  269.  
  270. Case 29 ' Move Previous Record
  271.  
  272. 'If Curshade$()=""
  273.  
  274. 'Type("[CtrlUp]")
  275.  
  276. 'Else
  277.  
  278. 'Type("[CtrlUp][CtrlUp]")
  279.  
  280. 'Endif
  281.  
  282. 'Type("[ShiftCtrlDown]")
  283.  
  284. 'Getfielddata(hdlg)
  285.  
  286. 'UpdateDisplay(Hdlg,id,dummy)
  287.  
  288. 'ReadFive(Hdlg)
  289.  
  290. Case 30 ' Goto Location
  291.  
  292. 'EnableWindow(Hdlg,0)
  293.  
  294. 'GotoMain(Hdlg)
  295.  
  296. 'EnableWindow(hdlg,1)
  297.  
  298. 'SetFocus(Hdlg)
  299.  
  300. 'ReadFive(Hdlg)
  301.  
  302. Case 31 ' Add button pressed
  303.  
  304. type("[ctrlend]")
  305.  
  306. fldsep = GetGlobalVar$("FieldSep")
  307.  
  308. recsep = GetGlobalVar$("RecSep")
  309.  
  310. max = GetGlobalVar$("TotalFields")
  311.  
  312. for i = 1 to max
  313.  
  314. type(GetDlgItemText(hdlg, 8000 + i))
  315.  
  316. type("{fldsep}")
  317.  
  318. next
  319.  
  320. type("[backspace]{recsep}[enter]")
  321.  
  322. 'StuffInfo(Hdlg)
  323.  
  324. 'Type("[Esc]")
  325.  
  326. '        Type("[CtrlDown][CtrlRight]")
  327.  
  328. 'WriteOut()
  329.  
  330. 'Type("[CtrlUp]")
  331.  
  332. 'LastField=0
  333.  
  334. 'SetGlobalArray("LastField",1,LastField)        ' set lastfield to 0
  335.  
  336. 'SetGlobalArray("RefreshMain",1,1)        'force a repaint of the box
  337.  
  338. 'SetFocus(Hdlg)
  339.  
  340. 'UpdateDisplay(Hdlg,id,dummy)
  341.  
  342. 'ReadFive(Hdlg)
  343.  
  344. Case 32 ' Delete this record
  345.  
  346. 'If Curshade$() !=""
  347.  
  348. 'Type("[Del]")
  349.  
  350. 'If AtEof()
  351.  
  352. 'Type ("[CtrlUp]")
  353.  
  354. 'Endif
  355.  
  356. 'Type("[ShiftCtrlDown]")
  357.  
  358. 'Getfielddata(hdlg)
  359.  
  360. 'UpdateDisplay(Hdlg,id,dummy)
  361.  
  362. 'ReadFive(Hdlg)
  363.  
  364. 'Endif
  365.  
  366. Case 33 '  New Card button pressed
  367.  
  368. 'Type("[Esc]")
  369.  
  370. 'For t=1 to TotalFields
  371.  
  372. 'SetGlobalArray("EditData",t,"")
  373.  
  374. 'Next
  375.  
  376. 'LastField=0
  377.  
  378. 'SetGlobalArray("LastField",1,LastField)
  379.  
  380. 'UpdateDisplay(Hdlg,id,dummy)
  381.  
  382. Case 34 ' Help Button Hit
  383.  
  384. 'Message("Help almost available")
  385.  
  386. EndSwitch
  387.  
  388. 'SetDefId(41) 'set the default id to the return key
  389.  
  390. End Function
  391.  
  392. Function CollectHeader(FieldNames,FldSep,RecSep)
  393.  
  394. DefStr Stat;
  395.  
  396. Dim TempHead(1)
  397.  
  398. Type ("[CtrlHome]")
  399.  
  400. Type ("[Home][ShiftEnd]")
  401.  
  402. Char=Curshade$()
  403.  
  404. If Len(char)<<<;>2
  405.  
  406. ' Not a records File
  407.  
  408. Return -1 ' fail
  409.  
  410. Exit Function
  411.  
  412. Endif
  413.  
  414. Sep=Mid$(Char,1,1)
  415.  
  416. Rec=Mid$(Char,2,1)
  417.  
  418. Type ("[Home][Down][ShiftCtrlDown]")
  419.  
  420. Char=Curshade$()
  421.  
  422. x=1
  423.  
  424. While -1!=Assign(&Stat,StrField$(Char,x,Sep))
  425.  
  426. If 0!=Instr(0,Stat,Rec)
  427.  
  428. Stat=StrField$(Stat,1,Rec)
  429.  
  430. ArrayInsert(&FieldNames,x,Stat)
  431.  
  432. Break
  433.  
  434. Endif
  435.  
  436. ArrayInsert(&FieldNames,x,Stat)
  437.  
  438. x=x+1
  439.  
  440. Wend
  441.  
  442. *FldSep=Sep;
  443.  
  444. *RecSep=Rec;
  445.  
  446. End Function
  447.  
  448. Function DefineFields()
  449.  
  450. Mac=GetRunningMacroFile$()
  451.  
  452. Prodir=GetAmiDirectory$()
  453.  
  454. AllocGlobalVar("DefineField",1)
  455.  
  456. AllocGlobalVar("DefineRec",1)
  457.  
  458. AllocGlobalVar("BoxReturn",1)
  459.  
  460. SetGlobalArray("BoxReturn",1,0)
  461.  
  462. SetGlobalArray("DefineField",1,"~")
  463.  
  464. SetGlobalArray("DefineRec",1,"|")
  465.  
  466. Filledit(23,"{ProDir}Up.bmp")
  467.  
  468. Filledit(24,"{ProDir}Downbig.bmp")
  469.  
  470. SetDlgCallBack(20,"{Mac}!MakeCall")
  471.  
  472. SetDlgCallBack(21,"{Mac}!MakeCall")
  473.  
  474. SetDlgCallBack(22,"{Mac}!MakeCall")
  475.  
  476. SetDlgCallBack(23,"{Mac}!MakeCall")
  477.  
  478. SetDlgCallBack(24,"{Mac}!MakeCall")
  479.  
  480. SetDlgCallBack(30,"{Mac}!MakeCall")
  481.  
  482. Box=DialogBox(".","MakeFields")
  483.  
  484. BoxStat=GetGlobalArray$("BoxReturn",1)
  485.  
  486. Return BoxStat '  if done was hit, boxreturn = 1
  487.  
  488. End Function
  489.  
  490. Function MakeCall(Hdlg,id,dummy)
  491.  
  492. DefStr Total;
  493.  
  494. IgnoreKeyBoard(2)
  495.  
  496. EditBoxText=GetDlgItemText(Hdlg,8001)
  497.  
  498. ListBoxText=GetDlgItemText(Hdlg,9000)
  499.  
  500. FldSep=GetGlobalArray$("DefineField",1)
  501.  
  502. RecSep=GetGlobalArray$("DefineRec",1)
  503.  
  504. Switch Id
  505.  
  506. Case 21 ' Add
  507.  
  508. If EditBoxText !=""
  509.  
  510. If 0 =Instr(0,EditBoxText,FldSep) And 0 =Instr(0,EditBoxText,RecSep)
  511.  
  512. SetDlgItemText(Hdlg,9000,EditBoxText)
  513.  
  514. idx = DlgGetListBoxCount(hdlg, 9000) - 1
  515.  
  516. DlgSetListBoxIndex(hdlg, 9000, idx);
  517.  
  518. SetDlgItemText(Hdlg, 8001, "")
  519.  
  520. Else
  521.  
  522. Message("You cannot use either {FldSep} or {RecSep} in a field name")
  523.  
  524. Endif
  525.  
  526. Endif
  527.  
  528. Case 22 ' Remove
  529.  
  530. idx = DlgGetListBoxIndex(hdlg, 9000)
  531.  
  532. DlgListBoxDeleteItem(hdlg, 9000, idx)
  533.  
  534. SetDlgItemText(Hdlg,8001,"")
  535.  
  536. Case 23 ' Up
  537.  
  538. idx = DlgGetListBoxIndex(hdlg, 9000)
  539.  
  540. if (idx <;> 0)
  541.  
  542. stuff = DlgGetListBoxLine$(hdlg, 9000, idx)
  543.  
  544. DlgListBoxDeleteItem(hdlg, 9000, idx)
  545.  
  546. idx = idx - 1
  547.  
  548. DlgListBoxInsertItem(hdlg, 9000, idx, stuff)
  549.  
  550. DlgSetListBoxIndex(hdlg, 9000, idx)
  551.  
  552. endif
  553.  
  554. Case 24 'Down
  555.  
  556. idx = DlgGetListBoxIndex(hdlg, 9000)
  557.  
  558. max = DlgGetListBoxCount(hdlg, 9000)
  559.  
  560. if ((idx + 1) << max)
  561.  
  562. stuff = DlgGetListBoxLine$(hdlg, 9000, idx)
  563.  
  564. DlgListBoxDeleteItem(hdlg, 9000, idx)
  565.  
  566. idx = idx + 1
  567.  
  568. DlgListBoxInsertItem(hdlg, 9000, idx, stuff)
  569.  
  570. DlgSetListBoxIndex(hdlg, 9000, idx)
  571.  
  572. endif
  573.  
  574. Case 30 ' Options Box
  575.  
  576. 'EnableWindow(Hdlg,0)
  577.  
  578. 'Mac=GetRunningMacroFile$()
  579.  
  580. 'SetDlgCallBack(0,"{Mac}!PreCreateOptions")
  581.  
  582. 'CreateOptionsBox()
  583.  
  584. 'EnableWindow(Hdlg,1)
  585.  
  586. 'SetFocus(Hdlg)
  587.  
  588. Case 20 ' Ok 
  589.  
  590. If 0 != Assign(&Total,DlgGetListBoxCount(Hdlg, 9000))
  591.  
  592. SetGlobalArray("BoxReturn",1,1)
  593.  
  594. Dim TempNames(Total)
  595.  
  596. ItemName=""
  597.  
  598. For T = 0 to (Total - 1)
  599.  
  600. ItemName = DlgGetListBoxLine$(hdlg, 9000, T)
  601.  
  602. TempNames(T+1)=ItemName
  603.  
  604. Next
  605.  
  606. WriteFields(&TempNames)
  607.  
  608. DlgClose(hdlg);
  609.  
  610. Endif            
  611.  
  612. EndSwitch
  613.  
  614. end function
  615.  
  616. Function WriteFields(TempName)
  617.  
  618. Size=ArraySize(&TempName)
  619.  
  620. RecSep=GetGlobalArray$("DefineRec",1)
  621.  
  622. FldSep=GetGlobalArray$("DefineField",1)
  623.  
  624. Type ("[CtrlHome]")
  625.  
  626. Type ("{FldSep}{RecSep}[Enter]")
  627.  
  628. For t=1 to Size
  629.  
  630. Item=*TempName(T)
  631.  
  632. Type("{Item}")
  633.  
  634. Type("{FldSep}")
  635.  
  636. Next
  637.  
  638. Type("[BackSpace]")
  639.  
  640. Type("{RecSep}")
  641.  
  642. Type("[Enter]")
  643.  
  644. End Function
  645.  
  646. Function PackGlobals(FieldNames,FldSep,RecSep)
  647.  
  648. TotalFields=ArraySize(&FieldNames)
  649.  
  650. AllocGlobalVar("TotalFields",1)
  651.  
  652. AllocGlobalVar("FieldNames",TotalFields)
  653.  
  654. AllocGlobalVar("LastField",1)
  655.  
  656. AllocGlobalVar("EditData",TotalFields)
  657.  
  658. AllocGlobalVar("FieldSep",1)        ' Field Sep
  659.  
  660. AllocGlobalVar("RecSep",1)            ' record sep.
  661.  
  662. AllocGlobalVar("KeyField",1)            ' Field to sort on
  663.  
  664. AllocGlobalVar("EditTarget",1)
  665.  
  666. AllocGlobalVar("RedoNames",1)
  667.  
  668. AllocGlobalVar("RefreshMain",1)     ' should the main screen be repainted 1 yes
  669.  
  670. AllocGlobalVar("RefreshButton",1)    ' are buttons dirty   1 yes
  671.  
  672. AllocGlobalVar("LastEditField",1)    ' Will hold the id of the last edit field available
  673.  
  674. SetGlobalArray("RefreshButton",1,1)
  675.  
  676. SetGlobalArray("RedoNames",1,0)
  677.  
  678. SetGlobalArray("FieldSep",1,FldSep)
  679.  
  680. SetGlobalArray("RecSep",1,RecSep)
  681.  
  682. SetGlobalArray("TotalFields",1,TotalFields)
  683.  
  684. SetGlobalArray("LastField",1,0)
  685.  
  686. SetGlobalArray("KeyField",1,1)
  687.  
  688. SetGlobalArray("RefreshMain",1,1)
  689.  
  690. SetGlobalArray("LastEditField",1,0)
  691.  
  692. For t=1 to TotalFields
  693.  
  694. SetGlobalArray("FieldNames",T,*FieldNames(T))
  695.  
  696. Next
  697.  
  698. End Function
  699.  
  700. Function FreeGlobals()
  701.  
  702. FreeGlobalVar("TotalFields")
  703.  
  704. FreeGlobalVar("FieldNames")
  705.  
  706. FreeGlobalVar("LastField")
  707.  
  708. FreeGlobalVar("EditData")
  709.  
  710. FreeGlobalVar("FieldSep")
  711.  
  712. FreeGlobalVar("RecSep")
  713.  
  714. FreeGlobalVar("DefineField")
  715.  
  716. FreeGlobalVar("DefineRec")
  717.  
  718. FreeGlobalVar("BoxReturn")
  719.  
  720. FreeGlobalVar("KeyField")
  721.  
  722. FreeGlobalVar("EditTarget")
  723.  
  724. FreeGlobalVar("RedoNames")
  725.  
  726. FreeGlobalVar("RefreshMain")
  727.  
  728. FreeGlobalVar("RefreshButton")
  729.  
  730. FreeGlobalVar("LastEditField")
  731.  
  732. End Function
  733.  
  734. ' Dialog boxes
  735.  
  736. DIALOG    MainBox
  737.  
  738. -2134376448    43    22    32    296    194    ""    ""    "Edit Merge Data File"
  739.  
  740. FONT    8    "Helv"
  741.  
  742. 6    6    236    178    1000    1342177290    "static"    "filename.bmp"    0 
  743.  
  744. 94    27    130    12    8001    1350762624    "edit"    ""    0 
  745.  
  746. 94    41    130    12    8002    1350631552    "edit"    ""    0 
  747.  
  748. 94    55    130    12    8003    1350631552    "edit"    ""    0 
  749.  
  750. 94    69    130    12    8004    1350631552    "edit"    ""    0 
  751.  
  752. 94    83    130    12    8005    1350631552    "edit"    ""    0 
  753.  
  754. 94    97    130    12    8006    1350631552    "edit"    ""    0 
  755.  
  756. 94    111    130    12    8007    1350631552    "edit"    ""    0 
  757.  
  758. 94    125    130    12    8008    1350631552    "edit"    ""    0 
  759.  
  760. 94    139    130    12    8009    1350631552    "edit"    ""    0 
  761.  
  762. 94    153    130    12    8010    1350762624    "edit"    ""    0 
  763.  
  764. 247    17    46    14    31    1342373889    "button"    "&Add"    0 
  765.  
  766. 247    33    46    14    32    1342373888    "button"    "Dele&te"    0 
  767.  
  768. 247    49    46    14    21    1342373888    "button"    "U&pdate"    0 
  769.  
  770. 247    65    46    14    33    1342373888    "button"    "&New Record"    0 
  771.  
  772. 247    103    46    14    34    1342373888    "button"    "Add Field..."    0 
  773.  
  774. 247    81    46    14    1    1342373888    "button"    "Close"    0 
  775.  
  776. 247    119    46    14    27    1342373888    "button"    "&Sort..."    0 
  777.  
  778. 247    135    46    14    30    1342373888    "button"    "&Go To..."    0 
  779.  
  780. 247    151    21    14    29    1342373888    "button"    "<<<<"    0 
  781.  
  782. 272    151    21    14    28    1342373888    "button"    "<;><;>"    0 
  783.  
  784. 227    153    12    12    23    1342308352    "button"    "<;><;>"    0 
  785.  
  786. 227    27    12    12    24    1342308352    "button"    "<<<<"    0 
  787.  
  788. 24    30    64    8    1001    1342177282    "static"    ""    0 
  789.  
  790. 28    43    60    8    1002    1342177282    "static"    ""    0 
  791.  
  792. 24    57    64    8    1003    1342177282    "static"    ""    0 
  793.  
  794. 24    71    64    8    1004    1342177282    "static"    ""    0 
  795.  
  796. 24    85    64    8    1005    1342177282    "static"    ""    0 
  797.  
  798. 24    99    64    8    1006    1342177282    "static"    ""    0 
  799.  
  800. 24    113    64    8    1007    1342177282    "static"    ""    0 
  801.  
  802. 24    127    64    8    1008    1342177282    "static"    ""    0 
  803.  
  804. 24    141    64    8    1009    1342177282    "static"    ""    0 
  805.  
  806. 24    155    64    8    1010    1342177282    "static"    ""    0 
  807.  
  808. 98    10    36    8    82    1342177288    "button"    ""    0 
  809.  
  810. 104    9    37    8    83    1342177288    "button"    ""    0 
  811.  
  812. 151    9    34    8    84    1342177288    "button"    ""    0 
  813.  
  814. 198    9    35    8    85    1342177288    "button"    ""    0 
  815.  
  816. 11    250    12    7    41    1342177280    "button"    "RET"    0 
  817.  
  818. 8    16    86    8    1017    1342177280    "static"    "Submit bugs to Peyton."    0 
  819.  
  820. 60    10    36    8    1018    1342177280    "static"    ""    0 
  821.  
  822. 104    9    37    8    1019    1342177280    "static"    ""    0 
  823.  
  824. 151    9    35    8    1020    1342177280    "static"    ""    0 
  825.  
  826. 198    9    35    8    1021    1342177280    "static"    ""    0 
  827.  
  828. END DIALOG
  829.  
  830. DIALOG Sort
  831.  
  832. -2134376448 10 103 60 152 82 "" "" "Sort Records"
  833.  
  834. FONT 8 "Helv"
  835.  
  836. 6 15 86 65 9500 1344339971 "combobox" "" 0 
  837.  
  838. 108 4 40 14 1 1342242817 "button" "OK" 0 
  839.  
  840. 108 20 40 14 2 1342242816 "button" "Cancel" 0 
  841.  
  842. 6 4 52 8 1000 1342177280 "static" "Sort by field:" 0 
  843.  
  844. 6 36 66 40 20 1342242823 "button" "Sort type" 0 
  845.  
  846. 80 36 68 40 21 1342242823 "button" "Sort order" 0 
  847.  
  848. 8 48 54 12 22 1342373897 "button" "&Alphanumeric" 0 
  849.  
  850. 8 60 50 12 23 1342242825 "button" "&Numeric" 0 
  851.  
  852. 84 48 50 10 24 1342373897 "button" "&Ascending" 0 
  853.  
  854. 84 60 54 12 25 1342242825 "button" "&Descending" 0 
  855.  
  856. END DIALOG
  857.  
  858. DIALOG Goto
  859.  
  860. -2134376448 8 34 64 251 42 "" "" "Go To"
  861.  
  862. FONT 8 "Helv"
  863.  
  864. 129 3 73 12 8000 1350631552 "edit" "" 0 
  865.  
  866. 207 2 40 14 1 1342242817 "button" "Go To" 0 
  867.  
  868. 207 18 40 14 2 1342242816 "button" "Cancel" 0 
  869.  
  870. 4 3 41 10 20 1342242825 "button" "&Field:" 0 
  871.  
  872. 54 3 65 38 9500 1344339971 "combobox" "" 0 
  873.  
  874. 4 14 48 12 21 1342242825 "button" "First record" 0 
  875.  
  876. 4 27 47 10 22 1342242825 "button" "Last record" 0 
  877.  
  878. 121 5 6 8 1000 1342177280 "static" "=" 0 
  879.  
  880. END DIALOG
  881.  
  882. DIALOG MakeFields
  883.  
  884. -2134376448 11 71 51 142 105 "" "" "Create Data File"
  885.  
  886. FONT 8 "Helv"
  887.  
  888. 6 13 86 12 8001 1350631424 "edit" "" 0 
  889.  
  890. 98 4 40 14 20 1342242816 "button" "OK" 0 
  891.  
  892. 98 20 40 14 2 1342242816 "button" "Cancel" 0 
  893.  
  894. 98 36 40 14 21 1342242817 "button" "&Add" 0 
  895.  
  896. 98 52 40 14 22 1342242816 "button" "&Remove" 0 
  897.  
  898. 98 68 16 14 23 1342242816 "button" "&Up" 0 
  899.  
  900. 122 68 16 14 24 1342242816 "button" "&Dn" 0 
  901.  
  902. 99 87 40 14 30 1342242816 "button" "&Options..." 0 
  903.  
  904. 6 39 86 64 9000 1352728577 "listbox" "" 0 
  905.  
  906. 6 3 68 8 1000 1342177280 "static" "Field Name:" 0 
  907.  
  908. 7 29 59 9 1001 1342177280 "static" "Fields in data file:" 0 
  909.  
  910. END DIALOG
  911.  
  912. DIALOG MakeOptions
  913.  
  914. -2134376448 8 73 60 140 62 "" "" "Data File Options"
  915.  
  916. FONT 8 "Helv"
  917.  
  918. 69 6 12 12 8002 1350631552 "edit" "" 0 
  919.  
  920. 69 19 12 12 8003 1350631552 "edit" "" 0 
  921.  
  922. 94 4 40 14 1 1342373889 "button" "OK" 0 
  923.  
  924. 95 19 40 14 2 1342373888 "button" "Cancel" 0 
  925.  
  926. 4 9 50 8 1002 1342177280 "static" "&Field delimiter:" 0 
  927.  
  928. 4 23 60 8 1003 1342177280 "static" "&Record delimiter: " 0 
  929.  
  930. 7 43 76 10 1004 1342177281 "static" "$, #, !, %, (, ), ~, |, -" 0 
  931.  
  932. 3 33 88 24 20 1342177287 "button" "Suggested Delimiters" 0 
  933.  
  934. END DIALOG
  935.  
  936. DIALOG NoMatch
  937.  
  938. FONT 8 "Helv"
  939.  
  940. -2134376448 2 86 56 121 50 "" "" "Search Results"
  941.  
  942. 41 25 40 14 1 1342373889 "button" "OK" 0 
  943.  
  944. 34 7 57 10 1000 1342177280 "static" "No match found" 0 
  945.  
  946. END DIALOG
  947.  
  948.  
  949.  
  950. >
  951. [macsum4] 14 135
  952. Main 0 0 9 19
  953. MainCall 1284 3 7 77
  954. CollectHeader 2323 3 7 193
  955. DefineFields 3139 0 5 221
  956. MakeCall 3802 3 12 242
  957. WriteFields 5764 1 6 305
  958. PackGlobals 6248 3 3 320
  959. FreeGlobals 7182 0 1 347
  960. MainBox 7626 0 -1 365
  961. Sort 9679 0 -1 412
  962. Goto 10261 0 -1 426
  963. MakeFields 10709 0 -1 438
  964. MakeOptions 11328 0 -1 453
  965. NoMatch 11839 0 -1 465
  966. [macse]
  967. 14 Main
  968. 29 0 Main
  969. 17 1
  970. 0 32 2
  971. 17 2
  972. 29 1 FldSep
  973. 29 2 RecSep
  974. 29 3 Stat
  975. 17 3
  976. 5 1
  977. 29 4 FieldNames
  978. 21 4 [X]
  979. 17 5
  980. 5 0
  981. 16 CollectHeader &4 &1 &2
  982. 13
  983. 0 805 &3 [X]
  984. 13
  985. 18 0
  986. 11 00000207
  987. 10 00000361
  988. 17 7
  989. 5 1
  990. 16 DefineFields
  991. 13
  992. 0 805 &3 [X]
  993. 13
  994. 18 0
  995. 11 00000349
  996. 17 8
  997. 16 FreeGlobals
  998. 17 9
  999. 10 00000115
  1000. 17 10
  1001. 5 0
  1002. 15
  1003. 9
  1004. 10 00000361
  1005. 6 0
  1006. 15
  1007. 9
  1008. 17 15
  1009. 16 PackGlobals &4 "{1}" "{2}"
  1010. 17 16
  1011. 29 5 ProDir
  1012. 0 798
  1013. 13
  1014. 8 5
  1015. 17 17
  1016. 29 6 Mac
  1017. 0 802
  1018. 13
  1019. 8 6
  1020. 17 18
  1021. 0 31 1000 "{5}GreyBlue.bmt"
  1022. 17 23
  1023. 0 31 82 ""
  1024. 17 24
  1025. 0 31 83 ""
  1026. 17 25
  1027. 0 31 84 ""
  1028. 17 26
  1029. 0 31 85 ""
  1030. 17 28
  1031. 0 41 21 "{6}!MainCall"
  1032. 17 29
  1033. 0 41 23 "{6}!MainCall"
  1034. 17 30
  1035. 0 41 24 "{6}!MainCall"
  1036. 17 31
  1037. 0 41 27 "{6}!MainCall"
  1038. 17 32
  1039. 0 41 28 "{6}!MainCall"
  1040. 17 33
  1041. 0 41 29 "{6}!MainCall"
  1042. 17 34
  1043. 0 41 30 "{6}!MainCall"
  1044. 17 35
  1045. 0 41 31 "{6}!MainCall"
  1046. 17 36
  1047. 0 41 32 "{6}!MainCall"
  1048. 17 37
  1049. 0 41 33 "{6}!MainCall"
  1050. 17 38
  1051. 0 41 34 "{6}!MainCall"
  1052. 17 44
  1053. 29 7 Box
  1054. 0 26 "." "Mainbox"
  1055. 13
  1056. 8 7
  1057. 17 45
  1058. 16 FreeGlobals
  1059. 17 46
  1060. 7 ""
  1061. 16 _$$GetOpenFileName$
  1062. 13
  1063. 18 0
  1064. 11 00001058
  1065. 24 104
  1066. 17 49
  1067. 29 8 fname
  1068. 16 _$$GetOpenFileName$
  1069. 13
  1070. 8 8
  1071. 17 50
  1072. 7 ""
  1073. 6 8
  1074. 18 1
  1075. 11 00001265
  1076. 17 51
  1077. 2 147 1
  1078. 17 52
  1079. 6 8
  1080. 30 101 221 223
  1081. 17 53
  1082. 7 ""
  1083. 30 101 221 162
  1084. 17 54
  1085. 5 2
  1086. 30 101 221 226
  1087. 17 55
  1088. 0 67 781
  1089. 6 0
  1090. 15
  1091. 17 57
  1092. 9
  1093. 14 MainCall
  1094. 29 0 Hdlg
  1095. 29 1 id
  1096. 29 2 dummy
  1097. 29 3 MainCall
  1098. 17 1
  1099. 0 32 2
  1100. 17 2
  1101. 29 4 LastField
  1102. 0 273 "LastField" 1
  1103. 13
  1104. 8 4
  1105. 17 3
  1106. 29 5 TotalFields
  1107. 0 273 "TotalFields" 1
  1108. 13
  1109. 8 5
  1110. 17 4
  1111. 5 21
  1112. 6 1
  1113. 18 0
  1114. 11 00000231
  1115. 10 00001019
  1116. 5 23
  1117. 6 1
  1118. 18 0
  1119. 11 00000274
  1120. 10 00001019
  1121. 5 24
  1122. 6 1
  1123. 18 0
  1124. 11 00000317
  1125. 10 00001019
  1126. 5 27
  1127. 6 1
  1128. 18 0
  1129. 11 00000360
  1130. 10 00001019
  1131. 5 28
  1132. 6 1
  1133. 18 0
  1134. 11 00000403
  1135. 10 00001019
  1136. 5 29
  1137. 6 1
  1138. 18 0
  1139. 11 00000446
  1140. 10 00001019
  1141. 5 30
  1142. 6 1
  1143. 18 0
  1144. 11 00000489
  1145. 10 00001019
  1146. 5 31
  1147. 6 1
  1148. 18 0
  1149. 11 00000903
  1150. 17 72
  1151. 0 6 "[16419]"
  1152. 17 73
  1153. 29 6 fldsep
  1154. 0 265 "FieldSep"
  1155. 13
  1156. 8 6
  1157. 17 74
  1158. 29 7 recsep
  1159. 0 265 "RecSep"
  1160. 13
  1161. 8 7
  1162. 17 75
  1163. 29 8 max
  1164. 0 265 "TotalFields"
  1165. 13
  1166. 8 8
  1167. 29 9 i
  1168. 5 1
  1169. 8 9
  1170. 17 76
  1171. 6 8
  1172. 6 9
  1173. 18 2
  1174. 12 00000780
  1175. 10 00000865
  1176. 5 1
  1177. 6 9
  1178. 3 0
  1179. 8 9
  1180. 10 00000698
  1181. 17 77
  1182. 5 8000
  1183. 6 9
  1184. 3 0
  1185. 0 42 "{0}" [X]
  1186. 13
  1187. 0 6 [X]
  1188. 17 78
  1189. 0 6 "{6}"
  1190. 10 00000747
  1191. 17 80
  1192. 0 6 "[8]{7}[13]"
  1193. 10 00001019
  1194. 5 32
  1195. 6 1
  1196. 18 0
  1197. 11 00000946
  1198. 10 00001019
  1199. 5 33
  1200. 6 1
  1201. 18 0
  1202. 11 00000989
  1203. 10 00001019
  1204. 5 34
  1205. 6 1
  1206. 18 0
  1207. 11 00001019
  1208. 6 3
  1209. 15
  1210. 17 115
  1211. 9
  1212. 14 CollectHeader
  1213. 29 0 FieldNames
  1214. 29 1 FldSep
  1215. 29 2 RecSep
  1216. 29 3 CollectHeader
  1217. 17 1
  1218. 29 4 Stat
  1219. 17 2
  1220. 5 1
  1221. 29 5 TempHead
  1222. 21 5 [X]
  1223. 17 3
  1224. 0 6 "[16420]"
  1225. 17 4
  1226. 0 6 "[36][4131]"
  1227. 17 5
  1228. 29 6 Char
  1229. 16 _$$CurShade$
  1230. 13
  1231. 8 6
  1232. 17 6
  1233. 0 14 "{6}"
  1234. 13
  1235. 5 2
  1236. 18 1
  1237. 11 00000299
  1238. 17 8
  1239. 5 -1
  1240. 15
  1241. 9
  1242. 6 3
  1243. 15
  1244. 9
  1245. 17 11
  1246. 29 7 Sep
  1247. 0 15 "{6}" 1 1
  1248. 13
  1249. 8 7
  1250. 17 12
  1251. 29 8 Rec
  1252. 0 15 "{6}" 2 1
  1253. 13
  1254. 8 8
  1255. 17 13
  1256. 0 6 "[36][40][20520]"
  1257. 17 14
  1258. 16 _$$CurShade$
  1259. 13
  1260. 8 6
  1261. 17 15
  1262. 29 9 x
  1263. 5 1
  1264. 8 9
  1265. 17 16
  1266. 5 -1
  1267. 0 20 "{6}" "{9}" "{7}"
  1268. 13
  1269. 0 805 &4 [X]
  1270. 13
  1271. 18 1
  1272. 11 00000761
  1273. 17 17
  1274. 5 0
  1275. 0 808 0 "{4}" "{8}"
  1276. 13
  1277. 18 1
  1278. 11 00000691
  1279. 17 18
  1280. 0 20 "{4}" 1 "{8}"
  1281. 13
  1282. 8 4
  1283. 17 19
  1284. 0 1041 &0 "{9}" "{4}"
  1285. 17 20
  1286. 10 00000761
  1287. 17 22
  1288. 0 1041 &0 "{9}" "{4}"
  1289. 17 23
  1290. 6 9
  1291. 5 1
  1292. 3 0
  1293. 8 9
  1294. 10 00000471
  1295. 17 25
  1296. 6 7
  1297. 28 1
  1298. 17 26
  1299. 6 8
  1300. 28 2
  1301. 6 3
  1302. 15
  1303. 17 27
  1304. 9
  1305. 14 DefineFields
  1306. 29 0 DefineFields
  1307. 17 1
  1308. 29 1 Mac
  1309. 0 802
  1310. 13
  1311. 8 1
  1312. 17 2
  1313. 29 2 Prodir
  1314. 0 798
  1315. 13
  1316. 8 2
  1317. 17 3
  1318. 0 271 "DefineField" 1
  1319. 17 4
  1320. 0 271 "DefineRec" 1
  1321. 17 5
  1322. 0 271 "BoxReturn" 1
  1323. 17 6
  1324. 0 272 "BoxReturn" 1 0
  1325. 17 7
  1326. 0 272 "DefineField" 1 "~"
  1327. 17 8
  1328. 0 272 "DefineRec" 1 "|"
  1329. 17 9
  1330. 0 31 23 "{2}Up.bmp"
  1331. 17 10
  1332. 0 31 24 "{2}Downbig.bmp"
  1333. 17 11
  1334. 0 41 20 "{1}!MakeCall"
  1335. 17 12
  1336. 0 41 21 "{1}!MakeCall"
  1337. 17 13
  1338. 0 41 22 "{1}!MakeCall"
  1339. 17 14
  1340. 0 41 23 "{1}!MakeCall"
  1341. 17 15
  1342. 0 41 24 "{1}!MakeCall"
  1343. 17 16
  1344. 0 41 30 "{1}!MakeCall"
  1345. 17 17
  1346. 29 3 Box
  1347. 0 26 "." "MakeFields"
  1348. 13
  1349. 8 3
  1350. 17 18
  1351. 29 4 BoxStat
  1352. 0 273 "BoxReturn" 1
  1353. 13
  1354. 8 4
  1355. 17 19
  1356. 6 4
  1357. 15
  1358. 9
  1359. 6 0
  1360. 15
  1361. 17 20
  1362. 9
  1363. 14 MakeCall
  1364. 29 0 Hdlg
  1365. 29 1 id
  1366. 29 2 dummy
  1367. 29 3 MakeCall
  1368. 17 1
  1369. 29 4 Total
  1370. 17 2
  1371. 0 32 2
  1372. 17 3
  1373. 29 5 EditBoxText
  1374. 0 42 "{0}" 8001
  1375. 13
  1376. 8 5
  1377. 17 4
  1378. 29 6 ListBoxText
  1379. 0 42 "{0}" 9000
  1380. 13
  1381. 8 6
  1382. 17 5
  1383. 29 7 FldSep
  1384. 0 273 "DefineField" 1
  1385. 13
  1386. 8 7
  1387. 17 6
  1388. 29 8 RecSep
  1389. 0 273 "DefineRec" 1
  1390. 13
  1391. 8 8
  1392. 17 7
  1393. 5 21
  1394. 6 1
  1395. 18 0
  1396. 11 00000690
  1397. 17 9
  1398. 6 5
  1399. 7 ""
  1400. 18 1
  1401. 11 00000677
  1402. 17 10
  1403. 5 0
  1404. 0 808 0 "{5}" "{7}"
  1405. 13
  1406. 18 0
  1407. 5 0
  1408. 0 808 0 "{5}" "{8}"
  1409. 13
  1410. 18 0
  1411. 1 1
  1412. 11 00000614
  1413. 17 11
  1414. 0 43 "{0}" 9000 "{5}"
  1415. 17 12
  1416. 29 9 idx
  1417. 0 60 "{0}" 9000
  1418. 13
  1419. 5 1
  1420. 3 1
  1421. 8 9
  1422. 17 13
  1423. 0 62 "{0}" 9000 "{9}"
  1424. 17 14
  1425. 0 43 "{0}" 8001 ""
  1426. 10 00000677
  1427. 17 16
  1428. 0 3 "You cannot use either {7} or {8} in a field name"
  1429. 10 00001943
  1430. 5 22
  1431. 6 1
  1432. 18 0
  1433. 11 00000823
  1434. 17 20
  1435. 0 61 "{0}" 9000
  1436. 13
  1437. 8 9
  1438. 17 21
  1439. 0 65 "{0}" 9000 "{9}"
  1440. 17 22
  1441. 0 43 "{0}" 8001 ""
  1442. 10 00001943
  1443. 5 23
  1444. 6 1
  1445. 18 0
  1446. 11 00001112
  1447. 17 24
  1448. 0 61 "{0}" 9000
  1449. 13
  1450. 8 9
  1451. 17 25
  1452. 6 9
  1453. 5 0
  1454. 18 3
  1455. 11 00001099
  1456. 17 26
  1457. 29 10 stuff
  1458. 0 63 "{0}" 9000 "{9}"
  1459. 13
  1460. 8 10
  1461. 17 27
  1462. 0 65 "{0}" 9000 "{9}"
  1463. 17 28
  1464. 6 9
  1465. 5 1
  1466. 3 1
  1467. 8 9
  1468. 17 29
  1469. 0 66 "{0}" 9000 "{9}" "{10}"
  1470. 17 30
  1471. 0 62 "{0}" 9000 "{9}"
  1472. 10 00001943
  1473. 5 24
  1474. 6 1
  1475. 18 0
  1476. 11 00001444
  1477. 17 33
  1478. 0 61 "{0}" 9000
  1479. 13
  1480. 8 9
  1481. 17 34
  1482. 29 11 max
  1483. 0 60 "{0}" 9000
  1484. 13
  1485. 8 11
  1486. 17 35
  1487. 6 9
  1488. 5 1
  1489. 3 0
  1490. 6 11
  1491. 18 5
  1492. 11 00001431
  1493. 17 36
  1494. 0 63 "{0}" 9000 "{9}"
  1495. 13
  1496. 8 10
  1497. 17 37
  1498. 0 65 "{0}" 9000 "{9}"
  1499. 17 38
  1500. 6 9
  1501. 5 1
  1502. 3 0
  1503. 8 9
  1504. 17 39
  1505. 0 66 "{0}" 9000 "{9}" "{10}"
  1506. 17 40
  1507. 0 62 "{0}" 9000 "{9}"
  1508. 10 00001943
  1509. 5 30
  1510. 6 1
  1511. 18 0
  1512. 11 00001487
  1513. 10 00001943
  1514. 5 20
  1515. 6 1
  1516. 18 0
  1517. 11 00001943
  1518. 17 50
  1519. 5 0
  1520. 0 60 "{0}" 9000
  1521. 13
  1522. 0 805 &4 [X]
  1523. 13
  1524. 18 1
  1525. 11 00001943
  1526. 17 51
  1527. 0 272 "BoxReturn" 1 1
  1528. 17 52
  1529. 6 4
  1530. 29 12 TempNames
  1531. 21 12 [X]
  1532. 17 53
  1533. 29 13 ItemName
  1534. 7 ""
  1535. 8 13
  1536. 29 14 T
  1537. 5 0
  1538. 8 14
  1539. 17 54
  1540. 6 4
  1541. 5 1
  1542. 3 1
  1543. 6 14
  1544. 18 2
  1545. 12 00001807
  1546. 10 00001897
  1547. 5 1
  1548. 6 14
  1549. 3 0
  1550. 8 14
  1551. 10 00001712
  1552. 17 55
  1553. 0 63 "{0}" 9000 "{14}"
  1554. 13
  1555. 8 13
  1556. 17 56
  1557. 6 14
  1558. 5 1
  1559. 3 0
  1560. 6 13
  1561. 23 12
  1562. 10 00001772
  1563. 17 58
  1564. 16 WriteFields &12
  1565. 17 59
  1566. 0 64 "{0}"
  1567. 6 3
  1568. 15
  1569. 17 62
  1570. 9
  1571. 14 WriteFields
  1572. 29 0 TempName
  1573. 29 1 WriteFields
  1574. 17 1
  1575. 29 2 Size
  1576. 0 1046 &0
  1577. 13
  1578. 8 2
  1579. 17 2
  1580. 29 3 RecSep
  1581. 0 273 "DefineRec" 1
  1582. 13
  1583. 8 3
  1584. 17 3
  1585. 29 4 FldSep
  1586. 0 273 "DefineField" 1
  1587. 13
  1588. 8 4
  1589. 17 4
  1590. 0 6 "[16420]"
  1591. 17 5
  1592. 0 6 "{4}{3}[13]"
  1593. 29 5 t
  1594. 5 1
  1595. 8 5
  1596. 17 6
  1597. 6 2
  1598. 6 5
  1599. 18 2
  1600. 12 00000330
  1601. 10 00000410
  1602. 5 1
  1603. 6 5
  1604. 3 0
  1605. 8 5
  1606. 10 00000249
  1607. 17 7
  1608. 29 6 Item
  1609. 6 5
  1610. 22 0
  1611. 8 6
  1612. 17 8
  1613. 0 6 "{6}"
  1614. 17 9
  1615. 0 6 "{4}"
  1616. 10 00000297
  1617. 17 11
  1618. 0 6 "[8]"
  1619. 17 12
  1620. 0 6 "{3}"
  1621. 17 13
  1622. 0 6 "[13]"
  1623. 6 1
  1624. 15
  1625. 17 14
  1626. 9
  1627. 14 PackGlobals
  1628. 29 0 FieldNames
  1629. 29 1 FldSep
  1630. 29 2 RecSep
  1631. 29 3 PackGlobals
  1632. 17 1
  1633. 29 4 TotalFields
  1634. 0 1046 &0
  1635. 13
  1636. 8 4
  1637. 17 2
  1638. 0 271 "TotalFields" 1
  1639. 17 3
  1640. 0 271 "FieldNames" "{4}"
  1641. 17 4
  1642. 0 271 "LastField" 1
  1643. 17 5
  1644. 0 271 "EditData" "{4}"
  1645. 17 6
  1646. 0 271 "FieldSep" 1
  1647. 17 7
  1648. 0 271 "RecSep" 1
  1649. 17 8
  1650. 0 271 "KeyField" 1
  1651. 17 9
  1652. 0 271 "EditTarget" 1
  1653. 17 10
  1654. 0 271 "RedoNames" 1
  1655. 17 11
  1656. 0 271 "RefreshMain" 1
  1657. 17 12
  1658. 0 271 "RefreshButton" 1
  1659. 17 13
  1660. 0 271 "LastEditField" 1
  1661. 17 14
  1662. 0 272 "RefreshButton" 1 1
  1663. 17 15
  1664. 0 272 "RedoNames" 1 0
  1665. 17 16
  1666. 0 272 "FieldSep" 1 "{1}"
  1667. 17 17
  1668. 0 272 "RecSep" 1 "{2}"
  1669. 17 18
  1670. 0 272 "TotalFields" 1 "{4}"
  1671. 17 19
  1672. 0 272 "LastField" 1 0
  1673. 17 20
  1674. 0 272 "KeyField" 1 1
  1675. 17 21
  1676. 0 272 "RefreshMain" 1 1
  1677. 17 22
  1678. 0 272 "LastEditField" 1 0
  1679. 29 5 t
  1680. 5 1
  1681. 8 5
  1682. 17 23
  1683. 6 4
  1684. 6 5
  1685. 18 2
  1686. 12 00000854
  1687. 10 00000915
  1688. 5 1
  1689. 6 5
  1690. 3 0
  1691. 8 5
  1692. 10 00000772
  1693. 17 24
  1694. 6 5
  1695. 22 0
  1696. 0 272 "FieldNames" "{5}" [X]
  1697. 10 00000821
  1698. 6 3
  1699. 15
  1700. 17 26
  1701. 9
  1702. 14 FreeGlobals
  1703. 29 0 FreeGlobals
  1704. 17 1
  1705. 0 266 "TotalFields"
  1706. 17 2
  1707. 0 266 "FieldNames"
  1708. 17 3
  1709. 0 266 "LastField"
  1710. 17 4
  1711. 0 266 "EditData"
  1712. 17 5
  1713. 0 266 "FieldSep"
  1714. 17 6
  1715. 0 266 "RecSep"
  1716. 17 7
  1717. 0 266 "DefineField"
  1718. 17 8
  1719. 0 266 "DefineRec"
  1720. 17 9
  1721. 0 266 "BoxReturn"
  1722. 17 10
  1723. 0 266 "KeyField"
  1724. 17 11
  1725. 0 266 "EditTarget"
  1726. 17 12
  1727. 0 266 "RedoNames"
  1728. 17 13
  1729. 0 266 "RefreshMain"
  1730. 17 14
  1731. 0 266 "RefreshButton"
  1732. 17 15
  1733. 0 266 "LastEditField"
  1734. 6 0
  1735. 15
  1736. 17 16
  1737. 9
  1738. DIALOG MainBox
  1739. -2134376448 43 22 32 296 194 "" "" "Edit Merge Data File" 
  1740. FONT 8 "Helv" 
  1741. 6 6 236 178 1000 1342177290 "static" "filename.bmp" 0 
  1742. 94 27 130 12 8001 1350762624 "edit" "" 0 
  1743. 94 41 130 12 8002 1350631552 "edit" "" 0 
  1744. 94 55 130 12 8003 1350631552 "edit" "" 0 
  1745. 94 69 130 12 8004 1350631552 "edit" "" 0 
  1746. 94 83 130 12 8005 1350631552 "edit" "" 0 
  1747. 94 97 130 12 8006 1350631552 "edit" "" 0 
  1748. 94 111 130 12 8007 1350631552 "edit" "" 0 
  1749. 94 125 130 12 8008 1350631552 "edit" "" 0 
  1750. 94 139 130 12 8009 1350631552 "edit" "" 0 
  1751. 94 153 130 12 8010 1350762624 "edit" "" 0 
  1752. 247 17 46 14 31 1342373889 "button" "&Add" 0 
  1753. 247 33 46 14 32 1342373888 "button" "Dele&te" 0 
  1754. 247 49 46 14 21 1342373888 "button" "U&pdate" 0 
  1755. 247 65 46 14 33 1342373888 "button" "&New Record" 0 
  1756. 247 103 46 14 34 1342373888 "button" "Add Field..." 0 
  1757. 247 81 46 14 1 1342373888 "button" "Close" 0 
  1758. 247 119 46 14 27 1342373888 "button" "&Sort..." 0 
  1759. 247 135 46 14 30 1342373888 "button" "&Go To..." 0 
  1760. 247 151 21 14 29 1342373888 "button" "<<" 0 
  1761. 272 151 21 14 28 1342373888 "button" ">>" 0 
  1762. 227 153 12 12 23 1342308352 "button" ">>" 0 
  1763. 227 27 12 12 24 1342308352 "button" "<<" 0 
  1764. 24 30 64 8 1001 1342177282 "static" "" 0 
  1765. 28 43 60 8 1002 1342177282 "static" "" 0 
  1766. 24 57 64 8 1003 1342177282 "static" "" 0 
  1767. 24 71 64 8 1004 1342177282 "static" "" 0 
  1768. 24 85 64 8 1005 1342177282 "static" "" 0 
  1769. 24 99 64 8 1006 1342177282 "static" "" 0 
  1770. 24 113 64 8 1007 1342177282 "static" "" 0 
  1771. 24 127 64 8 1008 1342177282 "static" "" 0 
  1772. 24 141 64 8 1009 1342177282 "static" "" 0 
  1773. 24 155 64 8 1010 1342177282 "static" "" 0 
  1774. 98 10 36 8 82 1342177288 "button" "" 0 
  1775. 104 9 37 8 83 1342177288 "button" "" 0 
  1776. 151 9 34 8 84 1342177288 "button" "" 0 
  1777. 198 9 35 8 85 1342177288 "button" "" 0 
  1778. 11 250 12 7 41 1342177280 "button" "RET" 0 
  1779. 8 16 86 8 1017 1342177280 "static" "Submit bugs to Peyton." 0 
  1780. 60 10 36 8 1018 1342177280 "static" "" 0 
  1781. 104 9 37 8 1019 1342177280 "static" "" 0 
  1782. 151 9 35 8 1020 1342177280 "static" "" 0 
  1783. 198 9 35 8 1021 1342177280 "static" "" 0 
  1784. DIALOG Sort
  1785. -2134376448 10 103 60 152 82 "" "" "Sort Records" 
  1786. FONT 8 "Helv" 
  1787. 6 15 86 65 9500 1344339971 "combobox" "" 0 
  1788. 108 4 40 14 1 1342242817 "button" "OK" 0 
  1789. 108 20 40 14 2 1342242816 "button" "Cancel" 0 
  1790. 6 4 52 8 1000 1342177280 "static" "Sort by field:" 0 
  1791. 6 36 66 40 20 1342242823 "button" "Sort type" 0 
  1792. 80 36 68 40 21 1342242823 "button" "Sort order" 0 
  1793. 8 48 54 12 22 1342373897 "button" "&Alphanumeric" 0 
  1794. 8 60 50 12 23 1342242825 "button" "&Numeric" 0 
  1795. 84 48 50 10 24 1342373897 "button" "&Ascending" 0 
  1796. 84 60 54 12 25 1342242825 "button" "&Descending" 0 
  1797. DIALOG Goto
  1798. -2134376448 8 34 64 251 42 "" "" "Go To" 
  1799. FONT 8 "Helv" 
  1800. 129 3 73 12 8000 1350631552 "edit" "" 0 
  1801. 207 2 40 14 1 1342242817 "button" "Go To" 0 
  1802. 207 18 40 14 2 1342242816 "button" "Cancel" 0 
  1803. 4 3 41 10 20 1342242825 "button" "&Field:" 0 
  1804. 54 3 65 38 9500 1344339971 "combobox" "" 0 
  1805. 4 14 48 12 21 1342242825 "button" "First record" 0 
  1806. 4 27 47 10 22 1342242825 "button" "Last record" 0 
  1807. 121 5 6 8 1000 1342177280 "static" "=" 0 
  1808. DIALOG MakeFields
  1809. -2134376448 11 71 51 142 105 "" "" "Create Data File" 
  1810. FONT 8 "Helv" 
  1811. 6 13 86 12 8001 1350631424 "edit" "" 0 
  1812. 98 4 40 14 20 1342242816 "button" "OK" 0 
  1813. 98 20 40 14 2 1342242816 "button" "Cancel" 0 
  1814. 98 36 40 14 21 1342242817 "button" "&Add" 0 
  1815. 98 52 40 14 22 1342242816 "button" "&Remove" 0 
  1816. 98 68 16 14 23 1342242816 "button" "&Up" 0 
  1817. 122 68 16 14 24 1342242816 "button" "&Dn" 0 
  1818. 99 87 40 14 30 1342242816 "button" "&Options..." 0 
  1819. 6 39 86 64 9000 1352728577 "listbox" "" 0 
  1820. 6 3 68 8 1000 1342177280 "static" "Field Name:" 0 
  1821. 7 29 59 9 1001 1342177280 "static" "Fields in data file:" 0 
  1822. DIALOG MakeOptions
  1823. -2134376448 8 73 60 140 62 "" "" "Data File Options" 
  1824. FONT 8 "Helv" 
  1825. 69 6 12 12 8002 1350631552 "edit" "" 0 
  1826. 69 19 12 12 8003 1350631552 "edit" "" 0 
  1827. 94 4 40 14 1 1342373889 "button" "OK" 0 
  1828. 95 19 40 14 2 1342373888 "button" "Cancel" 0 
  1829. 4 9 50 8 1002 1342177280 "static" "&Field delimiter:" 0 
  1830. 4 23 60 8 1003 1342177280 "static" "&Record delimiter: " 0 
  1831. 7 43 76 10 1004 1342177281 "static" "$, #, !, %, (, ), ~, |, -" 0 
  1832. 3 33 88 24 20 1342177287 "button" "Suggested Delimiters" 0 
  1833. DIALOG NoMatch
  1834. FONT 8 "Helv" 
  1835. -2134376448 2 86 56 121 50 "" "" "Search Results" 
  1836. 41 25 40 14 1 1342373889 "button" "OK" 0 
  1837. 34 7 57 10 1000 1342177280 "static" "No match found" 0 
  1838. 00015273
  1839.