home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / sharewar / win95nt / tekst / wideami / wideopen.smm < prev   
Encoding:
INI File  |  1995-09-12  |  30.5 KB  |  1,605 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 DeskJet 500
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     
  19.     
  20.     
  21.     
  22.     
  23.     810952929
  24.     19
  25.     806460105
  26.     2555
  27.     10
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     1
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [ParaNum]
  54.     1
  55. [tag]
  56.     Body Text
  57.     2
  58.     [fnt]
  59.         Arial
  60.         240
  61.         0
  62.         16384
  63.     [algn]
  64.         1
  65.         1
  66.         216
  67.         0
  68.         0
  69.     [spc]
  70.         33
  71.         273
  72.         1
  73.         0
  74.         0
  75.         1
  76.         100
  77.     [brk]
  78.         4
  79.     [line]
  80.         8
  81.         0
  82.         1
  83.         0
  84.         1
  85.         1
  86.         1
  87.         10
  88.         10
  89.         1
  90.     [spec]
  91.         0
  92.         0
  93.         
  94.         0
  95.         1
  96.         1
  97.         0
  98.         16
  99.         0
  100.         0
  101.     [nfmt]
  102.         272
  103.         1
  104.         3
  105.         .
  106.         ,
  107.         $
  108.     Body Text
  109.     0
  110.     0
  111. [tag]
  112.     Body Single
  113.     3
  114.     [fnt]
  115.         Times New Roman
  116.         240
  117.         0
  118.         49152
  119.     [algn]
  120.         1
  121.         1
  122.         0
  123.         0
  124.         0
  125.     [spc]
  126.         33
  127.         273
  128.         1
  129.         0
  130.         0
  131.         1
  132.         100
  133.     [brk]
  134.         4
  135.     [line]
  136.         8
  137.         0
  138.         1
  139.         0
  140.         1
  141.         1
  142.         1
  143.         10
  144.         10
  145.         1
  146.     [spec]
  147.         0
  148.         0
  149.         
  150.         0
  151.         1
  152.         1
  153.         0
  154.         0
  155.         0
  156.         0
  157.     [nfmt]
  158.         280
  159.         1
  160.         2
  161.         .
  162.         ,
  163.         $
  164.     Body Single
  165.     0
  166.     0
  167. [tag]
  168.     Function
  169.     4
  170.     [fnt]
  171.         Arial
  172.         240
  173.         0
  174.         16385
  175.     [algn]
  176.         1
  177.         1
  178.         0
  179.         0
  180.         0
  181.     [spc]
  182.         33
  183.         244
  184.         1
  185.         0
  186.         0
  187.         1
  188.         100
  189.     [brk]
  190.         68
  191.     [line]
  192.         8
  193.         0
  194.         1
  195.         0
  196.         1
  197.         1
  198.         1
  199.         10
  200.         10
  201.         1
  202.     [spec]
  203.         0
  204.         1
  205.         
  206.         0
  207.         1
  208.         1
  209.         0
  210.         0
  211.         0
  212.         0
  213.     [nfmt]
  214.         272
  215.         1
  216.         3
  217.         .
  218.         ,
  219.         $
  220.     Body Text
  221.     0
  222.     0
  223. [tag]
  224.     Table Text
  225.     5
  226.     [fnt]
  227.         Arial
  228.         240
  229.         0
  230.         16384
  231.     [algn]
  232.         1
  233.         1
  234.         0
  235.         0
  236.         0
  237.     [spc]
  238.         33
  239.         273
  240.         1
  241.         0
  242.         0
  243.         1
  244.         100
  245.     [brk]
  246.         4
  247.     [line]
  248.         8
  249.         0
  250.         1
  251.         0
  252.         1
  253.         1
  254.         1
  255.         10
  256.         10
  257.         1
  258.     [spec]
  259.         0
  260.         0
  261.         
  262.         0
  263.         1
  264.         1
  265.         0
  266.         0
  267.         0
  268.         0
  269.     [nfmt]
  270.         272
  271.         1
  272.         3
  273.         .
  274.         ,
  275.         $
  276.     Table Text
  277.     0
  278.     0
  279. [tag]
  280.     FuncBody
  281.     6
  282.     [fnt]
  283.         Arial
  284.         240
  285.         0
  286.         16384
  287.     [algn]
  288.         1
  289.         1
  290.         216
  291.         0
  292.         0
  293.     [spc]
  294.         33
  295.         273
  296.         1
  297.         0
  298.         0
  299.         1
  300.         100
  301.     [brk]
  302.         36
  303.     [line]
  304.         8
  305.         0
  306.         1
  307.         0
  308.         1
  309.         1
  310.         1
  311.         10
  312.         10
  313.         1
  314.     [spec]
  315.         0
  316.         0
  317.         
  318.         0
  319.         1
  320.         1
  321.         0
  322.         16
  323.         0
  324.         0
  325.     [nfmt]
  326.         272
  327.         1
  328.         3
  329.         .
  330.         ,
  331.         $
  332.     Body Text
  333.     0
  334.     0
  335. [lay]
  336.     Standard
  337.     513
  338.     [rght]
  339.         15840
  340.         12240
  341.         1
  342.         540
  343.         1440
  344.         1
  345.         1440
  346.         2340
  347.         0
  348.         1
  349.         0
  350.         1
  351.         0
  352.         2
  353.         1
  354.         540
  355.         9900
  356.         12
  357.         1
  358.         720
  359.         1
  360.         1440
  361.         1
  362.         2160
  363.         1
  364.         2880
  365.         1
  366.         3600
  367.         1
  368.         4320
  369.         1
  370.         5040
  371.         1
  372.         5760
  373.         1
  374.         6480
  375.         1
  376.         7200
  377.         1
  378.         7920
  379.         1
  380.         8640
  381.     [hrght]
  382.     [lyfrm]
  383.         1
  384.         11200
  385.         0
  386.         0
  387.         12240
  388.         1440
  389.         0
  390.         1
  391.         3
  392.         1 0 0 0 0 0 0
  393.         0
  394.         0
  395.         1
  396.     [frmlay]
  397.         1440
  398.         12240
  399.         1
  400.         1440
  401.         72
  402.         1
  403.         792
  404.         1440
  405.         0
  406.         1
  407.         0
  408.         1
  409.         1
  410.         0
  411.         1
  412.         1440
  413.         10800
  414.         1
  415.         3
  416.         9360
  417.     [txt]
  418. >
  419.     [frght]
  420.     [lyfrm]
  421.         1
  422.         13248
  423.         0
  424.         14400
  425.         12240
  426.         15840
  427.         0
  428.         1
  429.         3
  430.         1 0 0 0 0 0 0
  431.         0
  432.         0
  433.         2
  434.     [frmlay]
  435.         15840
  436.         12240
  437.         1
  438.         1440
  439.         792
  440.         1
  441.         14472
  442.         1440
  443.         0
  444.         1
  445.         0
  446.         1
  447.         1
  448.         0
  449.         1
  450.         1440
  451.         10800
  452.         2
  453.         2
  454.         4680
  455.         3
  456.         9360
  457.     [txt]
  458. >
  459. [elay]
  460. [l1]
  461.     0
  462. [pg]
  463.     10
  464.     43 0 30 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
  465.     87 0 5 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  466.     125 0 5 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  467.     129 0 5 512 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
  468.     171 0 5 512 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
  469.     212 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
  470.     227 0 5 512 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
  471.     237 0 5 512 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
  472.     282 0 5 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  473.     286 0 0 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
  474. [edoc]
  475. <:#284,9360><-!><-!><-!><-!><-">' Select Tools | Macro | Playback and choose this file to install WideOpen
  476.  
  477. <:#284,9360>' Please read WIDEOPEN.SAM for documentation
  478.  
  479. <:#284,9360>
  480.  
  481. <:#284,9360>Declare GetPathFromFile$(file$)
  482.  
  483. <:#293,9360><+!>
  484.  
  485. <:#293,9360><+!>FUNCTION WideOpenInstall<-!><+!>()<-!>
  486.  
  487. <:I720,0,0,0><:#284,9360>if (Decide("Install WideOpen now?")=0) then
  488.  
  489. <:I720,0,0,0><:#284,9360>    exit function
  490.  
  491. <:I720,0,0,0><:#284,9360>endif
  492.  
  493. <:I720,0,0,0><:#284,9360>path$ = GetPathFromFile$(GetRunningMacroFile$())
  494.  
  495. <:I720,0,0,0><:#284,9360>src$=strcat$(path$, "wideopen.smm")
  496.  
  497. <:I720,0,0,0><:#284,9360>dest$ = strcat$(GetMacPath$(), "wideopen.smm")
  498.  
  499. <:I720,0,0,0><:#284,9360>
  500.  
  501. <:I720,0,0,0><:#284,9360>if (DOSGetFileAttr(dest$) <<<;> -1) then
  502.  
  503. <:I720,0,0,0><:#284,9360>    if decide("{dest$} exists already.  Do you want to overwrite it?")=1 then
  504.  
  505. <:I720,0,0,0><:#284,9360>        DosCopyFile(src$, dest$)
  506.  
  507. <:I720,0,0,0><:#284,9360>    endif
  508.  
  509. <:I720,0,0,0><:#284,9360>else
  510.  
  511. <:I720,0,0,0><:#284,9360>    DosCopyFile(src$, dest$)
  512.  
  513. <:I720,0,0,0><:#284,9360>endif    
  514.  
  515. <:I720,0,0,0><:#284,9360>
  516.  
  517. <:I720,0,0,0><:#284,9360>if DOSGetFileAttr(dest$)=-1 then 
  518.  
  519. <:I720,0,0,0><:#568,9360>    Message("Failed to copy {src$} to {dest$}.  WideOpen not installed; try manual install.")
  520.  
  521. <:I720,0,0,0><:#284,9360>    exit function
  522.  
  523. <:I720,0,0,0><:#284,9360>endif
  524.  
  525. <:I720,0,0,0><:#284,9360>
  526.  
  527. <:I720,0,0,0><:#284,9360>src$=strcat$(path$, "widen14.exe")
  528.  
  529. <:I720,0,0,0><:#284,9360>dest$=strcat$(GetWindowsDirectory$(), "widen14.exe")
  530.  
  531. <:I720,0,0,0>Exec(strcat$(src$, " -shutdown"), 1)
  532.  
  533. <:I720,0,0,0><:#284,9360>if (DOSGetFileAttr(dest$) <<<;> -1) then
  534.  
  535. <:I720,0,0,0><:#284,9360>    if decide("{dest$} exists already.  Do you want to overwrite it?")=1 then
  536.  
  537. <:I720,0,0,0><:#284,9360>        DosCopyFile(src$, dest$)
  538.  
  539. <:I720,0,0,0><:#284,9360>    endif
  540.  
  541. <:I720,0,0,0><:#284,9360>else
  542.  
  543. <:I720,0,0,0><:#284,9360>    DosCopyFile(src$, dest$)
  544.  
  545. <:I720,0,0,0><:#284,9360>endif    
  546.  
  547. <:I720,0,0,0><:#284,9360>
  548.  
  549. <:I720,0,0,0><:#284,9360>if DOSGetFileAttr(dest$)=-1 then 
  550.  
  551. <:I720,0,0,0><:#568,9360>    Message("Failed to copy {src$} to {dest$}.  WideOpen not installed; try manual install.")
  552.  
  553. <:I720,0,0,0><:#284,9360>    exit function
  554.  
  555. <:I720,0,0,0><:#284,9360>endif
  556.  
  557. <:I720,0,0,0><:#284,9360>
  558.  
  559. <:I720,0,0,0><:#284,9360>Call WideOpenInstallAutoExec()
  560.  
  561. <:I720,0,0,0><:#284,9360>Message("WideOpen installed!")
  562.  
  563. <:#284,9360>END FUNCTION
  564.  
  565. <:#284,9360>
  566.  
  567. <:#293,9360><+!>FUNCTION GetPathFromFile$(file$)<-!>
  568.  
  569. <:#284,9360>    length = len(file$)
  570.  
  571. <:#284,9360>    c=length
  572.  
  573. <:#284,9360>    while (c<;>1 AND (NOT mid$(file$, c, 1) = "\"))
  574.  
  575. <:#284,9360>        c= c - 1
  576.  
  577. <:#284,9360>    wend
  578.  
  579. <:#284,9360>    GetPathFromFile$ = Left$(file$, c)
  580.  
  581. <:#293,9360><+!>END FUNCTION<-!>
  582.  
  583. <:#284,9360>
  584.  
  585. <:#293,9360><+!>FUNCTION GetName<-!><+!>FromPath<-!><+!>$(file$)<-!>
  586.  
  587. <:#284,9360>    length = len(file$)
  588.  
  589. <:#284,9360>    c=length
  590.  
  591. <:#284,9360>    while (c<;>1 AND (NOT mid$(file$, c, 1) = "\"))
  592.  
  593. <:#284,9360>        c= c - 1
  594.  
  595. <:#284,9360>    wend
  596.  
  597. <:#284,9360>    GetNameFromPath$ = Right$(file$, length-c)
  598.  
  599. <:#293,9360><+!>END FUNCTION<-!>
  600.  
  601. <:#284,9360>
  602.  
  603. <:#293,9360><+!>FUNCTION WideOpenInstallAutoExec<-!><+!>()<-!>
  604.  
  605. <:I720,0,0,0><:#284,9360>declare OpenAutoExec()
  606.  
  607. <:I720,0,0,0><:#284,9360><:><:>StatusBarMsg("Installing wideopen in AUTOEXEC.SMM")
  608.  
  609. <:I720,0,0,0><:#284,9360>OpenAutoExec()
  610.  
  611. <:I720,0,0,0><:#568,9360>Replace(0,0,FindFromPage1 + ReplaceAll, "call wideopen.smm!InstallWideOpenMenus()", "")
  612.  
  613. <:I720,0,0,0><:#284,9360>Save()                    ' and save it
  614.  
  615. <:I720,0,0,0><:#284,9360>FileClose()                ' and close it
  616.  
  617. <:I720,0,0,0><:#284,9360>
  618.  
  619. <:I720,0,0,0><:#284,9360>OpenAutoExec()
  620.  
  621. <:I720,0,0,0><:#284,9360>type("call wideopen.smm!InstallWideOpenMenus()")
  622.  
  623. <:I720,0,0,0><:#284,9360><:><:>StatusBarMsg("Saving AUTOEXEC.SMM")
  624.  
  625. <:I720,0,0,0><:#284,9360>Save()                    ' and save it
  626.  
  627. <:I720,0,0,0><:#284,9360>FileClose()                ' and close it
  628.  
  629. <:I720,0,0,0><:#284,9360>DECLARE InstallWideOpenMenus()
  630.  
  631. <:I720,0,0,0><:#284,9360>InstallWideOpenMenus()
  632.  
  633. <:I720,0,0,0><:#284,9360><:><:>StatusBarMsg("WideOpen installed")
  634.  
  635. <:I720,0,0,0><:#284,9360>StatusBarMsg("")
  636.  
  637. <:#284,9360>END FUNCTION
  638.  
  639. <:#293,9360><+!>
  640.  
  641. <:#293,9360><+!>FUNCTION WideOpenUninstall<-!><+!>()<-!>
  642.  
  643. <:I720,0,0,0><:#284,9360>if (Decide("Are you sure you want to uninstall WideOpen now?")=0) then
  644.  
  645. <:I720,0,0,0><:#284,9360>    exit function
  646.  
  647. <:I720,0,0,0><:#284,9360>endif
  648.  
  649. <:I720,0,0,0><:#284,9360>declare OpenAutoExec()
  650.  
  651. <:I720,0,0,0><:#284,9360><:><:>StatusBarMsg("Uninstalling wideopen in AUTOEXEC.SMM")
  652.  
  653. <:I720,0,0,0><:#284,9360>OpenAutoExec()
  654.  
  655. <:I720,0,0,0><:#568,9360>Replace(0,0,FindFromPage1 + ReplaceAll, "call wideopen.smm!InstallWideOpenMenus()", "")
  656.  
  657. <:I720,0,0,0><:#284,9360>
  658.  
  659. <:I720,0,0,0><:#284,9360><:><:>StatusBarMsg("Saving AUTOEXEC.SMM")
  660.  
  661. <:I720,0,0,0><:#284,9360>Save()                    ' and save it
  662.  
  663. <:I720,0,0,0><:#284,9360>FileClose()                ' and close it
  664.  
  665. <:I720,0,0,0><:#284,9360><:><:>StatusBarMsg("WideOpen uninstalled")
  666.  
  667. <:I720,0,0,0><:#568,9360>Message("WideOpen uninstalled-- The next time Ami Pro is started, WideOpen will not be used.")
  668.  
  669. <:I720,0,0,0><:#284,9360>StatusBarMsg("")
  670.  
  671. <:#284,9360>END FUNCTION
  672.  
  673. <:#293,9360><+!>
  674.  
  675. <:#293,9360><+!>
  676.  
  677. <:#293,9360><+!>FUNCTION InstallWideOpenMenus()
  678.  
  679. <:I720,0,0,0><:#284,9360>menu="&File"
  680.  
  681. <:I720,0,0,0><:#284,9360>mac="wideopen.smm"
  682.  
  683. <:I720,0,0,0><:#284,9360>StatusBarMsg("Installing WideOpen for Ami Pro")
  684.  
  685. <:I720,0,0,0><:#568,9360>changemenuaction(1, menu, "&Open...    Ctrl+O", "{mac}!WideOpen", "Open an existing document using WideOpen (shift to disable)")
  686.  
  687. <:I720,0,0,0><:#568,9360>changemenuaction(1, menu, "&Open...    ^O", "{mac}!WideOpen", "Open an existing document using WideOpen (shift to disable)")
  688.  
  689. <:I720,0,0,0><:#568,9360>changemenuaction(1, menu, "&Save    Ctrl+S", "{mac}!WideSave", "Save document using WideOpen (shift to disable).")
  690.  
  691. <:I720,0,0,0><:#568,9360>changemenuaction(1, menu, "&Save    ^S", "{mac}!WideSave", "Save document using WideOpen (shift to disable).")
  692.  
  693. <:I720,0,0,0><:#568,9360>changemenuaction(1, menu, "Save &As...", "{mac}!WideSaveAs", "Save document under a new name using WideOpen (shift to disable).")
  694.  
  695. <:I720,0,0,0><:#284,9360>StatusBarMsg("")
  696.  
  697. <:#284,9360>END FUNCTION
  698.  
  699. <:#284,9360>
  700.  
  701. <:#293,9360><+!>FUNCTION GetWideOpenID()<-!>
  702.  
  703. <:I720,0,0,0><:#284,9360>id = DDEInitiate("Widen14", "Widen14")
  704.  
  705. <:I720,0,0,0><:#284,9360>IF id = 0
  706.  
  707. <:I720,0,0,0><:#284,9360>    Exec("widen14.exe", 1)
  708.  
  709. <:I720,0,0,0><:#284,9360>    FOR I = 1 to 10
  710.  
  711. <:I720,0,0,0><:#284,9360>    id = DDEInitiate("Widen14", "Widen14")
  712.  
  713. <:I720,0,0,0><:#284,9360>        IF id <;> 0
  714.  
  715. <:I720,0,0,0><:#284,9360>            OK = TRUE
  716.  
  717. <:I720,0,0,0><:#284,9360>            BREAK
  718.  
  719. <:I720,0,0,0><:#284,9360>        ENDIF
  720.  
  721. <:I720,0,0,0><:#284,9360>    NEXT
  722.  
  723. <:I720,0,0,0><:#284,9360>ENDIF
  724.  
  725. <:I720,0,0,0><:#284,9360>return(id)
  726.  
  727. <:#284,9360>END FUNCTION
  728.  
  729. <:#284,9360>
  730.  
  731. <:p<* >>
  732.  
  733. <:#293,9360><+!>FUNCTION WideOpen()<-!>
  734.  
  735. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>IgnoreKeyboard(1)
  736.  
  737. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>id = GetWideOpenID()
  738.  
  739. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>IF id = 0
  740.  
  741. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#568,9360>    Message("Could not communicate with WideOpen.  Please start WIDEN.EXE manually or deinstall WideOpen.")
  742.  
  743. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>    EXIT FUNCTION
  744.  
  745. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>ENDIF
  746.  
  747. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>
  748.  
  749. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#568,9360>DDEExecute(id, "open -filter 'Ami Pro|*.sam|Ami Pro Macro|*.smm|Rich Text Format|*.rtf|Windows Write|*.wri|Word for Windows 6.0|*.doc|All files|*.*|'")
  750.  
  751. @Body Single@<:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>
  752.  
  753. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>FileName = DDEReceive$(id, "ShortName")
  754.  
  755. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>if FileName = "::Default::" then
  756.  
  757. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>    FileOpen
  758.  
  759. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>elseif FileName <<<;> "" then
  760.  
  761. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>    FileType = DDEReceive$(id, "FilterName")
  762.  
  763. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>
  764.  
  765. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>    format = 1
  766.  
  767. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>    if Right$(FileName, 3) = "SAM" then
  768.  
  769. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>        FileType = ""
  770.  
  771. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>        format = 1
  772.  
  773. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>    elseif Right$(FileName, 3) = "DOC" then
  774.  
  775. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>        FileType = "Word for Windows 6.0"
  776.  
  777. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>        format = 16
  778.  
  779. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>    elseif Right$(FileName, 3) = "TXT" then
  780.  
  781. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>        FileType = "ASCII"
  782.  
  783. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>        format = 5
  784.  
  785. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>    elseif Right$(FileName, 3) = "RTF" then
  786.  
  787. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>        FileType = "Rich Text Format"
  788.  
  789. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>        format = 16
  790.  
  791. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>    endif
  792.  
  793. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>    
  794.  
  795. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>    LongName = DDEReceive$(id, "LongName")
  796.  
  797. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>    StatusBarMsg("Opening {LongName}...")
  798.  
  799. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>
  800.  
  801. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>    FileOpen(FileName, format, FileType)
  802.  
  803. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>    StatusBarMsg("")
  804.  
  805. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>endif
  806.  
  807. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>
  808.  
  809. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>DDETerminate(id)
  810.  
  811. <:R><:#284,9360>END FUNCTION
  812.  
  813. <:#284,9360>
  814.  
  815. <:p<* >>
  816.  
  817. <:#293,9360><+!>FUNCTION WideSaveAs()<-!>
  818.  
  819. <:I720,0,0,0><:#284,9360>IgnoreKeyboard(1)
  820.  
  821. <:I720,0,0,0><:#284,9360>id = GetWideOpenID()
  822.  
  823. <:I720,0,0,0><:#284,9360>IF id = 0
  824.  
  825. <:I720,0,0,0><:#568,9360>    Message("Could not communicate with WideOpen.  Please start WIDEN.EXE manually or deinstall WideOpen.")
  826.  
  827. <:I720,0,0,0><:#284,9360>    EXIT FUNCTION
  828.  
  829. <:I720,0,0,0><:#284,9360>ENDIF
  830.  
  831. <:I720,0,0,0><:#284,9360>
  832.  
  833. <:I720,0,0,0><:#284,9360>name = GetDocInfo$(7) ' description
  834.  
  835. <:I720,0,0,0><:#284,9360>if name="" then name = GetDocInfo$(1) endif
  836.  
  837. <:I720,0,0,0><:#284,9360>dir = GetDocInfo$(2)
  838.  
  839. <:I720,0,0,0><:#852,9360>DDEExecute(id, "save -filter 'Ami Pro|*.sam|Ami Pro Macro|*.smm|ASCII|*.txt|Rich Text Format|*.rtf|Windows Write|*.wri|Word for Windows 6.0|*.doc|All files|*.*|' -file '{name}' -dir '{dir}' ")
  840.  
  841. <:I720,0,0,0><:#284,9360>
  842.  
  843. <:I720,0,0,0><:#284,9360>FileName = DDEReceive$(id, "ShortName")
  844.  
  845. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>   if FileName = "::Default::" then
  846.  
  847. <:I720,0,0,0><:R><:#284,9360>    SaveAs
  848.  
  849. <:I720,0,0,0><:#284,9360>elseif FileName <<<;> "" then
  850.  
  851. <:I720,0,0,0><:#284,9360>    LongName = DDEReceive$(id, "LongName")
  852.  
  853. <:I720,0,0,0><:#284,9360>    StatusBarMsg("Saving {LongName}")
  854.  
  855. <:I720,0,0,0><:#284,9360>
  856.  
  857. <:I720,0,0,0><:#284,9360>    format = 32
  858.  
  859. <+@><:I720,0,0,0><:S+-1><:#284,9360>    FileType = DDEReceive$(id, "FilterName")
  860.  
  861. <:I720,0,0,0><:#284,9360>    if FileType = "Ami Pro" then
  862.  
  863. <:I720,0,0,0><:#284,9360>        FileType =  ""
  864.  
  865. <:I720,0,0,0><:#284,9360>    elseif FileType = "ASCII" then
  866.  
  867. <:I720,0,0,0><:#284,9360>        format = 4
  868.  
  869. <:I720,0,0,0><:#284,9360>    endif
  870.  
  871. <:I720,0,0,0><:#284,9360>
  872.  
  873. <:I720,0,0,0><:#284,9360>' The junk below is to keep Ami from popping up an overwrite dialog
  874.  
  875. <:I720,0,0,0><:#568,9360>    tmpname = strcat$(left$(FileName, len(FileName) - 5), "0.", right$(FileName, 3))
  876.  
  877. <:I720,0,0,0><:#284,9360>    SaveAs(tmpname, format, LongName, FileType)
  878.  
  879. <:I720,0,0,0><:#284,9360>    FileClose
  880.  
  881. <:I720,0,0,0><:#284,9360>    DDEExecute(id, strcat$("rename '", tmpname, "' '", LongName, "'"))
  882.  
  883. <:I720,0,0,0><:#284,9360>
  884.  
  885. <:I720,0,0,0><:#284,9360>'  Now choose the filetype and format for the open
  886.  
  887. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>    If Right$(FileName, 3) = "SAM" then
  888.  
  889. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>        FileType = ""
  890.  
  891. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>        format = 1
  892.  
  893. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>    elseif Right$(FileName, 3) = "DOC" then
  894.  
  895. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>        FileType = "Word for Windows 6.0"
  896.  
  897. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>        format = 16
  898.  
  899. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>    elseif Right$(FileName, 3) = "TXT" then
  900.  
  901. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>        FileType = "ASCII"
  902.  
  903. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>        format = 5
  904.  
  905. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>    elseif Right$(FileName, 3) = "RTF" then
  906.  
  907. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>        FileType = "Rich Text Format"
  908.  
  909. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>        format = 16
  910.  
  911. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>    endif
  912.  
  913. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>    FileOpen(FileName, format, FileType)
  914.  
  915. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>    doc$ = GetNameFromPath$(LongName)
  916.  
  917. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>    doc$ = left$(doc$, len(doc$) - 4)
  918.  
  919. <:I540,0,0,0><:R1,12,1,1170,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#284,9360>    DocInfo (doc$, "", 0)
  920.  
  921. <:I720,0,0,0><:R><:#284,9360>endif
  922.  
  923. <:I720,0,0,0><:#284,9360>DDETerminate(id)
  924.  
  925. <:#284,9360>END FUNCTION
  926.  
  927. <:p<* >>
  928.  
  929. <:#293,9360><+!>FUNCTION WideSave()<-!>
  930.  
  931. <:I720,0,0,0><:#284,9360>IgnoreKeyboard(1)
  932.  
  933. <:I720,0,0,0><:#284,9360>if GetOpenFileName$() = "" 
  934.  
  935. <:I720,0,0,0><:#284,9360>    WideSaveAs()
  936.  
  937. <:I720,0,0,0><:#284,9360>else
  938.  
  939. <:I720,0,0,0><:#284,9360>    Save()
  940.  
  941. <:I720,0,0,0><:#284,9360>endif
  942.  
  943. <:#284,9360>END FUNCTION
  944.  
  945. <:#284,9360>
  946.  
  947. <:p<* >>
  948.  
  949. <:#568,9360><+">' OpenAutoExec - Open-Create the autoexec.smm then position the insertion point just<-">
  950.  
  951. <:#284,9360><+">' before the first END FUNCTION<-">
  952.  
  953. <:#284,9360>'
  954.  
  955. @Function@<:#293,9360><:ZOpenAutoExec>FUNCTION OpenAutoExec(<:Z~OpenAutoExec>)
  956.  
  957. <:#284,9360>defstr fid;
  958.  
  959. <:#284,9360>
  960.  
  961. <:#284,9360>Declare FindAutoExec()
  962.  
  963. <:#284,9360><:ZMACUTEMP><:Z~MACUTEMP>auto = FindAutoExec();            ' Determine where the autoexec is
  964.  
  965. <:#284,9360>
  966.  
  967. <:#284,9360>if (0 = Assign(&fid, fopen(auto, "r")))    ' Does it exist?
  968.  
  969. <:#284,9360>    sty = GetProfileString$("AmiPro", "defstyle", "amipro.ini")
  970.  
  971. <:#284,9360>    if sty = ""
  972.  
  973. <:#284,9360>        sty = "_default.sty"
  974.  
  975. <:#284,9360>    endif
  976.  
  977. <:#284,9360>    new(sty, 0, 0)            ' No let ami create it.
  978.  
  979. <:#284,9360>    type("FUNCTION auto()<[>enter]")    ' And fill in an empty 
  980.  
  981. <:#284,9360>    type("END FUNCTION<[>enter]")    ' Function - End Function Pait
  982.  
  983. <:#284,9360>    type("<[>ctrlhome]")            ' Position at top of file
  984.  
  985. <:#284,9360>    saveas(auto, 32,"", "")            ' Create it.
  986.  
  987. <:#284,9360>else
  988.  
  989. <:#284,9360>    fclose(fid)                ' it existed. so close this
  990.  
  991. <:#284,9360>    FileOpen(auto, 1, "")            ' let ami open
  992.  
  993. <:#284,9360>endif
  994.  
  995. <:#284,9360>Replace(0, 0, 24576, "End function", "")    ' position at first end function
  996.  
  997. <:#284,9360>type("<[>home]")                    ' before the End
  998.  
  999. <:#284,9360>type("<[>enter]")                    ' create a line
  1000.  
  1001. <:#284,9360>type("<[>up]")                    ' position on that line
  1002.  
  1003. <:#284,9360>END FUNCTION                ' that all folks
  1004.  
  1005. <:#284,9360>'
  1006.  
  1007. <:#235,9360><:f200,BArial,0,0,0><+">' FindAutoExec - determine where the autoexec.smm file is.  If we can find it in the macro<-">
  1008.  
  1009. <:#235,9360><+"><:f200,BArial,0,0,0>'    directory or the docs directory, return the amipro directory.<-">
  1010.  
  1011. <:#235,9360><+"><:f200,BArial,0,0,0>'<-"><:f>
  1012.  
  1013. @Function@<:#293,9360><:ZFindAutoExec>FUNCTION FindAutoExec()<:Z~FindAutoExec>
  1014.  
  1015. <:#284,9360>defstr    fid;
  1016.  
  1017. <:#284,9360>auto = strcat$(GetMacPath$(), "autoexec.smm")    ' check macro dir first
  1018.  
  1019. <:#284,9360>if (0 = Assign(&fid, fopen(auto, "r")))    ' Does it exist?
  1020.  
  1021. <:#284,9360>    auto = strcat$(GetDocPath$(), "autoexec.smm")    ' Now the docs dir
  1022.  
  1023. <:#284,9360>    if (0 = Assign(&fid, fopen(auto, "r")))    ' Does it exist?
  1024.  
  1025. <:#284,9360>        auto = strcat$(GetAmiDirectory$(), "autoexec.smm")    ' lastly amipro dir
  1026.  
  1027. <:#284,9360>    else
  1028.  
  1029. <:#284,9360>        fclose(fid)
  1030.  
  1031. <:#284,9360>    endif
  1032.  
  1033. <:#284,9360>else
  1034.  
  1035. <:#284,9360>    fclose(fid)
  1036.  
  1037. <:#284,9360>endif
  1038.  
  1039. <:#284,9360>return auto
  1040.  
  1041. <:#284,9360>END FUNCTION
  1042.  
  1043. <:#284,9360>
  1044.  
  1045. <:#284,9360>
  1046.  
  1047. >
  1048.  
  1049. [Embedded]
  1050. 00024238
  1051. >
  1052. [macsum] 12
  1053. WideOpenInstall 0 0 4 5
  1054. GetPathFromFile$ 1025 1 3 46
  1055. GetNameFromPath$ 1226 1 3 55
  1056. WideOpenInstallAutoExec 1440 0 1 64
  1057. WideOpenUninstall 1819 0 1 83
  1058. InstallWideOpenMenus 2275 0 3 101
  1059. GetWideOpenID 2920 0 4 113
  1060. WideOpen 3232 0 6 129
  1061. WideSaveAs 4208 0 10 171
  1062. WideSave 5701 0 1 227
  1063. OpenAutoExec 5807 0 4 240
  1064. FindAutoExec 6255 0 3 269
  1065. [macse]
  1066. 14 WideOpenInstall
  1067. 0 2 "Install WideOpen now?"
  1068. 13
  1069. 5 0
  1070. 18 0
  1071. 11 00000089
  1072. 6 0
  1073. 15
  1074. 9
  1075. 0 802
  1076. 13
  1077. 16 GetPathFromFile$ [X]
  1078. 13
  1079. 8 1
  1080. 0 16 "{1}" "wideopen.smm"
  1081. 13
  1082. 8 2
  1083. 0 295
  1084. 13
  1085. 0 16 [X] "wideopen.smm"
  1086. 13
  1087. 8 3
  1088. 0 775 "{3}"
  1089. 13
  1090. 5 -1
  1091. 18 1
  1092. 11 00000374
  1093. 0 2 "{3} exists already.  Do you want to overwrite it?"
  1094. 13
  1095. 5 1
  1096. 18 0
  1097. 11 00000361
  1098. 0 803 "{2}" "{3}"
  1099. 10 00000393
  1100. 0 803 "{2}" "{3}"
  1101. 0 775 "{3}"
  1102. 13
  1103. 5 -1
  1104. 18 0
  1105. 11 00000526
  1106. 0 3 "Failed to copy {2} to {3}.  WideOpen not installed; try manual install."
  1107. 6 0
  1108. 15
  1109. 9
  1110. 0 16 "{1}" "widen14.exe"
  1111. 13
  1112. 8 2
  1113. 0 1288
  1114. 13
  1115. 0 16 [X] "widen14.exe"
  1116. 13
  1117. 8 3
  1118. 0 16 "{2}" " -shutdown"
  1119. 13
  1120. 0 22 [X] 1
  1121. 0 775 "{3}"
  1122. 13
  1123. 5 -1
  1124. 18 1
  1125. 11 00000806
  1126. 0 2 "{3} exists already.  Do you want to overwrite it?"
  1127. 13
  1128. 5 1
  1129. 18 0
  1130. 11 00000793
  1131. 0 803 "{2}" "{3}"
  1132. 10 00000825
  1133. 0 803 "{2}" "{3}"
  1134. 0 775 "{3}"
  1135. 13
  1136. 5 -1
  1137. 18 0
  1138. 11 00000958
  1139. 0 3 "Failed to copy {2} to {3}.  WideOpen not installed; try manual install."
  1140. 6 0
  1141. 15
  1142. 9
  1143. 16 WideOpenInstallAutoExec
  1144. 0 3 "WideOpen installed!"
  1145. 6 0
  1146. 15
  1147. 9
  1148. 14 GetPathFromFile$
  1149. 0 14 "{0}"
  1150. 13
  1151. 8 2
  1152. 6 2
  1153. 8 3
  1154. 6 3
  1155. 5 1
  1156. 18 3
  1157. 0 15 "{0}" "{3}" 1
  1158. 13
  1159. 7 "\"
  1160. 18 0
  1161. 1 3
  1162. 1 1
  1163. 11 00000161
  1164. 6 3
  1165. 5 1
  1166. 3 1
  1167. 8 3
  1168. 10 00000052
  1169. 0 806 "{0}" "{3}"
  1170. 13
  1171. 8 1
  1172. 6 1
  1173. 15
  1174. 9
  1175. 14 GetNameFromPath$
  1176. 0 14 "{0}"
  1177. 13
  1178. 8 2
  1179. 6 2
  1180. 8 3
  1181. 6 3
  1182. 5 1
  1183. 18 3
  1184. 0 15 "{0}" "{3}" 1
  1185. 13
  1186. 7 "\"
  1187. 18 0
  1188. 1 3
  1189. 1 1
  1190. 11 00000161
  1191. 6 3
  1192. 5 1
  1193. 3 1
  1194. 8 3
  1195. 10 00000052
  1196. 6 2
  1197. 6 3
  1198. 3 1
  1199. 0 807 "{0}" [X]
  1200. 13
  1201. 8 1
  1202. 6 1
  1203. 15
  1204. 9
  1205. 14 WideOpenInstallAutoExec
  1206. 0 789 "Installing wideopen in AUTOEXEC.SMM"
  1207. 16 OpenAutoExec
  1208. 5 8192
  1209. 5 1024
  1210. 3 0
  1211. 2 488 1 0 0 [X] "call wideopen.smm!InstallWideOpenMenus()" ""
  1212. 2 103 1
  1213. 2 147 1
  1214. 16 OpenAutoExec
  1215. 0 6 "call wideopen.smm!InstallWideOpenMenus()"
  1216. 0 789 "Saving AUTOEXEC.SMM"
  1217. 2 103 1
  1218. 2 147 1
  1219. 16 InstallWideOpenMenus
  1220. 0 789 "WideOpen installed"
  1221. 0 789 ""
  1222. 6 0
  1223. 15
  1224. 9
  1225. 14 WideOpenUninstall
  1226. 0 2 "Are you sure you want to uninstall WideOpen now?"
  1227. 13
  1228. 5 0
  1229. 18 0
  1230. 11 00000118
  1231. 6 0
  1232. 15
  1233. 9
  1234. 0 789 "Uninstalling wideopen in AUTOEXEC.SMM"
  1235. 16 OpenAutoExec
  1236. 5 8192
  1237. 5 1024
  1238. 3 0
  1239. 2 488 1 0 0 [X] "call wideopen.smm!InstallWideOpenMenus()" ""
  1240. 0 789 "Saving AUTOEXEC.SMM"
  1241. 2 103 1
  1242. 2 147 1
  1243. 0 789 "WideOpen uninstalled"
  1244. 0 3 "WideOpen uninstalled-- The next time Ami Pro is started, WideOpen will not be used."
  1245. 0 789 ""
  1246. 6 0
  1247. 15
  1248. 9
  1249. 14 InstallWideOpenMenus
  1250. 7 "&File"
  1251. 8 1
  1252. 7 "wideopen.smm"
  1253. 8 2
  1254. 0 789 "Installing WideOpen for Ami Pro"
  1255. 0 523 1 "{1}" "&Open...    Ctrl+O" "{2}!WideOpen" "Open an existing document using WideOpen (shift to disable)"
  1256. 0 523 1 "{1}" "&Open...    ^O" "{2}!WideOpen" "Open an existing document using WideOpen (shift to disable)"
  1257. 0 523 1 "{1}" "&Save    Ctrl+S" "{2}!WideSave" "Save document using WideOpen (shift to disable)."
  1258. 0 523 1 "{1}" "&Save    ^S" "{2}!WideSave" "Save document using WideOpen (shift to disable)."
  1259. 0 523 1 "{1}" "Save &As..." "{2}!WideSaveAs" "Save document under a new name using WideOpen (shift to disable)."
  1260. 0 789 ""
  1261. 6 0
  1262. 15
  1263. 9
  1264. 14 GetWideOpenID
  1265. 0 8 "Widen14" "Widen14"
  1266. 13
  1267. 8 1
  1268. 6 1
  1269. 5 0
  1270. 18 0
  1271. 11 00000288
  1272. 0 22 "widen14.exe" 1
  1273. 5 1
  1274. 8 2
  1275. 5 10
  1276. 6 2
  1277. 18 2
  1278. 12 00000189
  1279. 10 00000288
  1280. 5 1
  1281. 6 2
  1282. 3 0
  1283. 8 2
  1284. 10 00000113
  1285. 0 8 "Widen14" "Widen14"
  1286. 13
  1287. 8 1
  1288. 6 1
  1289. 5 0
  1290. 18 3
  1291. 11 00000275
  1292. 5 1
  1293. 8 3
  1294. 10 00000288
  1295. 10 00000156
  1296. 6 1
  1297. 15
  1298. 9
  1299. 6 0
  1300. 15
  1301. 9
  1302. 14 WideOpen
  1303. 0 32 1
  1304. 16 GetWideOpenID
  1305. 13
  1306. 8 1
  1307. 6 1
  1308. 5 0
  1309. 18 0
  1310. 11 00000189
  1311. 0 3 "Could not communicate with WideOpen.  Please start WIDEN.EXE manually or deinstall WideOpen."
  1312. 6 0
  1313. 15
  1314. 9
  1315. 0 11 "{1}" "open -filter 'Ami Pro|*.sam|Ami Pro Macro|*.smm|Rich Text Format|*.rtf|Windows Write|*.wri|Word for Windows 6.0|*.doc|All files|*.*|'"
  1316. 0 10 "{1}" "ShortName"
  1317. 13
  1318. 8 2
  1319. 6 2
  1320. 7 "::Default::"
  1321. 18 0
  1322. 11 00000432
  1323. 24 102
  1324. 10 00000953
  1325. 6 2
  1326. 7 ""
  1327. 18 1
  1328. 11 00000953
  1329. 0 10 "{1}" "FilterName"
  1330. 13
  1331. 8 3
  1332. 5 1
  1333. 8 4
  1334. 0 807 "{2}" 3
  1335. 13
  1336. 7 "SAM"
  1337. 18 0
  1338. 11 00000587
  1339. 7 ""
  1340. 8 3
  1341. 5 1
  1342. 8 4
  1343. 10 00000860
  1344. 0 807 "{2}" 3
  1345. 13
  1346. 7 "DOC"
  1347. 18 0
  1348. 11 00000689
  1349. 7 "Word for Windows 6.0"
  1350. 8 3
  1351. 5 16
  1352. 8 4
  1353. 10 00000860
  1354. 0 807 "{2}" 3
  1355. 13
  1356. 7 "TXT"
  1357. 18 0
  1358. 11 00000775
  1359. 7 "ASCII"
  1360. 8 3
  1361. 5 5
  1362. 8 4
  1363. 10 00000860
  1364. 0 807 "{2}" 3
  1365. 13
  1366. 7 "RTF"
  1367. 18 0
  1368. 11 00000860
  1369. 7 "Rich Text Format"
  1370. 8 3
  1371. 5 16
  1372. 8 4
  1373. 0 10 "{1}" "LongName"
  1374. 13
  1375. 8 5
  1376. 0 789 "Opening {5}..."
  1377. 2 102 1 "{2}" "{4}" "{3}"
  1378. 0 789 ""
  1379. 0 9 "{1}"
  1380. 6 0
  1381. 15
  1382. 9
  1383. 14 WideSaveAs
  1384. 0 32 1
  1385. 16 GetWideOpenID
  1386. 13
  1387. 8 1
  1388. 6 1
  1389. 5 0
  1390. 18 0
  1391. 11 00000191
  1392. 0 3 "Could not communicate with WideOpen.  Please start WIDEN.EXE manually or deinstall WideOpen."
  1393. 6 0
  1394. 15
  1395. 9
  1396. 0 279 7
  1397. 13
  1398. 8 2
  1399. 6 2
  1400. 7 ""
  1401. 18 0
  1402. 11 00000257
  1403. 0 279 1
  1404. 13
  1405. 8 2
  1406. 0 279 2
  1407. 13
  1408. 8 3
  1409. 0 11 "{1}" "save -filter 'Ami Pro|*.sam|Ami Pro Macro|*.smm|ASCII|*.txt|Rich Text Format|*.rtf|Windows Write|*.wri|Word for Windows 6.0|*.doc|All files|*.*|' -file '{2}' -dir '{3}' "
  1410. 0 10 "{1}" "ShortName"
  1411. 13
  1412. 8 4
  1413. 6 4
  1414. 7 "::Default::"
  1415. 18 0
  1416. 11 00000554
  1417. 24 104
  1418. 10 00001470
  1419. 6 4
  1420. 7 ""
  1421. 18 1
  1422. 11 00001470
  1423. 0 10 "{1}" "LongName"
  1424. 13
  1425. 8 5
  1426. 0 789 "Saving {5}"
  1427. 5 32
  1428. 8 6
  1429. 0 10 "{1}" "FilterName"
  1430. 13
  1431. 8 7
  1432. 6 7
  1433. 7 "Ami Pro"
  1434. 18 0
  1435. 11 00000742
  1436. 7 ""
  1437. 8 7
  1438. 10 00000787
  1439. 6 7
  1440. 7 "ASCII"
  1441. 18 0
  1442. 11 00000787
  1443. 5 4
  1444. 8 6
  1445. 0 14 "{4}"
  1446. 13
  1447. 5 5
  1448. 3 1
  1449. 0 806 "{4}" [X]
  1450. 13
  1451. 0 807 "{4}" 3
  1452. 13
  1453. 0 16 [X] "0." [X]
  1454. 13
  1455. 8 8
  1456. 2 104 1 "{8}" "{6}" "{5}" "{7}"
  1457. 24 147
  1458. 0 16 "rename '" "{8}" "' '" "{5}" "'"
  1459. 13
  1460. 0 11 "{1}" [X]
  1461. 0 807 "{4}" 3
  1462. 13
  1463. 7 "SAM"
  1464. 18 0
  1465. 11 00001062
  1466. 7 ""
  1467. 8 7
  1468. 5 1
  1469. 8 6
  1470. 10 00001335
  1471. 0 807 "{4}" 3
  1472. 13
  1473. 7 "DOC"
  1474. 18 0
  1475. 11 00001164
  1476. 7 "Word for Windows 6.0"
  1477. 8 7
  1478. 5 16
  1479. 8 6
  1480. 10 00001335
  1481. 0 807 "{4}" 3
  1482. 13
  1483. 7 "TXT"
  1484. 18 0
  1485. 11 00001250
  1486. 7 "ASCII"
  1487. 8 7
  1488. 5 5
  1489. 8 6
  1490. 10 00001335
  1491. 0 807 "{4}" 3
  1492. 13
  1493. 7 "RTF"
  1494. 18 0
  1495. 11 00001335
  1496. 7 "Rich Text Format"
  1497. 8 7
  1498. 5 16
  1499. 8 6
  1500. 2 102 1 "{4}" "{6}" "{7}"
  1501. 16 GetNameFromPath$ "{5}"
  1502. 13
  1503. 8 9
  1504. 0 14 "{9}"
  1505. 13
  1506. 5 4
  1507. 3 1
  1508. 0 806 "{9}" [X]
  1509. 13
  1510. 8 9
  1511. 2 109 1 "{9}" "" 0
  1512. 0 9 "{1}"
  1513. 6 0
  1514. 15
  1515. 9
  1516. 14 WideSave
  1517. 0 32 1
  1518. 0 267
  1519. 13
  1520. 7 ""
  1521. 18 0
  1522. 11 00000085
  1523. 16 WideSaveAs
  1524. 10 00000094
  1525. 2 103 1
  1526. 6 0
  1527. 15
  1528. 9
  1529. 14 OpenAutoExec
  1530. 16 FindAutoExec
  1531. 13
  1532. 8 2
  1533. 5 0
  1534. 0 259 "{2}" "r"
  1535. 13
  1536. 0 805 &1 [X]
  1537. 13
  1538. 18 0
  1539. 11 00000330
  1540. 0 286 "AmiPro" "defstyle" "amipro.ini"
  1541. 13
  1542. 8 3
  1543. 6 3
  1544. 7 ""
  1545. 18 0
  1546. 11 00000208
  1547. 7 "_default.sty"
  1548. 8 3
  1549. 2 101 1 "{3}" 0 0
  1550. 0 6 "FUNCTION auto()[13]"
  1551. 0 6 "END FUNCTION[13]"
  1552. 0 6 "[16420]"
  1553. 2 104 1 "{2}" 32 "" ""
  1554. 10 00000363
  1555. 0 260 "{1}"
  1556. 2 102 1 "{2}" 1 ""
  1557. 2 488 1 0 0 24576 "End function" ""
  1558. 0 6 "[36]"
  1559. 0 6 "[13]"
  1560. 0 6 "[38]"
  1561. 6 0
  1562. 15
  1563. 9
  1564. 14 FindAutoExec
  1565. 0 295
  1566. 13
  1567. 0 16 [X] "autoexec.smm"
  1568. 13
  1569. 8 2
  1570. 5 0
  1571. 0 259 "{2}" "r"
  1572. 13
  1573. 0 805 &1 [X]
  1574. 13
  1575. 18 0
  1576. 11 00000317
  1577. 0 268
  1578. 13
  1579. 0 16 [X] "autoexec.smm"
  1580. 13
  1581. 8 2
  1582. 5 0
  1583. 0 259 "{2}" "r"
  1584. 13
  1585. 0 805 &1 [X]
  1586. 13
  1587. 18 0
  1588. 11 00000291
  1589. 0 798
  1590. 13
  1591. 0 16 [X] "autoexec.smm"
  1592. 13
  1593. 8 2
  1594. 10 00000304
  1595. 0 260 "{1}"
  1596. 10 00000330
  1597. 0 260 "{1}"
  1598. 6 2
  1599. 15
  1600. 9
  1601. 6 0
  1602. 15
  1603. 9
  1604. 00024263
  1605.