home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS018.DSK / TOA.SMM < prev    next >
INI File  |  1992-10-09  |  67KB  |  4,024 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _macro.sty
  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.     Table of Authorities application.
  19.     Peyton McManus
  20.     Advanced
  21.     Bookmarks, Arraysort, Callbacks
  22.     autorun
  23.     718656383
  24.     69
  25.     695670514
  26.     6216
  27.     23
  28.     2435
  29.     21642
  30.     60
  31.     63
  32.     Legal, Table of Autorities, Index
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     0
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [ParaNum]
  54.     1
  55. [lay]
  56.     Standard
  57.     513
  58.     [rght]
  59.         15840
  60.         12240
  61.         1
  62.         1440
  63.         1440
  64.         1
  65.         1440
  66.         1440
  67.         0
  68.         1
  69.         0
  70.         1
  71.         0
  72.         2
  73.         1
  74.         1440
  75.         10800
  76.         12
  77.         1
  78.         720
  79.         1
  80.         1440
  81.         1
  82.         2160
  83.         1
  84.         2880
  85.         1
  86.         3600
  87.         1
  88.         4320
  89.         1
  90.         5040
  91.         1
  92.         5760
  93.         1
  94.         6480
  95.         1
  96.         7200
  97.         1
  98.         7920
  99.         1
  100.         8640
  101.     [hrght]
  102.     [lyfrm]
  103.         1
  104.         11200
  105.         0
  106.         0
  107.         12240
  108.         1440
  109.         0
  110.         1
  111.         3
  112.         1 0 0 0 0 0 0
  113.         0
  114.         0
  115.         1
  116.     [frmlay]
  117.         1440
  118.         12240
  119.         1
  120.         1440
  121.         72
  122.         1
  123.         540
  124.         1440
  125.         0
  126.         1
  127.         0
  128.         1
  129.         1
  130.         0
  131.         1
  132.         1440
  133.         10800
  134.         1
  135.         3
  136.         9360
  137.     [txt]
  138. <+B><:da<*!><* >>     .<:da<*&><* >>
  139.  
  140. <+B><:da<*%><* >>     <:da<*5><* >>
  141.  
  142. <+B><:P10,0,>
  143.  
  144. >
  145.     [frght]
  146.     [lyfrm]
  147.         1
  148.         13248
  149.         0
  150.         14400
  151.         12240
  152.         15840
  153.         0
  154.         1
  155.         3
  156.         1 0 0 0 0 0 0
  157.         0
  158.         0
  159.         2
  160.     [frmlay]
  161.         15840
  162.         12240
  163.         1
  164.         1440
  165.         792
  166.         1
  167.         14472
  168.         1440
  169.         0
  170.         1
  171.         0
  172.         1
  173.         1
  174.         0
  175.         1
  176.         1440
  177.         10800
  178.         2
  179.         2
  180.         4680
  181.         3
  182.         9360
  183.     [txt]
  184. >
  185. [elay]
  186. [l1]
  187.     0
  188. [edoc]
  189. @Function@<:#293,9360>' My declares
  190.  
  191. <:#284,9360>D<:ZMy Declares><:Z~My Declares>eclare LongBox()
  192.  
  193. <:#284,9360>Declare ShortBox()
  194.  
  195. <:#284,9360>Declare MarkLong(p1,p2)
  196.  
  197. <:#284,9360>Declare MarkShort(p1)
  198.  
  199. <:#284,9360>Declare FindallToa(p1,p2)
  200.  
  201. <:#284,9360>Declare InitSearch(p1,p2)
  202.  
  203. <:#284,9360>Declare MakeTable(p1,p2,p3)
  204.  
  205. <:#284,9360>Declare GenTable()
  206.  
  207. <:#284,9360>Declare fGoBox()
  208.  
  209. <:#284,9360>Declare BoxSearch(p1)
  210.  
  211. <:#284,9360>Declare ApplyLeaders(p1)
  212.  
  213. <:#284,9360>Declare FindallShort(p1)
  214.  
  215. <:#284,9360>Declare GetLayout()
  216.  
  217. <:#284,9360>Declare PlaceInfo(p1,p2,p3)
  218.  
  219. <:#284,9360>Declare DebugArray(p1)
  220.  
  221. <:#284,9360>Declare StuffLongTempArray(p1,p2,p3)
  222.  
  223. <:#284,9360>Declare StuffPageNumsTmpArray(p1,p2,p3)
  224.  
  225. <:#284,9360>Declare GetNumberRows(p1)
  226.  
  227. <:#284,9360>Declare PageBreakOptions()
  228.  
  229. <:#284,9360>Declare GotoGetNumbers(p1,p2,p3)
  230.  
  231. <:#284,9360>Declare AlreadyMarked(p1,p2)
  232.  
  233. <:#284,9360>Declare CreateIni()
  234.  
  235. <:#284,9360>Declare GetIni(p1)
  236.  
  237. <:#284,9360>Declare DocVar(p1)
  238.  
  239. <:#284,9360>Declare GetCategories(p1)
  240.  
  241. <:#284,9360>Declare Abs(p1)
  242.  
  243. <:#284,9360>Declare AddCat(Name,Local)
  244.  
  245. <:#284,9360>Declare CheckCat(CatName)
  246.  
  247. <:#284,9360>Declare ConvertCatToNumber(CatName)
  248.  
  249. <:#284,9360>Declare CleanTheName(Name)
  250.  
  251. <:#284,9360>Declare CountEntries(Section, Ini)
  252.  
  253. <:#284,9360>Declare HelpFunction(id)
  254.  
  255. <:#284,9360>
  256.  
  257. @Function@<:#293,9360>' My De<:ZMy Defines><:Z~My Defines>fines
  258.  
  259. <:#284,9360>Define    AddBookMark()    MarkBookMark(%1,4003)
  260.  
  261. <:#284,9360>Define    DeleteBookMark()    MarkBookMark(%1,4004)
  262.  
  263. <:#284,9360>Define    FindBookMark()    MarkBookMark(%1,4002)
  264.  
  265. <:#284,9360>define    EnableWindow()    DllCall("user,EnableWindow,HHH", %1, %2)
  266.  
  267. <:#284,9360>Define    CB_Selectstring        1037
  268.  
  269. <:#284,9360>Define     CB_ResetContent        1035
  270.  
  271. <:#284,9360>Define    CB_InsertString            1034
  272.  
  273. <:#284,9360>define    Grey()        Enablewindow(GetDlgItem(Hdlg,%1),0)
  274.  
  275. <:#284,9360>define    UnGrey()        Enablewindow(GetDlgItem(Hdlg,%1),1)
  276.  
  277. <:#284,9360>Define    WriteToaIni()        WriteProfileString("TOA",%1,%2,"AmiPro2.INI")
  278.  
  279. <:#284,9360>Define    GetToaIni()        GetProfileString$("TOA",%1,"AmiPro2.INI")
  280.  
  281. <:#284,9360>Define    SetFocus()        DllCall("User,SetFocus,HH",%1)
  282.  
  283. <:#284,9360>Define    ToaMessage()    Message(%1,"Table of Authorities")
  284.  
  285. <:#284,9360>define     GetActiveWindow()    DllCall("user,GetActiveWindow,H")
  286.  
  287. <:#284,9360>
  288.  
  289. <:#284,9360>define     SetWindowText()    DllCall("user,SetWindowText,IHC", %1, %2)
  290.  
  291. <:#284,9360>define     TitleBarMsg()        SetWindowText(GetActiveWindow(), %1)
  292.  
  293. <:R1,15,1,0,1,720,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,><:#284,9360>define    FindWindow()    DllCall("user,FindWindow,HCC", %1, %2)
  294.  
  295. <:R><:#568,9360>define    WinHelp(hWnd, file, cmd, ptr)    DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
  296.  
  297. <:R1,15,1,0,1,720,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,><:#284,9360>define    HELP_CONTEXT        0x0001
  298.  
  299. <:R><:#284,9360>define    VK_F1            112
  300.  
  301. <:#284,9360>
  302.  
  303. <:#284,9360>
  304.  
  305. <:#284,9360>
  306.  
  307. <:#284,9360>
  308.  
  309. @Function@<:#293,9360> Function MainMenu()
  310.  
  311. <:#284,9360>Mac=GetRunningMacroFile$()
  312.  
  313. <:#284,9360>TitleBarMsg("Installing new menu items to the EDIT\MARK TEXT menu")
  314.  
  315. <:#284,9360>pause(010)
  316.  
  317. <:#284,9360>
  318.  
  319. <:#284,9360>DeleteMenuItem(1,"&Edit","&Mark Text","TOA &Long Entry...")
  320.  
  321. <:#284,9360>DeleteMenuItem(1,"&Edit","&Mark Text","TOA &Short Entry...")
  322.  
  323. <:#284,9360>DeleteMenuItem(1,"&Edit","&Mark Text","Go To TOA &Entry...")
  324.  
  325. <:#284,9360>DeleteMenuItem(1,"Too&ls","&Generate TOA...")
  326.  
  327. <:#568,9360>InsertMenuItem(1,"Too&ls",13,"&Generate TOA...","{Mac}!GenTable","Generate a table of authorities table.")
  328.  
  329. <:#284,9360>
  330.  
  331. <:#568,9360>InsertCascadeMenuItem(1,"&Edit","&Mark Text", 2,"TOA &Long Entry...", "{Mac}!MarkMain(1)","Use selected text as a long TOA entry")
  332.  
  333. <:#568,9360>InsertCascadeMenuItem(1,"&Edit","&Mark Text", 3,"TOA &Short Entry...", "{Mac}!MarkMain(2)","Use selected text as a  short TOA entry.")
  334.  
  335. <:#568,9360>InsertCascadeMenuItem(1,"&Edit","&Mark Text", 4,"Go To TOA &Entry...", "{Mac}!MarkMain(3)"," Goto or RemoveTOA entry.")
  336.  
  337. <:#284,9360><:><:>
  338.  
  339. <:#284,9360>If GetToaIni("Cat1") != ""
  340.  
  341. <:#284,9360>    Else
  342.  
  343. <:#284,9360>        StatusBarMsg("Creating Table of Authorities INI entries")
  344.  
  345. <:#284,9360>        CreateIni()
  346.  
  347. <:#284,9360>        StatusBarMsg("")
  348.  
  349. <:#284,9360>Endif
  350.  
  351. @Outline2@<:#284,9360>TitleBarMsg("Ami Pro")
  352.  
  353. @Outline2@<:#284,9360>
  354.  
  355. <:#284,9360>End Function
  356.  
  357. <:#284,9360>
  358.  
  359. @Function@<:#293,9360>Function Ma<:ZMarkMain(p1)  Entry from Menus><:Z~MarkMain(p1)  Entry from Menus>rkMain(LongShort)
  360.  
  361. <:#284,9360>' Main entry point from menu
  362.  
  363. <:#284,9360>Menu = "Too&ls"
  364.  
  365. <:#284,9360>Item = "&Generate TOA..."
  366.  
  367. <:#284,9360>
  368.  
  369. <:#284,9360>If (GetOpenFileCount()<<1)
  370.  
  371. <:#284,9360>    ToaMessage("No files are currently open.")
  372.  
  373. <:#284,9360>    Exit Function
  374.  
  375. <:#284,9360>Endif
  376.  
  377. <:#284,9360>AllocGlobalVar("HelpPanel",1)
  378.  
  379. <:#284,9360>Switch LongShort
  380.  
  381. <:#284,9360>    Case 1        ' Mark Long
  382.  
  383. <:#284,9360>        SetGlobalVar("HelpPanel",242)
  384.  
  385. <:#284,9360>        LongBox()
  386.  
  387. <:#284,9360>    Case 2        ' Mark Short
  388.  
  389.         SetGlobalVar("HelpPanel",244)
  390.  
  391. <:#284,9360>        ShortBox()
  392.  
  393. <:#284,9360>    Case 3        ' Goto /Remove Mark
  394.  
  395.         SetGlobalVar("HelpPanel",247)
  396.  
  397. <:#284,9360>        fGoBox()
  398.  
  399. <:#284,9360>EndSwitch
  400.  
  401. <:#284,9360>FreeGlobalVar("HelpPanel")
  402.  
  403. <:#284,9360>End Function
  404.  
  405. <:#284,9360>
  406.  
  407. @Function@<:#293,9360>Function Ma<:ZMarkLong(p1,p2)  Mark as Long><:Z~MarkLong(p1,p2)  Mark as Long>rkLong(Short,Cat) 
  408.     
  409.  
  410. <:#284,9360>' This will bookmark an entry as a long form.
  411.  
  412. <:#284,9360>DefStr Stat, Name, Type;
  413.  
  414. <:#284,9360>Unique=Now()
  415.  
  416. <:#284,9360>If 0 != Assign(&Stat, AlreadyMarked(&Name,&Type))
  417.  
  418. <:#284,9360>        ToaMessage("A mark already exists at this location {Name}")
  419.  
  420. <:#284,9360>        Exit Function
  421.  
  422. <:#284,9360>Endif
  423.  
  424. <:#284,9360>Name="TOA\L\{Short}\{Unique}\{Cat}"
  425.  
  426. <:#284,9360>AddBookMark(Name)
  427.  
  428. <:#284,9360>End Function
  429.  
  430. <:#284,9360>
  431.  
  432. @Function@<:#293,9360>Function Mar<:ZMarkshort()  Mark as short><:Z~Markshort()  Mark as short>kShort(Short)
  433.  
  434. <:#284,9360>' This will bookmark an entry as a short form.
  435.  
  436. <:#284,9360>DefStr Name, Type, Stat;
  437.  
  438. <:#284,9360>Cat=1
  439.  
  440. <:#568,9360>If 0 != Assign(&Stat,AlreadyMarked(&Name,&Type)) ' check to see if already marked here
  441.  
  442. <:#568,9360>    'Message(" A mark already exists at this location.  {Name}","Table of Authorities"))
  443.  
  444. <:#284,9360>    Exit Function
  445.  
  446. <:#284,9360>Endif
  447.  
  448. <:#284,9360>
  449.  
  450. <:#284,9360>Unique=Now()
  451.  
  452. <:#284,9360>Name="TOA\S\{Short}\{Unique}\{Cat}"
  453.  
  454. <:#284,9360>AddBookMark(Name)
  455.  
  456. <:#284,9360>End Function
  457.  
  458. <:#284,9360>
  459.  
  460. @Function@<:#293,9360>Function Lo<:ZLongbox()    LongEntry box><:Z~Longbox()    LongEntry box>ngBox()
  461.  
  462. <:#284,9360>DefStr Stat, Name, Type,ShortName;
  463.  
  464. <:#284,9360>Dim Category(20)
  465.  
  466. <:#284,9360>Mac = GetRunningMacroFile$()
  467.  
  468. <:#284,9360>GetCategories(&Category)
  469.  
  470. <:#284,9360>
  471.  
  472. <:#284,9360>Citate=CurShade$()
  473.  
  474. <:#568,9360>If 0 != Assign(&Stat,AlreadyMarked(&Name,&Type)) ' check to see if already marked here
  475.  
  476. <:#284,9360>    Toamessage(" A mark already exists at this location.  {Name}")
  477.  
  478. <:#284,9360>    Exit Function
  479.  
  480. <:#284,9360>Endif
  481.  
  482. <:#284,9360>If Len(Citate) <<1
  483.  
  484. <:#284,9360>    Toamessage("No text currently selected.")
  485.  
  486. <:#284,9360>    Exit Function
  487.  
  488. <:#284,9360>Endif
  489.  
  490. <:#284,9360>Citate = StrField$(Citate,1,",")
  491.  
  492. <:#284,9360>ShortName = CleanTheName(Citate)
  493.  
  494. <:#284,9360>Filledit(9500,&Category)
  495.  
  496. <:#284,9360>Filledit(8000,ShortName)
  497.  
  498. <:#284,9360>Filledit(1002,Left$(Citate,80))
  499.  
  500. <:#284,9360>SetDlgCallBack(24,"{Mac}!NewCat")
  501.  
  502. <:#284,9360>DlgKeyInterrupt(VK_F1,"{Mac}!HelpFunction")
  503.  
  504. <:#284,9360>Box=DialogBox(".","MarkLong")
  505.  
  506. <:#284,9360>
  507.  
  508. <:#284,9360>Short=CleanTheName(GetDialogField$(8000))
  509.  
  510. <:#284,9360>CatName=GetdialogField$(9500)
  511.  
  512. <:#284,9360>
  513.  
  514. <:#284,9360>Switch Box
  515.  
  516. <:#284,9360>
  517.  
  518. <:#284,9360>    Case 1 ' OK
  519.  
  520. <:#284,9360>        CatNumber = CheckCat(CatName)
  521.  
  522. <:#284,9360>        MarkLong(Short,CatNumber)
  523.  
  524. <:#284,9360>
  525.  
  526. <:#284,9360>    Case 3 ' Mark Same
  527.  
  528. <:#284,9360>        CatNumber = CheckCat(CatName)
  529.  
  530. <:#284,9360>        MarkLong(Short,CatNumber)
  531.  
  532. <:#284,9360>        InitSearch(Short,CatNumber)
  533.  
  534. <:#284,9360>
  535.  
  536. <:#284,9360>EndSwitch
  537.  
  538. <:#284,9360>End Function
  539.  
  540. <:#284,9360>
  541.  
  542. @Function@<:#293,9360>Function CheckCat(CatName)
  543.  
  544. <:#284,9360>DefStr Stat;
  545.  
  546. <:#284,9360>If ""  = Assign (&Stat, GetDocVar("ToaCatCount"))
  547.  
  548. <:#284,9360>    SetDocVar("ToaCatCount",1)
  549.  
  550. <:#284,9360>    SetDocVar("Cat1",CatName)
  551.  
  552. <:#284,9360>    Return 1
  553.  
  554. <:#284,9360>Endif
  555.  
  556. <:#284,9360>For t = 1 to Stat
  557.  
  558. <:#284,9360>    Data = GetDocVar("Cat{T}")
  559.  
  560. <:#284,9360>    If Data = CatName
  561.  
  562. <:#284,9360>        Return t
  563.  
  564. <:#284,9360>    Endif
  565.  
  566. <:#284,9360>Next
  567.  
  568. <:#284,9360>' no match found
  569.  
  570. <:#284,9360>Stat = Stat + 1
  571.  
  572. <:#284,9360>SetDocVar("Cat{Stat}",CatName)
  573.  
  574. <:#284,9360>SetDocVar("ToaCatCount",Stat)
  575.  
  576. <:#284,9360>Return Stat;
  577.  
  578. <:#284,9360>End Function
  579.  
  580. <:#284,9360>
  581.  
  582. @Function@<:#293,9360>Function NewCat(Hdlg,id,dummy)
  583.  
  584. <:#284,9360>EnableWindow(Hdlg,0)
  585.  
  586. Mac= GetRunningMacroFile$()
  587.  
  588. AllocGlobalVar("HelpPanel",1)
  589.  
  590. SetGlobalVar("HelpPanel",243)
  591.  
  592. DlgKeyInterrupt(VK_F1,"{Mac}!HelpFunction")
  593.  
  594. Box = DialogBox(".","NewCat")
  595.  
  596. <:#284,9360>EnableWindow(Hdlg,1)
  597.  
  598. <:#284,9360>SetFocus(Hdlg)
  599.  
  600. <:#284,9360>If Box<<<;>1
  601.  
  602. <:#284,9360>    Exit Function
  603.  
  604. <:#284,9360>Endif
  605.  
  606. <:#284,9360>Name = GetdialogField$(8000)
  607.  
  608. <:#284,9360>Local = GetDialogField$(20)
  609.  
  610. <:#284,9360>If Len(name) <<1
  611.  
  612. <:#284,9360>    ToaMessage("No category")
  613.  
  614. <:#284,9360>    Exit Function
  615.  
  616. <:#284,9360>Endif
  617.  
  618. <:#284,9360>AddCat(Name,Local)
  619.  
  620. <:#284,9360>Dim Category(1)
  621.  
  622. <:#284,9360>GetCategories(&Category)
  623.  
  624. <:#284,9360>HCombobox =GetDlgItem(Hdlg,9500)
  625.  
  626. <:#284,9360>AppSendMessage(hComboBox,CB_ResetContent,0,0)
  627.  
  628. <:#284,9360>Size = ArraySize(&Category)
  629.  
  630. <:#284,9360>For t = 1 to Size
  631.  
  632. <:#284,9360>    SetDlgItemText(Hdlg,9500,Category(t))
  633.  
  634. <:#284,9360>'    AppSendMessage(hComboBox,CB_InsertString,t - 1, Category(t))
  635.  
  636. <:#284,9360>Next
  637.  
  638. <:#284,9360>    AppSendMessage(hComboBox, CB_SelectString,0, Name)
  639.  
  640. <:#284,9360>End Function
  641.  
  642. @Function@<:#293,9360>Function AddCat(Name,Local)
  643.  
  644. <:#284,9360>' Add only local doc = 1
  645.  
  646. <:#284,9360>If Not Local
  647.  
  648. <:#284,9360>    Count = CountEntries("Toa","AmiPro2.Ini")
  649.  
  650. <:#284,9360>    Count = Count + 1
  651.  
  652. <:#284,9360>    WriteToaIni("Cat{Count}",Name)
  653.  
  654. <:#284,9360>    WriteToaIni("Count",Count)
  655.  
  656. <:#284,9360>Endif
  657.  
  658. <:#284,9360>DocCount = GetDocVar("ToaCatCount")
  659.  
  660. <:#284,9360>DocCount = DocCount + 1
  661.  
  662. <:#284,9360>SetDocVar("Cat{DocCount}", Name)
  663.  
  664. <:#284,9360>SetDocVar("ToaCatCount",DocCount)
  665.  
  666. <:#284,9360>
  667.  
  668. <:#284,9360>End Function
  669.  
  670. @Function@<:#293,9360>Function CountEntries(Section,IniFile)
  671.  
  672. <:#284,9360>DefStr Stat;
  673.  
  674. <:#284,9360>'Section = "TOA"
  675.  
  676. <:#284,9360>'IniFile = "AmiPro2.ini"
  677.  
  678. <:#284,9360>String = GetProfileString$("{Section}",0,"{IniFile}")
  679.  
  680. <:#284,9360>x = 1;
  681.  
  682. <:#284,9360>nCatCount = 0;
  683.  
  684. <:#284,9360>While -1 != Assign(&Stat, StrField$(String, x, "~"))
  685.  
  686. <:#284,9360>    If Left$(Stat,3) = "Cat"
  687.  
  688. <:#284,9360>        nCatCount = nCatCount + 1
  689.  
  690. <:#284,9360>    Endif
  691.  
  692. <:#284,9360>        x = x+1
  693.  
  694. <:#284,9360>Wend
  695.  
  696. <:#284,9360>Return nCatCount;
  697.  
  698. <:#284,9360>End Function
  699.  
  700. <:#284,9360>
  701.  
  702. @Function@<:#293,9360>Function GetCategories(Cat)
  703.  
  704. <:#284,9360>Getini(&Cat)
  705.  
  706. <:#284,9360>DocVar(&Cat)
  707.  
  708. <:#284,9360>
  709.  
  710. <:#284,9360>
  711.  
  712. <:#284,9360>End Function
  713.  
  714. @Function@<:#293,9360>Function S<:ZShortBox()   Short Entry Box><:Z~ShortBox()   Short Entry Box>hortBox()
  715.  
  716. <:#284,9360>DefStr count;
  717.  
  718. <:#284,9360>Cat = 1
  719.  
  720. <:#284,9360>Mac = GetRunningMacroFile$()
  721.  
  722. <:#284,9360>Dim ShowLongMarks(1)
  723.  
  724. <:#284,9360>Dim LongMarks(1)
  725.  
  726. <:#284,9360>Dim ShortMarks(1)    
  727.  
  728. <:#284,9360>If (0!=Assign(&Count,FindAllToa(&ShowLongMarks,&LongMarks))) 
  729.  
  730. <:#284,9360>Else
  731.  
  732. <:#284,9360>    ToaMessage("No TOA Marks")
  733.  
  734. <:#284,9360>    Exit Function
  735.  
  736. <:#284,9360>Endif
  737.  
  738. <:#284,9360>Filledit(9500,&ShowLongMarks)
  739.  
  740. <:#284,9360>DlgKeyInterrupt(VK_F1,"{Mac}!HelpFunction")
  741.  
  742. <:#284,9360>
  743.  
  744. <:#284,9360>Box=DialogBox(".","Short")
  745.  
  746. <:#284,9360>Short=GetDialogField$(9500)
  747.  
  748. <:#284,9360>Switch Box
  749.  
  750. <:#284,9360>    Case 1 ' OK was hit, mark this one
  751.  
  752. <:#284,9360>        MarkShort(Short)
  753.  
  754. <:#284,9360>
  755.  
  756. <:#284,9360>    Case 3 ' mark same
  757.  
  758. <:#284,9360>        MarkShort(Short)
  759.  
  760. <:#284,9360>        InitSearch(Short,Cat)
  761.  
  762. <:#284,9360>EndSwitch
  763.  
  764. <:#284,9360>End Function
  765.  
  766. <:#284,9360>
  767.  
  768. @Function@<:#293,9360>Function AlreadyMarked(NameMark, typemark)
  769.  
  770. <:#284,9360>' return 0 is not on mark, 1 if on toa mark and name
  771.  
  772. <:#284,9360>DefStr Stat;
  773.  
  774. <:#284,9360>
  775.  
  776. <:#284,9360>If "" != assign(&Stat, GetMarkText$())
  777.  
  778. <:#284,9360>        ' this is already a mark (
  779.  
  780. <:#284,9360>        IF "TOA" = StrField$(Stat,1,"\");
  781.  
  782. <:#284,9360>            ' is a toa mark
  783.  
  784. <:#284,9360>            *NameMark = StrField$(Stat,3,"\") ;
  785.  
  786. <:#284,9360>            *TypeMark  = StrField$(Stat,2,"\") ;
  787.  
  788. <:#284,9360>            return 1
  789.  
  790. <:#284,9360>        Else
  791.  
  792. <:#284,9360>            ' not Toa mark
  793.  
  794. <:#284,9360>            return -1
  795.  
  796. <:#284,9360>        Endif
  797.  
  798. <:#284,9360>Else
  799.  
  800. <:#284,9360>        ' all is ok, no previous mark
  801.  
  802. <:#284,9360>        return 0;
  803.  
  804. <:#284,9360>Endif
  805.  
  806. <:#284,9360>End Function
  807.  
  808. <:#284,9360>
  809.  
  810. @Function@<:#293,9360>Function I<:ZInitSearch(p1,p2)  Start search  ><:Z~InitSearch(p1,p2)  Start search  >nitSearch(Short,Cat)    
  811.  
  812. <:#284,9360>DefStr Stat;
  813.  
  814. <:#284,9360>Type ("<[>CTRLRight]")
  815.  
  816. <:#284,9360>Filledit(1002,Short)
  817.  
  818. <:#284,9360>Filledit(8000,Short)
  819.  
  820. <:#284,9360>Box=dialogBox(".","Searchfor")
  821.  
  822. <:#284,9360>If Box<<<;>1
  823.  
  824. <:#284,9360>    Exit Function
  825.  
  826. <:#284,9360>Endif
  827.  
  828. <:#284,9360>SrchFor=GetdialogField$(8000)
  829.  
  830. <:#284,9360>If Len(Srchfor)<<1
  831.  
  832. <:#284,9360>    Exit Function
  833.  
  834. <:#284,9360>Endif
  835.  
  836. <:#284,9360>
  837.  
  838. <:#284,9360>AllocGlobalVar("SearchFor",1)
  839.  
  840. <:#284,9360>AllocGlobalVar("MarkAs",1)
  841.  
  842. <:#284,9360>
  843.  
  844. <:#284,9360>SetGlobalVar("SearchFor",SrchFor)
  845.  
  846. <:#284,9360>SetGlobalVar("MarkAs",Short)
  847.  
  848. <:#284,9360>Mac=GetRunningMacroFile$() 
  849.  
  850. <:#284,9360>AddBookMark("WpdStartSearch")
  851.  
  852. <:#284,9360>
  853.  
  854. <:#284,9360>If (1=Assign(&Stat,Replace(0,0,0,SrchFor,"")))
  855.  
  856. <:#284,9360>    filledit(1001,Short)
  857.  
  858. <:#284,9360>    SetDlgCallBack(21,"{Mac}!CBSearch")
  859.  
  860. <:#284,9360>    SetDlgCallBack(22,"{Mac}!CBSearch")
  861.  
  862. <:#284,9360>    SetDlgCallBack(24,"{Mac}!CBSearch")
  863.  
  864.     Mac= GetRunningMacroFile$()
  865.  
  866.     AllocGlobalVar("HelpPanel",1)
  867.  
  868.     SetGlobalVar("HelpPanel",248)
  869.  
  870.     DlgKeyInterrupt(VK_F1,"{Mac}!HelpFunction")
  871.  
  872.     Box=DialogBox(".","FindShort")
  873.  
  874. <:#284,9360>Else
  875.  
  876. <:#284,9360>'    Message("No matches found")
  877.  
  878. <:#284,9360>Endif
  879.  
  880. <:#284,9360>
  881.  
  882. <:#284,9360>     if FindBookMark("WpdStartSearch")
  883.  
  884. <:#284,9360>        DeleteBookMark("WpdStartSearch")
  885.  
  886. <:#284,9360>    endif
  887.  
  888. <:#284,9360>FreeGlobalVar("SearchFor")
  889.  
  890. <:#284,9360>FreeGlobalVar("Markas")
  891.  
  892. <:#284,9360>End Function
  893.  
  894. <:#284,9360>
  895.  
  896. <:#284,9360>
  897.  
  898. @Function@<:#293,9360>Function CBSea<:ZCBSearch Search Call Bk><:Z~CBSearch Search Call Bk>rch(hdlg,id,dummy)
  899.  
  900. <:#284,9360>lShort=GetGlobalVar$("MarkAs")
  901.  
  902. <:#284,9360>SrchFor=GetGlobalVar$("SearchFor")
  903.  
  904. <:#284,9360>DefStr Stat;
  905.  
  906. <:#284,9360>
  907.  
  908. <:#284,9360>Switch Id
  909.  
  910. <:#284,9360>
  911.  
  912. <:#284,9360>    Case 21    'Find Next
  913.  
  914. <:#284,9360>            Type ("<[>CTRLRight]")
  915.  
  916. <:#284,9360>            If (1=Assign(&Stat,Replace(0,0,0,SrchFor,"")))
  917.  
  918. <:#284,9360>            Else
  919.  
  920. <:#284,9360>                SendKeys("<[>Esc]")    
  921.  
  922. <:#284,9360>            Endif
  923.  
  924. <:#284,9360>
  925.  
  926. <:#284,9360>    Case 22    'Mark and Find Next
  927.  
  928. <:#284,9360>        MarkShort(lShort)
  929.  
  930. <:#284,9360>        Type ("<[>CTRLRight]")
  931.  
  932. <:#284,9360>        If (1=Assign(&Stat,Replace(0,0,0,SrchFor,"")))
  933.  
  934. <:#284,9360>            Else
  935.  
  936. <:#284,9360>                SendKeys("<[>Esc]")    
  937.  
  938. <:#284,9360>        Endif        
  939.  
  940. <:#284,9360>
  941.  
  942. <:#284,9360>    Case 24    'Mark All
  943.  
  944. <:#284,9360>    MarkShort(lshort)
  945.  
  946. <:#284,9360>    Type ("<[>CtrlRight]")
  947.  
  948. <:#284,9360>    x=0
  949.  
  950. <:#284,9360>    While (1=Assign(&Stat,Replace(0,0,0,SrchFor,"")))
  951.  
  952. <:#284,9360>        MarkShort(lshort)
  953.  
  954. <:#284,9360>        Type ("<[>CtrlRight]")
  955.  
  956. <:#284,9360>        X=X+1
  957.  
  958. <:#284,9360>    Wend
  959.  
  960. <:#284,9360>    SendKeys("<[>Esc]")    
  961.  
  962. <:#284,9360>    ToaMessage("{x} Entries found")
  963.  
  964. <:#284,9360>EndSwitch
  965.  
  966. <:#284,9360>End Function
  967.  
  968. <:#284,9360>
  969.  
  970. @Function@<:#293,9360>Function FindAllToa(ShowLongMarks,LongMarks)
  971.  
  972. <:#284,9360>DefStr Stat;
  973.  
  974. <:#284,9360>HourGlass(on)
  975.  
  976. <:#284,9360>' Function to locate all LongTOA bookmarks and place into array.  
  977.  
  978. <:#284,9360>Count=GetBookMarkcount()
  979.  
  980. <:#284,9360>If Count<<1
  981.  
  982. <:#284,9360>    Count=1
  983.  
  984. <:#284,9360>Endif
  985.  
  986. <:#284,9360>Dim Marks(count)
  987.  
  988. <:#284,9360>    GetBookMarkNames(&Marks)
  989.  
  990. <:#284,9360>Start=0
  991.  
  992. <:#284,9360>x=0
  993.  
  994. <:#284,9360>        While(0!=Assign(&Stat,ArraySearch(&Marks,"L",2,"\",Start)))
  995.  
  996. <:#284,9360>                X=X+1
  997.  
  998. <:#284,9360>                Page=GetBookMarkPage(Marks(Stat))
  999.  
  1000. <:#284,9360>                ShortName=StrField$(Marks(Stat),3,"\")
  1001.  
  1002. <:#284,9360>                Name="{ShortName}"
  1003.  
  1004. <:#568,9360>                ArrayInsert(&ShowLongMarks,x,Name)' longmarks for listbox
  1005.  
  1006. <:#568,9360>                ArrayInsert(&LongMarks,x,Marks(Stat))'  this holds longmarks
  1007.  
  1008. <:#284,9360>                Start=Stat
  1009.  
  1010. <:#284,9360>        Wend
  1011.  
  1012. <:#284,9360>Total=X 
  1013.  
  1014. <:#284,9360>HourGlass(off)
  1015.  
  1016. <:#284,9360>FindallToa=Total
  1017.  
  1018. <:#284,9360>End Function
  1019.  
  1020. <:#284,9360>
  1021.  
  1022. @Function@<:#293,9360>Function FindAllShort(ShortMarks)
  1023.  
  1024. <:#284,9360>DefStr Stat;
  1025.  
  1026. <:#284,9360>' Function to locate all ShortTOA bookmarks and place into array.  
  1027.  
  1028. <:#284,9360>Count = GetBookMarkCount()
  1029.  
  1030. <:#284,9360>Dim Marks(count)
  1031.  
  1032. <:#284,9360>    GetBookMarkNames(&Marks)
  1033.  
  1034. <:#284,9360>Start=0
  1035.  
  1036. <:#284,9360>x=0
  1037.  
  1038. <:#284,9360>        While(0!=Assign(&Stat,ArraySearch(&Marks,"S",2,"\",Start)))
  1039.  
  1040. <:#284,9360>                X=X+1
  1041.  
  1042. <:#568,9360>                ArrayInsert(&ShortMarks,x,Marks(Stat))'  this holds longmarks
  1043.  
  1044. <:#284,9360>                Start=Stat
  1045.  
  1046. <:#284,9360>        Wend
  1047.  
  1048. <:#284,9360>Total=X 
  1049.  
  1050. <:#284,9360>FindallShort=Total
  1051.  
  1052. <:#284,9360>End Function
  1053.  
  1054. <:#284,9360>
  1055.  
  1056. @Function@<:#293,9360>Function Fg<:ZFGoBox()   Goto box><:Z~FGoBox()   Goto box>oBox()
  1057.  
  1058. <:#284,9360>DefStr NumberToa;
  1059.  
  1060. <:#284,9360>Mac=GetRunningMacroFile$()
  1061.  
  1062. <:#284,9360>Dim ShowLongMarks(1)
  1063.  
  1064. <:#284,9360>Dim LongMarks(1)
  1065.  
  1066. <:#284,9360>If 0 != Assign(&NumberToa,FindAllToa(&ShowLongMarks,&LongMarks))
  1067.  
  1068. <:#284,9360>Else
  1069.  
  1070. <:#284,9360>    ToaMessage("No TOA Marks Found")
  1071.  
  1072. <:#284,9360>    Exit Function
  1073.  
  1074. <:#284,9360>Endif
  1075.  
  1076. <:#284,9360>HourGlass(on)
  1077.  
  1078. <:#284,9360>AllocGlobalVar("LongPage",1)
  1079.  
  1080. <:#284,9360>Filledit(22,1)
  1081.  
  1082. <:#284,9360>Filledit(9501,&ShowLongMarks)
  1083.  
  1084. <:#284,9360>SetDlgCallBack(0,"{Mac}!CBgoto")
  1085.  
  1086. <:#284,9360>SetDlgCallBack(31,"{Mac}!CBGoto")
  1087.  
  1088. <:#284,9360>SetDlgCallBack(9501,"{Mac}!CBGoto")
  1089.  
  1090. <:#284,9360>SetDlgCallBack(9500,"{Mac}!CBGoto")
  1091.  
  1092. <:#284,9360>DlgKeyInterrupt(VK_F1,"{Mac}!HelpFunction")
  1093.  
  1094. <:#284,9360>box=DialogBox(".","Goto")
  1095.  
  1096. <:#284,9360>HourGlass(off)
  1097.  
  1098. <:#284,9360>ShortRadio=GetDialogField$(21)
  1099.  
  1100. <:#284,9360>LongRadio=GetDialogField$(22)
  1101.  
  1102. <:#284,9360>Switch Box
  1103.  
  1104. <:#284,9360>    Case 1    ' Remove the mark
  1105.  
  1106. <:#284,9360>        If ShortRadio
  1107.  
  1108. <:#284,9360>            SelPage=GetDialogField$(9500)
  1109.  
  1110. <:#284,9360>            SelMark=StrField$(SelPage,2,"^")
  1111.  
  1112. <:#284,9360>            DeleteBookMark(SelMark)
  1113.  
  1114. <:#284,9360>        Endif
  1115.  
  1116. <:#284,9360>        If LongRadio
  1117.  
  1118. <:#284,9360>            lSelMark=StrField$(GetGlobalVar$("LongPage"),2,"^")
  1119.  
  1120. <:#284,9360>            DeleteBookMark(lSelMark)
  1121.  
  1122. <:#284,9360>        Endif
  1123.  
  1124. <:#284,9360>    Case 3    ' Goto the mark
  1125.  
  1126. <:#284,9360>        If ShortRadio
  1127.  
  1128. <:#284,9360>            SelPage=GetDialogField$(9500)
  1129.  
  1130. <:#284,9360>            SelMark=StrField$(SelPage,2,"^")
  1131.  
  1132. <:#284,9360>            FindBookMark(SelMark)
  1133.  
  1134. <:#284,9360>        Endif
  1135.  
  1136. <:#284,9360>        If LongRadio
  1137.  
  1138. <:#284,9360>            lSelMark=StrField$(GetGlobalVar$("LongPage"),2,"^")
  1139.  
  1140. <:#284,9360>            FindBookMark(lSelMark)
  1141.  
  1142. <:#284,9360>        Endif
  1143.  
  1144. <:#284,9360>EndSwitch
  1145.  
  1146. <:#284,9360>
  1147.  
  1148. <:#284,9360>Bye:
  1149.  
  1150. <:#284,9360>FreeGlobalVar("LongPage")
  1151.  
  1152. <:#284,9360>end Function
  1153.  
  1154. <:#284,9360>
  1155.  
  1156. @Function@<:#293,9360>Function CBGOTO(Hdlg,id,Dummy)
  1157.  
  1158. <:#284,9360>DefStr SizeShort;
  1159.  
  1160. <:#284,9360>Switch Id
  1161.  
  1162. <:#284,9360>    Case 9500  ' Hit the short entry combo box
  1163.  
  1164. <:#284,9360>        SetDlgItemText(Hdlg,21,1)        ' Set short to true and long to false
  1165.  
  1166. <:#284,9360>        SetDlgItemText(Hdlg,22,0)
  1167.  
  1168. <:#284,9360>        Break;
  1169.  
  1170. <:#284,9360>    Case 31' This is the Go To button
  1171.  
  1172. <:#284,9360>        ShortRadio=GetDlgItemText(Hdlg,21)
  1173.  
  1174. <:#284,9360>        LongRadio=GetDlgItemText(Hdlg,22)
  1175.  
  1176. <:#284,9360>
  1177.  
  1178. <:#284,9360>            If ShortRadio
  1179.  
  1180. <:#284,9360>                SelPage=GetDlgItemText(Hdlg,9500)
  1181.  
  1182. <:#284,9360>                SelMark=StrField$(SelPage,2,"^")
  1183.  
  1184. <:#284,9360>                FindBookMark(SelMark)
  1185.  
  1186. <:#284,9360>            Endif
  1187.  
  1188. <:#284,9360>            If LongRadio
  1189.  
  1190. <:#284,9360>                lSelMark=StrField$(GetGlobalVar$("LongPage"),2,"^")
  1191.  
  1192. <:#284,9360>                FindBookMark(lSelMark)
  1193.  
  1194. <:#284,9360>            Endif
  1195.  
  1196. <:#284,9360>        Break;
  1197.  
  1198. <:#284,9360>    Default ' Changing TOA mark to display info for.
  1199.  
  1200. <:#284,9360>        Target=GetDlgItemText(Hdlg,9501)
  1201.  
  1202. <:#284,9360>        Dim LongPage(1)
  1203.  
  1204. <:#284,9360>        Dim aPageShort(1)
  1205.  
  1206. <:#284,9360>        hCombo=GetDlgItem(Hdlg,9500)
  1207.  
  1208. <:#284,9360>        GotoGetNumbers(Target,&LongPage,&aPageShort)
  1209.  
  1210. <:#284,9360>        SetGlobalVar("LongPage",LongPage(1))
  1211.  
  1212. <:#284,9360>        setDlgItemText(Hdlg,1003,LongPage(1))
  1213.  
  1214. <:#284,9360>        AppSendMessage(hCombo,Cb_ResetContent,0,0)
  1215.  
  1216. <:#284,9360>        SizeShort=ArraySize(&aPageShort)
  1217.  
  1218. <:#284,9360>        If Len(aPageShort(1))<<1
  1219.  
  1220. <:#284,9360>            Grey(9500)
  1221.  
  1222. <:#284,9360>            Grey(21)
  1223.  
  1224. <:#284,9360>            SetDlgItemText(Hdlg,21,0)
  1225.  
  1226. <:#284,9360>            SetDlgItemText(Hdlg,22,1)
  1227.  
  1228. <:#284,9360>        Else
  1229.  
  1230. <:#284,9360>            Ungrey(9500)
  1231.  
  1232. <:#284,9360>            Ungrey(21)
  1233.  
  1234. <:#284,9360>        Endif
  1235.  
  1236. <:#284,9360>        For t=1 to SizeShort
  1237.  
  1238. <:#284,9360>            SetDlgItemText(Hdlg,9500,aPageShort(t))
  1239.  
  1240. <:#284,9360>        Next
  1241.  
  1242. <:#284,9360>
  1243.  
  1244. <:#284,9360>EndSwitch
  1245.  
  1246. <:#284,9360>
  1247.  
  1248. <:#284,9360>End Function
  1249.  
  1250. <:#284,9360>
  1251.  
  1252. @Function@<:#293,9360>Function GotoGetNumbers(Target,LongPage,aPageShort)
  1253.  
  1254. <:#284,9360>' Returns the numbers of short marks
  1255.  
  1256. <:#284,9360>DefStr Stat;
  1257.  
  1258. <:#284,9360>' Function to locate all ShortTOA bookmarks and place into array.  
  1259.  
  1260. <:#284,9360>Count=GetBookMarkCount()
  1261.  
  1262. <:#284,9360>Dim Marks(count)
  1263.  
  1264. <:#284,9360>    GetBookMarkNames(&Marks)
  1265.  
  1266. <:#284,9360>Start=0
  1267.  
  1268. <:#284,9360>        While(0!=Assign(&Stat,ArraySearch(&Marks,Target,3,"\",Start)))
  1269.  
  1270. <:#284,9360>            If StrField$(Marks(Stat),2,"\")="L"
  1271.  
  1272. <:#284,9360>                Page=GetBookMarkPage(Marks(Stat))
  1273.  
  1274. <:#284,9360>                LongRecord=StrCat$(Page,"          ^",Marks(Stat))
  1275.  
  1276. <:#284,9360>                ArrayInsertByKey(&LongPage,LongRecord,1,1,"^")
  1277.  
  1278. <:#284,9360>            Else
  1279.  
  1280. <:#284,9360>                sPage=GetBookMarkPage(Marks(Stat))
  1281.  
  1282. <:#284,9360>                Record=StrCat$(sPage,"             ^",Marks(Stat))
  1283.  
  1284. <:#284,9360>                ArrayInsertByKey(&aPageShort,Record,0,1,"^")
  1285.  
  1286. <:#284,9360>            Endif    
  1287.  
  1288. <:#284,9360>            Start=Stat
  1289.  
  1290. <:#284,9360>        Wend
  1291.  
  1292. <:#284,9360>End Function
  1293.  
  1294. <:#284,9360>
  1295.  
  1296. <:#284,9360>
  1297.  
  1298. @Function@<:#293,9360>Function GenT<:ZGenTable()   Generate Table><:Z~GenTable()   Generate Table>able()
  1299.  
  1300. <:#284,9360>Defstr count,Stat,sr,sc,er,ec,Total;
  1301.  
  1302. <:#284,9360>If (GetOpenFileCount()<<1)
  1303.  
  1304. <:#284,9360>    ToaMessage("No files are currently open.")
  1305.  
  1306. <:#284,9360>    Exit Function
  1307.  
  1308. <:#284,9360>Endif
  1309.  
  1310. <:#284,9360>Mac=GetRunningMacroFile$()
  1311.  
  1312. <:#284,9360>Dim ShowLongMarks(1)
  1313.  
  1314. <:#284,9360>Dim LongMarks(1)
  1315.  
  1316. <:#284,9360>dim Shortmarks(1)
  1317.  
  1318. <:#284,9360>if (0!=Assign(&Total,FindAllToa(&ShowLongMarks,&LongMarks))) 
  1319.  
  1320. <:#284,9360>    Short=FindAllShort(&ShortMarks)
  1321.  
  1322. <:#284,9360>Else
  1323.  
  1324. <:#284,9360>    ToaMessage("No TOA entries found")
  1325.  
  1326. <:#284,9360>    Exit Function
  1327.  
  1328. <:#284,9360>Endif
  1329.  
  1330. <:#284,9360>
  1331.  
  1332. <:#284,9360>Dim LeaderText(4)
  1333.  
  1334. <:#284,9360>LeaderText(1) = ". . . . . . . . ."
  1335.  
  1336. <:#284,9360>LeaderText(2) = "- - - - - - - "
  1337.  
  1338. <:#284,9360>LeaderText(3) = "_______"
  1339.  
  1340. <:#284,9360>LeaderText(4) = "None"
  1341.  
  1342. <:#284,9360>AllocGlobalVar("HelpPanel",1)
  1343.  
  1344. <:#284,9360>SetGlobalVar("HelpPanel",245)
  1345.  
  1346. <:#284,9360>DlgKeyInterrupt(VK_F1,"{Mac}!HelpFunction")
  1347.  
  1348. <:#284,9360>SetDlgCallBack(9501,"{Mac}!Leaders")
  1349.  
  1350. <:#284,9360>StyleCount = GetStyleCount()
  1351.  
  1352. <:#284,9360>Dim StyleNames(StyleCount)
  1353.  
  1354. <:#284,9360>GetStyleNames(&StyleNames)
  1355.  
  1356. <:#284,9360>Filledit (9502,&StyleNames)
  1357.  
  1358. <:#284,9360>Filledit (9503, &StyleNames)
  1359.  
  1360. <:#284,9360>Filledit (9501, &LeaderText)
  1361.  
  1362. <:#284,9360>Filledit(1000,"...................................................................")
  1363.  
  1364. <:#284,9360>box=dialogbox(".","ToaGen")
  1365.  
  1366. <:#284,9360>If Box<<<;>1
  1367.  
  1368. <:#284,9360>    Exit function
  1369.  
  1370. <:#284,9360>Endif
  1371.  
  1372. <:#284,9360>AllocGlobalVar("CategoryStyle",1)
  1373.  
  1374. <:#284,9360>AllocGlobalVar("CitationStyle",1)
  1375.  
  1376. <:#284,9360>SetGlobalVar("CategoryStyle",GetDialogField$(9503))
  1377.  
  1378. <:#284,9360>SetGlobalVar("CitationStyle",GetDialogField$(9502))
  1379.  
  1380. <:#284,9360>Lead=GetDialogfield$(9501)
  1381.  
  1382. <:#284,9360>If Left$(Lead,1)="."
  1383.  
  1384. <:#284,9360>    Dottype="DotLeaders"
  1385.  
  1386. <:#284,9360>Elseif Left$(Lead,1)="-"
  1387.  
  1388. <:#284,9360>    Dottype="HyphLeaders"
  1389.  
  1390. <:#284,9360>Elseif Left$(Lead,1)="_"
  1391.  
  1392. <:#284,9360>    Dottype="LineLeaders"
  1393.  
  1394. <:#284,9360>Elseif Left$(Lead,1)="N"
  1395.  
  1396. <:#284,9360>    Dottype="Off"
  1397.  
  1398. <:#284,9360>Endif
  1399.  
  1400. <:#284,9360>IF GetMode() !=1
  1401.  
  1402. <:#284,9360>    LayoutMode()
  1403.  
  1404. <:#284,9360>Endif
  1405.  
  1406. <:#284,9360>'SingleStep(on)
  1407.  
  1408. <:#284,9360>type("<[>ctrlend]")
  1409.  
  1410. <:#284,9360>if -2  != Assign(&Stat,FindbookMark("Toa_Table"))
  1411.  
  1412. <:#284,9360>        If (0 =Assign(&Stat,TableGetRange(&Sr,&Sc,&Er,&Ec)))
  1413.  
  1414. <:#284,9360>            PageBreak(1)
  1415.  
  1416. <:#284,9360>            type("<[>enter]")
  1417.  
  1418. <:#284,9360>            DeleteBookMark("Toa_Table")
  1419.  
  1420. <:#284,9360>        Else
  1421.  
  1422. <:#284,9360>            DeleteEntireTable()
  1423.  
  1424. <:#284,9360>            DeleteBookMark("Toa_Table")
  1425.  
  1426. <:#284,9360>        Endif
  1427.  
  1428. <:#284,9360>Else
  1429.  
  1430. <:#284,9360>        Type ("<[>CtrlEnd]")
  1431.  
  1432. <:#284,9360>        If (0=Assign(&Stat,TableGetRange(&Sr,&Sc,&Er,&Ec)))
  1433.  
  1434. <:#284,9360>            ' we are not in table
  1435.  
  1436. <:#284,9360>        Else
  1437.  
  1438. <:#284,9360>            ' we are in table
  1439.  
  1440. <:#284,9360>            Type ("<[>Esc]")
  1441.  
  1442. <:#284,9360>        Endif
  1443.  
  1444. <:#284,9360>        PageBreak(1)
  1445.  
  1446. <:#284,9360>        type("<[>enter]")
  1447.  
  1448. <:#284,9360>Endif
  1449.  
  1450. <:#284,9360>MakeTable(&LongMarks,&ShortMarks,Dottype)
  1451.  
  1452. <:#284,9360>FreeGlobalVar("CitationStyle")
  1453.  
  1454. <:#284,9360>FreeGlobalVar("CategoryStyle")
  1455.  
  1456. <:#284,9360>
  1457.  
  1458. <:#284,9360>End Function
  1459.  
  1460. <:#284,9360>
  1461.  
  1462. <:#284,9360>
  1463.  
  1464. @Function@<:#293,9360>Function Mak<:ZMakeTable(p1,p2)  Place Table><:Z~MakeTable(p1,p2)  Place Table>eTable(longmarks,shortmarks,DotType)
  1465.  
  1466. <:#284,9360>Defstr Stat,sr,sc,er,ec;
  1467.  
  1468. <:#284,9360>NeededRows=GetNumberRows(&LongMarks)+1
  1469.  
  1470. <:#284,9360>tables(1, 1, 2, NeededRows)
  1471.  
  1472. <:#284,9360>WidthTwips=GetLayout()
  1473.  
  1474. <:#284,9360>SizeCol1=(WidthTwips * 0.65)  ' make the 1st col 3/4 width of avail space
  1475.  
  1476. <:#284,9360>Sizecol2=(WidthTwips * 0.33)   ' 2nd is remaining 1/4
  1477.  
  1478. <:#284,9360>sizecolumnrow(SizeCol1, 90, 360, 180)
  1479.  
  1480. <:#284,9360>type("<[>right]")
  1481.  
  1482. <:#284,9360>sizecolumnrow(SizeCol2, 90, 360, 180)
  1483.  
  1484. <:#284,9360>type("<[>Left]<[>shiftright]")
  1485.  
  1486. <:#284,9360>connectcells()
  1487.  
  1488. <:#284,9360>center()
  1489.  
  1490. <:#284,9360>bold()
  1491.  
  1492. <:#284,9360>AddBookMark("Toa_Table")
  1493.  
  1494. <:#284,9360>Type ("Table of Authorities")
  1495.  
  1496. <:#284,9360>Type ("<[>Tab]")
  1497.  
  1498. <:#284,9360>PlaceInfo(&LongMarks,&ShortMarks,DotType)
  1499.  
  1500. <:#284,9360>End Function
  1501.  
  1502. <:#284,9360>
  1503.  
  1504. @Function@<:#293,9360>Function PlaceInfo(LongMarks,ShortMarks,Dottype)
  1505.  
  1506. <:#852,9360>'  This loops each section, determines # of Long Marks section, alpha the longs within a section, then for each long mark, the stuffNumsTmpArray function returns a list of page numbers in order without duplicates.
  1507.  
  1508. <:#284,9360>DefStr Stat, SizeCat;
  1509.  
  1510. <:#284,9360>Quote=chr$(034)
  1511.  
  1512. <:#284,9360>Dim Cat(1)
  1513.  
  1514. <:#284,9360>DocVar(&Cat)
  1515.  
  1516. <:#284,9360>Size = ArraySize(&Cat)
  1517.  
  1518. <:#284,9360>For N=1 to Size
  1519.  
  1520. <:#284,9360>    Dim TempLong(1)
  1521.  
  1522. <:#284,9360>    CatNumber = ConvertCatToNumber(Cat(n))
  1523.  
  1524. <:#568,9360>    If 0=Assign(&SizeCat,StuffLongTempArray(&LongMarks,&TempLong,CatNumber))
  1525.  
  1526. <:#284,9360>        Goto Loopit
  1527.  
  1528. <:#284,9360>    Endif
  1529.  
  1530. <:#284,9360>
  1531.  
  1532. <:#284,9360>' If we are here, then this section has some entries
  1533.  
  1534. <:#284,9360>'Message("Size of {Cat} is {SizeCat}")
  1535.  
  1536. <:#284,9360>type("<[>shiftright]")
  1537.  
  1538. <:#284,9360>connectcells()
  1539.  
  1540. <:#284,9360>Name = Cat(N)
  1541.  
  1542. <:#284,9360>Type ("{Name}")<:Zconnect_section><:Z~connect_section>
  1543.  
  1544. <:#284,9360>Center()
  1545.  
  1546. <:#284,9360>SetStyle(GetGlobalVar$("CategoryStyle"))
  1547.  
  1548. <:#284,9360>Type ("<[>down]")
  1549.  
  1550. <:#284,9360>
  1551.  
  1552. <:#284,9360>For I=1 to SizeCat
  1553.  
  1554. <:#284,9360>    Target=StrField$(TempLong(I),3,"\")
  1555.  
  1556. <:#284,9360>    Name=TempLong(I)
  1557.  
  1558. <:#284,9360>    StartCursor = Abs(StrField$(CursorPosition$(),2,","))
  1559.  
  1560. <:#284,9360>    Stat = EvalField("GetBookMark{Quote}{Name}{Quote}")
  1561.  
  1562. <:#284,9360>    FieldAdd("GetBookMark{Quote}{Name}{Quote}")
  1563.  
  1564. <:#284,9360>
  1565.  
  1566. <:#284,9360>    SetStyle(GetGlobalVar$("CitationStyle"))
  1567.  
  1568. <:#284,9360>    ApplyLeaders(Dottype)
  1569.  
  1570. <:#284,9360>    StopCursor = Abs(StrField$(CursorPosition$(),2,","))
  1571.  
  1572. <:#284,9360>    Dif = StopCursor - StartCursor
  1573.  
  1574. <:#284,9360>    NumberReturns = Dif / 279 
  1575.  
  1576. <:#284,9360>    Dim TempPages(1)
  1577.  
  1578. <:#284,9360>    TempPages(1)=GetBookMarkPage(Name)
  1579.  
  1580. <:#284,9360>    SizePages=StuffPageNumsTmpArray(&ShortMarks,&TempPages,Target)
  1581.  
  1582. <:#284,9360>    Type ("<[>Tab]")
  1583.  
  1584. <:#284,9360>
  1585.  
  1586. <:#284,9360>    RightAlign()
  1587.  
  1588. <:#284,9360>    SetStyle(GetGlobalVar$("CitationStyle"))
  1589.  
  1590. <:#284,9360>
  1591.  
  1592. <:#284,9360>    Cursor = Abs(StrField$(CursorPosition$(),2,","))
  1593.  
  1594. <:#284,9360>    While Cursor << StopCursor
  1595.  
  1596. <:#284,9360>        Type ("<[>Enter]")
  1597.  
  1598. <:#284,9360>        SetStyle(GetGlobalVar$("CitationStyle"))
  1599.  
  1600. <:#284,9360>        Cursor = Abs(StrField$(CursorPosition$(),2,","))
  1601.  
  1602. <:#284,9360>    Wend
  1603.  
  1604. <:#284,9360>
  1605.  
  1606. <:#284,9360>
  1607.  
  1608. <:#284,9360>    For t=1 to Sizepages
  1609.  
  1610. <:#284,9360>            page=TempPages(t)
  1611.  
  1612. <:#284,9360>            Type ("{Page}")
  1613.  
  1614. <:#284,9360>                If t<<Sizepages
  1615.  
  1616. <:#284,9360>                Type(", ")
  1617.  
  1618. <:#284,9360>                Endif
  1619.  
  1620. <:#284,9360>    Next
  1621.  
  1622. <:#284,9360>    ApplyLeaders(Dottype)
  1623.  
  1624. <:#284,9360>    SetStyle(GetGlobalVar$("CitationStyle"))
  1625.  
  1626. <:#284,9360>    Type("<[>Tab]")
  1627.  
  1628. <:#284,9360>
  1629.  
  1630. <:#284,9360>Next
  1631.  
  1632. <:#284,9360>
  1633.  
  1634. <:#284,9360>loopit:
  1635.  
  1636. <:#284,9360>Next
  1637.  
  1638. <:#284,9360>End Function
  1639.  
  1640. <:#284,9360>
  1641.  
  1642. @Function@<:#293,9360>Function ConvertCatToNumber(CatName)
  1643.  
  1644. <:#284,9360>Stat = GetDocVar("ToaCatCount")
  1645.  
  1646. <:#284,9360>For t = 1 to Stat
  1647.  
  1648. <:#284,9360>    Data = GetDocVar("Cat{T}")
  1649.  
  1650. <:#284,9360>    If Data = CatName
  1651.  
  1652. <:#284,9360>        Return t
  1653.  
  1654. <:#284,9360>    Endif
  1655.  
  1656. <:#284,9360>Next
  1657.  
  1658. <:#284,9360>
  1659.  
  1660. <:#284,9360>End Function
  1661.  
  1662. @Function@<:#293,9360>Function Abs(Number)
  1663.  
  1664. <:#284,9360>If Number << 0 
  1665.  
  1666. <:#284,9360>    Number = Number * (-1)
  1667.  
  1668. <:#284,9360>Endif
  1669.  
  1670. <:#284,9360>Abs = Number
  1671.  
  1672. <:#284,9360>End Function
  1673.  
  1674. <:#284,9360>
  1675.  
  1676. @Function@<:#293,9360>Function StuffLongTempArray(LongMarks,TempLong,Cat)
  1677.  
  1678. <:#284,9360>DefStr Stat;
  1679.  
  1680. <:#284,9360>Start=0
  1681.  
  1682. <:#284,9360>    X=0
  1683.  
  1684. <:#284,9360>        While 0!=Assign(&Stat,ArraySearch(&LongMarks,Cat,5,"\",Start))
  1685.  
  1686. <:#284,9360>            x=x+1
  1687.  
  1688. <:#284,9360>            ArrayInsertByKey(&TempLong,*LongMarks(Stat),1,3,"\")
  1689.  
  1690. <:#284,9360>            Start=Stat
  1691.  
  1692. <:#284,9360>        Wend
  1693.  
  1694. <:#284,9360>
  1695.  
  1696. <:#284,9360>        If Len(*TempLong(1))<<1
  1697.  
  1698. <:#284,9360>            StuffLongTempArray=0  '  No Marks Found in this section
  1699.  
  1700. <:#284,9360>        Else
  1701.  
  1702. <:#284,9360>            StuffLongTempArray=ArraySize(&TempLong) ' Return # Found
  1703.  
  1704. <:#284,9360>        Endif
  1705.  
  1706. <:#284,9360>
  1707.  
  1708. <:#284,9360>End Function
  1709.  
  1710. <:#284,9360>
  1711.  
  1712. @Function@<:#293,9360>Function StuffPageNumsTmpArray(ShortMarks,TempPages,TarGet)
  1713.  
  1714. <:#284,9360>DefStr Stat, PageNum;
  1715.  
  1716. <:#284,9360>Start=0
  1717.  
  1718. <:#284,9360>    X=0
  1719.  
  1720. <:#284,9360>        While 0!=Assign(&Stat,ArraySearch(&ShortMarks,Target,3,"\",Start))
  1721.  
  1722. <:#284,9360>            x=x+1
  1723.  
  1724. <:#284,9360>            If 0!= Assign(&PageNum, GetBookMarkPage(*ShortMarks(Stat)))
  1725.  
  1726. <:#284,9360>                ArrayInsertByKey(&TempPages,PageNum,0)
  1727.  
  1728. <:#284,9360>            Endif
  1729.  
  1730. <:#284,9360>            Start=Stat
  1731.  
  1732. <:#284,9360>        Wend
  1733.  
  1734. <:#284,9360>    StuffPageNumsTmpArray=ArraySize(&TempPages)
  1735.  
  1736. <:#284,9360>End Function
  1737.  
  1738. <:#284,9360>
  1739.  
  1740. <:#284,9360>
  1741.  
  1742. @Function@<:#293,9360><+->FUNCTION<--> GetLayout()
  1743.  
  1744. <:#284,9360>DefStr Ln,Wd,Un,Pap;
  1745.  
  1746. <:#284,9360>
  1747.  
  1748. <:#284,9360>Cnt = GetLayoutParmCnt(ModLayoutRightPage)'Get number of parameters 
  1749.  
  1750. <:#284,9360>DIM Stuff(Cnt)'Dimension an array for that amount
  1751.  
  1752. <:#284,9360>GetLayoutParameters(ModLayoutRightPage, &Stuff)'Get the parameters and 
  1753.  
  1754. <:#284,9360>GetLayoutPageSize(&Ln,&Wd,&un,&pap)
  1755.  
  1756. <:#284,9360>LengthTwips=Ln
  1757.  
  1758. <:#284,9360>WidthTwips=wd
  1759.  
  1760. <:#284,9360>
  1761.  
  1762. <:#284,9360>LeftMargin=Stuff(1)
  1763.  
  1764. <:#284,9360>RightMargin=Stuff(3)
  1765.  
  1766. <:#284,9360>NumberColumns=Stuff(7)
  1767.  
  1768. <:#284,9360>
  1769.  
  1770. <:#284,9360>TotalSpace=WidthTwips-LeftMargin-RightMargin
  1771.  
  1772. <:#284,9360>GetLayout=TotalSpace
  1773.  
  1774. <:#284,9360>
  1775.  
  1776. <:#284,9360>END FUNCTION 
  1777.  
  1778. <:#284,9360>
  1779.  
  1780. @Function@<:#293,9360>Function ApplyLeaders(DotType)
  1781.  
  1782. <:#284,9360>        Switch DotType
  1783.  
  1784. <:#284,9360>            Case "DotLeaders"
  1785.  
  1786. <:#284,9360>                LeaderDots()
  1787.  
  1788. <:#284,9360>            Case "HyphLeaders"
  1789.  
  1790. <:#284,9360>                LeaderHyphs()
  1791.  
  1792. <:#284,9360>            Case "LineLeaders"
  1793.  
  1794. <:#284,9360>                LeaderLines()
  1795.  
  1796. <:#284,9360>        EndSwitch
  1797.  
  1798. <:#284,9360>End Function
  1799.  
  1800. <:#284,9360>
  1801.  
  1802. @Function@<:#293,9360>Function GetNumberRows(LongMarks)
  1803.  
  1804. <:#284,9360>DefStr Stat;
  1805.  
  1806. <:#284,9360>Dim Cat(1)
  1807.  
  1808. <:#284,9360>DocVar(&Cat)
  1809.  
  1810. <:#284,9360>Size = ArraySize(&Cat)
  1811.  
  1812. <:#284,9360>For N=1 to Size
  1813.  
  1814. <:#284,9360>    Dim TempLong(1)
  1815.  
  1816. <:#284,9360>    CatNumber = ConvertCatToNumber(Cat(n))
  1817.  
  1818. <:#284,9360>
  1819.  
  1820. <:#284,9360>    If 0!=Assign(&Stat,StuffLongTempArray(&LongMarks,&TempLong,CatNumber))
  1821.  
  1822. <:#284,9360>        Name = Cat(n)
  1823.  
  1824. <:#284,9360>'        Message("Cat({Name}) needs {Stat}")
  1825.  
  1826. <:#284,9360>        Total=Total+Stat+1
  1827.  
  1828. <:#284,9360>    Endif
  1829.  
  1830. <:#284,9360>Next
  1831.  
  1832. <:#284,9360>GetNumberRows=Total
  1833.  
  1834. <:#284,9360>End Function
  1835.  
  1836. @Function@<:#293,9360>Function Leaders(H<:ZLeaders()  Leader Callback><:Z~Leaders()  Leader Callback>dlg,id,dummy)
  1837.  
  1838. <:#284,9360>Test=GetDlgItemText(Hdlg,9501)
  1839.  
  1840. <:#284,9360>IF Left$(Test,1)="."
  1841.  
  1842. <:#284,9360>    SetDlgItemText(Hdlg,1000,"...................................................................")
  1843.  
  1844. <:#284,9360>Endif
  1845.  
  1846. <:#284,9360>IF Left$(Test,1)="-"
  1847.  
  1848. <:#568,9360>    SetDlgItemText(Hdlg,1000,"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -")
  1849.  
  1850. <:#284,9360>Endif
  1851.  
  1852. <:#284,9360>IF Left$(Test,1)="_"
  1853.  
  1854. <:#284,9360>    SetDlgItemText(Hdlg,1000,"__________________________")
  1855.  
  1856. <:#284,9360>Endif
  1857.  
  1858. <:#284,9360>IF Left$(Test,1)="N"
  1859.  
  1860. <:#284,9360>    SetDlgItemText(Hdlg,1000,"                                                               ")
  1861.  
  1862. <:#284,9360>Endif
  1863.  
  1864. <:#284,9360>End Function
  1865.  
  1866. <:#284,9360>
  1867.  
  1868. @Function@<:#293,9360>Function CreateIni()
  1869.  
  1870. <:#284,9360>
  1871.  
  1872. <:#284,9360>WriteToaIni("Cat1","Constitutional Provisions")
  1873.  
  1874. <:#284,9360>WriteToaIni("Cat2","Cases")
  1875.  
  1876. <:#284,9360>WriteToaIni("Cat3","Rules and Regulations")
  1877.  
  1878. <:#284,9360>WriteToaIni("Cat4","Statutes")
  1879.  
  1880. <:#284,9360>WriteToaIni("Cat5","Treaties")
  1881.  
  1882. <:#284,9360>WriteToaIni("Cat6","OtherAuthorities")
  1883.  
  1884. <:#284,9360>WriteToaIni("Cat7","None")
  1885.  
  1886. <:#284,9360>
  1887.  
  1888. <:#284,9360>
  1889.  
  1890. <:#284,9360>End Function
  1891.  
  1892. @Function@<:#293,9360>Function GetIni(Category)
  1893.  
  1894. <:#284,9360>DefStr Stat;
  1895.  
  1896. <:#284,9360>x = 1;
  1897.  
  1898. <:#284,9360>While "" != Assign(&Stat,GetToaIni("Cat{x}"))
  1899.  
  1900. <:#284,9360>    ArrayInsertByKey(&Category,Stat,False)
  1901.  
  1902. <:#284,9360>    x = x + 1
  1903.  
  1904. <:#284,9360>Wend
  1905.  
  1906. <:#284,9360>
  1907.  
  1908. <:#284,9360>End Function
  1909.  
  1910. <:#284,9360>
  1911.  
  1912. @Function@<:#293,9360>Function DocVar(Cat)
  1913.  
  1914. <:#284,9360>DefStr Stat;
  1915.  
  1916. <:#284,9360>Size = ArraySize(&Cat)
  1917.  
  1918. <:#284,9360>x = 1;
  1919.  
  1920. <:#284,9360>While "" != Assign(&Stat,GetDocVar("Cat{x}"))
  1921.  
  1922. <:#284,9360>    ArrayInsertByKey(&Cat,Stat,False)
  1923.  
  1924. <:#284,9360>    x = x + 1
  1925.  
  1926. <:#284,9360>Wend
  1927.  
  1928. <:#284,9360>End Function
  1929.  
  1930. @Function@<:#293,9360>Function CleanTheName(ShortName)
  1931.  
  1932. <:#284,9360>DefStr Stat;
  1933.  
  1934. <:#284,9360>OffSet = 0
  1935.  
  1936. <:#284,9360>StringName = ShortName
  1937.  
  1938. <:#284,9360>Pattern = Chr$(34)
  1939.  
  1940. <:#284,9360>While 0 != Assign(&Stat, Instr(Offset, StringName, Pattern))
  1941.  
  1942. <:#284,9360>    LeftSide = Left$(StringName,(Stat - 1))
  1943.  
  1944. <:#284,9360>    RightSide = Right$(StringName,(Len(StringName) - Stat))
  1945.  
  1946. <:#284,9360>    StringName = StrCat$(LeftSide,Chr$(39),RightSide)
  1947.  
  1948. <:#284,9360>    OffSet = Stat +1
  1949.  
  1950. <:#284,9360>Wend
  1951.  
  1952. <:#284,9360>StringName = Left$(StringName,30)
  1953.  
  1954. <:#284,9360>CleanTheName = StringName;
  1955.  
  1956. <:#284,9360>End Function
  1957.  
  1958. <:#284,9360>
  1959.  
  1960. <:#284,9360>
  1961.  
  1962. @Function@<:#293,9360>Function HelpFunction(id)
  1963.  
  1964. <:#284,9360>    IgnoreKeyBoard(2)
  1965.  
  1966. <:#284,9360>    HelpNum = GetGlobalVar$("HelpPanel")
  1967.  
  1968. <:#284,9360>    prohWnd = FindWindow("AmiProWndA", 0)
  1969.  
  1970. <:R1,15,1,0,1,720,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,><:#284,9360>    helpfile = strcat$(GetAmiDirectory$(), "amipro.hlp")
  1971.  
  1972. <:R1,15,1,0,1,720,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,><:#284,9360>    'helpnum = 151         'or the pane you want to display (151 is Undo)
  1973.  
  1974. <:R1,15,1,0,1,720,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,><:#284,9360>    WinHelp (prohWnd, helpfile, HELP_CONTEXT, HelpNum)    
  1975.  
  1976. <:R><:#284,9360>End function
  1977.  
  1978. @Body Single@<:#284,9360>
  1979.  
  1980. <:#284,9360>
  1981.  
  1982. <:#284,9360>
  1983.  
  1984. @Function@<:#293,9360>Dialogs
  1985.  
  1986. <:#284,9360>
  1987.  
  1988. <:#284,9360>
  1989.  
  1990. <:#284,9360>DIALOG    MarkLong
  1991.  
  1992. <:#568,9360>-2134376448    10    40    46    223    75    ""    "AmiDialog"    "Mark TOA Long Entry"
  1993.  
  1994. <:#284,9360>FONT    8    "Helv"
  1995.  
  1996. <:#284,9360>181    2    40    14    1    1342242817    "button"    "OK"    0 
  1997.  
  1998. <:#284,9360>181    18    40    14    2    1342242816    "button"    "Cancel"    0 
  1999.  
  2000. <:#284,9360>5    4    46    10    1000    1342177280    "static"    "&Short name:"    0 
  2001.  
  2002. <:#284,9360>48    2    122    12    8000    1350631424    "edit"    ""    0 
  2003.  
  2004. <:#284,9360>5    19    38    10    1001    1342177280    "static"    "&Category:"    0 
  2005.  
  2006. <:#284,9360>49    18    105    56    9500    1344339971    "combobox"    ""    0 
  2007.  
  2008. <:#284,9360>163    40    58    14    24    1342242816    "button"    "&New Category..."    0 
  2009.  
  2010. <:#284,9360>163    56    58    14    3    1342242816    "button"    "&Mark Same..."    0 
  2011.  
  2012. <:#284,9360>5    33    149    39    20    1342242823    "button"    "Long entry text"    0 
  2013.  
  2014. <:#284,9360>10    43    136    27    1002    1342177280    "static"    ""    0 
  2015.  
  2016. <:#284,9360>END DIALOG
  2017.  
  2018. <:#284,9360>
  2019.  
  2020. <:#284,9360>
  2021.  
  2022. <:#284,9360>DIALOG FindShort
  2023.  
  2024. -2134376448 6 44 72 240 44 "" "AmiDialog" "Find TOA Short Entry"
  2025.  
  2026. <:#284,9360>FONT 8 "Helv"
  2027.  
  2028. <:#284,9360>196 2 40 14 21 1342242816 "button" "Find &Next" 0 
  2029.  
  2030. <:#284,9360>128 2 62 14 22 1342242816 "button" "&Mark && Find Next" 0 
  2031.  
  2032. <:#284,9360>196 18 40 14 3 1342242816 "button" "Cancel" 0 
  2033.  
  2034. <:#284,9360>2 4 34 10 1000 1342177280 "static" "Finding:" 0 
  2035.  
  2036. <:#284,9360>6 14 120 22 1001 1342177280 "static" "" 0 
  2037.  
  2038. <:#284,9360>128 18 62 14 24 1342242816 "button" "Mark &All" 0 
  2039.  
  2040. <:#284,9360>END DIALOG
  2041.  
  2042. <:#284,9360>
  2043.  
  2044. <:#284,9360>
  2045.  
  2046. DIALOG    searchfor
  2047.  
  2048. -2134376448    6    49    61    231    58    ""    ""    "Specify TOA Search"
  2049.  
  2050. FONT    8    "Helv"
  2051.  
  2052. 187    2    40    14    1    1342242817    "button"    "OK"    0 
  2053.  
  2054. 187    18    40    14    2    1342242816    "button"    "Cancel"    0 
  2055.  
  2056. 46    4    132    12    8000    1350631424    "edit"    ""    0 
  2057.  
  2058. 4    6    38    10    1000    1342177280    "static"    "&Search for:"    0 
  2059.  
  2060. 8    32    167    18    1002    1342177280    "static"    ""    0 
  2061.  
  2062. 4    20    175    34    20    1342242823    "button"    "Mark as TOA short entry"    0 
  2063.  
  2064. END DIALOG
  2065.  
  2066.  
  2067. <:#284,9360>
  2068.  
  2069. <:#284,9360>DIALOG    SHORT
  2070.  
  2071. <:#568,9360>-2134376448    5    45    41    208    60    ""    "AmiDialog"    "Mark TOA Short Entry"
  2072.  
  2073. <:#284,9360>FONT    8    "Helv"
  2074.  
  2075. <:#284,9360>164    2    40    14    1    1342242817    "button"    "OK"    0 
  2076.  
  2077. <:#284,9360>164    18    40    14    2    1342242816    "button"    "Cancel"    0 
  2078.  
  2079. <:#284,9360>5    4    70    10    1000    1342242816    "static"    "&Long entries:"    0 
  2080.  
  2081. <:#284,9360>5    14    154    45    9500    1344340227    "combobox"    ""    0 
  2082.  
  2083. <:#284,9360>155    35    49    14    3    1342373888    "button"    "Mark &Same..."    0 
  2084.  
  2085. <:#284,9360>END DIALOG
  2086.  
  2087. <:#284,9360>
  2088.  
  2089. <:#284,9360>
  2090.  
  2091. <:#284,9360>
  2092.  
  2093. <:#284,9360>DIALOG    Goto
  2094.  
  2095. <:#568,9360>-2134376448    9    59    32    209    70    ""    "AmiDialog"    "Go To TOA Entry"
  2096.  
  2097. <:#284,9360>FONT    8    "Helv"
  2098.  
  2099. <:#284,9360>165    3    40    14    31    1342373889    "button"    "&Go To"    0 
  2100.  
  2101. <:#284,9360>165    19    40    14    2    1342242816    "button"    "Cancel"    0 
  2102.  
  2103. <:#284,9360>165    35    40    14    1    1342242816    "button"    "&Remove"    0 
  2104.  
  2105. <:#284,9360>7    4    65    8    1000    1342177280    "static"    "Long &entries:"    0 
  2106.  
  2107. <:#284,9360>6    15    150    55    9501    1344340227    "combobox"    ""    0 
  2108.  
  2109. <:#568,9360>6    30    84    10    22    1342242825    "button"    "&Long citation on page :"    0 
  2110.  
  2111. <:#284,9360>97    31    16    10    1003    1342177280    "static"    ""    0 
  2112.  
  2113. <:#568,9360>6    43    84    12    21    1342242825    "button"    "&Short citation on page :"    0 
  2114.  
  2115. <:#284,9360>97    42    25    43    9500    1344339971    "combobox"    ""    0 
  2116.  
  2117. <:#284,9360>END DIALOG
  2118.  
  2119. <:#284,9360>
  2120.  
  2121. <:#284,9360>
  2122.  
  2123. <:#284,9360>
  2124.  
  2125. <:#284,9360>DIALOG toagen
  2126.  
  2127. <:#284,9360>-2134376448 12 58 39 201 70 "" "AmiDialog" "Generate Table of Authorities"
  2128.  
  2129. <:#284,9360>FONT 8 "Helv"
  2130.  
  2131. <:#284,9360>157 4 40 14 1 1342242817 "button" "OK" 0 
  2132.  
  2133. <:#284,9360>157 20 40 14 2 1342242816 "button" "Cancel" 0 
  2134.  
  2135. <:#284,9360>10 50 32 10 1001 1342177280 "static" "Leaders :" 0 
  2136.  
  2137. <:#284,9360>44 47 33 41 9501 1344274435 "combobox" "" 0 
  2138.  
  2139. <:#284,9360>82 50 74 10 1002 1342177280 "static" "Marbury v. Madison" 0 
  2140.  
  2141. <:#284,9360>5 3 147 41 21 1342308359 "button" "Select Styles" 0 
  2142.  
  2143. <:#284,9360>10 16 65 10 1003 1342177280 "static" "Category Headings:" 0 
  2144.  
  2145. <:#284,9360>10 28 57 10 1004 1342177280 "static" "References:" 0 
  2146.  
  2147. <:#284,9360>80 28 67 29 9502 1344274435 "combobox" "" 0 
  2148.  
  2149. <:#284,9360>80 14 67 40 9503 1344274435 "combobox" "" 0 
  2150.  
  2151. <:#284,9360>151 50 37 10 1000 1342177280 "static" "" 0 
  2152.  
  2153. <:#284,9360>188 50 15 10 1005 1342177280 "static" "1" 0 
  2154.  
  2155. <:#284,9360>END DIALOG
  2156.  
  2157. <:#284,9360>
  2158.  
  2159. <:#284,9360>
  2160.  
  2161. <:#284,9360>DIALOG GenOptions
  2162.  
  2163. <:#284,9360>-2134376448 10 50 58 170 100 "" "" "Generate TOA Options"
  2164.  
  2165. <:#284,9360>FONT 8 "Helv"
  2166.  
  2167. <:#284,9360>124 4 40 14 1 1342242817 "button" "OK" 0 
  2168.  
  2169. <:#284,9360>124 20 40 14 2 1342242816 "button" "Cancel" 0 
  2170.  
  2171. <:#284,9360>4 38 114 46 20 1342242823 "button" "Select Styles" 0 
  2172.  
  2173. <:#284,9360>8 52 36 10 1000 1342177280 "static" "Categories" 0 
  2174.  
  2175. <:#284,9360>6 68 40 10 1001 1342177280 "static" "References" 0 
  2176.  
  2177. <:#284,9360>4 0 114 36 27 1342242823 "button" "Break Page " 0 
  2178.  
  2179. <:#284,9360>8 10 84 12 28 1342242819 "button" "Before Table" 0 
  2180.  
  2181. <:#284,9360>8 22 66 10 29 1342242819 "button" "After Table" 0 
  2182.  
  2183. <:#284,9360>48 68 66 30 9501 1344274435 "combobox" "" 0 
  2184.  
  2185. <:#284,9360>48 52 66 40 9502 1344274435 "combobox" "" 0 
  2186.  
  2187. <:#284,9360>END DIALOG
  2188.  
  2189. <:#284,9360>
  2190.  
  2191. <:#284,9360>
  2192.  
  2193. <:#284,9360>
  2194.  
  2195. <:#284,9360>DIALOG NewCat
  2196.  
  2197. -2134376448 5 57 48 190 51 "" "AmiDialog" "Add Category"
  2198.  
  2199. <:#284,9360>FONT 8 "Helv"
  2200.  
  2201. <:#284,9360>8 17 129 12 8000 1350631552 "edit" "" 0 
  2202.  
  2203. <:#284,9360>146 3 40 14 1 1342373889 "button" "Add" 0 
  2204.  
  2205. <:#284,9360>146 19 40 14 2 1342373888 "button" "Cancel" 0 
  2206.  
  2207. <:#284,9360>9 4 71 10 1000 1342177280 "static" "&New category name:" 0 
  2208.  
  2209. <:#284,9360>9 33 123 12 20 1342242819 "button" "&Make category document specific" 0 
  2210.  
  2211. <:#284,9360>END DIALOG
  2212.  
  2213. <:#284,9360>
  2214.  
  2215. <:#284,9360>
  2216.  
  2217. <:#284,9360>
  2218.  
  2219. @Function@<:#293,9360>Function DebugArray(TestArray)
  2220.  
  2221. <:#284,9360>X=ArraySize(&TestArray)
  2222.  
  2223. <:#284,9360>For t=1 to X
  2224.  
  2225. <:#284,9360>    Name=*TestArray(x)
  2226.  
  2227. <:#284,9360>    Message("({T}) = {Name}\")
  2228.  
  2229. <:#284,9360>Next
  2230.  
  2231. <:#284,9360>End Function
  2232.  
  2233. >
  2234.  
  2235. [Embedded]
  2236. 00044277
  2237. >
  2238. [macsum] 44
  2239. MainMenu 0 0 2 60
  2240. MarkMain 1026 1 3 85
  2241. MarkLong 1460 2 5 109
  2242. MarkShort 1704 1 6 121
  2243. LongBox 1886 0 12 135
  2244. CheckCat 2729 1 4 176
  2245. NewCat 3128 3 9 196
  2246. AddCat 3843 2 3 226
  2247. CountEntries 4140 2 5 240
  2248. GetCategories 4400 1 1 256
  2249. ShortBox 4458 0 9 262
  2250. AlreadyMarked 4917 2 2 289
  2251. InitSearch 5170 2 5 310
  2252. CBSearch 5929 3 5 354
  2253. FindAllToa 6609 2 10 390
  2254. FindAllShort 7033 1 7 416
  2255. FgoBox 7293 0 11 433
  2256. CBGOTO 8181 3 12 483
  2257. GotoGetNumbers 9269 3 9 531
  2258. GenTable 9742 0 19 554
  2259. MakeTable 11556 3 10 637
  2260. PlaceInfo 11919 3 21 657
  2261. ConvertCatToNumber 13442 1 4 726
  2262. Abs 13673 1 1 736
  2263. StuffLongTempArray 13753 3 4 743
  2264. StuffPageNumsTmpArray 14052 3 5 761
  2265. GetLayout 14336 0 13 776
  2266. ApplyLeaders 14546 1 1 795
  2267. GetNumberRows 14750 1 9 806
  2268. Leaders 15126 3 2 823
  2269. CreateIni 15719 0 1 839
  2270. GetIni 16091 1 3 851
  2271. DocVar 16259 1 4 861
  2272. CleanTheName 16428 1 7 870
  2273. HelpFunction 16771 1 4 886
  2274. MarkLong 16980 0 -1 900
  2275. FindShort 17583 0 -1 916
  2276. searchfor 17990 0 -1 928
  2277. SHORT 18376 0 -1 940
  2278. Goto 18721 0 -1 952
  2279. toagen 19279 0 -1 968
  2280. GenOptions 19993 0 -1 986
  2281. NewCat 20589 0 -1 1003
  2282. DebugArray 20948 1 4 1015
  2283. [macse]
  2284. 14 MainMenu
  2285. 0 802
  2286. 13
  2287. 8 1
  2288. 0 284 "user,GetActiveWindow,H"
  2289. 13
  2290. 0 284 "user,SetWindowText,IHC" [X] "Installing new menu items to the EDIT\MARK TEXT menu"
  2291. 0 274 010
  2292. 0 520 1 "&Edit" "&Mark Text" "TOA &Long Entry..."
  2293. 0 520 1 "&Edit" "&Mark Text" "TOA &Short Entry..."
  2294. 0 520 1 "&Edit" "&Mark Text" "Go To TOA &Entry..."
  2295. 0 520 1 "Too&ls" "&Generate TOA..."
  2296. 0 527 1 "Too&ls" 13 "&Generate TOA..." "{1}!GenTable" "Generate a table of authorities table."
  2297. 0 529 1 "&Edit" "&Mark Text" 2 "TOA &Long Entry..." "{1}!MarkMain(1)" "Use selected text as a long TOA entry"
  2298. 0 529 1 "&Edit" "&Mark Text" 3 "TOA &Short Entry..." "{1}!MarkMain(2)" "Use selected text as a  short TOA entry."
  2299. 0 529 1 "&Edit" "&Mark Text" 4 "Go To TOA &Entry..." "{1}!MarkMain(3)" " Goto or RemoveTOA entry."
  2300. 0 286 "TOA" "Cat1" "AmiPro2.INI"
  2301. 13
  2302. 7 ""
  2303. 18 1
  2304. 11 00000857
  2305. 10 00000932
  2306. 0 789 "Creating Table of Authorities INI entries"
  2307. 16 CreateIni
  2308. 0 789 ""
  2309. 0 284 "user,GetActiveWindow,H"
  2310. 13
  2311. 0 284 "user,SetWindowText,IHC" [X] "Ami Pro"
  2312. 6 0
  2313. 15
  2314. 9
  2315. 14 MarkMain
  2316. 7 "Too&ls"
  2317. 8 2
  2318. 7 "&Generate TOA..."
  2319. 8 3
  2320. 0 1050
  2321. 13
  2322. 5 1
  2323. 18 5
  2324. 11 00000164
  2325. 0 3 "No files are currently open." "Table of Authorities"
  2326. 6 1
  2327. 15
  2328. 9
  2329. 0 271 "HelpPanel" 1
  2330. 5 1
  2331. 6 0
  2332. 18 0
  2333. 11 00000262
  2334. 0 264 "HelpPanel" 242
  2335. 16 LongBox
  2336. 10 00000403
  2337. 5 2
  2338. 6 0
  2339. 18 0
  2340. 11 00000340
  2341. 0 264 "HelpPanel" 244
  2342. 16 ShortBox
  2343. 10 00000403
  2344. 5 3
  2345. 6 0
  2346. 18 0
  2347. 11 00000403
  2348. 0 264 "HelpPanel" 247
  2349. 16 fGoBox
  2350. 0 266 "HelpPanel"
  2351. 6 1
  2352. 15
  2353. 9
  2354. 14 MarkLong
  2355. 0 772
  2356. 13
  2357. 8 6
  2358. 5 0
  2359. 16 AlreadyMarked &4 &5
  2360. 13
  2361. 0 805 &3 [X]
  2362. 13
  2363. 18 1
  2364. 11 00000184
  2365. 0 3 "A mark already exists at this location {4}" "Table of Authorities"
  2366. 6 2
  2367. 15
  2368. 9
  2369. 7 "TOA\L\{0}\{6}\{1}"
  2370. 8 4
  2371. 2 466 1 "{4}" 4003
  2372. 6 2
  2373. 15
  2374. 9
  2375. 14 MarkShort
  2376. 5 1
  2377. 8 5
  2378. 5 0
  2379. 16 AlreadyMarked &2 &3
  2380. 13
  2381. 0 805 &4 [X]
  2382. 13
  2383. 18 1
  2384. 11 00000106
  2385. 6 1
  2386. 15
  2387. 9
  2388. 0 772
  2389. 13
  2390. 8 6
  2391. 7 "TOA\S\{0}\{6}\{5}"
  2392. 8 2
  2393. 2 466 1 "{2}" 4003
  2394. 6 1
  2395. 15
  2396. 9
  2397. 14 LongBox
  2398. 5 20
  2399. 21 5 [X]
  2400. 0 802
  2401. 13
  2402. 8 6
  2403. 16 GetCategories &5
  2404. 0 24
  2405. 13
  2406. 8 7
  2407. 5 0
  2408. 16 AlreadyMarked &2 &3
  2409. 13
  2410. 0 805 &1 [X]
  2411. 13
  2412. 18 1
  2413. 11 00000238
  2414. 0 3 " A mark already exists at this location.  {2}" "Table of Authorities"
  2415. 6 0
  2416. 15
  2417. 9
  2418. 0 14 "{7}"
  2419. 13
  2420. 5 1
  2421. 18 5
  2422. 11 00000348
  2423. 0 3 "No text currently selected." "Table of Authorities"
  2424. 6 0
  2425. 15
  2426. 9
  2427. 0 20 "{7}" 1 ","
  2428. 13
  2429. 8 7
  2430. 16 CleanTheName "{7}"
  2431. 13
  2432. 8 4
  2433. 0 31 9500 &5
  2434. 0 31 8000 "{4}"
  2435. 0 806 "{7}" 80
  2436. 13
  2437. 0 31 1002 [X]
  2438. 0 41 24 "{6}!NewCat"
  2439. 0 47 112 "{6}!HelpFunction"
  2440. 0 26 "." "MarkLong"
  2441. 13
  2442. 8 8
  2443. 0 27 8000
  2444. 13
  2445. 16 CleanTheName [X]
  2446. 13
  2447. 8 9
  2448. 0 27 9500
  2449. 13
  2450. 8 10
  2451. 5 1
  2452. 6 8
  2453. 18 0
  2454. 11 00000718
  2455. 16 CheckCat "{10}"
  2456. 13
  2457. 8 11
  2458. 16 MarkLong "{9}" "{11}"
  2459. 10 00000831
  2460. 5 3
  2461. 6 8
  2462. 18 0
  2463. 11 00000831
  2464. 16 CheckCat "{10}"
  2465. 13
  2466. 8 11
  2467. 16 MarkLong "{9}" "{11}"
  2468. 16 InitSearch "{9}" "{11}"
  2469. 6 0
  2470. 15
  2471. 9
  2472. 14 CheckCat
  2473. 7 ""
  2474. 0 1310 "ToaCatCount"
  2475. 13
  2476. 0 805 &2 [X]
  2477. 13
  2478. 18 0
  2479. 11 00000139
  2480. 0 1311 "ToaCatCount" 1
  2481. 0 1311 "Cat1" "{0}"
  2482. 5 1
  2483. 15
  2484. 9
  2485. 5 1
  2486. 8 3
  2487. 6 2
  2488. 6 3
  2489. 18 2
  2490. 12 00000224
  2491. 10 00000304
  2492. 5 1
  2493. 6 3
  2494. 3 0
  2495. 8 3
  2496. 10 00000149
  2497. 0 1310 "Cat{3}"
  2498. 13
  2499. 8 4
  2500. 6 4
  2501. 6 0
  2502. 18 0
  2503. 11 00000291
  2504. 6 3
  2505. 15
  2506. 9
  2507. 10 00000191
  2508. 6 2
  2509. 5 1
  2510. 3 0
  2511. 8 2
  2512. 0 1311 "Cat{2}" "{0}"
  2513. 0 1311 "ToaCatCount" "{2}"
  2514. 6 2
  2515. 15
  2516. 9
  2517. 6 1
  2518. 15
  2519. 9
  2520. 14 NewCat
  2521. 0 284 "user,EnableWindow,HHH" "{0}" 0
  2522. 0 802
  2523. 13
  2524. 8 4
  2525. 0 271 "HelpPanel" 1
  2526. 0 264 "HelpPanel" 243
  2527. 0 47 112 "{4}!HelpFunction"
  2528. 0 26 "." "NewCat"
  2529. 13
  2530. 8 5
  2531. 0 284 "user,EnableWindow,HHH" "{0}" 1
  2532. 0 284 "User,SetFocus,HH" "{0}"
  2533. 6 5
  2534. 5 1
  2535. 18 1
  2536. 11 00000279
  2537. 6 3
  2538. 15
  2539. 9
  2540. 0 27 8000
  2541. 13
  2542. 8 6
  2543. 0 27 20
  2544. 13
  2545. 8 7
  2546. 0 14 "{6}"
  2547. 13
  2548. 5 1
  2549. 18 5
  2550. 11 00000411
  2551. 0 3 "No category" "Table of Authorities"
  2552. 6 3
  2553. 15
  2554. 9
  2555. 16 AddCat "{6}" "{7}"
  2556. 5 1
  2557. 21 8 [X]
  2558. 16 GetCategories &8
  2559. 0 44 "{0}" 9500
  2560. 13
  2561. 8 9
  2562. 0 1036 "{9}" 1035 0 0
  2563. 0 1046 &8
  2564. 13
  2565. 8 10
  2566. 5 1
  2567. 8 11
  2568. 6 10
  2569. 6 11
  2570. 18 2
  2571. 12 00000630
  2572. 10 00000676
  2573. 5 1
  2574. 6 11
  2575. 3 0
  2576. 8 11
  2577. 10 00000551
  2578. 6 11
  2579. 22 8
  2580. 0 43 "{0}" 9500 [X]
  2581. 10 00000595
  2582. 0 1036 "{9}" 1037 0 "{6}"
  2583. 6 3
  2584. 15
  2585. 9
  2586. 14 AddCat
  2587. 6 1
  2588. 1 3
  2589. 11 00000183
  2590. 16 CountEntries "Toa" "AmiPro2.Ini"
  2591. 13
  2592. 8 3
  2593. 6 3
  2594. 5 1
  2595. 3 0
  2596. 8 3
  2597. 0 287 "TOA" "Cat{3}" "{0}" "AmiPro2.INI"
  2598. 0 287 "TOA" "Count" "{3}" "AmiPro2.INI"
  2599. 0 1310 "ToaCatCount"
  2600. 13
  2601. 8 4
  2602. 6 4
  2603. 5 1
  2604. 3 0
  2605. 8 4
  2606. 0 1311 "Cat{4}" "{0}"
  2607. 0 1311 "ToaCatCount" "{4}"
  2608. 6 2
  2609. 15
  2610. 9
  2611. 14 CountEntries
  2612. 0 286 "{0}" 0 "{1}"
  2613. 13
  2614. 8 4
  2615. 5 1
  2616. 8 5
  2617. 5 0
  2618. 8 6
  2619. 5 -1
  2620. 0 20 "{4}" "{5}" "~"
  2621. 13
  2622. 0 805 &3 [X]
  2623. 13
  2624. 18 1
  2625. 11 00000236
  2626. 0 806 "{3}" 3
  2627. 13
  2628. 7 "Cat"
  2629. 18 0
  2630. 11 00000203
  2631. 6 6
  2632. 5 1
  2633. 3 0
  2634. 8 6
  2635. 6 5
  2636. 5 1
  2637. 3 0
  2638. 8 5
  2639. 10 00000067
  2640. 6 6
  2641. 15
  2642. 9
  2643. 6 2
  2644. 15
  2645. 9
  2646. 14 GetCategories
  2647. 16 Getini &0
  2648. 16 DocVar &0
  2649. 6 1
  2650. 15
  2651. 9
  2652. 14 ShortBox
  2653. 5 1
  2654. 8 2
  2655. 0 802
  2656. 13
  2657. 8 3
  2658. 5 1
  2659. 21 4 [X]
  2660. 5 1
  2661. 21 5 [X]
  2662. 5 1
  2663. 21 6 [X]
  2664. 5 0
  2665. 16 FindAllToa &4 &5
  2666. 13
  2667. 0 805 &1 [X]
  2668. 13
  2669. 18 1
  2670. 11 00000164
  2671. 10 00000219
  2672. 0 3 "No TOA Marks" "Table of Authorities"
  2673. 6 0
  2674. 15
  2675. 9
  2676. 0 31 9500 &4
  2677. 0 47 112 "{3}!HelpFunction"
  2678. 0 26 "." "Short"
  2679. 13
  2680. 8 7
  2681. 0 27 9500
  2682. 13
  2683. 8 8
  2684. 5 1
  2685. 6 7
  2686. 18 0
  2687. 11 00000371
  2688. 16 MarkShort "{8}"
  2689. 10 00000447
  2690. 5 3
  2691. 6 7
  2692. 18 0
  2693. 11 00000447
  2694. 16 MarkShort "{8}"
  2695. 16 InitSearch "{8}" "{2}"
  2696. 6 0
  2697. 15
  2698. 9
  2699. 14 AlreadyMarked
  2700. 7 ""
  2701. 0 261
  2702. 13
  2703. 0 805 &3 [X]
  2704. 13
  2705. 18 1
  2706. 11 00000229
  2707. 7 "TOA"
  2708. 0 20 "{3}" 1 "\"
  2709. 13
  2710. 18 0
  2711. 11 00000203
  2712. 0 20 "{3}" 3 "\"
  2713. 13
  2714. 28 0
  2715. 0 20 "{3}" 2 "\"
  2716. 13
  2717. 28 1
  2718. 5 1
  2719. 15
  2720. 9
  2721. 10 00000216
  2722. 5 -1
  2723. 15
  2724. 9
  2725. 10 00000241
  2726. 5 0
  2727. 15
  2728. 9
  2729. 6 2
  2730. 15
  2731. 9
  2732. 14 InitSearch
  2733. 0 6 "[16423]"
  2734. 0 31 1002 "{0}"
  2735. 0 31 8000 "{0}"
  2736. 0 26 "." "Searchfor"
  2737. 13
  2738. 8 4
  2739. 6 4
  2740. 5 1
  2741. 18 1
  2742. 11 00000136
  2743. 6 2
  2744. 15
  2745. 9
  2746. 0 27 8000
  2747. 13
  2748. 8 5
  2749. 0 14 "{5}"
  2750. 13
  2751. 5 1
  2752. 18 5
  2753. 11 00000208
  2754. 6 2
  2755. 15
  2756. 9
  2757. 0 271 "SearchFor" 1
  2758. 0 271 "MarkAs" 1
  2759. 0 264 "SearchFor" "{5}"
  2760. 0 264 "MarkAs" "{0}"
  2761. 0 802
  2762. 13
  2763. 8 6
  2764. 2 466 1 "WpdStartSearch" 4003
  2765. 5 1
  2766. 2 488 1 0 0 0 "{5}" ""
  2767. 13
  2768. 0 805 &3 [X]
  2769. 13
  2770. 18 0
  2771. 11 00000633
  2772. 0 31 1001 "{0}"
  2773. 0 41 21 "{6}!CBSearch"
  2774. 0 41 22 "{6}!CBSearch"
  2775. 0 41 24 "{6}!CBSearch"
  2776. 0 802
  2777. 13
  2778. 8 6
  2779. 0 271 "HelpPanel" 1
  2780. 0 264 "HelpPanel" 248
  2781. 0 47 112 "{6}!HelpFunction"
  2782. 0 26 "." "FindShort"
  2783. 13
  2784. 8 4
  2785. 10 00000633
  2786. 2 466 1 "WpdStartSearch" 4002
  2787. 13
  2788. 11 00000712
  2789. 2 466 1 "WpdStartSearch" 4004
  2790. 0 266 "SearchFor"
  2791. 0 266 "Markas"
  2792. 6 2
  2793. 15
  2794. 9
  2795. 14 CBSearch
  2796. 0 265 "MarkAs"
  2797. 13
  2798. 8 4
  2799. 0 265 "SearchFor"
  2800. 13
  2801. 8 5
  2802. 5 21
  2803. 6 1
  2804. 18 0
  2805. 11 00000220
  2806. 0 6 "[16423]"
  2807. 5 1
  2808. 2 488 1 0 0 0 "{5}" ""
  2809. 13
  2810. 0 805 &6 [X]
  2811. 13
  2812. 18 0
  2813. 11 00000194
  2814. 10 00000207
  2815. 0 36 "[27]"
  2816. 10 00000668
  2817. 5 22
  2818. 6 1
  2819. 18 0
  2820. 11 00000394
  2821. 16 MarkShort "{4}"
  2822. 0 6 "[16423]"
  2823. 5 1
  2824. 2 488 1 0 0 0 "{5}" ""
  2825. 13
  2826. 0 805 &6 [X]
  2827. 13
  2828. 18 0
  2829. 11 00000368
  2830. 10 00000381
  2831. 0 36 "[27]"
  2832. 10 00000668
  2833. 5 24
  2834. 6 1
  2835. 18 0
  2836. 11 00000668
  2837. 16 MarkShort "{4}"
  2838. 0 6 "[16423]"
  2839. 5 0
  2840. 8 7
  2841. 5 1
  2842. 2 488 1 0 0 0 "{5}" ""
  2843. 13
  2844. 0 805 &6 [X]
  2845. 13
  2846. 18 0
  2847. 11 00000607
  2848. 16 MarkShort "{4}"
  2849. 0 6 "[16423]"
  2850. 6 7
  2851. 5 1
  2852. 3 0
  2853. 8 7
  2854. 10 00000469
  2855. 0 36 "[27]"
  2856. 0 3 "{7} Entries found" "Table of Authorities"
  2857. 6 3
  2858. 15
  2859. 9
  2860. 14 FindAllToa
  2861. 0 296 1
  2862. 0 1039
  2863. 13
  2864. 8 4
  2865. 6 4
  2866. 5 1
  2867. 18 5
  2868. 11 00000080
  2869. 5 1
  2870. 8 4
  2871. 6 4
  2872. 21 5 [X]
  2873. 0 1040 &5
  2874. 5 0
  2875. 8 6
  2876. 5 0
  2877. 8 7
  2878. 5 0
  2879. 0 1044 &5 "L" 2 "\" "{6}"
  2880. 13
  2881. 0 805 &3 [X]
  2882. 13
  2883. 18 1
  2884. 11 00000381
  2885. 6 7
  2886. 5 1
  2887. 3 0
  2888. 8 7
  2889. 6 3
  2890. 22 5
  2891. 0 1049 [X]
  2892. 13
  2893. 8 8
  2894. 6 3
  2895. 22 5
  2896. 0 20 [X] 3 "\"
  2897. 13
  2898. 8 9
  2899. 7 "{9}"
  2900. 8 10
  2901. 0 1041 &0 "{7}" "{10}"
  2902. 6 3
  2903. 22 5
  2904. 0 1041 &1 "{7}" [X]
  2905. 6 3
  2906. 8 6
  2907. 10 00000126
  2908. 6 7
  2909. 8 11
  2910. 0 296 0
  2911. 6 11
  2912. 8 2
  2913. 6 2
  2914. 15
  2915. 9
  2916. 14 FindAllShort
  2917. 0 1039
  2918. 13
  2919. 8 3
  2920. 6 3
  2921. 21 4 [X]
  2922. 0 1040 &4
  2923. 5 0
  2924. 8 5
  2925. 5 0
  2926. 8 6
  2927. 5 0
  2928. 0 1044 &4 "S" 2 "\" "{5}"
  2929. 13
  2930. 0 805 &2 [X]
  2931. 13
  2932. 18 1
  2933. 11 00000228
  2934. 6 6
  2935. 5 1
  2936. 3 0
  2937. 8 6
  2938. 6 2
  2939. 22 4
  2940. 0 1041 &0 "{6}" [X]
  2941. 6 2
  2942. 8 5
  2943. 10 00000080
  2944. 6 6
  2945. 8 7
  2946. 6 7
  2947. 8 1
  2948. 6 1
  2949. 15
  2950. 9
  2951. 14 FgoBox
  2952. 0 802
  2953. 13
  2954. 8 2
  2955. 5 1
  2956. 21 3 [X]
  2957. 5 1
  2958. 21 4 [X]
  2959. 5 0
  2960. 16 FindAllToa &3 &4
  2961. 13
  2962. 0 805 &1 [X]
  2963. 13
  2964. 18 1
  2965. 11 00000137
  2966. 10 00000198
  2967. 0 3 "No TOA Marks Found" "Table of Authorities"
  2968. 6 0
  2969. 15
  2970. 9
  2971. 0 296 1
  2972. 0 271 "LongPage" 1
  2973. 0 31 22 1
  2974. 0 31 9501 &3
  2975. 0 41 0 "{2}!CBgoto"
  2976. 0 41 31 "{2}!CBGoto"
  2977. 0 41 9501 "{2}!CBGoto"
  2978. 0 41 9500 "{2}!CBGoto"
  2979. 0 47 112 "{2}!HelpFunction"
  2980. 0 26 "." "Goto"
  2981. 13
  2982. 8 5
  2983. 0 296 0
  2984. 0 27 21
  2985. 13
  2986. 8 6
  2987. 0 27 22
  2988. 13
  2989. 8 7
  2990. 5 1
  2991. 6 5
  2992. 18 0
  2993. 11 00000657
  2994. 6 6
  2995. 11 00000557
  2996. 0 27 9500
  2997. 13
  2998. 8 8
  2999. 0 20 "{8}" 2 "^"
  3000. 13
  3001. 8 9
  3002. 2 466 1 "{9}" 4004
  3003. 6 7
  3004. 11 00000644
  3005. 0 265 "LongPage"
  3006. 13
  3007. 0 20 [X] 2 "^"
  3008. 13
  3009. 8 10
  3010. 2 466 1 "{10}" 4004
  3011. 10 00000858
  3012. 5 3
  3013. 6 5
  3014. 18 0
  3015. 11 00000858
  3016. 6 6
  3017. 11 00000771
  3018. 0 27 9500
  3019. 13
  3020. 8 8
  3021. 0 20 "{8}" 2 "^"
  3022. 13
  3023. 8 9
  3024. 2 466 1 "{9}" 4002
  3025. 6 7
  3026. 11 00000858
  3027. 0 265 "LongPage"
  3028. 13
  3029. 0 20 [X] 2 "^"
  3030. 13
  3031. 8 10
  3032. 2 466 1 "{10}" 4002
  3033. 0 266 "LongPage"
  3034. 6 0
  3035. 15
  3036. 9
  3037. 14 CBGOTO
  3038. 5 9500
  3039. 6 1
  3040. 18 0
  3041. 11 00000103
  3042. 0 43 "{0}" 21 1
  3043. 0 43 "{0}" 22 0
  3044. 10 00001076
  3045. 10 00001076
  3046. 5 31
  3047. 6 1
  3048. 18 0
  3049. 11 00000383
  3050. 0 42 "{0}" 21
  3051. 13
  3052. 8 5
  3053. 0 42 "{0}" 22
  3054. 13
  3055. 8 6
  3056. 6 5
  3057. 11 00000272
  3058. 0 42 "{0}" 9500
  3059. 13
  3060. 8 7
  3061. 0 20 "{7}" 2 "^"
  3062. 13
  3063. 8 8
  3064. 2 466 1 "{8}" 4002
  3065. 6 6
  3066. 11 00000357
  3067. 0 265 "LongPage"
  3068. 13
  3069. 0 20 [X] 2 "^"
  3070. 13
  3071. 8 9
  3072. 2 466 1 "{9}" 4002
  3073. 10 00001076
  3074. 10 00001076
  3075. 0 42 "{0}" 9501
  3076. 13
  3077. 8 10
  3078. 5 1
  3079. 21 11 [X]
  3080. 5 1
  3081. 21 12 [X]
  3082. 0 44 "{0}" 9500
  3083. 13
  3084. 8 13
  3085. 16 GotoGetNumbers "{10}" &11 &12
  3086. 5 1
  3087. 22 11
  3088. 0 264 "LongPage" [X]
  3089. 5 1
  3090. 22 11
  3091. 0 43 "{0}" 1003 [X]
  3092. 0 1036 "{13}" 1035 0 0
  3093. 0 1046 &12
  3094. 13
  3095. 8 4
  3096. 5 1
  3097. 22 12
  3098. 0 14 [X]
  3099. 13
  3100. 5 1
  3101. 18 5
  3102. 11 00000826
  3103. 0 44 "{0}" 9500
  3104. 13
  3105. 0 284 "user,EnableWindow,HHH" [X] 0
  3106. 0 44 "{0}" 21
  3107. 13
  3108. 0 284 "user,EnableWindow,HHH" [X] 0
  3109. 0 43 "{0}" 21 0
  3110. 0 43 "{0}" 22 1
  3111. 10 00000940
  3112. 0 44 "{0}" 9500
  3113. 13
  3114. 0 284 "user,EnableWindow,HHH" [X] 1
  3115. 0 44 "{0}" 21
  3116. 13
  3117. 0 284 "user,EnableWindow,HHH" [X] 1
  3118. 5 1
  3119. 8 14
  3120. 6 4
  3121. 6 14
  3122. 18 2
  3123. 12 00001029
  3124. 10 00001076
  3125. 5 1
  3126. 6 14
  3127. 3 0
  3128. 8 14
  3129. 10 00000951
  3130. 6 14
  3131. 22 12
  3132. 0 43 "{0}" 9500 [X]
  3133. 10 00000994
  3134. 6 3
  3135. 15
  3136. 9
  3137. 14 GotoGetNumbers
  3138. 0 1039
  3139. 13
  3140. 8 5
  3141. 6 5
  3142. 21 6 [X]
  3143. 0 1040 &6
  3144. 5 0
  3145. 8 7
  3146. 5 0
  3147. 0 1044 &6 "{0}" 3 "\" "{7}"
  3148. 13
  3149. 0 805 &4 [X]
  3150. 13
  3151. 18 1
  3152. 11 00000461
  3153. 6 4
  3154. 22 6
  3155. 0 20 [X] 2 "\"
  3156. 13
  3157. 7 "L"
  3158. 18 0
  3159. 11 00000324
  3160. 6 4
  3161. 22 6
  3162. 0 1049 [X]
  3163. 13
  3164. 8 8
  3165. 6 4
  3166. 22 6
  3167. 0 16 "{8}" "          ^" [X]
  3168. 13
  3169. 8 9
  3170. 0 1045 &1 "{9}" 1 1 "^"
  3171. 10 00000438
  3172. 6 4
  3173. 22 6
  3174. 0 1049 [X]
  3175. 13
  3176. 8 10
  3177. 6 4
  3178. 22 6
  3179. 0 16 "{10}" "             ^" [X]
  3180. 13
  3181. 8 11
  3182. 0 1045 &2 "{11}" 0 1 "^"
  3183. 6 4
  3184. 8 7
  3185. 10 00000072
  3186. 6 3
  3187. 15
  3188. 9
  3189. 14 GenTable
  3190. 0 1050
  3191. 13
  3192. 5 1
  3193. 18 5
  3194. 11 00000120
  3195. 0 3 "No files are currently open." "Table of Authorities"
  3196. 6 0
  3197. 15
  3198. 9
  3199. 0 802
  3200. 13
  3201. 8 8
  3202. 5 1
  3203. 21 9 [X]
  3204. 5 1
  3205. 21 10 [X]
  3206. 5 1
  3207. 21 11 [X]
  3208. 5 0
  3209. 16 FindAllToa &9 &10
  3210. 13
  3211. 0 805 &7 [X]
  3212. 13
  3213. 18 1
  3214. 11 00000295
  3215. 16 FindAllShort &11
  3216. 13
  3217. 8 12
  3218. 10 00000358
  3219. 0 3 "No TOA entries found" "Table of Authorities"
  3220. 6 0
  3221. 15
  3222. 9
  3223. 5 4
  3224. 21 13 [X]
  3225. 5 1
  3226. 7 ". . . . . . . . ."
  3227. 23 13
  3228. 5 2
  3229. 7 "- - - - - - - "
  3230. 23 13
  3231. 5 3
  3232. 7 "_______"
  3233. 23 13
  3234. 5 4
  3235. 7 "None"
  3236. 23 13
  3237. 0 271 "HelpPanel" 1
  3238. 0 264 "HelpPanel" 245
  3239. 0 47 112 "{8}!HelpFunction"
  3240. 0 41 9501 "{8}!Leaders"
  3241. 0 1308
  3242. 13
  3243. 8 14
  3244. 6 14
  3245. 21 15 [X]
  3246. 0 1309 &15
  3247. 0 31 9502 &15
  3248. 0 31 9503 &15
  3249. 0 31 9501 &13
  3250. 0 31 1000 "..................................................................."
  3251. 0 26 "." "ToaGen"
  3252. 13
  3253. 8 16
  3254. 6 16
  3255. 5 1
  3256. 18 1
  3257. 11 00000830
  3258. 6 0
  3259. 15
  3260. 9
  3261. 0 271 "CategoryStyle" 1
  3262. 0 271 "CitationStyle" 1
  3263. 0 27 9503
  3264. 13
  3265. 0 264 "CategoryStyle" [X]
  3266. 0 27 9502
  3267. 13
  3268. 0 264 "CitationStyle" [X]
  3269. 0 27 9501
  3270. 13
  3271. 8 17
  3272. 0 806 "{17}" 1
  3273. 13
  3274. 7 "."
  3275. 18 0
  3276. 11 00001066
  3277. 7 "DotLeaders"
  3278. 8 18
  3279. 10 00001291
  3280. 0 806 "{17}" 1
  3281. 13
  3282. 7 "-"
  3283. 18 0
  3284. 11 00001148
  3285. 7 "HyphLeaders"
  3286. 8 18
  3287. 10 00001291
  3288. 0 806 "{17}" 1
  3289. 13
  3290. 7 "_"
  3291. 18 0
  3292. 11 00001230
  3293. 7 "LineLeaders"
  3294. 8 18
  3295. 10 00001291
  3296. 0 806 "{17}" 1
  3297. 13
  3298. 7 "N"
  3299. 18 0
  3300. 11 00001291
  3301. 7 "Off"
  3302. 8 18
  3303. 0 29
  3304. 13
  3305. 5 1
  3306. 18 1
  3307. 11 00001334
  3308. 2 210 1
  3309. 0 6 "[16419]"
  3310. 5 -2
  3311. 2 466 1 "Toa_Table" 4002
  3312. 13
  3313. 0 805 &2 [X]
  3314. 13
  3315. 18 1
  3316. 11 00001598
  3317. 5 0
  3318. 0 1301 &3 &4 &5 &6
  3319. 13
  3320. 0 805 &2 [X]
  3321. 13
  3322. 18 0
  3323. 11 00001550
  3324. 2 357 1 1
  3325. 0 6 "[13]"
  3326. 2 466 1 "Toa_Table" 4004
  3327. 10 00001585
  3328. 2 651 1
  3329. 2 466 1 "Toa_Table" 4004
  3330. 10 00001727
  3331. 0 6 "[16419]"
  3332. 5 0
  3333. 0 1301 &3 &4 &5 &6
  3334. 13
  3335. 0 805 &2 [X]
  3336. 13
  3337. 18 0
  3338. 11 00001692
  3339. 10 00001704
  3340. 0 6 "[27]"
  3341. 2 357 1 1
  3342. 0 6 "[13]"
  3343. 16 MakeTable &10 &11 "{18}"
  3344. 0 266 "CitationStyle"
  3345. 0 266 "CategoryStyle"
  3346. 6 0
  3347. 15
  3348. 9
  3349. 14 MakeTable
  3350. 16 GetNumberRows &0
  3351. 13
  3352. 5 1
  3353. 3 0
  3354. 8 9
  3355. 2 457 1 1 1 2 "{9}"
  3356. 16 GetLayout
  3357. 13
  3358. 8 10
  3359. 6 10
  3360. 5 0.65
  3361. 4 0
  3362. 8 11
  3363. 6 10
  3364. 5 0.33
  3365. 4 0
  3366. 8 12
  3367. 2 634 1 "{11}" 90 360 180
  3368. 0 6 "[39]"
  3369. 2 634 1 "{12}" 90 360 180
  3370. 0 6 "[37][4135]"
  3371. 2 635 1
  3372. 2 260 1
  3373. 2 254 1
  3374. 2 466 1 "Toa_Table" 4003
  3375. 0 6 "Table of Authorities"
  3376. 0 6 "[9]"
  3377. 16 PlaceInfo &0 &1 "{2}"
  3378. 6 3
  3379. 15
  3380. 9
  3381. 14 PlaceInfo
  3382. 0 39 034
  3383. 13
  3384. 8 6
  3385. 5 1
  3386. 21 7 [X]
  3387. 16 DocVar &7
  3388. 0 1046 &7
  3389. 13
  3390. 8 8
  3391. 5 1
  3392. 8 9
  3393. 6 8
  3394. 6 9
  3395. 18 2
  3396. 12 00000167
  3397. 10 00001511
  3398. 5 1
  3399. 6 9
  3400. 3 0
  3401. 8 9
  3402. 10 00000092
  3403. 5 1
  3404. 21 10 [X]
  3405. 6 9
  3406. 22 7
  3407. 16 ConvertCatToNumber [X]
  3408. 13
  3409. 8 11
  3410. 5 0
  3411. 16 StuffLongTempArray &0 &10 "{11}"
  3412. 13
  3413. 0 805 &5 [X]
  3414. 13
  3415. 18 0
  3416. 11 00000327
  3417. 10 00001498
  3418. 0 6 "[4135]"
  3419. 2 635 1
  3420. 6 9
  3421. 22 7
  3422. 8 12
  3423. 0 6 "{12}"
  3424. 2 260 1
  3425. 0 265 "CategoryStyle"
  3426. 13
  3427. 2 323 1 [X]
  3428. 0 6 "[40]"
  3429. 5 1
  3430. 8 13
  3431. 6 5
  3432. 6 13
  3433. 18 2
  3434. 12 00000529
  3435. 10 00001498
  3436. 5 1
  3437. 6 13
  3438. 3 0
  3439. 8 13
  3440. 10 00000451
  3441. 6 13
  3442. 22 10
  3443. 0 20 [X] 3 "\"
  3444. 13
  3445. 8 14
  3446. 6 13
  3447. 22 10
  3448. 8 12
  3449. 0 293
  3450. 13
  3451. 0 20 [X] 2 ","
  3452. 13
  3453. 16 Abs [X]
  3454. 13
  3455. 8 15
  3456. 0 1289 "GetBookMark{6}{12}{6}"
  3457. 13
  3458. 8 4
  3459. 2 572 1 "GetBookMark{6}{12}{6}"
  3460. 0 265 "CitationStyle"
  3461. 13
  3462. 2 323 1 [X]
  3463. 16 ApplyLeaders "{2}"
  3464. 0 293
  3465. 13
  3466. 0 20 [X] 2 ","
  3467. 13
  3468. 16 Abs [X]
  3469. 13
  3470. 8 16
  3471. 6 16
  3472. 6 15
  3473. 3 1
  3474. 8 17
  3475. 6 17
  3476. 5 279
  3477. 4 1
  3478. 8 18
  3479. 5 1
  3480. 21 19 [X]
  3481. 5 1
  3482. 0 1049 "{12}"
  3483. 13
  3484. 23 19
  3485. 16 StuffPageNumsTmpArray &1 &19 "{14}"
  3486. 13
  3487. 8 20
  3488. 0 6 "[9]"
  3489. 2 261 1
  3490. 0 265 "CitationStyle"
  3491. 13
  3492. 2 323 1 [X]
  3493. 0 293
  3494. 13
  3495. 0 20 [X] 2 ","
  3496. 13
  3497. 16 Abs [X]
  3498. 13
  3499. 8 21
  3500. 6 21
  3501. 6 16
  3502. 18 5
  3503. 11 00001236
  3504. 0 6 "[13]"
  3505. 0 265 "CitationStyle"
  3506. 13
  3507. 2 323 1 [X]
  3508. 0 293
  3509. 13
  3510. 0 20 [X] 2 ","
  3511. 13
  3512. 16 Abs [X]
  3513. 13
  3514. 8 21
  3515. 10 00001087
  3516. 5 1
  3517. 8 22
  3518. 6 20
  3519. 6 22
  3520. 18 2
  3521. 12 00001326
  3522. 10 00001411
  3523. 5 1
  3524. 6 22
  3525. 3 0
  3526. 8 22
  3527. 10 00001247
  3528. 6 22
  3529. 22 19
  3530. 8 23
  3531. 0 6 "{23}"
  3532. 6 22
  3533. 6 20
  3534. 18 5
  3535. 11 00001398
  3536. 0 6 ", "
  3537. 10 00001291
  3538. 16 ApplyLeaders "{2}"
  3539. 0 265 "CitationStyle"
  3540. 13
  3541. 2 323 1 [X]
  3542. 0 6 "[9]"
  3543. 10 00000494
  3544. 10 00000134
  3545. 6 3
  3546. 15
  3547. 9
  3548. 14 ConvertCatToNumber
  3549. 0 1310 "ToaCatCount"
  3550. 13
  3551. 8 2
  3552. 5 1
  3553. 8 3
  3554. 6 2
  3555. 6 3
  3556. 18 2
  3557. 12 00000139
  3558. 10 00000219
  3559. 5 1
  3560. 6 3
  3561. 3 0
  3562. 8 3
  3563. 10 00000064
  3564. 0 1310 "Cat{3}"
  3565. 13
  3566. 8 4
  3567. 6 4
  3568. 6 0
  3569. 18 0
  3570. 11 00000206
  3571. 6 3
  3572. 15
  3573. 9
  3574. 10 00000106
  3575. 6 1
  3576. 15
  3577. 9
  3578. 14 Abs
  3579. 6 0
  3580. 5 0
  3581. 18 5
  3582. 11 00000058
  3583. 6 0
  3584. 5 -1
  3585. 4 0
  3586. 8 0
  3587. 6 0
  3588. 8 1
  3589. 6 1
  3590. 15
  3591. 9
  3592. 14 StuffLongTempArray
  3593. 5 0
  3594. 8 5
  3595. 5 0
  3596. 8 6
  3597. 5 0
  3598. 0 1044 &0 "{2}" 5 "\" "{5}"
  3599. 13
  3600. 0 805 &4 [X]
  3601. 13
  3602. 18 1
  3603. 11 00000195
  3604. 6 6
  3605. 5 1
  3606. 3 0
  3607. 8 6
  3608. 6 4
  3609. 22 0
  3610. 0 1045 &1 [X] 1 3 "\"
  3611. 6 4
  3612. 8 5
  3613. 10 00000043
  3614. 5 1
  3615. 22 1
  3616. 0 14 [X]
  3617. 13
  3618. 5 1
  3619. 18 5
  3620. 11 00000267
  3621. 5 0
  3622. 8 3
  3623. 10 00000287
  3624. 0 1046 &1
  3625. 13
  3626. 8 3
  3627. 6 3
  3628. 15
  3629. 9
  3630. 14 StuffPageNumsTmpArray
  3631. 5 0
  3632. 8 6
  3633. 5 0
  3634. 8 7
  3635. 5 0
  3636. 0 1044 &0 "{2}" 3 "\" "{6}"
  3637. 13
  3638. 0 805 &4 [X]
  3639. 13
  3640. 18 1
  3641. 11 00000252
  3642. 6 7
  3643. 5 1
  3644. 3 0
  3645. 8 7
  3646. 5 0
  3647. 6 4
  3648. 22 0
  3649. 0 1049 [X]
  3650. 13
  3651. 0 805 &5 [X]
  3652. 13
  3653. 18 1
  3654. 11 00000229
  3655. 0 1045 &1 "{5}" 0
  3656. 6 4
  3657. 8 6
  3658. 10 00000046
  3659. 0 1046 &1
  3660. 13
  3661. 8 3
  3662. 6 3
  3663. 15
  3664. 9
  3665. 14 GetLayout
  3666. 0 1285 363
  3667. 13
  3668. 8 5
  3669. 6 5
  3670. 21 6 [X]
  3671. 0 1286 363 &6
  3672. 0 1282 &1 &2 &3 &4
  3673. 6 1
  3674. 8 7
  3675. 6 2
  3676. 8 8
  3677. 5 1
  3678. 22 6
  3679. 8 9
  3680. 5 3
  3681. 22 6
  3682. 8 10
  3683. 5 7
  3684. 22 6
  3685. 8 11
  3686. 6 8
  3687. 6 9
  3688. 3 1
  3689. 6 10
  3690. 3 1
  3691. 8 12
  3692. 6 12
  3693. 8 0
  3694. 6 0
  3695. 15
  3696. 9
  3697. 14 ApplyLeaders
  3698. 7 "DotLeaders"
  3699. 6 0
  3700. 18 0
  3701. 11 00000079
  3702. 2 639 1
  3703. 10 00000192
  3704. 7 "HyphLeaders"
  3705. 6 0
  3706. 18 0
  3707. 11 00000142
  3708. 2 640 1
  3709. 10 00000192
  3710. 7 "LineLeaders"
  3711. 6 0
  3712. 18 0
  3713. 11 00000192
  3714. 2 641 1
  3715. 6 1
  3716. 15
  3717. 9
  3718. 14 GetNumberRows
  3719. 5 1
  3720. 21 3 [X]
  3721. 16 DocVar &3
  3722. 0 1046 &3
  3723. 13
  3724. 8 4
  3725. 5 1
  3726. 8 5
  3727. 6 4
  3728. 6 5
  3729. 18 2
  3730. 12 00000152
  3731. 10 00000354
  3732. 5 1
  3733. 6 5
  3734. 3 0
  3735. 8 5
  3736. 10 00000077
  3737. 5 1
  3738. 21 6 [X]
  3739. 6 5
  3740. 22 3
  3741. 16 ConvertCatToNumber [X]
  3742. 13
  3743. 8 7
  3744. 5 0
  3745. 16 StuffLongTempArray &0 &6 "{7}"
  3746. 13
  3747. 0 805 &2 [X]
  3748. 13
  3749. 18 1
  3750. 11 00000341
  3751. 6 5
  3752. 22 3
  3753. 8 8
  3754. 6 9
  3755. 6 2
  3756. 3 0
  3757. 5 1
  3758. 3 0
  3759. 8 9
  3760. 10 00000119
  3761. 6 9
  3762. 8 1
  3763. 6 1
  3764. 15
  3765. 9
  3766. 14 Leaders
  3767. 0 42 "{0}" 9501
  3768. 13
  3769. 8 4
  3770. 0 806 "{4}" 1
  3771. 13
  3772. 7 "."
  3773. 18 0
  3774. 11 00000170
  3775. 0 43 "{0}" 1000 "..................................................................."
  3776. 0 806 "{4}" 1
  3777. 13
  3778. 7 "-"
  3779. 18 0
  3780. 11 00000362
  3781. 0 43 "{0}" 1000 "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -"
  3782. 0 806 "{4}" 1
  3783. 13
  3784. 7 "_"
  3785. 18 0
  3786. 11 00000453
  3787. 0 43 "{0}" 1000 "__________________________"
  3788. 0 806 "{4}" 1
  3789. 13
  3790. 7 "N"
  3791. 18 0
  3792. 11 00000581
  3793. 0 43 "{0}" 1000 "                                                               "
  3794. 6 3
  3795. 15
  3796. 9
  3797. 14 CreateIni
  3798. 0 287 "TOA" "Cat1" "Constitutional Provisions" "AmiPro2.INI"
  3799. 0 287 "TOA" "Cat2" "Cases" "AmiPro2.INI"
  3800. 0 287 "TOA" "Cat3" "Rules and Regulations" "AmiPro2.INI"
  3801. 0 287 "TOA" "Cat4" "Statutes" "AmiPro2.INI"
  3802. 0 287 "TOA" "Cat5" "Treaties" "AmiPro2.INI"
  3803. 0 287 "TOA" "Cat6" "OtherAuthorities" "AmiPro2.INI"
  3804. 0 287 "TOA" "Cat7" "None" "AmiPro2.INI"
  3805. 6 0
  3806. 15
  3807. 9
  3808. 14 GetIni
  3809. 5 1
  3810. 8 3
  3811. 7 ""
  3812. 0 286 "TOA" "Cat{3}" "AmiPro2.INI"
  3813. 13
  3814. 0 805 &2 [X]
  3815. 13
  3816. 18 1
  3817. 11 00000156
  3818. 0 1045 &0 "{2}" 0
  3819. 6 3
  3820. 5 1
  3821. 3 0
  3822. 8 3
  3823. 10 00000021
  3824. 6 1
  3825. 15
  3826. 9
  3827. 14 DocVar
  3828. 0 1046 &0
  3829. 13
  3830. 8 3
  3831. 5 1
  3832. 8 4
  3833. 7 ""
  3834. 0 1310 "Cat{4}"
  3835. 13
  3836. 0 805 &2 [X]
  3837. 13
  3838. 18 1
  3839. 11 00000157
  3840. 0 1045 &0 "{2}" 0
  3841. 6 4
  3842. 5 1
  3843. 3 0
  3844. 8 4
  3845. 10 00000041
  3846. 6 1
  3847. 15
  3848. 9
  3849. 14 CleanTheName
  3850. 5 0
  3851. 8 3
  3852. 6 0
  3853. 8 4
  3854. 0 39 34
  3855. 13
  3856. 8 5
  3857. 5 0
  3858. 0 808 "{3}" "{4}" "{5}"
  3859. 13
  3860. 0 805 &2 [X]
  3861. 13
  3862. 18 1
  3863. 11 00000296
  3864. 6 2
  3865. 5 1
  3866. 3 1
  3867. 0 806 "{4}" [X]
  3868. 13
  3869. 8 6
  3870. 0 14 "{4}"
  3871. 13
  3872. 6 2
  3873. 3 1
  3874. 0 807 "{4}" [X]
  3875. 13
  3876. 8 7
  3877. 0 39 39
  3878. 13
  3879. 0 16 "{6}" [X] "{7}"
  3880. 13
  3881. 8 4
  3882. 6 2
  3883. 5 1
  3884. 3 0
  3885. 8 3
  3886. 10 00000055
  3887. 0 806 "{4}" 30
  3888. 13
  3889. 8 4
  3890. 6 4
  3891. 8 1
  3892. 6 1
  3893. 15
  3894. 9
  3895. 14 HelpFunction
  3896. 0 32 2
  3897. 0 265 "HelpPanel"
  3898. 13
  3899. 8 2
  3900. 0 284 "user,FindWindow,HCC" "AmiProWndA" 0
  3901. 13
  3902. 8 3
  3903. 0 798
  3904. 13
  3905. 0 16 [X] "amipro.hlp"
  3906. 13
  3907. 8 4
  3908. 0 284 "user,WinHelp,HHCHJ" "{3}" "{4}" 1 "{2}"
  3909. 6 1
  3910. 15
  3911. 9
  3912. DIALOG MarkLong
  3913. -2134376448 10 40 46 223 75 "" "AmiDialog" "Mark TOA Long Entry" 
  3914. FONT 8 "Helv" 
  3915. 181 2 40 14 1 1342242817 "button" "OK" 0 
  3916. 181 18 40 14 2 1342242816 "button" "Cancel" 0 
  3917. 5 4 46 10 1000 1342177280 "static" "&Short name:" 0 
  3918. 48 2 122 12 8000 1350631424 "edit" "" 0 
  3919. 5 19 38 10 1001 1342177280 "static" "&Category:" 0 
  3920. 49 18 105 56 9500 1344339971 "combobox" "" 0 
  3921. 163 40 58 14 24 1342242816 "button" "&New Category..." 0 
  3922. 163 56 58 14 3 1342242816 "button" "&Mark Same..." 0 
  3923. 5 33 149 39 20 1342242823 "button" "Long entry text" 0 
  3924. 10 43 136 27 1002 1342177280 "static" "" 0 
  3925. DIALOG FindShort
  3926. -2134376448 6 44 72 240 44 "" "AmiDialog" "Find TOA Short Entry" 
  3927. FONT 8 "Helv" 
  3928. 196 2 40 14 21 1342242816 "button" "Find &Next" 0 
  3929. 128 2 62 14 22 1342242816 "button" "&Mark && Find Next" 0 
  3930. 196 18 40 14 3 1342242816 "button" "Cancel" 0 
  3931. 2 4 34 10 1000 1342177280 "static" "Finding:" 0 
  3932. 6 14 120 22 1001 1342177280 "static" "" 0 
  3933. 128 18 62 14 24 1342242816 "button" "Mark &All" 0 
  3934. DIALOG searchfor
  3935. -2134376448 6 49 61 231 58 "" "" "Specify TOA Search" 
  3936. FONT 8 "Helv" 
  3937. 187 2 40 14 1 1342242817 "button" "OK" 0 
  3938. 187 18 40 14 2 1342242816 "button" "Cancel" 0 
  3939. 46 4 132 12 8000 1350631424 "edit" "" 0 
  3940. 4 6 38 10 1000 1342177280 "static" "&Search for:" 0 
  3941. 8 32 167 18 1002 1342177280 "static" "" 0 
  3942. 4 20 175 34 20 1342242823 "button" "Mark as TOA short entry" 0 
  3943. DIALOG SHORT
  3944. -2134376448 5 45 41 208 60 "" "AmiDialog" "Mark TOA Short Entry" 
  3945. FONT 8 "Helv" 
  3946. 164 2 40 14 1 1342242817 "button" "OK" 0 
  3947. 164 18 40 14 2 1342242816 "button" "Cancel" 0 
  3948. 5 4 70 10 1000 1342242816 "static" "&Long entries:" 0 
  3949. 5 14 154 45 9500 1344340227 "combobox" "" 0 
  3950. 155 35 49 14 3 1342373888 "button" "Mark &Same..." 0 
  3951. DIALOG Goto
  3952. -2134376448 9 59 32 209 70 "" "AmiDialog" "Go To TOA Entry" 
  3953. FONT 8 "Helv" 
  3954. 165 3 40 14 31 1342373889 "button" "&Go To" 0 
  3955. 165 19 40 14 2 1342242816 "button" "Cancel" 0 
  3956. 165 35 40 14 1 1342242816 "button" "&Remove" 0 
  3957. 7 4 65 8 1000 1342177280 "static" "Long &entries:" 0 
  3958. 6 15 150 55 9501 1344340227 "combobox" "" 0 
  3959. 6 30 84 10 22 1342242825 "button" "&Long citation on page :" 0 
  3960. 97 31 16 10 1003 1342177280 "static" "" 0 
  3961. 6 43 84 12 21 1342242825 "button" "&Short citation on page :" 0 
  3962. 97 42 25 43 9500 1344339971 "combobox" "" 0 
  3963. DIALOG toagen
  3964. -2134376448 12 58 39 201 70 "" "AmiDialog" "Generate Table of Authorities" 
  3965. FONT 8 "Helv" 
  3966. 157 4 40 14 1 1342242817 "button" "OK" 0 
  3967. 157 20 40 14 2 1342242816 "button" "Cancel" 0 
  3968. 10 50 32 10 1001 1342177280 "static" "Leaders :" 0 
  3969. 44 47 33 41 9501 1344274435 "combobox" "" 0 
  3970. 82 50 74 10 1002 1342177280 "static" "Marbury v. Madison" 0 
  3971. 5 3 147 41 21 1342308359 "button" "Select Styles" 0 
  3972. 10 16 65 10 1003 1342177280 "static" "Category Headings:" 0 
  3973. 10 28 57 10 1004 1342177280 "static" "References:" 0 
  3974. 80 28 67 29 9502 1344274435 "combobox" "" 0 
  3975. 80 14 67 40 9503 1344274435 "combobox" "" 0 
  3976. 151 50 37 10 1000 1342177280 "static" "" 0 
  3977. 188 50 15 10 1005 1342177280 "static" "1" 0 
  3978. DIALOG GenOptions
  3979. -2134376448 10 50 58 170 100 "" "" "Generate TOA Options" 
  3980. FONT 8 "Helv" 
  3981. 124 4 40 14 1 1342242817 "button" "OK" 0 
  3982. 124 20 40 14 2 1342242816 "button" "Cancel" 0 
  3983. 4 38 114 46 20 1342242823 "button" "Select Styles" 0 
  3984. 8 52 36 10 1000 1342177280 "static" "Categories" 0 
  3985. 6 68 40 10 1001 1342177280 "static" "References" 0 
  3986. 4 0 114 36 27 1342242823 "button" "Break Page " 0 
  3987. 8 10 84 12 28 1342242819 "button" "Before Table" 0 
  3988. 8 22 66 10 29 1342242819 "button" "After Table" 0 
  3989. 48 68 66 30 9501 1344274435 "combobox" "" 0 
  3990. 48 52 66 40 9502 1344274435 "combobox" "" 0 
  3991. DIALOG NewCat
  3992. -2134376448 5 57 48 190 51 "" "AmiDialog" "Add Category" 
  3993. FONT 8 "Helv" 
  3994. 8 17 129 12 8000 1350631552 "edit" "" 0 
  3995. 146 3 40 14 1 1342373889 "button" "Add" 0 
  3996. 146 19 40 14 2 1342373888 "button" "Cancel" 0 
  3997. 9 4 71 10 1000 1342177280 "static" "&New category name:" 0 
  3998. 9 33 123 12 20 1342242819 "button" "&Make category document specific" 0 
  3999. 14 DebugArray
  4000. 0 1046 &0
  4001. 13
  4002. 8 2
  4003. 5 1
  4004. 8 3
  4005. 6 2
  4006. 6 3
  4007. 18 2
  4008. 12 00000120
  4009. 10 00000169
  4010. 5 1
  4011. 6 3
  4012. 3 0
  4013. 8 3
  4014. 10 00000045
  4015. 6 2
  4016. 22 0
  4017. 8 4
  4018. 0 3 "({3}) = {4}\"
  4019. 10 00000087
  4020. 6 1
  4021. 15
  4022. 9
  4023. 00044302
  4024.