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