home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 May / Pcwk5b98.iso / DISK1 / MACROS.CMZ / FRAMGLOS.SMM < prev    next >
INI File  |  1993-03-14  |  35KB  |  1,785 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     HP LaserJet IIISi PostScript
  13. [port]
  14.     LPT2:
  15. [lang]
  16.     1
  17. [desc]
  18.     Zapami<\j>tanie lub odtworzenie ramki
  19.     Lotus WPD Technical Support
  20.     Advanced
  21.     InsertMenuItem
  22.     autorun
  23.     723355881
  24.     165
  25.     697392920
  26.     4143
  27.     8
  28.     1574
  29.     13141
  30.     33
  31.     33
  32.     
  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. [tag]
  54.     Body Text
  55.     2
  56.     [fnt]
  57.         Times New Roman
  58.         200
  59.         0
  60.         49152
  61.     [algn]
  62.         1
  63.         1
  64.         0
  65.         0
  66.         0
  67.     [spc]
  68.         33
  69.         273
  70.         1
  71.         0
  72.         0
  73.         1
  74.         100
  75.     [brk]
  76.         4
  77.     [line]
  78.         8
  79.         0
  80.         1
  81.         0
  82.         1
  83.         1
  84.         1
  85.         10
  86.         10
  87.         1
  88.     [spec]
  89.         0
  90.         0
  91.         
  92.         0
  93.         1
  94.         1
  95.         0
  96.         0
  97.         0
  98.         0
  99.     [nfmt]
  100.         280
  101.         1
  102.         2
  103.         .
  104.         ,
  105.         $
  106.     Body Text
  107.     0
  108.     0
  109. [tag]
  110.     dialogbox
  111.     3
  112.     [fnt]
  113.         Times New Roman
  114.         200
  115.         0
  116.         49152
  117.     [algn]
  118.         1
  119.         1
  120.         0
  121.         0
  122.         0
  123.     [spc]
  124.         33
  125.         273
  126.         1
  127.         0
  128.         0
  129.         1
  130.         100
  131.     [brk]
  132.         36
  133.     [line]
  134.         8
  135.         0
  136.         1
  137.         0
  138.         1
  139.         1
  140.         1
  141.         10
  142.         10
  143.         1
  144.     [spec]
  145.         0
  146.         0
  147.         
  148.         0
  149.         1
  150.         1
  151.         0
  152.         0
  153.         0
  154.         0
  155.     [nfmt]
  156.         280
  157.         1
  158.         2
  159.         .
  160.         ,
  161.         $
  162.     dialogbox
  163.     12
  164.     1
  165.     720
  166.     1
  167.     1135
  168.     1
  169.     1440
  170.     1
  171.     1824
  172.     1
  173.     2566
  174.     1
  175.     2880
  176.     1
  177.     3254
  178.     1
  179.     3643
  180.     1
  181.     3979
  182.     1
  183.     4367
  184.     1
  185.     5815
  186.     32771
  187.     11430
  188.     0
  189. [lay]
  190.     Standard
  191.     519
  192.     [rght]
  193.         15840
  194.         12240
  195.         1
  196.         331
  197.         1080
  198.         1
  199.         1440
  200.         331
  201.         4
  202.         1
  203.         0
  204.         3
  205.         24
  206.         2
  207.         1
  208.         331
  209.         11909
  210.         5
  211.         1
  212.         720
  213.         1
  214.         1440
  215.         1
  216.         2160
  217.         1
  218.         2880
  219.         32771
  220.         11430
  221.     [hrght]
  222.     [lyfrm]
  223.         1
  224.         11200
  225.         0
  226.         0
  227.         12240
  228.         1440
  229.         0
  230.         1
  231.         3
  232.         1 0 0 0 0 0 0
  233.         0
  234.         0
  235.         1
  236.     [frmlay]
  237.         1440
  238.         12240
  239.         1
  240.         360
  241.         0
  242.         1
  243.         360
  244.         360
  245.         0
  246.         1
  247.         0
  248.         1
  249.         1
  250.         0
  251.         1
  252.         360
  253.         11880
  254.         1
  255.         3
  256.         9360
  257.     [txt]
  258. <+@><:f240,,>Frame Glossary Version 2<:f><:f240,,>.2<:f>
  259.  
  260. <+@><:s><:f160,,>by
  261.  
  262. <+@><:f160,,>Brian Zwaagstra             <:f160,2Times,>                                                                Modified by Marek G. B</y>czek from UNICORN Poland<:f160,,><:f160,,> 
  263. <:f><:f160,,>
  264.  
  265. <+@><:f160,,>Technical Support Represenative<:f>
  266.  
  267. <+@><:f160,,>Lotus Word Processing Devision<:f>
  268.  
  269. <+B>
  270.  
  271. >
  272.     [frght]
  273.     [lyfrm]
  274.         1
  275.         13248
  276.         0
  277.         14760
  278.         12240
  279.         15840
  280.         0
  281.         1
  282.         3
  283.         1 0 0 0 0 0 0
  284.         0
  285.         0
  286.         2
  287.     [frmlay]
  288.         15840
  289.         12240
  290.         1
  291.         1440
  292.         576
  293.         1
  294.         14832
  295.         360
  296.         0
  297.         1
  298.         0
  299.         1
  300.         1
  301.         0
  302.         1
  303.         1440
  304.         11880
  305.         2
  306.         2
  307.         4680
  308.         3
  309.         9360
  310.     [txt]
  311. <:R1,2,2,4680,3,10440,>    Release <+,>v2<-,><+,>.2<-,>    June 1st, 1992    Page <:P10,0,> out 
  312. <+,>o<-,>f <:X3,16384;NumPages>7<:X~3,16384;NumPages>
  313.  
  314. >
  315. [elay]
  316. [l1]
  317.     0
  318. [pg]
  319.     8
  320.     53 0 16 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
  321.     107 0 6 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
  322.     162 0 23 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
  323.     216 0 55 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
  324.     268 0 14 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
  325.     321 0 81 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
  326.     374 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
  327.     380 0 18 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  328. [edoc]
  329. <:#245,11578><-!><+!>Define IsOKToRun(menuname) GetInfo(217, 24,  <-!><+!>%1<-!><+!>)
  330.  
  331. <:#245,11578><+!>
  332.  
  333. <:#245,11578><+!>FUNCTION FRAMGLOS()
  334.  
  335. <:#240,11578>IF IsNewWave()
  336.  
  337. <:#240,11578>    Message("Makroprogram nie dzia</s>a, je</\>li jest uruchomiony HP NewWave.")
  338.  
  339. <:#240,11578>    Exit Function
  340.  
  341. <:#240,11578>ENDIF
  342.  
  343. <:#245,11578><+!>Init:<-!>
  344.  
  345. <:#240,11578>    FileChanged(1,1)
  346.  
  347. <:#250,11578>    Curdoc=GetOpenFileCount()    <+">'Test to see if a document is open. If not will have to exit macro.<-">
  348.  
  349. <:#240,11578>    If CurDoc= 0
  350.  
  351.         Message("Musisz otworzy<\f> dokument, aby makroprogram dzia</s>a</s> prawid</s>owo.")
  352.  
  353. <:#240,11578>        Exit Function
  354.  
  355. <:#240,11578>    Endif
  356.  
  357. <:#250,11578>    ONERROR Tost        <+">    'If<-"><+"> error this macro will reset original conditions.<-">
  358.  
  359. <:#250,11578>    Macpath = GetMacPath$ ()    <+">'Obtaines the default macro path in which<-"><+"> this macro should be stored<-">.
  360.  
  361. <:#250,11578>    Docpath= GetmacPath$()    <+">    'Obtaines the default Macro<-"><+"> path in which<-"><+"> the glossary data file(s) is stored.<-">
  362.  
  363.     Icon=DeleteMenuItem(1,"&Ramka",  "Glos&ariusz Ramek...")    <+">'Clear the menu if macro had already been run.<-">
  364.  
  365.     InsertMenuItem(1,"&Ramka", 7, "Glos&ariusz Ramek...", "{Macpath}framglos.smm!Body()", "Zapami<\j>tanie lub odtworzenie ramki.")
  366.  
  367. <:#240,11578>    If Icon= 1
  368.  
  369. <:#240,11578>        Call Body()
  370.  
  371. <:#240,11578>        Exit Function
  372.  
  373.     ElseIf StatusBarMsg("Instaluj<\j> Glosariusz Ramek.")
  374.  
  375. <:#240,11578>    EndIf
  376.  
  377. <:#250,11578>    Whatdatafile=GetprofileString$("datafilesection", "datafilentry" , "AMIPRO2.INI")    <+">'Reads <[>datafile<-"><+">] section in Amipro2.ini.<-">
  378.  
  379. <:#240,11578>    Inientries=GetprofileString$("{Whatdatafile}", "numberoframes" , "AMIPRO2.INI") 
  380.  
  381. <:#250,11578><+!>Firstime:<-!>                <+">'This section sets up the Amipro2.ini and framglos.sam default data file.<-">
  382.  
  383. <:#240,11578>    If Whatdatafile=""
  384.  
  385. <:#250,11578>        Hourglass(1)        <+">'Turns hour glass on.<-">
  386.  
  387. <:#250,11578>        WriteProfileString("datafilelistsection", "file1", "Framglos.sam", "Amipro2.ini")    <+">'Adds entries to Amipro2.ini<-"><+">.<-">
  388.  
  389. <:#250,11578>        WriteProfileString("datafilesection", "datafilentry", "Framglos.sam" , "AMIPRO2.INI")    <+">'Adds entries to Amipro2.ini<-"><+">.<-">
  390.  
  391. <:#250,11578>        WriteProfileString("datafilelistsection", "filenumber", "1" , "AMIPRO2.INI")    <+">'Adds entries to Amipro2.ini<-"><+">.<-">
  392.  
  393. <:#250,11578>        'WriteProfileString("framglos.sam", "numberoframes", "1" , "AMIPRO2.INI")    <+">'Adds entries to Amipro2.ini<-"><+">.<-">
  394.  
  395. <:#250,11578>        New("_basic.sty", 0,0)    <+">'Created new file for<-"><+"> use as data file.<-">
  396.  
  397. <:#240,11578>        File="framglos.sam"
  398.  
  399. <:#250,11578>        error=Saveas("{Docpath}{File}",32,"Data file for framglos.smm","")    <+">'Saves file as Framglos.sam<-">
  400.  
  401. <:s><:#240,11578>        If error != 1
  402.  
  403. <:s><:#240,11578>            Beep()
  404.  
  405.             Message("W czasie tworzenia dokumentu pojawi</s> si<\j> b</s></y>d.")    <+">'Error Rutine.<-">
  406.  
  407. <:#240,11578>        EndIf
  408.  
  409. <:#250,11578>        FileClose()        <+">'Close newly created file<-">
  410.  
  411. <:#240,11578>        DosSetFileAttr("{Docpath}{File}",1)
  412.  
  413. <:#250,11578>                <+">'Enables screen redraw<-">
  414.  
  415. <:#250,11578>        Hourglass(0)        <+">'Enables screen redraw.<-">
  416.  
  417. <:#240,11578>    EndIf
  418.  
  419. <:#250,11578>    Call Max()            <+">'Runs the routine that maximizes the current<-"><+"> document<-"><+"> if necessary<-">
  420.  
  421.     StatusBarMsg("Glosariusz Ramek zosta</s> zainstalowany.")    <+">'sets ami pro status Bar<-">
  422.  
  423. <:#240,11578>    Pause(15)
  424.  
  425. <:#250,11578>    StatusBarMsg("")        <+">'REsets the ami pro status bar<-">
  426.  
  427. <:s><:#240,11578>    Exit Function
  428.  
  429. <:#245,11578><+!>Tost:<-!>
  430.  
  431. <:s><:#250,11578>    Call Bomb()            <+">'Error Routine<-">
  432.  
  433. <:s><:#245,11578><+!>END FUNCTION<-!>
  434.  
  435. <:s><:#240,11578>
  436.  
  437. <:s><:#245,11578><+!>FUNCTION BODY()<-!>
  438.  
  439. <:#240,11578>    ONERROR Tost
  440.  
  441. <:#240,11578>    FileChanged(1,1)
  442.  
  443. <:#240,11578>    Curdoc=GetOpenFileCount()
  444.  
  445. <:#240,11578>    If CurDoc= 0
  446.  
  447.         Message("Musisz otworzy<\f> dokument, aby makroprogram dzia</s>a</s> prawid</s>owo.")
  448.  
  449. <:#240,11578>        Exit Function
  450.  
  451. <:#240,11578>    Endif
  452.  
  453. <:f,2Times New Roman,>    Mode = GetMode()        <+"> 'What mode is the screen in?<-">
  454.  
  455. <:f,2Times New Roman,>    IF Mode != 1
  456.  
  457. <:f,2Times New Roman,>        LayoutMode()        <+"> 'If not Layout Mode, change it to be Layout.<-">
  458.  
  459. <:f,2Times New Roman,>    ENDIF<:f>
  460.  
  461. <+!>Init:<-!>
  462.  
  463.     Docpath= GetmacPath$()    <+">    'Obtaines the default document path in which<-"><+"> the glossary data file is stored.<-">
  464.  
  465.     Whatdatafile=GetprofileString$("datafilesection", "datafilentry" , "AMIPRO2.INI")    <+">'Reads <[>datafile<-"><+">] section in Amipro2.ini.<-">
  466.  
  467.     Inientries=GetprofileString$("{Whatdatafile}", "numberoframes" , "AMIPRO2.INI")    <+">'Reads <[>framglos.sam<-"><+">] section in Amipro2.ini.<-">
  468.  
  469.     For x=1 to Inientries        <+">'This section skips deleted entries.<-">
  470.  
  471.         Namentry=(GetprofileString$("{Whatdatafile}", "name{x}" , "AMIPRO2.INI"))    <+">'In addition<-"><+"> it writes valid entries<-"><+"> to<-">
  472.  
  473.         If {Namentry} != "DELETED"    <+">'the display dialog box.<-">
  474.  
  475.             FillEdit(9000, {Namentry})    <+">'Puts the name of the frame<-"><+"> into the dialog box<-">
  476.  
  477.         EndIf
  478.  
  479. <:s>    Next
  480.  
  481.         Filledit(1002,UCase$({Whatdatafile}))    <+">'Puts the name of the data file into the dialog box.<-">
  482.  
  483.     DlgKeyInterrupt(112, "{Macpath}framglos.smm!DisplayHelp")
  484.  
  485.     Displayboxresult=DialogBox(".","<++>Display<-+>")    <+">'Displays main<-"><+"> option dialog box.<-">
  486.  
  487. <:s><+!>Body:<-!>
  488.  
  489.     If Displayboxresult=1         <+">'Return value of 1<-"><+"> from dialog box  signifies retrieve frame and begins loop.<-">
  490.  
  491.         Hourglass(1)
  492.  
  493.         DosSetFileAttr("{Docpath}{Whatdatafile}", 32)    <+">'Changes data file form read only to 'not attribute'.<-">
  494.  
  495.         Fieldin=GetDialogField$(8000)    <+">'Stores the name of the frame to be retrieved<-">
  496.  
  497.         If Fieldin= ""        <+">'Error routine if<-"><+"> no frame is selected.<-">
  498.  
  499. <:s>            Beep()
  500.  
  501.             Message("Wpisz nazw<\j> ramki.")
  502.  
  503.             Goto Init
  504.  
  505. <:s>            Exit Function
  506.  
  507.         EndIf
  508.  
  509.         Darkmode(1)
  510.  
  511.         FileOpen("{Docpath}{Whatdatafile}",1,"")    <+">'Opens the data file<-">
  512.  
  513.         SelectFrameByName({Fieldin})    <+">'Selects <-"><+">the frame to be retrieved<-">
  514.  
  515. <:s>        Copy()
  516.  
  517.         FileClose()
  518.  
  519.         DosSetFileAttr("{Docpath}{Whatdatafile}", 1)    <+">'Chnage data file to read only.<-">
  520.  
  521. <:s>        Paste()
  522.  
  523.         Darkmode(0)
  524.  
  525.         Hourglass(0)
  526.  
  527.         Exit Function
  528.  
  529.     ElseIf Displayboxresult=3 <+">    'Return value of 3<-"><+"> from dialog box  signifies save<-"><+"> and begins loop.<-">
  530.  
  531.         Isframe=IsFrameSelected()
  532.  
  533.         If isframe !=1
  534.  
  535.             Beep()
  536.  
  537.             Message("Musisz zaznaczy<\f> ramk<\j>, kt<\s>r</y> chcesz zapami<\j>ta<\f>..")
  538.  
  539.             Exit Function
  540.  
  541. <:#240,11578>        Else
  542.  
  543. <:#245,11578>            Result =<+!> IsOKToRun<-!>(FontChange)
  544.  
  545. <:#240,11578>            If  Result=1
  546.  
  547. <:#240,11578>                Beep()
  548.  
  549.                 Message("To jest ramka tekstowa.")
  550.  
  551. <:#240,11578>                Exit Function
  552.  
  553. <:#240,11578>            EndIf
  554.  
  555. <:#240,11578>        Endif
  556.  
  557. <:#240,11578>        Hourglass(1)
  558.  
  559. <:#240,11578>        Fieldad=GetDialogField$(8000)
  560.  
  561. <:#240,11578>            For x=1 to Inientries
  562.  
  563. <:#240,11578>            Namentry=GetprofileString$("{Whatdatafile}", "name{x}" , "AMIPRO2.INI")
  564.  
  565.             If Fieldad=Namentry    <+">'Error routine for duplicate frame names.<-">
  566.  
  567. <:s>                Beep()
  568.  
  569.                 Message("Ta nazwa jest ju</> u</>ywana, wpisz inn</y> nazw<\j>.")
  570.  
  571.             Goto init    <+">'Loop back to beginning
  572.  
  573.             EndIf
  574.  
  575. <:s>            Next
  576.  
  577.             If Fieldad= ""    <+">'<-"><+">Error routine fo<-"><+">r no frame name entered.<-">
  578.  
  579. <:s>                Beep()
  580.  
  581.                 Message("Wpisz nazw<\j> ramki.")
  582.  
  583.                 Goto Init
  584.  
  585.             EndIf
  586.  
  587.         Copy()
  588.  
  589.         DosSetFileAttr("{Docpath}{Whatdatafile}", 32)
  590.  
  591.         Darkmode(1)
  592.  
  593.         FileOpen("{Docpath}{Whatdatafile}",1,"")
  594.  
  595. <:s>        Paste()
  596.  
  597.         MarkBookMark(Fieldad, AddBookMark)    <+">'Tags pasted frame as a book mark.<-">
  598.  
  599. <:s>        Save()
  600.  
  601.         FileClose()
  602.  
  603.         Darkmode(0)
  604.  
  605.         Add1=inientries + 1    <+">'Increment frame counter one to account for new frame<-">
  606.  
  607.         WriteProfileString("{Whatdatafile}", "numberoframes", Add1 , "AMIPRO2.INI")    <+">'makes this change<-"><+"> in<-"><+"> Amipro2.ini<-"><+">.<-">
  608.  
  609.         WriteProfileString("{Whatdatafile}", "name{Add1}" , fieldad , "AMIPRO2.INI")    <+">'<-"><+">'Adds frame name<-"><+"> to Amipro2.ini<-"><+">.<-">
  610.  
  611.         DosSetFileAttr("{Whatdatafile}", 1)
  612.  
  613.         Hourglass(0)
  614.  
  615.         Exit Function
  616.  
  617.     ElseIf    Displayboxresult =4    <+">'Return value of 4<-"><+"> from dialog box  signifies deletion<-"><+"> and begins loop.<-">
  618.  
  619.         Hourglass(1)
  620.  
  621.         Fielddel=GetDialogField$(8000)
  622.  
  623.             If Fielddel= ""    <+">'<-"><+">Error routine fo<-"><+">r<-"><+"> no frame name entered.<-">
  624.  
  625. <:s>                Beep()
  626.  
  627.                 Message("Wpisz nazw<\j> ramki, kt<\s>r</y> chcesz usun</y><\f>.")
  628.  
  629.                 Goto Init
  630.  
  631. <:s>                Exit Function
  632.  
  633.             EndIf
  634.  
  635.         DosSetFileAttr("{Docpath}{Whatdatafile}", 32)
  636.  
  637.         Darkmode(1)
  638.  
  639.         FileOpen("{Docpath}{Whatdatafile}",1,"")
  640.  
  641.         SelectFrameByName({Fielddel})    <+">'Selects the frame to be deleted<-">
  642.  
  643. <:s>        Cut()
  644.  
  645. <:s>        Save()
  646.  
  647.         FileClose()
  648.  
  649.         Darkmode(0)
  650.  
  651. <:#240,11578>        For x=1 to Inientries
  652.  
  653. <:#240,11578>        Namentry=GetprofileString$("{Whatdatafile}", "name{x}" , "AMIPRO2.INI")
  654.  
  655. <:#240,11578>            If Namentry=Fielddel
  656.  
  657. <:#240,11578>                WriteProfileString("{Whatdatafile}", "name{x}", "DELETED", "AMIPRO2.INI")
  658.  
  659.             EndIf        <+">'Tags the frame as being deleted.<-">
  660.  
  661. <:s>        Next
  662.  
  663.         DosSetFileAttr("{Docpath}{Whatdatafile}", 1)
  664.  
  665.         Hourglass(0)
  666.  
  667. <:s>        Exit Function
  668.  
  669.     ElseIf  Displayboxresult=5<+">     '<-"><+">5<-"><+"> Signifies Cancel. Before ending macro will reset to original condition.<-">
  670.  
  671.         DosSetFileAttr("{Docpath}{Whatdatafile}", 1)
  672.  
  673. <:s>        Call Max()
  674.  
  675. <:s><:f,2Times,>        IF Mode = 48
  676.  
  677. <:f,2Times,>            OutlineMode()    <:f><+"> ' To change back to original view.<-">
  678.  
  679. <:f,2Times,>        ElseIf<:f><:f,2Times,> Mode = 16
  680.  
  681. <:f,2Times,>            DraftMode()
  682.  
  683. <:f,2Times,>        EndIf<:f>
  684.  
  685.         Hourglass(0)
  686.  
  687. <:s>        Exit Function
  688.  
  689.     ElseIf Displayboxresult=6    <+">     '7<-"><+"> Signifies Modify<-"><+"> Data File<-"><+">.<-">
  690.  
  691. <:s>        Call Manipulation()    <+">'Calls the routine that does this computation. Is it complex.<-">
  692.  
  693.         Goto Init
  694.  
  695. <:s>        Exit Function
  696.  
  697.     EndIf
  698.  
  699. <:s>    <+!>Exit Function<-!>
  700.  
  701. <+!>Tost:<-!>                    <+">'Error Routine.<-">
  702.  
  703. Darkmode(0)
  704.  
  705. Call Bomb()
  706.  
  707. <:s><+!>END FUNCTION<-!>
  708.  
  709. <:s>
  710.  
  711. <+!><++>Function Max()<-+><-!><-!>            <+">'Maximizes active document<-"><+"> if it was the only one open before.<-"><-!>
  712.  
  713.     Size=GetOpenFileCount()        '<+">Testing if document<-"><+"> window had been maximized or not. If maximized<-">
  714.  
  715.     DIM fname(Size)    <+">    ' document<-"><+"> will be<-"><+"> returned to its maximized state.<-">
  716.  
  717.     GetOpenFileNames(&Fname)
  718.  
  719.     For y=1 to Size
  720.  
  721.     Curap=Fname(y)
  722.  
  723.     If size=1
  724.  
  725.         AppMaximize(curap)
  726.  
  727.     EndIf
  728.  
  729.     Next
  730.  
  731. <:s><+!><++>End Function<-+><-!>
  732.  
  733. <:s>
  734.  
  735. <:s><+!><++>Function Manipulation()<-+><-!>        <+">'Section <+#>manipulates<-#> Data Files<-">
  736.  
  737. <+!>Otherboxinit:<-!>                <+">'Sets up dialogbox.<-">
  738.  
  739.     datafiles=GetprofileString$("datafilelistsection", "filenumber" , "AMIPRO2.INI")
  740.  
  741.         For x=1 to datafiles
  742.  
  743.             Filentry=Ucase$(GetprofileString$("datafilelistsection", "File{x}" , "AMIPRO2.INI"))
  744.  
  745.             If {Filentry} != "DELETED"
  746.  
  747.             FillEdit(9000, {Filentry})
  748.  
  749.             EndIf
  750.  
  751. <:s>        Next    
  752.  
  753. <+!>Otherboxbody:<-!>                <+">'Sets up procedures<-"><+"> handles<-"><+"> by dialog box.<-">
  754.  
  755.     Docpath= GetmacPath$()
  756.  
  757.     DlgKeyInterrupt(112, "{Macpath}framglos.smm!Datafilechangehelp")
  758.  
  759.     Changedataboxresult=DialogBox ("." , "Datafilechange")
  760.  
  761. <:#240,11578>    File=GetDialogField$(8000)
  762.  
  763. <:#250,11578>    If Changedataboxresult=1        <+">'1 Signifies change Data File.<-">
  764.  
  765. <:s><:#240,11578>        If File= ""
  766.  
  767. <:s><:#240,11578>            Beep()
  768.  
  769.             Message("Wpisz nazw<\j> pliku Glosariusza Ramek.")
  770.  
  771. <:#240,11578>            Goto Otherboxinit
  772.  
  773. <:s><:#240,11578>            Exit Function
  774.  
  775. <:#240,11578>            EndIf
  776.  
  777.         WriteProfileString("datafilesection", "datafilentry",File , "AMIPRO2.INI")    <+">'Adds entries to Amipro2.ini<-"><+">.<-">
  778.  
  779. <:s>        Exit Function
  780.  
  781.     ElseIf  Changedataboxresult=3    <+">'3 Signifies create Data File.<-">
  782.  
  783. <:s>        <+!>Create:<-!>
  784.  
  785. <:s>        If File= ""        <+">'Error Routine if no file name is entered<-">
  786.  
  787. <:s>            Beep()
  788.  
  789.             Message("Wpisz nazw<\j> tworzonego pliku Glosariusza Ramek.")
  790.  
  791.             Goto Otherboxinit
  792.  
  793. <:s>            Exit Function
  794.  
  795.         EndIf
  796.  
  797.         Hourglass(1)
  798.  
  799.         Striptext=Strfield$({File},1,".")    <+">'Divides file entry into two fields. the extension<-"><+"> will be ignored<-">
  800.  
  801.         howmany= Len({Striptext})
  802.  
  803.         If Howmany << 9
  804.  
  805.             Ext=".sam"    <+">' and replaced with '.sam'<-">
  806.  
  807.             File="{Striptext}{Ext}"
  808.  
  809.             New("_basic.sty", 0,0)    <+">'Creates a new file (default because a style sheet is required).<-">
  810.  
  811.             error=Saveas("{Docpath}{File}",32,"Data file for framglos.smm","")
  812.  
  813.             If error != 1    <+">'Error routine  for errors<-"><+"> saving the new data file<-">
  814.  
  815.                 Beep()
  816.  
  817.                 Message("W czasie zapisu pliku pojawi</s> si<\j> b</s></y>d. Sprawd</_> domy</\>ln</y> 
  818. </\>cie</>k<\j> do plik<\s>w makroprogram<\s>w.")
  819.  
  820.             EndIf
  821.  
  822.             FileClose()
  823.  
  824.             DosSetFileAttr("{DocPath}{File}", 1)
  825.  
  826.         Else
  827.  
  828.             Message("Wprowadzi</s>e</\> {Howmany} znak<\s>w. Mo</>esz u</>y<\f> maksymalnie 8 znak<\s>w, wy</s></y>czaj</y>c rozszerzeenie pliku.")
  829.  
  830.             Goto Otherboxinit
  831.  
  832.         EndIf
  833.  
  834.         <+!>Writetoini:<-!>        <+">'Section writes all entries into amipro2.ini<-">
  835.  
  836.         Add2= datafiles + 1    <+">'Variable to increment the number of data files in the amipro2.ini<-">
  837.  
  838.         WriteProfileString("datafilelistsection", "file{x}", File, "Amipro2.ini")
  839.  
  840.         WriteProfileString("datafilesection", "datafilentry", File , "AMIPRO2.INI")
  841.  
  842.         WriteProfileString("datafilelistsection", "filenumber", Add2 , "AMIPRO2.INI")
  843.  
  844. <:s>        Exit Function
  845.  
  846.     ElseIf  Changedataboxresult=4    <+">'4 Signifies delete function<-">
  847.  
  848.         <+!>Deletfile:<-!>
  849.  
  850. <:s>        If File= ""        <+">'error routine if no frame name is entered<-">
  851.  
  852. <:s>            Beep()
  853.  
  854.             Message("Wpisz nazw<\j> pliku, kt<\s>ry chcesz usun</y><\f>.")
  855.  
  856.             Goto Otherboxinit
  857.  
  858. <:s>            Exit Function
  859.  
  860.             EndIf
  861.  
  862.         Decide=Multidecide("Czy rzeczywi</\>cie chcesz usun</y><\f> plik {File}?",4)    <+">'Confirmation?<-">
  863.  
  864. <:s><:#240,11578>        If Decide= 7
  865.  
  866. <:#240,11578>            Goto Otherboxinit
  867.  
  868. <:s><:#240,11578>            Exit Function
  869.  
  870. <:s><:#240,11578>        Else
  871.  
  872. <:#240,11578>        Hourglass(1)
  873.  
  874. <:#240,11578>        DosSetFileAttr("{Docpath}{File}", 32)
  875.  
  876. <:#240,11578>        Delerror=Dosdelfile("{Docpath}{File}")
  877.  
  878. <:#250,11578>        If delerror != 0        <+">'Error routine in case of error deleting file.<-">
  879.  
  880. <:s><:#240,11578>            Beep()
  881.  
  882. <:#240,11578>            Message("W czasie usuwania pliku pojawi</s> si<\j> b</s></y>d. Sprawd</_>, czy rzeczywi</\>cie ten plik istnieje.")
  883.  
  884. <:#240,11578>            Goto Otherboxinit
  885.  
  886. <:#240,11578>            EndIf
  887.  
  888. <:#240,11578>        EndIf
  889.  
  890. <:#250,11578>        <+!>Adjustini:<-!>        <+">'Adjusts the amipro2.ini for new active data file<-">
  891.  
  892. <:#240,11578>        For x=1 to datafiles
  893.  
  894. <:#240,11578>            Filentry=GetprofileString$("datafilelistsection", "File{x}" , "AMIPRO2.INI")
  895.  
  896. <:#240,11578>            If File=Filentry
  897.  
  898. <:#240,11578>                WriteProfileString("datafilelistsection", "File{x}", "DELETED", "AMIPRO2.INI")
  899.  
  900. <:#240,11578>            EndIf
  901.  
  902. <:s><:#240,11578>        Next
  903.  
  904. <:#240,11578>        currdatafile=GetprofileString$("datafilesection", "datafilentry" , "AMIPRO2.INI")
  905.  
  906. <:#240,11578>        If file=currdatafile
  907.  
  908. <:#240,11578>            Message("Usuni<\j>ty zosta</s> aktualny plik danych. Wybierz inny.")
  909.  
  910. <:#240,11578>        EndIf
  911.  
  912. <:#240,11578>        Goto Otherboxinit
  913.  
  914. <:s><:#240,11578>        Exit Function
  915.  
  916. <:#250,11578>    ElseIf Changedataboxresult=5    <+">'5 Sigifies cancel<-">
  917.  
  918. <:#240,11578>        Hourglass(0)
  919.  
  920. <:#240,11578>        Exit Function
  921.  
  922. <:#240,11578>    EndIf
  923.  
  924. <:s><:#245,11578><+!><++>End Function<-+><-!>
  925.  
  926. <:s><:#240,11578>
  927.  
  928. <:#245,11578><+!><++>FUNCTION DisplayHelp()<-+><-!>
  929.  
  930. <:#250,11578>    InsertIntro="<+#>Aby wstawi<\f> ramk<\j><-#><+#>:<-#>"    <+">'This section creates<-"><+"> the text for<-"><+"> the help screen.<-">
  931.  
  932. <:#240,11578>    Insert="Wybierz lub wpisz nazw<\j> ramki. Naci</\>nij Wstaw."
  933.  
  934. <:#240,11578>    SaveIntro="<+#><-#><+#>Aby zapami<\j>ta<\f> ramk<\j>:<-#>"
  935.  
  936. <:#240,11578>    Saveit="Zaznacz ramk<\j> w dokumencie. Wybierz Ramka/Glosariusz Ramek. Wpisz nazw<\j> ramki. Naci</\>nij Zapisz."
  937.  
  938. <:#240,11578>    DeleteIntro="<+#>Aby usun</y><\f> ramk<\j>:<-#>"
  939.  
  940. <:#240,11578>    Deletetext="Wybierz lub wpisz nazw<\j> ramki. Naci</\>nij Usu<\q>."
  941.  
  942. <:#245,11578>    Modinit="<+#><-#><+#><-#><+#>Aby u</>y<\f> innego pliku danych<-#><+#>:<-#><+!><+#>"<-#><-!>
  943.  
  944. <:#240,11578>    Mod="Naci</\>nij Plik Danych ."
  945.  
  946. <:#240,11578>    QuitIntro="<+#>Aby zamkn</y><\f> okno dialogowe<-#><+#>:<-#>"
  947.  
  948. <:#240,11578>    Quit="Naci</\>nij Zamknij."
  949.  
  950. <:#240,11578>    Stop=chr$(13)
  951.  
  952. <:#720,11578>    Filledit (1000, "{InsertIntro}{Stop}{Insert}{Stop}{Stop}{SaveIntro}{Stop}{Saveit}{Stop}{Stop}{DeleteIntro}{Stop}{Deletetext}{Stop}{Stop}{Modinit}{Stop}{Mod}{Stop}{Stop}{QuitIntro}{Stop}{Quit}")
  953.  
  954. <:#250,11578>    DialogBox(".","Help")        <+">'This overcomes character limit of single<-"><+"> edit box.<-">
  955.  
  956. <:s><:#245,11578><+!><++>END FUNCTION<-+><-!>
  957.  
  958. <:s><:#240,11578>
  959.  
  960. <:#245,11578><+!><++>Function Datafilechangehelp()<-+><-!>
  961.  
  962. <:#240,11578>    Intro="Mo</>esz umie</\>ci<\f> wiele ramek w jednym pliku danych, lecz czym wi<\j>kszy plik, tym wolniejsza praca Ami Pro."
  963.  
  964. <:#240,11578>    SwitchIntro="<+#>Aby zmieni<\f> plik danych<-#><+#><-#><+#>:<-#>"
  965.  
  966.     Switchit="Wybierz lub wpisz nazw<\j> pliku. Naci</\>nij Prze</s></y>cz."
  967.  
  968. <:#240,11578>    CreateIntro="<+#>Aby utworzy<\f> nowy plik danych<-#><+#>:<-#>"
  969.  
  970. <:#240,11578>    Create="Wpisz nazw<\j>, jak</y> chcesz u</>y<\f> dla nowego pliku danych. Naci</\>nij Utw<\s>rz."
  971.  
  972. <:#240,11578>    DeleteIntro="<+#>Aby usun</y><\f> plik danych<-#><+#>:<-#>"
  973.  
  974. <:#240,11578>    Deletetext="Wybierz lub wpisz nazw<\j> pliku danych. Naci</\>nij Usu<\q>'."
  975.  
  976. <:#240,11578>    QuitIntro="<+#>Aby zamkn</y><\f> okno dialogowe:<-#>"
  977.  
  978. <:#240,11578>    Quit="Naci</\>nij Zamknij."
  979.  
  980. <:#240,11578>    Stop=chr$(13)
  981.  
  982. <:#730,11578>    Filledit (1000, "{Intro}{Stop}{Stop}{SwitchIntro}{Stop}{Switchit}{Stop}{Stop}{CreateIntro}{Stop}{Create}{Stop}{Stop}{DeleteIntro}{Stop}{Deletetext}{Stop}{Stop}{QuitIntro}{Stop}{Quit}")    <+">'Flows the text into the Help dialog box window.<-">
  983.  
  984. <:#250,11578>    DialogBox("." "Datafilechangehelp")    <+">'This overcomes character limit of sigle edit box.<-">
  985.  
  986. <:s><:#245,11578><+!><++>End Function<-+><-!>
  987.  
  988. <:s><:#240,11578>
  989.  
  990. <:#250,11578><+!><++>FUNCTION<-+> <++>Bomb<-!><-+><+!><-+>()<-!><-+><-+><-+>            <+">'Error routine<-">
  991.  
  992. <:#240,11578>    Hourglass(0)
  993.  
  994. <:#240,11578>    StatusBarMsg("")
  995.  
  996. <:s><:#245,11578>    <+!>Exit Function<-!>
  997.  
  998. <:s><:#245,11578><+!><++>END FUNCTION<-+><-!>
  999.  
  1000. <+B><:#245,11578><+!><+#>'The following are dialog boxes called in functions above.<-#><-!>
  1001.  
  1002. @dialogbox@<:#240,11578><-!><-!><-!><-+>
  1003.  
  1004. @dialogbox@<-+><-!>DIALOG    Display
  1005.  
  1006. @dialogbox@-2134376448    11    165    58    154    124    ""    "AmiDialog"    "Glosariusz Ramek"
  1007.  
  1008. @dialogbox@FONT    8    "Helv"
  1009.  
  1010. @dialogbox@6    16    84    12    8000    1350631552    "edit"    ""    0 
  1011.  
  1012. @dialogbox@6    31    84    12    1003    1342177280    "static"    "Pliki:"    0 
  1013.  
  1014. @dialogbox@6    42    84    76    9000    1352728579    "listbox"    ""    0 
  1015.  
  1016. @dialogbox@105    4    42    15    1    1342373889    "button"    "&Wstaw"    0 
  1017.  
  1018. @dialogbox@105    23    42    15    3    1342373888    "button"    "Zapi&sz"    0 
  1019.  
  1020. @dialogbox@105    40    42    15    4    1342373888    "button"    "&Usu<\q>"    0 
  1021.  
  1022. @dialogbox@105    60    42    16    5    1342373888    "button"    "&Zamknij"    0 
  1023.  
  1024. @dialogbox@6    6    84    10    1000    1342177280    "static"    "Ramka:"    0 
  1025.  
  1026. @dialogbox@96    91    51    16    6    1342373888    "button"    "&Plik Danych..."    0 
  1027.  
  1028. @dialogbox@50    110    69    10    1002    1342177280    "static"    ""    0 
  1029.  
  1030. @dialogbox@6    110    45    10    1001    1342177280    "static"    "Plik danych:"    0 
  1031.  
  1032. @dialogbox@END DIALOG
  1033.  
  1034. @dialogbox@<:#240,11578>
  1035.  
  1036. @dialogbox@<:#240,11578><-!><-!><-+><+!><++><:f200,2Times New Roman,0,0,0><-!><-+><:f>DIALOG    Datafilechange
  1037.  
  1038. @dialogbox@<:#240,11578>-2134376448    8    164    58    139    117    ""    "AmiDialog"    "Plik Danych"
  1039.  
  1040. @dialogbox@<:#240,11578>FONT    8    "Helv"
  1041.  
  1042. @dialogbox@<:#240,11578>6    16    84    12    8000    1350631552    "edit"    ""    0 
  1043.  
  1044. @dialogbox@<:#240,11578>6    31    84    12    1002    1342177280    "static"    "Pliki:"    0 
  1045.  
  1046. @dialogbox@<:#240,11578>6    42    84    76    9000    1352728579    "listbox"    ""    0 
  1047.  
  1048. @dialogbox@<:#240,11578>94    5    42    15    1    1342373889    "button"    "&Prze</s></y>cz"    0 
  1049.  
  1050. @dialogbox@<:#240,11578>94    23    42    15    3    1342373888    "button"    "&Utw<\s>rz"    0 
  1051.  
  1052. @dialogbox@<:#240,11578>94    41    42    15    4    1342373888    "button"    "&Usu<\q>"    0 
  1053.  
  1054. @dialogbox@<:#240,11578>94    59    42    15    5    1342373888    "button"    "&Zamknij"    0 
  1055.  
  1056. @dialogbox@<:#240,11578>6    5    80    10    1000    1342177280    "static"    "Zmie<\q> na:"    0 
  1057.  
  1058. @dialogbox@<:#245,11578>END DIALOG<+!><++><:f200,2Times New Roman,0,0,0><-!><-+><:f><+!><:f200,2Times New Roman,0,0,0> 
  1059. <-!><-!><-+><:f>
  1060.  
  1061. <:#245,11578><+!><++>
  1062.  
  1063. @dialogbox@<:#245,11578><+!><++>DIALOG Help<-!><-+>
  1064.  
  1065. @dialogbox@<:#240,11578>-2143289344     2 148 30 164 180 "" "" ""
  1066.  
  1067. @dialogbox@<:#240,11578>FONT 8 "Helv"
  1068.  
  1069. @dialogbox@<:#240,11578>60     160     40     14     1     1342373889 "button"     "OK"     0 
  1070.  
  1071. @dialogbox@<:#240,11578>4      6     151     145     1000     1342177280 "static"     "" 0 
  1072.  
  1073. @dialogbox@<:#245,11578><+!><++>END DIALOG<-+><-!>
  1074.  
  1075. <:#250,11578><-+>    <+">'This section contains info for the help<-"><+"> dialog box.<-">
  1076.  
  1077. <:#240,11578>
  1078.  
  1079. @dialogbox@<:#245,11578><+!><++>DIALOG DatafilechangeHelp
  1080.  
  1081. @dialogbox@<:#240,11578>-2143289344     2     148     30     164     180     ""     ""     ""
  1082.  
  1083. @dialogbox@<:#240,11578>FONT 8 "Helv"
  1084.  
  1085. @dialogbox@<:#240,11578>60     160     40     14 1    1342373889     "button"     "OK"     0 
  1086.  
  1087. @dialogbox@<:#240,11578>4      6     151    145     1000     1342177280     "static"    ""     0 
  1088.  
  1089. @dialogbox@<:#245,11578><+!><++>END DIALOG<-+><-!>
  1090.  
  1091. >
  1092.  
  1093. [Embedded]
  1094. 00024765
  1095. >
  1096. [macsum] 11
  1097. FRAMGLOS 0 0 9 2
  1098. BODY 1307 0 16 54
  1099. Max 4058 0 5 191
  1100. Manipulation 4278 0 16 203
  1101. DisplayHelp 6883 0 12 299
  1102. Datafilechangehelp 7558 0 11 315
  1103. Bomb 8301 0 1 330
  1104. Display 8353 0 -1 337
  1105. Datafilechange 8983 0 -1 353
  1106. Help 9459 0 -1 366
  1107. DatafilechangeHelp 9616 0 -1 374
  1108. [macse]
  1109. 14 FRAMGLOS
  1110. 0 1317
  1111. 13
  1112. 11 00000123
  1113. 0 3 "Makroprogram nie dzia</s>a, je</\>li jest uruchomiony HP NewWave."
  1114. 6 0
  1115. 15
  1116. 9
  1117. 0 34 1 1
  1118. 0 1050
  1119. 13
  1120. 8 1
  1121. 6 1
  1122. 5 0
  1123. 18 0
  1124. 11 00000273
  1125. 0 3 "Musisz otworzy<\f> dokument, aby makroprogram dzia</s>a</s> prawid</s>owo."
  1126. 6 0
  1127. 15
  1128. 9
  1129. 20 00001286
  1130. 0 295
  1131. 13
  1132. 8 2
  1133. 0 295
  1134. 13
  1135. 8 3
  1136. 0 520 1 "&Ramka" "Glos&ariusz Ramek..."
  1137. 13
  1138. 8 4
  1139. 0 527 1 "&Ramka" 7 "Glos&ariusz Ramek..." "{2}framglos.smm!Body()" "Zapami<\j>tanie lub odtworzenie ramki."
  1140. 6 4
  1141. 5 1
  1142. 18 0
  1143. 11 00000540
  1144. 16 Body
  1145. 6 0
  1146. 15
  1147. 9
  1148. 10 00000597
  1149. 0 789 "Instaluj<\j> Glosariusz Ramek."
  1150. 13
  1151. 11 00000597
  1152. 0 286 "datafilesection" "datafilentry" "AMIPRO2.INI"
  1153. 13
  1154. 8 5
  1155. 0 286 "{5}" "numberoframes" "AMIPRO2.INI"
  1156. 13
  1157. 8 6
  1158. 6 5
  1159. 7 ""
  1160. 18 0
  1161. 11 00001195
  1162. 0 296 1
  1163. 0 287 "datafilelistsection" "file1" "Framglos.sam" "Amipro2.ini"
  1164. 0 287 "datafilesection" "datafilentry" "Framglos.sam" "AMIPRO2.INI"
  1165. 0 287 "datafilelistsection" "filenumber" "1" "AMIPRO2.INI"
  1166. 2 101 1 "_basic.sty" 0 0
  1167. 7 "framglos.sam"
  1168. 8 7
  1169. 2 104 1 "{3}{7}" 32 "Data file for framglos.smm" ""
  1170. 13
  1171. 8 8
  1172. 6 8
  1173. 5 1
  1174. 18 1
  1175. 11 00001159
  1176. 0 801
  1177. 0 3 "W czasie tworzenia dokumentu pojawi</s> si<\j> b</s></y>d."
  1178. 2 147 1
  1179. 0 776 "{3}{7}" 1
  1180. 0 296 0
  1181. 16 Max
  1182. 0 789 "Glosariusz Ramek zosta</s> zainstalowany."
  1183. 0 274 15
  1184. 0 789 ""
  1185. 6 0
  1186. 15
  1187. 9
  1188. 16 Bomb
  1189. 6 0
  1190. 15
  1191. 9
  1192. 14 BODY
  1193. 20 00002721
  1194. 0 34 1 1
  1195. 0 1050
  1196. 13
  1197. 8 1
  1198. 6 1
  1199. 5 0
  1200. 18 0
  1201. 11 00000172
  1202. 0 3 "Musisz otworzy<\f> dokument, aby makroprogram dzia</s>a</s> prawid</s>owo."
  1203. 6 0
  1204. 15
  1205. 9
  1206. 0 29
  1207. 13
  1208. 8 2
  1209. 6 2
  1210. 5 1
  1211. 18 1
  1212. 11 00000225
  1213. 2 210 1
  1214. 0 295
  1215. 13
  1216. 8 3
  1217. 0 286 "datafilesection" "datafilentry" "AMIPRO2.INI"
  1218. 13
  1219. 8 4
  1220. 0 286 "{4}" "numberoframes" "AMIPRO2.INI"
  1221. 13
  1222. 8 5
  1223. 5 1
  1224. 8 6
  1225. 6 5
  1226. 6 6
  1227. 18 2
  1228. 12 00000441
  1229. 10 00000554
  1230. 5 1
  1231. 6 6
  1232. 3 0
  1233. 8 6
  1234. 10 00000366
  1235. 0 286 "{4}" "name{6}" "AMIPRO2.INI"
  1236. 13
  1237. 8 7
  1238. 6 7
  1239. 7 "DELETED"
  1240. 18 1
  1241. 11 00000541
  1242. 0 31 9000 "{7}"
  1243. 10 00000408
  1244. 0 18 "{4}"
  1245. 13
  1246. 0 31 1002 [X]
  1247. 0 47 112 "{8}framglos.smm!DisplayHelp"
  1248. 0 26 "." "Display"
  1249. 13
  1250. 8 9
  1251. 6 9
  1252. 5 1
  1253. 18 0
  1254. 11 00000958
  1255. 0 296 1
  1256. 0 776 "{3}{4}" 32
  1257. 0 27 8000
  1258. 13
  1259. 8 10
  1260. 6 10
  1261. 7 ""
  1262. 18 0
  1263. 11 00000824
  1264. 0 801
  1265. 0 3 "Wpisz nazw<\j> ramki."
  1266. 10 00000225
  1267. 6 0
  1268. 15
  1269. 9
  1270. 0 292 1
  1271. 2 102 1 "{3}{4}" 1 ""
  1272. 0 797 "{10}"
  1273. 2 154 1
  1274. 2 147 1
  1275. 0 776 "{3}{4}" 1
  1276. 2 155 1
  1277. 0 292 0
  1278. 0 296 0
  1279. 6 0
  1280. 15
  1281. 9
  1282. 10 00002709
  1283. 6 9
  1284. 5 3
  1285. 18 0
  1286. 11 00001900
  1287. 0 800
  1288. 13
  1289. 8 11
  1290. 6 11
  1291. 5 1
  1292. 18 1
  1293. 11 00001141
  1294. 0 801
  1295. 0 3 "Musisz zaznaczy<\f> ramk<\j>, kt<\s>r</y> chcesz zapami<\j>ta<\f>.."
  1296. 6 0
  1297. 15
  1298. 9
  1299. 10 00001250
  1300. 0 1313 217 24 251
  1301. 13
  1302. 8 12
  1303. 6 12
  1304. 5 1
  1305. 18 0
  1306. 11 00001250
  1307. 0 801
  1308. 0 3 "To jest ramka tekstowa."
  1309. 6 0
  1310. 15
  1311. 9
  1312. 0 296 1
  1313. 0 27 8000
  1314. 13
  1315. 8 13
  1316. 5 1
  1317. 8 6
  1318. 6 5
  1319. 6 6
  1320. 18 2
  1321. 12 00001365
  1322. 10 00001538
  1323. 5 1
  1324. 6 6
  1325. 3 0
  1326. 8 6
  1327. 10 00001290
  1328. 0 286 "{4}" "name{6}" "AMIPRO2.INI"
  1329. 13
  1330. 8 7
  1331. 6 13
  1332. 6 7
  1333. 18 0
  1334. 11 00001525
  1335. 0 801
  1336. 0 3 "Ta nazwa jest ju</> u</>ywana, wpisz inn</y> nazw<\j>."
  1337. 10 00000225
  1338. 10 00001332
  1339. 6 13
  1340. 7 ""
  1341. 18 0
  1342. 11 00001618
  1343. 0 801
  1344. 0 3 "Wpisz nazw<\j> ramki."
  1345. 10 00000225
  1346. 2 154 1
  1347. 0 776 "{3}{4}" 32
  1348. 0 292 1
  1349. 2 102 1 "{3}{4}" 1 ""
  1350. 2 155 1
  1351. 2 466 1 "{13}" 4003
  1352. 2 103 1
  1353. 2 147 1
  1354. 0 292 0
  1355. 6 5
  1356. 5 1
  1357. 3 0
  1358. 8 14
  1359. 0 287 "{4}" "numberoframes" "{14}" "AMIPRO2.INI"
  1360. 0 287 "{4}" "name{14}" "{13}" "AMIPRO2.INI"
  1361. 0 776 "{4}" 1
  1362. 0 296 0
  1363. 6 0
  1364. 15
  1365. 9
  1366. 10 00002709
  1367. 6 9
  1368. 5 4
  1369. 18 0
  1370. 11 00002458
  1371. 0 296 1
  1372. 0 27 8000
  1373. 13
  1374. 8 15
  1375. 6 15
  1376. 7 ""
  1377. 18 0
  1378. 11 00002084
  1379. 0 801
  1380. 0 3 "Wpisz nazw<\j> ramki, kt<\s>r</y> chcesz usun</y><\f>."
  1381. 10 00000225
  1382. 6 0
  1383. 15
  1384. 9
  1385. 0 776 "{3}{4}" 32
  1386. 0 292 1
  1387. 2 102 1 "{3}{4}" 1 ""
  1388. 0 797 "{15}"
  1389. 2 153 1
  1390. 2 103 1
  1391. 2 147 1
  1392. 0 292 0
  1393. 5 1
  1394. 8 6
  1395. 6 5
  1396. 6 6
  1397. 18 2
  1398. 12 00002270
  1399. 10 00002406
  1400. 5 1
  1401. 6 6
  1402. 3 0
  1403. 8 6
  1404. 10 00002195
  1405. 0 286 "{4}" "name{6}" "AMIPRO2.INI"
  1406. 13
  1407. 8 7
  1408. 6 7
  1409. 6 15
  1410. 18 0
  1411. 11 00002393
  1412. 0 287 "{4}" "name{6}" "DELETED" "AMIPRO2.INI"
  1413. 10 00002237
  1414. 0 776 "{3}{4}" 1
  1415. 0 296 0
  1416. 6 0
  1417. 15
  1418. 9
  1419. 10 00002709
  1420. 6 9
  1421. 5 5
  1422. 18 0
  1423. 11 00002638
  1424. 0 776 "{3}{4}" 1
  1425. 16 Max
  1426. 6 2
  1427. 5 48
  1428. 18 0
  1429. 11 00002565
  1430. 2 218 1
  1431. 10 00002604
  1432. 6 2
  1433. 5 16
  1434. 18 0
  1435. 11 00002604
  1436. 2 211 1
  1437. 0 296 0
  1438. 6 0
  1439. 15
  1440. 9
  1441. 10 00002709
  1442. 6 9
  1443. 5 6
  1444. 18 0
  1445. 11 00002709
  1446. 16 Manipulation
  1447. 10 00000225
  1448. 6 0
  1449. 15
  1450. 9
  1451. 6 0
  1452. 15
  1453. 9
  1454. 0 292 0
  1455. 16 Bomb
  1456. 6 0
  1457. 15
  1458. 9
  1459. 14 Max
  1460. 0 1050
  1461. 13
  1462. 8 1
  1463. 6 1
  1464. 21 2 [X]
  1465. 0 1051 &2
  1466. 5 1
  1467. 8 3
  1468. 6 1
  1469. 6 3
  1470. 18 2
  1471. 12 00000136
  1472. 10 00000208
  1473. 5 1
  1474. 6 3
  1475. 3 0
  1476. 8 3
  1477. 10 00000061
  1478. 6 3
  1479. 22 2
  1480. 8 4
  1481. 6 1
  1482. 5 1
  1483. 18 0
  1484. 11 00000195
  1485. 0 1029 "{4}"
  1486. 10 00000103
  1487. 6 0
  1488. 15
  1489. 9
  1490. 14 Manipulation
  1491. 0 286 "datafilelistsection" "filenumber" "AMIPRO2.INI"
  1492. 13
  1493. 8 1
  1494. 5 1
  1495. 8 2
  1496. 6 1
  1497. 6 2
  1498. 18 2
  1499. 12 00000167
  1500. 10 00000310
  1501. 5 1
  1502. 6 2
  1503. 3 0
  1504. 8 2
  1505. 10 00000092
  1506. 0 286 "datafilelistsection" "File{2}" "AMIPRO2.INI"
  1507. 13
  1508. 0 18 [X]
  1509. 13
  1510. 8 3
  1511. 6 3
  1512. 7 "DELETED"
  1513. 18 1
  1514. 11 00000297
  1515. 0 31 9000 "{3}"
  1516. 10 00000134
  1517. 0 295
  1518. 13
  1519. 8 4
  1520. 0 47 112 "{5}framglos.smm!Datafilechangehelp"
  1521. 0 26 "." "Datafilechange"
  1522. 13
  1523. 8 6
  1524. 0 27 8000
  1525. 13
  1526. 8 7
  1527. 6 6
  1528. 5 1
  1529. 18 0
  1530. 11 00000652
  1531. 6 7
  1532. 7 ""
  1533. 18 0
  1534. 11 00000567
  1535. 0 801
  1536. 0 3 "Wpisz nazw<\j> pliku Glosariusza Ramek."
  1537. 10 00000017
  1538. 6 0
  1539. 15
  1540. 9
  1541. 0 287 "datafilesection" "datafilentry" "{7}" "AMIPRO2.INI"
  1542. 6 0
  1543. 15
  1544. 9
  1545. 10 00002593
  1546. 6 6
  1547. 5 3
  1548. 18 0
  1549. 11 00001590
  1550. 6 7
  1551. 7 ""
  1552. 18 0
  1553. 11 00000801
  1554. 0 801
  1555. 0 3 "Wpisz nazw<\j> tworzonego pliku Glosariusza Ramek."
  1556. 10 00000017
  1557. 6 0
  1558. 15
  1559. 9
  1560. 0 296 1
  1561. 0 20 "{7}" 1 "."
  1562. 13
  1563. 8 8
  1564. 0 14 "{8}"
  1565. 13
  1566. 8 9
  1567. 6 9
  1568. 5 9
  1569. 18 5
  1570. 11 00001221
  1571. 7 ".sam"
  1572. 8 10
  1573. 7 "{8}{10}"
  1574. 8 7
  1575. 2 101 1 "_basic.sty" 0 0
  1576. 2 104 1 "{4}{7}" 32 "Data file for framglos.smm" ""
  1577. 13
  1578. 8 11
  1579. 6 11
  1580. 5 1
  1581. 18 1
  1582. 11 00001181
  1583. 0 801
  1584. 0 3 "W czasie zapisu pliku pojawi</s> si<\j> b</s></y>d. Sprawd</_> domy</\>ln</y> </\>cie</>k<\j> do plik<\s>w makroprogram<\s>w."
  1585. 2 147 1
  1586. 0 776 "{4}{7}" 1
  1587. 10 00001362
  1588. 0 3 "Wprowadzi</s>e</\> {9} znak<\s>w. Mo</>esz u</>y<\f> maksymalnie 8 znak<\s>w, wy</s></y>czaj</y>c rozszerzeenie pliku."
  1589. 10 00000017
  1590. 6 1
  1591. 5 1
  1592. 3 0
  1593. 8 12
  1594. 0 287 "datafilelistsection" "file{2}" "{7}" "Amipro2.ini"
  1595. 0 287 "datafilesection" "datafilentry" "{7}" "AMIPRO2.INI"
  1596. 0 287 "datafilelistsection" "filenumber" "{12}" "AMIPRO2.INI"
  1597. 6 0
  1598. 15
  1599. 9
  1600. 10 00002593
  1601. 6 6
  1602. 5 4
  1603. 18 0
  1604. 11 00002543
  1605. 6 7
  1606. 7 ""
  1607. 18 0
  1608. 11 00001740
  1609. 0 801
  1610. 0 3 "Wpisz nazw<\j> pliku, kt<\s>ry chcesz usun</y><\f>."
  1611. 10 00000017
  1612. 6 0
  1613. 15
  1614. 9
  1615. 0 21 "Czy rzeczywi</\>cie chcesz usun</y><\f> plik {7}?" 4
  1616. 13
  1617. 8 13
  1618. 6 13
  1619. 5 7
  1620. 18 0
  1621. 11 00001878
  1622. 10 00000017
  1623. 6 0
  1624. 15
  1625. 9
  1626. 10 00002094
  1627. 0 296 1
  1628. 0 776 "{4}{7}" 32
  1629. 0 779 "{4}{7}"
  1630. 13
  1631. 8 14
  1632. 6 14
  1633. 5 0
  1634. 18 1
  1635. 11 00002094
  1636. 0 801
  1637. 0 3 "W czasie usuwania pliku pojawi</s> si<\j> b</s></y>d. Sprawd</_>, czy rzeczywi</\>cie ten plik istnieje."
  1638. 10 00000017
  1639. 5 1
  1640. 8 2
  1641. 6 1
  1642. 6 2
  1643. 18 2
  1644. 12 00002179
  1645. 10 00002346
  1646. 5 1
  1647. 6 2
  1648. 3 0
  1649. 8 2
  1650. 10 00002104
  1651. 0 286 "datafilelistsection" "File{2}" "AMIPRO2.INI"
  1652. 13
  1653. 8 3
  1654. 6 7
  1655. 6 3
  1656. 18 0
  1657. 11 00002333
  1658. 0 287 "datafilelistsection" "File{2}" "DELETED" "AMIPRO2.INI"
  1659. 10 00002146
  1660. 0 286 "datafilesection" "datafilentry" "AMIPRO2.INI"
  1661. 13
  1662. 8 15
  1663. 6 7
  1664. 6 15
  1665. 18 0
  1666. 11 00002505
  1667. 0 3 "Usuni<\j>ty zosta</s> aktualny plik danych. Wybierz inny."
  1668. 10 00000017
  1669. 6 0
  1670. 15
  1671. 9
  1672. 10 00002593
  1673. 6 6
  1674. 5 5
  1675. 18 0
  1676. 11 00002593
  1677. 0 296 0
  1678. 6 0
  1679. 15
  1680. 9
  1681. 6 0
  1682. 15
  1683. 9
  1684. 14 DisplayHelp
  1685. 7 "Aby wstawi<\f> ramk<\j>:"
  1686. 8 1
  1687. 7 "Wybierz lub wpisz nazw<\j> ramki. Naci</\>nij Wstaw."
  1688. 8 2
  1689. 7 "Aby zapami<\j>ta<\f> ramk<\j>:"
  1690. 8 3
  1691. 7 "Zaznacz ramk<\j> w dokumencie. Wybierz Ramka/Glosariusz Ramek. Wpisz nazw<\j> ramki. Naci</\>nij Zapisz."
  1692. 8 4
  1693. 7 "Aby usun</y><\f> ramk<\j>:"
  1694. 8 5
  1695. 7 "Wybierz lub wpisz nazw<\j> ramki. Naci</\>nij Usu<\q>."
  1696. 8 6
  1697. 7 "Aby u</>y<\f> innego pliku danych:"
  1698. 8 7
  1699. 7 "Naci</\>nij Plik Danych ."
  1700. 8 8
  1701. 7 "Aby zamkn</y><\f> okno dialogowe:"
  1702. 8 9
  1703. 7 "Naci</\>nij Zamknij."
  1704. 8 10
  1705. 0 39 13
  1706. 13
  1707. 8 11
  1708. 0 31 1000 "{1}{11}{2}{11}{11}{3}{11}{4}{11}{11}{5}{11}{6}{11}{11}{7}{11}{8}{11}{11}{9}{11}{10}"
  1709. 0 26 "." "Help"
  1710. 6 0
  1711. 15
  1712. 9
  1713. 14 Datafilechangehelp
  1714. 7 "Mo</>esz umie</\>ci<\f> wiele ramek w jednym pliku danych, lecz czym wi<\j>kszy plik, tym wolniejsza praca Ami Pro."
  1715. 8 1
  1716. 7 "Aby zmieni<\f> plik danych:"
  1717. 8 2
  1718. 7 "Wybierz lub wpisz nazw<\j> pliku. Naci</\>nij Prze</s></y>cz."
  1719. 8 3
  1720. 7 "Aby utworzy<\f> nowy plik danych:"
  1721. 8 4
  1722. 7 "Wpisz nazw<\j>, jak</y> chcesz u</>y<\f> dla nowego pliku danych. Naci</\>nij Utw<\s>rz."
  1723. 8 5
  1724. 7 "Aby usun</y><\f> plik danych:"
  1725. 8 6
  1726. 7 "Wybierz lub wpisz nazw<\j> pliku danych. Naci</\>nij Usu<\q>'."
  1727. 8 7
  1728. 7 "Aby zamkn</y><\f> okno dialogowe:"
  1729. 8 8
  1730. 7 "Naci</\>nij Zamknij."
  1731. 8 9
  1732. 0 39 13
  1733. 13
  1734. 8 10
  1735. 0 31 1000 "{1}{10}{10}{2}{10}{3}{10}{10}{4}{10}{5}{10}{10}{6}{10}{7}{10}{10}{8}{10}{9}"
  1736. 0 26 "." "Datafilechangehelp"
  1737. 6 0
  1738. 15
  1739. 9
  1740. 14 Bomb
  1741. 0 296 0
  1742. 0 789 ""
  1743. 6 0
  1744. 15
  1745. 9
  1746. 6 0
  1747. 15
  1748. 9
  1749. DIALOG Display
  1750. -2134376448 11 165 58 154 124 "" "AmiDialog" "Glosariusz Ramek" 
  1751. FONT 8 "Helv" 
  1752. 6 16 84 12 8000 1350631552 "edit" "" 0 
  1753. 6 31 84 12 1003 1342177280 "static" "Pliki:" 0 
  1754. 6 42 84 76 9000 1352728579 "listbox" "" 0 
  1755. 105 4 42 15 1 1342373889 "button" "&Wstaw" 0 
  1756. 105 23 42 15 3 1342373888 "button" "Zapi&sz" 0 
  1757. 105 40 42 15 4 1342373888 "button" "&Usu±" 0 
  1758. 105 60 42 16 5 1342373888 "button" "&Zamknij" 0 
  1759. 6 6 84 10 1000 1342177280 "static" "Ramka:" 0 
  1760. 96 91 51 16 6 1342373888 "button" "&Plik Danych..." 0 
  1761. 50 110 69 10 1002 1342177280 "static" "" 0 
  1762. 6 110 45 10 1001 1342177280 "static" "Plik danych:" 0 
  1763. DIALOG Datafilechange
  1764. -2134376448 8 164 58 139 117 "" "AmiDialog" "Plik Danych" 
  1765. FONT 8 "Helv" 
  1766. 6 16 84 12 8000 1350631552 "edit" "" 0 
  1767. 6 31 84 12 1002 1342177280 "static" "Pliki:" 0 
  1768. 6 42 84 76 9000 1352728579 "listbox" "" 0 
  1769. 94 5 42 15 1 1342373889 "button" "&Prze│╣cz" 0 
  1770. 94 23 42 15 3 1342373888 "button" "&Utw≤rz" 0 
  1771. 94 41 42 15 4 1342373888 "button" "&Usu±" 0 
  1772. 94 59 42 15 5 1342373888 "button" "&Zamknij" 0 
  1773. 6 5 80 10 1000 1342177280 "static" "Zmie± na:" 0 
  1774. DIALOG Help
  1775. -2143289344 2 148 30 164 180 "" "" "" 
  1776. FONT 8 "Helv" 
  1777. 60 160 40 14 1 1342373889 "button" "OK" 0 
  1778. 4 6 151 145 1000 1342177280 "static" "" 0 
  1779. DIALOG DatafilechangeHelp
  1780. -2143289344 2 148 30 164 180 "" "" "" 
  1781. FONT 8 "Helv" 
  1782. 60 160 40 14 1 1342373889 "button" "OK" 0 
  1783. 4 6 151 145 1000 1342177280 "static" "" 0 
  1784. 00024790
  1785.