home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS018.DSK / FRAMGLOS.SMM < prev    next >
Encoding:
INI File  |  1992-11-02  |  38.8 KB  |  1,816 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.     Load and save frames in a glossary file
  19.     Lotus WPD Technical Support
  20.     Advanced
  21.     InsertMenuItem
  22.     autorun
  23.     720746200
  24.     182
  25.     697392920
  26.     4138
  27.     8
  28.     1910
  29.     15330
  30.     39
  31.     39
  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. <+B><:f240,,>Frame Glossary Version 2<:f><:f240,,>.2<:f>
  259.  
  260. <+B><:s><:f160,,>by
  261.  
  262. <+B><:f160,,>Brian Zwaagstra
  263.  
  264. <+B><:f160,,>Technical Support Represenative<:f>
  265.  
  266. <+B><:f160,,>Lotus Word Processing Devision<:f>
  267.  
  268. <+B>
  269.  
  270. >
  271.     [frght]
  272.     [lyfrm]
  273.         1
  274.         13248
  275.         0
  276.         14760
  277.         12240
  278.         15840
  279.         0
  280.         1
  281.         3
  282.         1 0 0 0 0 0 0
  283.         0
  284.         0
  285.         2
  286.     [frmlay]
  287.         15840
  288.         12240
  289.         1
  290.         1440
  291.         576
  292.         1
  293.         14832
  294.         360
  295.         0
  296.         1
  297.         0
  298.         1
  299.         1
  300.         0
  301.         1
  302.         1440
  303.         11880
  304.         2
  305.         2
  306.         4680
  307.         3
  308.         9360
  309.     [txt]
  310. <:R1,2,2,4680,3,10440,>    Release <+,>v2<-,><+,>.2<-,>    June 1st, 1992    Page <:P10,0,> out 
  311. <+,>o<-,>f <:X3,16384;NumPages>8<:X~3,16384;NumPages>
  312.  
  313. >
  314. [elay]
  315. [l1]
  316.     0
  317. [pg]
  318.     8
  319.     55 0 19 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
  320.     110 0 16 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
  321.     165 0 13 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.     220 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
  323.     273 0 20 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.     325 0 73 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.     378 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
  326.     384 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
  327. [edoc]
  328. <:#240,11578><-!><+!>Define IsOKToRun(menuname) GetInfo(217, 24,  <-!><+!>%1<-!><+!>)
  329.  
  330. <:#240,11578><+!>
  331.  
  332. <:#240,11578><+!>FUNCTION FRAMGLOS()
  333.  
  334. <:#240,11578>IF IsNewWave()
  335.  
  336. <:#240,11578>    Message("Macro not available while running under HP NewWave.")
  337.  
  338. <:#240,11578>    Exit Function
  339.  
  340. <:#240,11578>ENDIF
  341.  
  342. <:#240,11578><+!>Init:<-!>
  343.  
  344. <:#240,11578>    FileChanged(1,1)
  345.  
  346. <:#240,11578>    Curdoc=GetOpenFileCount()    <+">'Test to see if a document is open. If not will have to exit macro.<-">
  347.  
  348. <:#240,11578>    If CurDoc= 0
  349.  
  350. <:#240,11578>        Message("For this macro to run properly a document must be open. Please open a document and rerun the macro.")
  351.  
  352. <:#240,11578>        Exit Function
  353.  
  354. <:#240,11578>    Endif
  355.  
  356. <:#240,11578>    ONERROR Tost        <+">    'If<-"><+"> error this macro will reset original conditions.<-">
  357.  
  358. <:#240,11578>    Macpath = GetMacPath$ ()    <+">'Obtaines the default macro path in which<-"><+"> this macro should be stored<-">.
  359.  
  360. <:#240,11578>    Docpath= GetmacPath$()    <+">    'Obtaines the default Macro<-"><+"> path in which<-"><+"> the glossary data file(s) is stored.<-">
  361.  
  362. <:#240,11578>    Icon=DeleteMenuItem(1,"F&rame",  "Frame Glossary...")    <+">'Clear the menu if macro had already been run.<-">
  363.  
  364. <:#240,11578>    InsertMenuItem(1,"F&rame", 7, "Frame Glossary...", "{Macpath}framglos.smm!Body()", "Load and save frames in a glossary file.")
  365.  
  366. <:#240,11578>    If Icon= 1
  367.  
  368. <:#240,11578>        Call Body()
  369.  
  370. <:#240,11578>        Exit Function
  371.  
  372. <:#240,11578>    ElseIf StatusBarMsg("Installing Frame Glossary.")
  373.  
  374. <:#240,11578>    EndIf
  375.  
  376. <:#240,11578>    Whatdatafile=GetprofileString$("datafilesection", "datafilentry" , "AMIPRO2.INI")    <+">'Reads <[>datafile<-"><+">] section in Amipro2.ini.<-">
  377.  
  378. <:#240,11578>    Inientries=GetprofileString$("{Whatdatafile}", "numberoframes" , "AMIPRO2.INI") 
  379.  
  380. <:#245,11578><+!>Firstime:<-!>                <+">'This section sets up the Amipro2.ini and framglos.sam default data file.<-">
  381.  
  382. <:#240,11578>    If Whatdatafile=""
  383.  
  384. <:#240,11578>        Hourglass(1)        <+">'Turns hour glass on.<-">
  385.  
  386. <:#240,11578>        WriteProfileString("datafilelistsection", "file1", "Framglos.sam", "Amipro2.ini")    <+">'Adds entries to Amipro2.ini<-"><+">.<-">
  387.  
  388. <:#240,11578>        WriteProfileString("datafilesection", "datafilentry", "Framglos.sam" , "AMIPRO2.INI")    <+">'Adds entries to Amipro2.ini<-"><+">.<-">
  389.  
  390. <:#240,11578>        WriteProfileString("datafilelistsection", "filenumber", "1" , "AMIPRO2.INI")    <+">'Adds entries to Amipro2.ini<-"><+">.<-">
  391.  
  392. <:#240,11578>        'WriteProfileString("framglos.sam", "numberoframes", "1" , "AMIPRO2.INI")    <+">'Adds entries to Amipro2.ini<-"><+">.<-">
  393.  
  394. <:#240,11578>        New("_basic.sty", 0,0)    <+">'Created new file for<-"><+"> use as data file.<-">
  395.  
  396. <:#240,11578>        File="framglos.sam"
  397.  
  398. <:#240,11578>        error=Saveas("{Docpath}{File}",32,"Data file for framglos.smm","")    <+">'Saves file as Framglos.sam<-">
  399.  
  400. <:s><:#240,11578>        If error != 1
  401.  
  402. <:s><:#240,11578>            Beep()
  403.  
  404. <:#240,11578>            Message("There has been an error creating the document.")    <+">'Error Rutine.<-">
  405.  
  406. <:#240,11578>        EndIf
  407.  
  408. <:#240,11578>        FileClose()        <+">'Close newly created file<-">
  409.  
  410. <:#240,11578>        DosSetFileAttr("{Docpath}{File}",1)
  411.  
  412. <:#240,11578>                <+">'Enables screen redraw<-">
  413.  
  414. <:#240,11578>        Hourglass(0)        <+">'Enables screen redraw.<-">
  415.  
  416. <:#240,11578>    EndIf
  417.  
  418. <:#240,11578>    Call Max()            <+">'Runs the routine that maximizes the current<-"><+"> document<-"><+"> if necessary<-">
  419.  
  420. <:#240,11578>    StatusBarMsg("Frame Glossary Now Installed.")    <+">'sets ami pro status Bar<-">
  421.  
  422. <:#240,11578>    Pause(15)
  423.  
  424. <:#240,11578>    StatusBarMsg("")        <+">'REsets the ami pro status bar<-">
  425.  
  426. <:s><:#240,11578>    Exit Function
  427.  
  428. <:#240,11578><+!>Tost:<-!>
  429.  
  430. <:s><:#240,11578>    Call Bomb()            <+">'Error Routine<-">
  431.  
  432. <:s><:#240,11578><+!>END FUNCTION<-!>
  433.  
  434. <:s><:#240,11578>
  435.  
  436. <:s><:#240,11578><+!>FUNCTION BODY()<-!>
  437.  
  438. <:#240,11578>    ONERROR Tost
  439.  
  440. <:#240,11578>    FileChanged(1,1)
  441.  
  442. <:#240,11578>    Curdoc=GetOpenFileCount()
  443.  
  444. <:#240,11578>    If CurDoc= 0
  445.  
  446. <:#240,11578>        Message("For this macro to run properly a document must be open. Please open a document and rerun the macro.")
  447.  
  448. <:#240,11578>        Exit Function
  449.  
  450. <:#240,11578>    Endif
  451.  
  452. <:#240,11578><:f,2Times New Roman,>    Mode = GetMode()        <+"> 'What mode is the screen in?<-">
  453.  
  454. <:#240,11578><:f,2Times New Roman,>    IF Mode != 1
  455.  
  456. <:#240,11578><:f,2Times New Roman,>        LayoutMode()        <+"> 'If not Layout Mode, change it to be Layout.<-">
  457.  
  458. <:#240,11578><:f,2Times New Roman,>    ENDIF<:f>
  459.  
  460. <:#240,11578><+!>Init:<-!>
  461.  
  462. <:#240,11578>    Docpath= GetmacPath$()    <+">    'Obtaines the default document path in which<-"><+"> the glossary data file is stored.<-">
  463.  
  464. <:#240,11578>    Whatdatafile=GetprofileString$("datafilesection", "datafilentry" , "AMIPRO2.INI")    <+">'Reads <[>datafile<-"><+">] section in Amipro2.ini.<-">
  465.  
  466. <:#240,11578>    Inientries=GetprofileString$("{Whatdatafile}", "numberoframes" , "AMIPRO2.INI")    <+">'Reads <[>framglos.sam<-"><+">] section in Amipro2.ini.<-">
  467.  
  468. <:#240,11578>    For x=1 to Inientries        <+">'This section skips deleted entries.<-">
  469.  
  470. <:#240,11578>        Namentry=(GetprofileString$("{Whatdatafile}", "name{x}" , "AMIPRO2.INI"))    <+">'In addition<-"><+"> it writes valid entries<-"><+"> to<-">
  471.  
  472. <:#240,11578>        If {Namentry} != "DELETED"    <+">'the display dialog box.<-">
  473.  
  474. <:#240,11578>            FillEdit(9000, {Namentry})    <+">'Puts the name of the frame<-"><+"> into the dialog box<-">
  475.  
  476. <:#240,11578>        EndIf
  477.  
  478. <:s><:#240,11578>    Next
  479.  
  480.         Filledit(1002,<:f200,2Times New Roman,255,127,255>UCase$(<:f>{Whatdatafile})<:f200,2Times New Roman,255,127,255>)<:f>    <+">'Puts the name of the data file into the dialog box.<-">
  481.  
  482. <:#240,11578>    DlgKeyInterrupt(112, "{Macpath}framglos.smm!DisplayHelp")
  483.  
  484. <:#240,11578>    Displayboxresult=DialogBox(".","<++>Display<-+>")    <+">'Displays main<-"><+"> option dialog box.<-">
  485.  
  486. <:s><:#240,11578><+!>Body:<-!>
  487.  
  488. <:#240,11578>    If Displayboxresult=1         <+">'Return value of 1<-"><+"> from dialog box  signifies retrieve frame and begins loop.<-">
  489.  
  490. <:#240,11578>        Isframe=IsFrameSelected()
  491.  
  492. <:#240,11578>        If isframe = 1
  493.  
  494. <:#240,11578>            Type(<[>ESC])
  495.  
  496. <:#240,11578>        Endif
  497.  
  498. <:#240,11578>        Hourglass(1)
  499.  
  500. <:#240,11578>        DosSetFileAttr("{Docpath}{Whatdatafile}", 32)    <+">'Changes data file form read only to 'not attribute'.<-">
  501.  
  502. <:#240,11578>        Fieldin=GetDialogField$(8000)    <+">'Stores the name of the frame to be retrieved<-">
  503.  
  504. <:#240,11578>        If Fieldin= ""        <+">'Error routine if<-"><+"> no frame is selected.<-">
  505.  
  506. <:s><:#240,11578>            Beep()
  507.  
  508. <:#240,11578>            Message("Please enter the frame name to be retrieved.")
  509.  
  510. <:#240,11578>            Goto Init
  511.  
  512. <:s><:#240,11578>            Exit Function
  513.  
  514. <:#240,11578>        EndIf
  515.  
  516. <:#240,11578>        Darkmode(1)
  517.  
  518. <:#240,11578>        FileOpen("{Docpath}{Whatdatafile}",1,"")    <+">'Opens the data file<-">
  519.  
  520. <:#240,11578>        SelectFrameByName({Fieldin})    <+">'Selects <-"><+">the frame to be retrieved<-">
  521.  
  522. <:s><:#240,11578>        Copy()
  523.  
  524. <:#240,11578>        FileClose()
  525.  
  526. <:#240,11578>        DosSetFileAttr("{Docpath}{Whatdatafile}", 1)    <+">'Chnage data file to read only.<-">
  527.  
  528. <:s><:#240,11578>        Paste()
  529.  
  530. <:#240,11578>        Darkmode(0)
  531.  
  532. <:#240,11578>        Hourglass(0)
  533.  
  534. <:#240,11578>        Exit Function
  535.  
  536. <:#240,11578>    ElseIf Displayboxresult=3 <+">    'Return value of 3<-"><+"> from dialog box  signifies save<-"><+"> and begins loop.<-">
  537.  
  538. <:#240,11578>        Isframe=IsFrameSelected()
  539.  
  540. <:#240,11578>        If isframe = 0
  541.  
  542. <:#240,11578>            Beep()
  543.  
  544. <:#240,11578>            Message("You must have a frame selected before you can save one. Please try again.")
  545.  
  546. <:#240,11578>            Exit Function
  547.  
  548. <:#240,11578>        Else
  549.  
  550. <:#245,11578>            Result =<+!> IsOKToRun<-!>(FontChange)
  551.  
  552. <:#240,11578>            If  Result=1
  553.  
  554. <:#240,11578>                Beep()
  555.  
  556. <:#240,11578>                Message("This frame is in text mode. Please exit the frame and reselect it.")
  557.  
  558. <:#240,11578>                Exit Function
  559.  
  560. <:#240,11578>            EndIf
  561.  
  562. <:#240,11578>        Endif
  563.  
  564. <:#240,11578>        Hourglass(1)
  565.  
  566. <:#240,11578>        Fieldad=GetDialogField$(8000)
  567.  
  568. <:#240,11578>            For x=1 to Inientries
  569.  
  570. <:#240,11578>            Namentry=GetprofileString$("{Whatdatafile}", "name{x}" , "AMIPRO2.INI")
  571.  
  572. <:#240,11578>            If Fieldad=Namentry    <+">'Error routine for duplicate frame names.<-">
  573.  
  574. <:s><:#240,11578>                Beep()
  575.  
  576. <:#240,11578>                Message("This frame name already exists in the current data file. Please use a unique name.")
  577.  
  578. <:#240,11578>            Goto init    <+">'Loop back to beginning
  579.  
  580. <:#240,11578>            EndIf
  581.  
  582. <:s><:#240,11578>            Next
  583.  
  584. <:#240,11578>            If Fieldad= ""    <+">'<-"><+">Error routine fo<-"><+">r no frame name entered.<-">
  585.  
  586. <:s><:#240,11578>                Beep()
  587.  
  588. <:#240,11578>                Message("Please enter the frame name to be saved.")
  589.  
  590. <:#240,11578>                Goto Init
  591.  
  592. <:#240,11578>            EndIf
  593.  
  594. <:#240,11578>        Copy()
  595.  
  596. <:#240,11578>        DosSetFileAttr("{Docpath}{Whatdatafile}", 32)
  597.  
  598. <:#240,11578>        Darkmode(1)
  599.  
  600. <:#240,11578>        FileOpen("{Docpath}{Whatdatafile}",1,"")
  601.  
  602. <:s><:#240,11578>        Paste()
  603.  
  604. <:#240,11578>        MarkBookMark(Fieldad, AddBookMark)    <+">'Tags pasted frame as a book mark.<-">
  605.  
  606. <:s><:#240,11578>        Save()
  607.  
  608. <:#240,11578>        FileClose()
  609.  
  610. <:#240,11578>        Darkmode(0)
  611.  
  612. <:#240,11578>        Add1=inientries + 1    <+">'Increment frame counter one to account for new frame<-">
  613.  
  614. <:#240,11578>        WriteProfileString("{Whatdatafile}", "numberoframes", Add1 , "AMIPRO2.INI")    <+">'makes this change<-"><+"> in<-"><+"> Amipro2.ini<-"><+">.<-">
  615.  
  616. <:#240,11578>        WriteProfileString("{Whatdatafile}", "name{Add1}" , fieldad , "AMIPRO2.INI")    <+">'<-"><+">'Adds frame name<-"><+"> to Amipro2.ini<-"><+">.<-">
  617.  
  618. <:#240,11578>        DosSetFileAttr("{Whatdatafile}", 1)
  619.  
  620. <:#240,11578>        Hourglass(0)
  621.  
  622. <:#240,11578>        Exit Function
  623.  
  624. <:#240,11578>    ElseIf    Displayboxresult =4    <+">'Return value of 4<-"><+"> from dialog box  signifies deletion<-"><+"> and begins loop.<-">
  625.  
  626. <:#240,11578>        Hourglass(1)
  627.  
  628. <:#240,11578>        Fielddel=GetDialogField$(8000)
  629.  
  630. <:#240,11578>            If Fielddel= ""    <+">'<-"><+">Error routine fo<-"><+">r<-"><+"> no frame name entered.<-">
  631.  
  632. <:s><:#240,11578>                Beep()
  633.  
  634. <:#240,11578>                Message("Please enter frame name to be deleted.")
  635.  
  636. <:#240,11578>                Goto Init
  637.  
  638. <:s><:#240,11578>                Exit Function
  639.  
  640. <:#240,11578>            EndIf
  641.  
  642. <:#240,11578>        DosSetFileAttr("{Docpath}{Whatdatafile}", 32)
  643.  
  644. <:#240,11578>        Darkmode(1)
  645.  
  646. <:#240,11578>        FileOpen("{Docpath}{Whatdatafile}",1,"")
  647.  
  648. <:#240,11578>        SelectFrameByName({Fielddel})    <+">'Selects the frame to be deleted<-">
  649.  
  650. <:s><:#240,11578>        Cut()
  651.  
  652. <:s><:#240,11578>        Save()
  653.  
  654. <:#240,11578>        FileClose()
  655.  
  656. <:#240,11578>        Darkmode(0)
  657.  
  658. <:#240,11578>        For x=1 to Inientries
  659.  
  660. <:#240,11578>        Namentry=GetprofileString$("{Whatdatafile}", "name{x}" , "AMIPRO2.INI")
  661.  
  662. <:#240,11578>            If Namentry=Fielddel
  663.  
  664. <:#240,11578>                WriteProfileString("{Whatdatafile}", "name{x}", "DELETED", "AMIPRO2.INI")
  665.  
  666. <:#240,11578>            EndIf        <+">'Tags the frame as being deleted.<-">
  667.  
  668. <:s><:#240,11578>        Next
  669.  
  670. <:#240,11578>        DosSetFileAttr("{Docpath}{Whatdatafile}", 1)
  671.  
  672. <:#240,11578>        Hourglass(0)
  673.  
  674. <:s><:#240,11578>        Exit Function
  675.  
  676. <:#240,11578>    ElseIf  Displayboxresult=5<+">     '<-"><+">5<-"><+"> Signifies Cancel. Before ending macro will reset to original condition.<-">
  677.  
  678. <:#240,11578>        DosSetFileAttr("{Docpath}{Whatdatafile}", 1)
  679.  
  680. <:s><:#240,11578>        Call Max()
  681.  
  682. <:s><:#240,11578><:f,2Times,>        IF Mode = 48
  683.  
  684. <:#245,11578><:f,2Times,>            OutlineMode()    <:f><+"> ' To change back to original view.<-">
  685.  
  686. <:#240,11578><:f,2Times,>        ElseIf<:f><:f,2Times,> Mode = 16
  687.  
  688. <:#240,11578><:f,2Times,>            DraftMode()
  689.  
  690. <:#240,11578><:f,2Times,>        EndIf<:f>
  691.  
  692. <:#240,11578>        Hourglass(0)
  693.  
  694. <:s><:#240,11578>        Exit Function
  695.  
  696. <:#240,11578>    ElseIf Displayboxresult=6    <+">     '7<-"><+"> Signifies Modify<-"><+"> Data File<-"><+">.<-">
  697.  
  698. <:s><:#240,11578>        Call Manipulation()    <+">'Calls the routine that does this computation. Is it complex.<-">
  699.  
  700. <:#240,11578>        Goto Init
  701.  
  702. <:s><:#240,11578>        Exit Function
  703.  
  704. <:#240,11578>    EndIf
  705.  
  706. <:s><:#240,11578>    <+!>Exit Function<-!>
  707.  
  708. <:#245,11578><+!>Tost:<-!>                    <+">'Error Routine.<-">
  709.  
  710. <:#240,11578>Darkmode(0)
  711.  
  712. <:#240,11578>Call Bomb()
  713.  
  714. <:s><:#240,11578><+!>END FUNCTION<-!>
  715.  
  716. <:s><:#240,11578>
  717.  
  718. <:#245,11578><+!><++>Function Max()<-+><-!><-!>            <+">'Maximizes active document<-"><+"> if it was the only one open before.<-"><-!>
  719.  
  720. <:#240,11578>    Size=GetOpenFileCount()        '<+">Testing if document<-"><+"> window had been maximized or not. If maximized<-">
  721.  
  722. <:#240,11578>    DIM fname(Size)    <+">    ' document<-"><+"> will be<-"><+"> returned to its maximized state.<-">
  723.  
  724. <:#240,11578>    GetOpenFileNames(&Fname)
  725.  
  726. <:#240,11578>    For y=1 to Size
  727.  
  728. <:#240,11578>    Curap=Fname(y)
  729.  
  730. <:#240,11578>    If size=1
  731.  
  732. <:#240,11578>        AppMaximize(curap)
  733.  
  734. <:#240,11578>    EndIf
  735.  
  736. <:#240,11578>    Next
  737.  
  738. <:s><:#240,11578><+!><++>End Function<-+><-!>
  739.  
  740. <:s><:#240,11578>
  741.  
  742. <:s><:#245,11578><+!><++>Function Manipulation()<-+><-!>        <+">'Section <+#>manipulates<-#> Data Files<-">
  743.  
  744. <:#245,11578><+!>Otherboxinit:<-!>                <+">'Sets up dialogbox.<-">
  745.  
  746. <:#240,11578>    datafiles=GetprofileString$("datafilelistsection", "filenumber" , "AMIPRO2.INI")
  747.  
  748. <:#240,11578>        For x=1 to datafiles
  749.  
  750.             Filentry=<:f200,2Times New Roman,255,127,255>Ucase$(<:f>GetprofileString$("datafilelistsection", "File{x}" , "AMIPRO2.INI")<:f200,2Times New Roman,255,127,255>)
  751.  
  752. <:#240,11578>            If {Filentry} != "DELETED"
  753.  
  754. <:#240,11578>            FillEdit(9000, {Filentry})
  755.  
  756. <:#240,11578>            EndIf
  757.  
  758. <:s><:#240,11578>        Next    
  759.  
  760. <:#245,11578><+!>Otherboxbody:<-!>                <+">'Sets up procedures<-"><+"> handles<-"><+"> by dialog box.<-">
  761.  
  762. <:#240,11578>    Docpath= GetmacPath$()
  763.  
  764. <:#240,11578>    DlgKeyInterrupt(112, "{Macpath}framglos.smm!Datafilechangehelp")
  765.  
  766. <:#240,11578>    Changedataboxresult=DialogBox ("." , "Datafilechange")
  767.  
  768. <:#240,11578>    File=<:f200,2Times New Roman,255,127,255>Ucase$(<:f>GetDialogField$(8000)<:f200,2Times New Roman,255,127,255>)
  769.  
  770. <:#240,11578>    If Changedataboxresult=1        <+">'1 Signifies change Data File.<-">
  771.  
  772. <:s><:#240,11578>        If File= ""
  773.  
  774. <:s><:#240,11578>            Beep()
  775.  
  776. <:#240,11578>            Message("Please enter name of data file to be used.")
  777.  
  778. <:#240,11578>            Goto Otherboxinit
  779.  
  780. <:s><:#240,11578>            Exit Function
  781.  
  782. <:#240,11578>            EndIf
  783.  
  784. <:#240,11578>        WriteProfileString("datafilesection", "datafilentry",File , "AMIPRO2.INI")    <+">'Adds entries to Amipro2.ini<-"><+">.<-">
  785.  
  786. <:s><:#240,11578>        Exit Function
  787.  
  788. <:#240,11578>    ElseIf  Changedataboxresult=3    <+">'3 Signifies create Data File.<-">
  789.  
  790. <:s><:#245,11578>        <+!>Create:<-!>
  791.  
  792. <:s><:#240,11578>        If File= ""        <+">'Error Routine if no file name is entered<-">
  793.  
  794. <:s><:#240,11578>            Beep()
  795.  
  796. <:#240,11578>            Message("Please enter name of data file to be Created.")
  797.  
  798. <:#240,11578>            Goto Otherboxinit
  799.  
  800. <:s><:#240,11578>            Exit Function
  801.  
  802. <:#240,11578>        EndIf
  803.  
  804. <:#240,11578>        Hourglass(1)
  805.  
  806. <:#240,11578>        Striptext=Strfield$({File},1,".")    <+">'Divides file entry into two fields. the extension<-"><+"> will be ignored<-">
  807.  
  808. <:#240,11578>        howmany= Len({Striptext})
  809.  
  810. <:#240,11578>        If Howmany << 9
  811.  
  812. <:#240,11578>            Ext=".sam"    <+">' and replaced with '.sam'<-">
  813.  
  814. <:#240,11578>            File=<:f200,2Times New Roman,255,127,255>Ucase$<:f>("{Striptext}{Ext}")
  815.  
  816. <:#240,11578>            New("_basic.sty", 0,0)    <+">'Creates a new file (default because a style sheet is required).<-">
  817.  
  818. <:#240,11578>            error=Saveas("{Docpath}{File}",32,"Data file for framglos.smm","")
  819.  
  820. <:#240,11578>            If error != 1    <+">'Error routine  for errors<-"><+"> saving the new data file<-">
  821.  
  822. <:#240,11578>                Beep()
  823.  
  824. <:#480,11578>                Message("There has been an error saving the document. Please ensure you have a default Macro path set in Tools\User Setup\Paths.")
  825.  
  826. <:#240,11578>            EndIf
  827.  
  828. <:#240,11578>            FileClose()
  829.  
  830. <:#240,11578>            DosSetFileAttr("{DocPath}{File}", 1)
  831.  
  832. <:#240,11578>        Else
  833.  
  834. <:#480,11578>            Message("You have entered {Howmany} characters. Please limit the data file name to 8 characters or less (not counting the extension).")
  835.  
  836. <:#240,11578>            Goto Otherboxinit
  837.  
  838. <:#240,11578>        EndIf
  839.  
  840. <:#245,11578>        <+!>Writetoini:<-!>        <+">'Section writes all entries into amipro2.ini<-">
  841.  
  842. <:#240,11578>        Add2= datafiles + 1    <+">'Variable to increment the number of data files in the amipro2.ini<-">
  843.  
  844. <:#240,11578>        WriteProfileString("datafilelistsection", "file{x}", File, "Amipro2.ini")
  845.  
  846. <:#240,11578>        WriteProfileString("datafilesection", "datafilentry", File , "AMIPRO2.INI")
  847.  
  848. <:#240,11578>        WriteProfileString("datafilelistsection", "filenumber", Add2 , "AMIPRO2.INI")
  849.  
  850. <:s><:#240,11578>        Exit Function
  851.  
  852. <:#240,11578>    ElseIf  Changedataboxresult=4    <+">'4 Signifies delete function<-">
  853.  
  854. <:#245,11578>        <+!>Deletfile:<-!>
  855.  
  856. <:s><:#240,11578>        If File= ""        <+">'error routine if no frame name is entered<-">
  857.  
  858. <:s><:#240,11578>            Beep()
  859.  
  860. <:#240,11578>            Message("Please enter name of data file to be deleted.")
  861.  
  862. <:#240,11578>            Goto Otherboxinit
  863.  
  864. <:s><:#240,11578>            Exit Function
  865.  
  866. <:#240,11578>            EndIf
  867.  
  868. <:#240,11578>        Decide=Multidecide("Are you sure you would like to delete the {File} data file?",4)    <+">'Confirmation?<-">
  869.  
  870. <:s><:#240,11578>        If Decide= 7
  871.  
  872. <:#240,11578>            Goto Otherboxinit
  873.  
  874. <:s><:#240,11578>            Exit Function
  875.  
  876. <:s><:#240,11578>        Else
  877.  
  878. <:#240,11578>        Hourglass(1)
  879.  
  880. <:#240,11578>        DosSetFileAttr("{Docpath}{File}", 32)
  881.  
  882. <:#240,11578>        Delerror=Dosdelfile("{Docpath}{File}")
  883.  
  884. <:#240,11578>        If delerror != 0        <+">'Error routine in case of error deleting file.<-">
  885.  
  886. <:s><:#240,11578>            Beep()
  887.  
  888. <:#480,11578>            Message("There has been an error deleting the file. Please check to ensure file exists and is in default Macro directory.")
  889.  
  890. <:#240,11578>            Goto Otherboxinit
  891.  
  892. <:#240,11578>            EndIf
  893.  
  894. <:#240,11578>        EndIf
  895.  
  896. <:#245,11578>        <+!>Adjustini:<-!>        <+">'Adjusts the amipro2.ini for new active data file<-">
  897.  
  898. <:#240,11578>        For x=1 to datafiles
  899.  
  900. <:#240,11578>            Filentry=<:f200,2Times New Roman,255,127,255>Ucase$(<:f>GetprofileString$("datafilelistsection", "File{x}" , "AMIPRO2.INI")<:f200,2Times New Roman,255,127,255>)<:f>
  901.  
  902. <:#240,11578>            If <:f200,2Times New Roman,255,127,255>Ucase$(<:f>File<:f200,2Times New Roman,255,127,255>)<:f>=filentry
  903.  
  904. <:#240,11578>                WriteProfileString("datafilelistsection", "File{x}", "DELETED", "AMIPRO2.INI")
  905.  
  906. <:#240,11578>            EndIf
  907.  
  908. <:s><:#240,11578>        Next
  909.  
  910. <:#240,11578>        currdatafile=GetprofileString$("datafilesection", "datafilentry" , "AMIPRO2.INI")
  911.  
  912. <:#240,11578>        If <:f200,2Times New Roman,255,127,255>Ucase$<:f200,2Times New Roman,255,127,255>(<:f>file<:f200,2Times New Roman,255,127,255>)<:f200,2Times New Roman,0,0,0>=<:f200,2Times New Roman,255,127,255>Ucase$(<:f>currdatafile<:f200,2Times New Roman,255,127,255>)<:f>
  913.  
  914. <:#240,11578>            Message("You have deleted you current data file. Please select another.")
  915.  
  916. <:#240,11578>        EndIf
  917.  
  918. <:#240,11578>        Goto Otherboxinit
  919.  
  920. <:s><:#240,11578>        Exit Function
  921.  
  922. <:#240,11578>    ElseIf Changedataboxresult=5    <+">'5 Sigifies cancel<-">
  923.  
  924. <:#240,11578>        Hourglass(0)
  925.  
  926. <:#240,11578>        Exit Function
  927.  
  928. <:#240,11578>    EndIf
  929.  
  930. <:s><:#240,11578><+!><++>End Function<-+><-!>
  931.  
  932. <:s><:#240,11578>
  933.  
  934. <:#240,11578><+!><++>FUNCTION DisplayHelp()<-+><-!>
  935.  
  936. <:#240,11578>    InsertIntro="<+#>To insert<-#><+#> a frame:<-#>"    <+">'This section creates<-"><+"> the text for<-"><+"> the help screen.<-">
  937.  
  938. <:#240,11578>    Insert="Select the frame name or type it in the Frame text box. Choose Insert."
  939.  
  940. <:#240,11578>    SaveIntro="<+#>To save<-#><+#> a frame:<-#>"
  941.  
  942. <:#240,11578>    Saveit="Select the frame in the document. Chose Frame/Frame Glossary. Type a name in the Frame text box. Choose Save."
  943.  
  944. <:#240,11578>    DeleteIntro="<+#>To delete a frame:<-#>"
  945.  
  946. <:#240,11578>    Deletetext="Select the frame name or type it in the Frame text box. Choose Delete."
  947.  
  948. <:#245,11578>    Modinit="<+#>To <-#><+#>use another<-#><+#> data file<-#><+#>:<-#><+!><+#>"<-#><-!>
  949.  
  950. <:#240,11578>    Mod="Choose Data File ."
  951.  
  952. <:#240,11578>    QuitIntro="<+#>To close the dialog box<-#><+#>:<-#>"
  953.  
  954. <:#240,11578>    Quit="Choose Close."
  955.  
  956. <:#240,11578>    Stop=chr$(13)
  957.  
  958. <:#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}")
  959.  
  960. <:#240,11578>    DialogBox(".","Help")        <+">'This overcomes character limit of single<-"><+"> edit box.<-">
  961.  
  962. <:s><:#240,11578><+!><++>END FUNCTION<-+><-!>
  963.  
  964. <:s><:#240,11578>
  965.  
  966. <:#240,11578><+!><++>Function Datafilechangehelp()<-+><-!>
  967.  
  968. <:#240,11578>    Intro="Although you can place an unlimited number if frames in the data file, the larger the file the slower the performance."
  969.  
  970. <:#240,11578>    SwitchIntro="<+#>To change<-#><+#> the data file<-#><+#>:<-#>"
  971.  
  972. <:#240,11578>    Switchit="Select the data file name or type it in the Change to text box. Choose Switch To."
  973.  
  974. <:#240,11578>    CreateIntro="<+#>To create a new data file<-#><+#>:<-#>"
  975.  
  976. <:#240,11578>    Create="Type the name you want to use for the data file. Choose Create."
  977.  
  978. <:#240,11578>    DeleteIntro="<+#>To delete a data file<-#><+#>:<-#>"
  979.  
  980. <:#240,11578>    Deletetext="Select the data file name or type it in text box. Choose Delete'."
  981.  
  982. <:#240,11578>    QuitIntro="<+#>To close the dialog box:<-#>"
  983.  
  984. <:#240,11578>    Quit="Select Close."
  985.  
  986. <:#240,11578>    Stop=chr$(13)
  987.  
  988. <:#720,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.<-">
  989.  
  990. <:#240,11578>    DialogBox("." "Datafilechangehelp")    <+">'This overcomes character limit of sigle edit box.<-">
  991.  
  992. <:s><:#240,11578><+!><++>End Function<-+><-!>
  993.  
  994. <:s><:#240,11578>
  995.  
  996. <:#245,11578><+!><++>FUNCTION<-+> <++>Bomb<-!><-+><+!><-+>()<-!><-+><-+><-+>            <+">'Error routine<-">
  997.  
  998. <:#240,11578>    Hourglass(0)
  999.  
  1000. <:#240,11578>    StatusBarMsg("")
  1001.  
  1002. <:s><:#240,11578>    <+!>Exit Function<-!>
  1003.  
  1004. <:s><:#240,11578><+!><++>END FUNCTION<-+><-!>
  1005.  
  1006. <+B><:#240,11578><+!><+#>'The following are dialog boxes called in functions above.<-#><-!>
  1007.  
  1008. @dialogbox@<:#240,11578><-!><-!><-!><-+>
  1009.  
  1010. @dialogbox@<:#240,11578><-+><-!>DIALOG    Display                <-!><-+><-!><-!><-!><-+>    'This sections sets up builds the main dialog box<-+><-!><-!><-!><-!><-+><-!><-+><-!><-+><-!><-+><-!><-+><-!><-+><-!><-+><-!><-+><-!><-+><-!><-+><-!><-+><-!><-+><-!><-+>
  1011.  
  1012. @dialogbox@<:#240,11578>-2134376448    11    162    58    139        124    ""    "AmiDialog"    "Frame Glossary"
  1013.  
  1014. @dialogbox@<:#240,11578>FONT    8    "Helv"
  1015.  
  1016. @dialogbox@<:#240,11578>6    16    84    12    8000    1350631552    "edit"    ""    0
  1017.  
  1018. @dialogbox@<:#240,11578>6    31    84    12    1003    1342177280    "static"    "Current Files:"    0 
  1019.  
  1020. @dialogbox@<:#240,11578>6    42    84    76    9000    1352728579    "listbox"    ""    0 
  1021.  
  1022. @dialogbox@<:#240,11578>94    5    42    15    1    1342373889    "button"    "&Retrieve"    0 
  1023.  
  1024. @dialogbox@<:#240,11578>94    23    42    15    3    1342373888    "button"    "&Save"    0 
  1025.  
  1026. @dialogbox@<:#240,11578>94    41    42    15    4    1342373888    "button"    "&Delete"    0 
  1027.  
  1028. @dialogbox@<:#240,11578>94    60    42    16    5    1342373888    "button"    "&Close"    0 
  1029.  
  1030. @dialogbox@<:#240,11578>6    6    84    10    1000    1342177280    "static"    "Frame:"    0 
  1031.  
  1032. @dialogbox@<:#240,11578>94    91    42    16    6    1342373888    "button"    "Data &File..."    0 
  1033.  
  1034. @dialogbox@<:#240,11578>40    110    56    10    1002    1342177280    "static"    ""    0 
  1035.  
  1036. @dialogbox@<:#240,11578>6    110    34    10    1001    1342177280    "static"    "Data File:"    0 
  1037.  
  1038. @dialogbox@<:#240,11578>END DIALOG
  1039.  
  1040. @dialogbox@<:#240,11578>
  1041.  
  1042. @dialogbox@<:#245,11578><-!><-!><-+><+!><++><:f200,2Times New Roman,0,0,0>DIALOG Datafilechange    <-+><-!><-+><:f><+"><:f200,2Times New Roman,0,0,0>                        'Sets up the dialog box for the Data FIle Manipulation procedure<-"><+">.<-"><-!><-+><-!><-+><-!><-+><:f>
  1043.  
  1044. @dialogbox@<:#240,11578><:f200,2Times New Roman,0,0,0>-2134376448 8<:f><:f200,2Times New Roman,0,0,0> 162 58 139 117<:f><:f200,2Times New Roman,0,0,0> "" "AmiDialog" "<:f><:f200,2Times New Roman,0,0,0>Data FIle"
  1045.  
  1046. @dialogbox@<:#240,11578><:f200,2Times New Roman,0,0,0>FONT 8 "Helv"
  1047.  
  1048. @dialogbox@<:#240,11578><:f200,2Times New Roman,0,0,0>6    16<:f><:f200,2Times New Roman,0,0,0>    <:f><:f200,2Times New Roman,0,0,0> 84    12    8000    1350631552 "edit" 
  1049.     ""    0 
  1050.  
  1051. @dialogbox@<:#240,11578>6    31    84    12    1002    1342177280    "static"    "Data Files:"    0  
  1052.  
  1053. @dialogbox@<:#240,11578><:f200,2Times New Roman,0,0,0>6    42<:f><:f200,2Times New Roman,0,0,0>    84    76<:f><:f200,2Times New Roman,0,0,0>    9000 
  1054.     1352728579     "listbox" ""    0 
  1055.  
  1056. @dialogbox@<:#240,11578><:f200,2Times New Roman,0,0,0>94<:f><:f200,2Times New Roman,0,0,0> 
  1057.     5     42<:f><:f200,2Times New Roman,0,0,0>     15     1     1342373889     "button"    "&Switch To" 
  1058.     0 
  1059.  
  1060. @dialogbox@<:#240,11578><:f200,2Times New Roman,0,0,0>94<:f><:f200,2Times New Roman,0,0,0> 
  1061.     23     42<:f><:f200,2Times New Roman,0,0,0>     15     3     1342373888     "button" "&Create"    0 
  1062.  
  1063. @dialogbox@<:#240,11578><:f200,2Times New Roman,0,0,0>94<:f><:f200,2Times New Roman,0,0,0> 
  1064.     41     42<:f><:f200,2Times New Roman,0,0,0>     15     4     1342373888     "button" "&Delete" 
  1065.     0 
  1066.  
  1067. @dialogbox@<:#240,11578><:f200,2Times New Roman,0,0,0>94<:f><:f200,2Times New Roman,0,0,0> 
  1068.     59     42<:f><:f200,2Times New Roman,0,0,0>     15     5     1342373888     "button" "C&lose<:f><:f200,2Times New Roman,0,0,0>" 
  1069.     0 
  1070.  
  1071. @dialogbox@<:#240,11578><:f200,2Times New Roman,0,0,0>6     5<:f><:f200,2Times New Roman,0,0,0> 
  1072.     80     10     1000     1342177280 "static"     "Change to:"     0 
  1073.  
  1074. @dialogbox@<:#240,11578><:f200,2Times New Roman,0,0,0><+!>END DIALOG <-!><-!><-+><:f>
  1075.  
  1076. <:#240,11578><+!><++>
  1077.  
  1078. @dialogbox@<:#245,11578><+!><++>DIALOG Help<-+><-!>                <+">                        'This section contains info for the help<-"><+"> dialog box.<-"><-">
  1079.  
  1080. @dialogbox@<:#240,11578>-2143289344     2 148 30 164 180 "" "" ""
  1081.  
  1082. @dialogbox@<:#240,11578>FONT 8 "Helv"
  1083.  
  1084. @dialogbox@<:#240,11578>60     160     40     14     1     1342373889 "button"     "OK"     0 
  1085.  
  1086. @dialogbox@<:#240,11578>4      6     151     145     1000     1342177280 "static"     "" 0 
  1087.  
  1088. @dialogbox@<:#240,11578><+!><++>END DIALOG<-+><-!>
  1089.  
  1090. <:#240,11578><-+>    <+">'This section contains info for the help<-"><+"> dialog box.<-">
  1091.  
  1092. <:#240,11578>
  1093.  
  1094. @dialogbox@<:#240,11578><+!><++>DIALOG DatafilechangeHelp
  1095.  
  1096. @dialogbox@<:#240,11578>-2143289344     2     148     30     164     180     ""     ""     ""
  1097.  
  1098. @dialogbox@<:#240,11578>FONT 8 "Helv"
  1099.  
  1100. @dialogbox@<:#240,11578>60     160     40     14 1    1342373889     "button"     "OK"     0 
  1101.  
  1102. @dialogbox@<:#240,11578>4      6     151    145     1000     1342177280     "static"    ""     0 
  1103.  
  1104. @dialogbox@<:#240,11578><+!><++>END DIALOG<-+><-!>
  1105.  
  1106. >
  1107.  
  1108. [Embedded]
  1109. 00029401
  1110. >
  1111. [macsum] 11
  1112. FRAMGLOS 0 0 9 2
  1113. BODY 1286 0 16 54
  1114. Max 4218 0 5 195
  1115. Manipulation 4438 0 16 207
  1116. DisplayHelp 7114 0 12 303
  1117. Datafilechangehelp 7767 0 11 319
  1118. Bomb 8476 0 1 334
  1119. Display 8528 0 -1 341
  1120. Datafilechange 9157 0 -1 357
  1121. Help 9638 0 -1 370
  1122. DatafilechangeHelp 9795 0 -1 378
  1123. [macse]
  1124. 14 FRAMGLOS
  1125. 0 1317
  1126. 13
  1127. 11 00000109
  1128. 0 3 "Macro not available while running under HP NewWave."
  1129. 6 0
  1130. 15
  1131. 9
  1132. 0 34 1 1
  1133. 0 1050
  1134. 13
  1135. 8 1
  1136. 6 1
  1137. 5 0
  1138. 18 0
  1139. 11 00000284
  1140. 0 3 "For this macro to run properly a document must be open. Please open a document and rerun the macro."
  1141. 6 0
  1142. 15
  1143. 9
  1144. 20 00001265
  1145. 0 295
  1146. 13
  1147. 8 2
  1148. 0 295
  1149. 13
  1150. 8 3
  1151. 0 520 1 "F&rame" "Frame Glossary..."
  1152. 13
  1153. 8 4
  1154. 0 527 1 "F&rame" 7 "Frame Glossary..." "{2}framglos.smm!Body()" "Load and save frames in a glossary file."
  1155. 6 4
  1156. 5 1
  1157. 18 0
  1158. 11 00000547
  1159. 16 Body
  1160. 6 0
  1161. 15
  1162. 9
  1163. 10 00000600
  1164. 0 789 "Installing Frame Glossary."
  1165. 13
  1166. 11 00000600
  1167. 0 286 "datafilesection" "datafilentry" "AMIPRO2.INI"
  1168. 13
  1169. 8 5
  1170. 0 286 "{5}" "numberoframes" "AMIPRO2.INI"
  1171. 13
  1172. 8 6
  1173. 6 5
  1174. 7 ""
  1175. 18 0
  1176. 11 00001186
  1177. 0 296 1
  1178. 0 287 "datafilelistsection" "file1" "Framglos.sam" "Amipro2.ini"
  1179. 0 287 "datafilesection" "datafilentry" "Framglos.sam" "AMIPRO2.INI"
  1180. 0 287 "datafilelistsection" "filenumber" "1" "AMIPRO2.INI"
  1181. 2 101 1 "_basic.sty" 0 0
  1182. 7 "framglos.sam"
  1183. 8 7
  1184. 2 104 1 "{3}{7}" 32 "Data file for framglos.smm" ""
  1185. 13
  1186. 8 8
  1187. 6 8
  1188. 5 1
  1189. 18 1
  1190. 11 00001150
  1191. 0 801
  1192. 0 3 "There has been an error creating the document."
  1193. 2 147 1
  1194. 0 776 "{3}{7}" 1
  1195. 0 296 0
  1196. 16 Max
  1197. 0 789 "Frame Glossary Now Installed."
  1198. 0 274 15
  1199. 0 789 ""
  1200. 6 0
  1201. 15
  1202. 9
  1203. 16 Bomb
  1204. 6 0
  1205. 15
  1206. 9
  1207. 14 BODY
  1208. 20 00002902
  1209. 0 34 1 1
  1210. 0 1050
  1211. 13
  1212. 8 1
  1213. 6 1
  1214. 5 0
  1215. 18 0
  1216. 11 00000197
  1217. 0 3 "For this macro to run properly a document must be open. Please open a document and rerun the macro."
  1218. 6 0
  1219. 15
  1220. 9
  1221. 0 29
  1222. 13
  1223. 8 2
  1224. 6 2
  1225. 5 1
  1226. 18 1
  1227. 11 00000250
  1228. 2 210 1
  1229. 0 295
  1230. 13
  1231. 8 3
  1232. 0 286 "datafilesection" "datafilentry" "AMIPRO2.INI"
  1233. 13
  1234. 8 4
  1235. 0 286 "{4}" "numberoframes" "AMIPRO2.INI"
  1236. 13
  1237. 8 5
  1238. 5 1
  1239. 8 6
  1240. 6 5
  1241. 6 6
  1242. 18 2
  1243. 12 00000466
  1244. 10 00000579
  1245. 5 1
  1246. 6 6
  1247. 3 0
  1248. 8 6
  1249. 10 00000391
  1250. 0 286 "{4}" "name{6}" "AMIPRO2.INI"
  1251. 13
  1252. 8 7
  1253. 6 7
  1254. 7 "DELETED"
  1255. 18 1
  1256. 11 00000566
  1257. 0 31 9000 "{7}"
  1258. 10 00000433
  1259. 0 18 "{4}"
  1260. 13
  1261. 0 31 1002 [X]
  1262. 0 47 112 "{8}framglos.smm!DisplayHelp"
  1263. 0 26 "." "Display"
  1264. 13
  1265. 8 9
  1266. 6 9
  1267. 5 1
  1268. 18 0
  1269. 11 00001061
  1270. 0 800
  1271. 13
  1272. 8 10
  1273. 6 10
  1274. 5 1
  1275. 18 0
  1276. 11 00000763
  1277. 0 6 27
  1278. 0 296 1
  1279. 0 776 "{3}{4}" 32
  1280. 0 27 8000
  1281. 13
  1282. 8 11
  1283. 6 11
  1284. 7 ""
  1285. 18 0
  1286. 11 00000927
  1287. 0 801
  1288. 0 3 "Please enter the frame name to be retrieved."
  1289. 10 00000250
  1290. 6 0
  1291. 15
  1292. 9
  1293. 0 292 1
  1294. 2 102 1 "{3}{4}" 1 ""
  1295. 0 797 "{11}"
  1296. 2 154 1
  1297. 2 147 1
  1298. 0 776 "{3}{4}" 1
  1299. 2 155 1
  1300. 0 292 0
  1301. 0 296 0
  1302. 6 0
  1303. 15
  1304. 9
  1305. 10 00002890
  1306. 6 9
  1307. 5 3
  1308. 18 0
  1309. 11 00002097
  1310. 0 800
  1311. 13
  1312. 8 10
  1313. 6 10
  1314. 5 0
  1315. 18 0
  1316. 11 00001250
  1317. 0 801
  1318. 0 3 "You must have a frame selected before you can save one. Please try again."
  1319. 6 0
  1320. 15
  1321. 9
  1322. 10 00001402
  1323. 0 1313 217 24 251
  1324. 13
  1325. 8 12
  1326. 6 12
  1327. 5 1
  1328. 18 0
  1329. 11 00001402
  1330. 0 801
  1331. 0 3 "This frame is in text mode. Please exit the frame and reselect it."
  1332. 6 0
  1333. 15
  1334. 9
  1335. 0 296 1
  1336. 0 27 8000
  1337. 13
  1338. 8 13
  1339. 5 1
  1340. 8 6
  1341. 6 5
  1342. 6 6
  1343. 18 2
  1344. 12 00001517
  1345. 10 00001716
  1346. 5 1
  1347. 6 6
  1348. 3 0
  1349. 8 6
  1350. 10 00001442
  1351. 0 286 "{4}" "name{6}" "AMIPRO2.INI"
  1352. 13
  1353. 8 7
  1354. 6 13
  1355. 6 7
  1356. 18 0
  1357. 11 00001703
  1358. 0 801
  1359. 0 3 "This frame name already exists in the current data file. Please use a unique name."
  1360. 10 00000250
  1361. 10 00001484
  1362. 6 13
  1363. 7 ""
  1364. 18 0
  1365. 11 00001815
  1366. 0 801
  1367. 0 3 "Please enter the frame name to be saved."
  1368. 10 00000250
  1369. 2 154 1
  1370. 0 776 "{3}{4}" 32
  1371. 0 292 1
  1372. 2 102 1 "{3}{4}" 1 ""
  1373. 2 155 1
  1374. 2 466 1 "{13}" 4003
  1375. 2 103 1
  1376. 2 147 1
  1377. 0 292 0
  1378. 6 5
  1379. 5 1
  1380. 3 0
  1381. 8 14
  1382. 0 287 "{4}" "numberoframes" "{14}" "AMIPRO2.INI"
  1383. 0 287 "{4}" "name{14}" "{13}" "AMIPRO2.INI"
  1384. 0 776 "{4}" 1
  1385. 0 296 0
  1386. 6 0
  1387. 15
  1388. 9
  1389. 10 00002890
  1390. 6 9
  1391. 5 4
  1392. 18 0
  1393. 11 00002639
  1394. 0 296 1
  1395. 0 27 8000
  1396. 13
  1397. 8 15
  1398. 6 15
  1399. 7 ""
  1400. 18 0
  1401. 11 00002265
  1402. 0 801
  1403. 0 3 "Please enter frame name to be deleted."
  1404. 10 00000250
  1405. 6 0
  1406. 15
  1407. 9
  1408. 0 776 "{3}{4}" 32
  1409. 0 292 1
  1410. 2 102 1 "{3}{4}" 1 ""
  1411. 0 797 "{15}"
  1412. 2 153 1
  1413. 2 103 1
  1414. 2 147 1
  1415. 0 292 0
  1416. 5 1
  1417. 8 6
  1418. 6 5
  1419. 6 6
  1420. 18 2
  1421. 12 00002451
  1422. 10 00002587
  1423. 5 1
  1424. 6 6
  1425. 3 0
  1426. 8 6
  1427. 10 00002376
  1428. 0 286 "{4}" "name{6}" "AMIPRO2.INI"
  1429. 13
  1430. 8 7
  1431. 6 7
  1432. 6 15
  1433. 18 0
  1434. 11 00002574
  1435. 0 287 "{4}" "name{6}" "DELETED" "AMIPRO2.INI"
  1436. 10 00002418
  1437. 0 776 "{3}{4}" 1
  1438. 0 296 0
  1439. 6 0
  1440. 15
  1441. 9
  1442. 10 00002890
  1443. 6 9
  1444. 5 5
  1445. 18 0
  1446. 11 00002819
  1447. 0 776 "{3}{4}" 1
  1448. 16 Max
  1449. 6 2
  1450. 5 48
  1451. 18 0
  1452. 11 00002746
  1453. 2 218 1
  1454. 10 00002785
  1455. 6 2
  1456. 5 16
  1457. 18 0
  1458. 11 00002785
  1459. 2 211 1
  1460. 0 296 0
  1461. 6 0
  1462. 15
  1463. 9
  1464. 10 00002890
  1465. 6 9
  1466. 5 6
  1467. 18 0
  1468. 11 00002890
  1469. 16 Manipulation
  1470. 10 00000250
  1471. 6 0
  1472. 15
  1473. 9
  1474. 6 0
  1475. 15
  1476. 9
  1477. 0 292 0
  1478. 16 Bomb
  1479. 6 0
  1480. 15
  1481. 9
  1482. 14 Max
  1483. 0 1050
  1484. 13
  1485. 8 1
  1486. 6 1
  1487. 21 2 [X]
  1488. 0 1051 &2
  1489. 5 1
  1490. 8 3
  1491. 6 1
  1492. 6 3
  1493. 18 2
  1494. 12 00000136
  1495. 10 00000208
  1496. 5 1
  1497. 6 3
  1498. 3 0
  1499. 8 3
  1500. 10 00000061
  1501. 6 3
  1502. 22 2
  1503. 8 4
  1504. 6 1
  1505. 5 1
  1506. 18 0
  1507. 11 00000195
  1508. 0 1029 "{4}"
  1509. 10 00000103
  1510. 6 0
  1511. 15
  1512. 9
  1513. 14 Manipulation
  1514. 0 286 "datafilelistsection" "filenumber" "AMIPRO2.INI"
  1515. 13
  1516. 8 1
  1517. 5 1
  1518. 8 2
  1519. 6 1
  1520. 6 2
  1521. 18 2
  1522. 12 00000167
  1523. 10 00000310
  1524. 5 1
  1525. 6 2
  1526. 3 0
  1527. 8 2
  1528. 10 00000092
  1529. 0 286 "datafilelistsection" "File{2}" "AMIPRO2.INI"
  1530. 13
  1531. 0 18 [X]
  1532. 13
  1533. 8 3
  1534. 6 3
  1535. 7 "DELETED"
  1536. 18 1
  1537. 11 00000297
  1538. 0 31 9000 "{3}"
  1539. 10 00000134
  1540. 0 295
  1541. 13
  1542. 8 4
  1543. 0 47 112 "{5}framglos.smm!Datafilechangehelp"
  1544. 0 26 "." "Datafilechange"
  1545. 13
  1546. 8 6
  1547. 0 27 8000
  1548. 13
  1549. 0 18 [X]
  1550. 13
  1551. 8 7
  1552. 6 6
  1553. 5 1
  1554. 18 0
  1555. 11 00000669
  1556. 6 7
  1557. 7 ""
  1558. 18 0
  1559. 11 00000584
  1560. 0 801
  1561. 0 3 "Please enter name of data file to be used."
  1562. 10 00000017
  1563. 6 0
  1564. 15
  1565. 9
  1566. 0 287 "datafilesection" "datafilentry" "{7}" "AMIPRO2.INI"
  1567. 6 0
  1568. 15
  1569. 9
  1570. 10 00002664
  1571. 6 6
  1572. 5 3
  1573. 18 0
  1574. 11 00001600
  1575. 6 7
  1576. 7 ""
  1577. 18 0
  1578. 11 00000813
  1579. 0 801
  1580. 0 3 "Please enter name of data file to be Created."
  1581. 10 00000017
  1582. 6 0
  1583. 15
  1584. 9
  1585. 0 296 1
  1586. 0 20 "{7}" 1 "."
  1587. 13
  1588. 8 8
  1589. 0 14 "{8}"
  1590. 13
  1591. 8 9
  1592. 6 9
  1593. 5 9
  1594. 18 5
  1595. 11 00001233
  1596. 7 ".sam"
  1597. 8 10
  1598. 0 18 "{8}{10}"
  1599. 13
  1600. 8 7
  1601. 2 101 1 "_basic.sty" 0 0
  1602. 2 104 1 "{4}{7}" 32 "Data file for framglos.smm" ""
  1603. 13
  1604. 8 11
  1605. 6 11
  1606. 5 1
  1607. 18 1
  1608. 11 00001193
  1609. 0 801
  1610. 0 3 "There has been an error saving the document. Please ensure you have a default Macro path set in Tools\User Setup\Paths."
  1611. 2 147 1
  1612. 0 776 "{4}{7}" 1
  1613. 10 00001372
  1614. 0 3 "You have entered {9} characters. Please limit the data file name to 8 characters or less (not counting the extension)."
  1615. 10 00000017
  1616. 6 1
  1617. 5 1
  1618. 3 0
  1619. 8 12
  1620. 0 287 "datafilelistsection" "file{2}" "{7}" "Amipro2.ini"
  1621. 0 287 "datafilesection" "datafilentry" "{7}" "AMIPRO2.INI"
  1622. 0 287 "datafilelistsection" "filenumber" "{12}" "AMIPRO2.INI"
  1623. 6 0
  1624. 15
  1625. 9
  1626. 10 00002664
  1627. 6 6
  1628. 5 4
  1629. 18 0
  1630. 11 00002614
  1631. 6 7
  1632. 7 ""
  1633. 18 0
  1634. 11 00001744
  1635. 0 801
  1636. 0 3 "Please enter name of data file to be deleted."
  1637. 10 00000017
  1638. 6 0
  1639. 15
  1640. 9
  1641. 0 21 "Are you sure you would like to delete the {7} data file?" 4
  1642. 13
  1643. 8 13
  1644. 6 13
  1645. 5 7
  1646. 18 0
  1647. 11 00001889
  1648. 10 00000017
  1649. 6 0
  1650. 15
  1651. 9
  1652. 10 00002113
  1653. 0 296 1
  1654. 0 776 "{4}{7}" 32
  1655. 0 779 "{4}{7}"
  1656. 13
  1657. 8 14
  1658. 6 14
  1659. 5 0
  1660. 18 1
  1661. 11 00002113
  1662. 0 801
  1663. 0 3 "There has been an error deleting the file. Please check to ensure file exists and is in default Macro directory."
  1664. 10 00000017
  1665. 5 1
  1666. 8 2
  1667. 6 1
  1668. 6 2
  1669. 18 2
  1670. 12 00002198
  1671. 10 00002390
  1672. 5 1
  1673. 6 2
  1674. 3 0
  1675. 8 2
  1676. 10 00002123
  1677. 0 286 "datafilelistsection" "File{2}" "AMIPRO2.INI"
  1678. 13
  1679. 0 18 [X]
  1680. 13
  1681. 8 3
  1682. 0 18 "{7}"
  1683. 13
  1684. 6 3
  1685. 18 0
  1686. 11 00002377
  1687. 0 287 "datafilelistsection" "File{2}" "DELETED" "AMIPRO2.INI"
  1688. 10 00002165
  1689. 0 286 "datafilesection" "datafilentry" "AMIPRO2.INI"
  1690. 13
  1691. 8 15
  1692. 0 18 "{7}"
  1693. 13
  1694. 0 18 "{15}"
  1695. 13
  1696. 18 0
  1697. 11 00002576
  1698. 0 3 "You have deleted you current data file. Please select another."
  1699. 10 00000017
  1700. 6 0
  1701. 15
  1702. 9
  1703. 10 00002664
  1704. 6 6
  1705. 5 5
  1706. 18 0
  1707. 11 00002664
  1708. 0 296 0
  1709. 6 0
  1710. 15
  1711. 9
  1712. 6 0
  1713. 15
  1714. 9
  1715. 14 DisplayHelp
  1716. 7 "To insert a frame:"
  1717. 8 1
  1718. 7 "Select the frame name or type it in the Frame text box. Choose Insert."
  1719. 8 2
  1720. 7 "To save a frame:"
  1721. 8 3
  1722. 7 "Select the frame in the document. Chose Frame/Frame Glossary. Type a name in the Frame text box. Choose Save."
  1723. 8 4
  1724. 7 "To delete a frame:"
  1725. 8 5
  1726. 7 "Select the frame name or type it in the Frame text box. Choose Delete."
  1727. 8 6
  1728. 7 "To use another data file:"
  1729. 8 7
  1730. 7 "Choose Data File ."
  1731. 8 8
  1732. 7 "To close the dialog box:"
  1733. 8 9
  1734. 7 "Choose Close."
  1735. 8 10
  1736. 0 39 13
  1737. 13
  1738. 8 11
  1739. 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}"
  1740. 0 26 "." "Help"
  1741. 6 0
  1742. 15
  1743. 9
  1744. 14 Datafilechangehelp
  1745. 7 "Although you can place an unlimited number if frames in the data file, the larger the file the slower the performance."
  1746. 8 1
  1747. 7 "To change the data file:"
  1748. 8 2
  1749. 7 "Select the data file name or type it in the Change to text box. Choose Switch To."
  1750. 8 3
  1751. 7 "To create a new data file:"
  1752. 8 4
  1753. 7 "Type the name you want to use for the data file. Choose Create."
  1754. 8 5
  1755. 7 "To delete a data file:"
  1756. 8 6
  1757. 7 "Select the data file name or type it in text box. Choose Delete'."
  1758. 8 7
  1759. 7 "To close the dialog box:"
  1760. 8 8
  1761. 7 "Select Close."
  1762. 8 9
  1763. 0 39 13
  1764. 13
  1765. 8 10
  1766. 0 31 1000 "{1}{10}{10}{2}{10}{3}{10}{10}{4}{10}{5}{10}{10}{6}{10}{7}{10}{10}{8}{10}{9}"
  1767. 0 26 "." "Datafilechangehelp"
  1768. 6 0
  1769. 15
  1770. 9
  1771. 14 Bomb
  1772. 0 296 0
  1773. 0 789 ""
  1774. 6 0
  1775. 15
  1776. 9
  1777. 6 0
  1778. 15
  1779. 9
  1780. DIALOG Display
  1781. -2134376448 11 162 58 139 124 "" "AmiDialog" "Frame Glossary" 
  1782. FONT 8 "Helv" 
  1783. 6 16 84 12 8000 1350631552 "edit" "" 0 
  1784. 6 31 84 12 1003 1342177280 "static" "Current Files:" 0 
  1785. 6 42 84 76 9000 1352728579 "listbox" "" 0 
  1786. 94 5 42 15 1 1342373889 "button" "&Retrieve" 0 
  1787. 94 23 42 15 3 1342373888 "button" "&Save" 0 
  1788. 94 41 42 15 4 1342373888 "button" "&Delete" 0 
  1789. 94 60 42 16 5 1342373888 "button" "&Close" 0 
  1790. 6 6 84 10 1000 1342177280 "static" "Frame:" 0 
  1791. 94 91 42 16 6 1342373888 "button" "Data &File..." 0 
  1792. 40 110 56 10 1002 1342177280 "static" "" 0 
  1793. 6 110 34 10 1001 1342177280 "static" "Data File:" 0 
  1794. DIALOG Datafilechange
  1795. -2134376448 8 162 58 139 117 "" "AmiDialog" "Data FIle" 
  1796. FONT 8 "Helv" 
  1797. 6 16 84 12 8000 1350631552 "edit" "" 0 
  1798. 6 31 84 12 1002 1342177280 "static" "Data Files:" 0 
  1799. 6 42 84 76 9000 1352728579 "listbox" "" 0 
  1800. 94 5 42 15 1 1342373889 "button" "&Switch To" 0 
  1801. 94 23 42 15 3 1342373888 "button" "&Create" 0 
  1802. 94 41 42 15 4 1342373888 "button" "&Delete" 0 
  1803. 94 59 42 15 5 1342373888 "button" "C&lose" 0 
  1804. 6 5 80 10 1000 1342177280 "static" "Change to:" 0 
  1805. DIALOG Help
  1806. -2143289344 2 148 30 164 180 "" "" "" 
  1807. FONT 8 "Helv" 
  1808. 60 160 40 14 1 1342373889 "button" "OK" 0 
  1809. 4 6 151 145 1000 1342177280 "static" "" 0 
  1810. DIALOG DatafilechangeHelp
  1811. -2143289344 2 148 30 164 180 "" "" "" 
  1812. FONT 8 "Helv" 
  1813. 60 160 40 14 1 1342373889 "button" "OK" 0 
  1814. 4 6 151 145 1000 1342177280 "static" "" 0 
  1815. 00029426
  1816.