home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS030.DSK / WELCOME.SMM < prev    next >
INI File  |  1994-07-26  |  22KB  |  1,837 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. [recfile]
  12.     
  13.     
  14.     1
  15.     1
  16.     3
  17.     8
  18.     0
  19.     0
  20. [prn]
  21.     QMS-PS 810
  22. [port]
  23.     LPT1:
  24. [lang]
  25.     1
  26. [fldnames]
  27.     Field1
  28.     Field2
  29.     Field3
  30.     Field4
  31.     Field5
  32.     Field6
  33.     Field7
  34.     Field8
  35. [desc]
  36.     Ami Pro Welcome Screen
  37.     
  38.     
  39.     
  40.     
  41.     775245524
  42.     36
  43.     770681622
  44.     534
  45.     6
  46.     190
  47.     1162
  48.     7
  49.     7
  50.     
  51.     
  52.     
  53.     
  54.     
  55.     
  56.     1
  57. [fopts]
  58.     0
  59.     1
  60.     0
  61.     0
  62.     
  63.     
  64. [lnopts]
  65.     2
  66.     Body Text
  67.     1
  68. [docopts]
  69.     5
  70.     2
  71. [GramStyle]
  72.     
  73. [ParaNum]
  74.     1
  75. [tag]
  76.     Body Text
  77.     2
  78.     [fnt]
  79.         Times New Roman
  80.         240
  81.         0
  82.         49152
  83.     [algn]
  84.         1
  85.         1
  86.         216
  87.         0
  88.         0
  89.     [spc]
  90.         33
  91.         0
  92.         1
  93.         0
  94.         0
  95.         1
  96.         100
  97.     [brk]
  98.         4
  99.     [line]
  100.         8
  101.         0
  102.         1
  103.         0
  104.         0
  105.         1
  106.         1
  107.         144
  108.         144
  109.         1
  110.     [spec]
  111.         0
  112.         2
  113.         
  114.         0
  115.         1
  116.         1
  117.         0
  118.         16
  119.         0
  120.         0
  121.     [nfmt]
  122.         280
  123.         1
  124.         2
  125.         .
  126.         ,
  127.         $
  128.     Body Text
  129.     0
  130.     0
  131. [tag]
  132.     Outline7
  133.     3
  134.     [fnt]
  135.         Times New Roman
  136.         240
  137.         0
  138.         49152
  139.     [algn]
  140.         1
  141.         1
  142.         1296
  143.         0
  144.         0
  145.     [spc]
  146.         33
  147.         0
  148.         1
  149.         0
  150.         0
  151.         1
  152.         100
  153.     [brk]
  154.         4
  155.     [line]
  156.         8
  157.         0
  158.         1
  159.         0
  160.         0
  161.         1
  162.         1
  163.         144
  164.         144
  165.         1
  166.     [spec]
  167.         0
  168.         7
  169.         
  170.         0
  171.         1
  172.         1
  173.         0
  174.         16
  175.         0
  176.         0
  177.     [nfmt]
  178.         280
  179.         1
  180.         2
  181.         .
  182.         ,
  183.         $
  184.     Body Text
  185.     0
  186.     0
  187. [tag]
  188.     Outline6
  189.     4
  190.     [fnt]
  191.         Times New Roman
  192.         240
  193.         0
  194.         49152
  195.     [algn]
  196.         1
  197.         1
  198.         1080
  199.         0
  200.         0
  201.     [spc]
  202.         33
  203.         0
  204.         1
  205.         0
  206.         0
  207.         1
  208.         100
  209.     [brk]
  210.         4
  211.     [line]
  212.         8
  213.         0
  214.         1
  215.         0
  216.         0
  217.         1
  218.         1
  219.         144
  220.         144
  221.         1
  222.     [spec]
  223.         0
  224.         6
  225.         
  226.         0
  227.         1
  228.         1
  229.         0
  230.         16
  231.         0
  232.         0
  233.     [nfmt]
  234.         280
  235.         1
  236.         2
  237.         .
  238.         ,
  239.         $
  240.     Body Text
  241.     0
  242.     0
  243. [tag]
  244.     Outline5
  245.     5
  246.     [fnt]
  247.         Times New Roman
  248.         240
  249.         0
  250.         49152
  251.     [algn]
  252.         1
  253.         1
  254.         864
  255.         0
  256.         0
  257.     [spc]
  258.         33
  259.         0
  260.         1
  261.         0
  262.         0
  263.         1
  264.         100
  265.     [brk]
  266.         4
  267.     [line]
  268.         8
  269.         0
  270.         1
  271.         0
  272.         0
  273.         1
  274.         1
  275.         144
  276.         144
  277.         1
  278.     [spec]
  279.         0
  280.         5
  281.         
  282.         0
  283.         1
  284.         1
  285.         0
  286.         16
  287.         0
  288.         0
  289.     [nfmt]
  290.         280
  291.         1
  292.         2
  293.         .
  294.         ,
  295.         $
  296.     Body Text
  297.     0
  298.     0
  299. [tag]
  300.     Outline4
  301.     6
  302.     [fnt]
  303.         Times New Roman
  304.         240
  305.         0
  306.         49152
  307.     [algn]
  308.         1
  309.         1
  310.         648
  311.         0
  312.         0
  313.     [spc]
  314.         33
  315.         0
  316.         1
  317.         0
  318.         0
  319.         1
  320.         100
  321.     [brk]
  322.         4
  323.     [line]
  324.         8
  325.         0
  326.         1
  327.         0
  328.         0
  329.         1
  330.         1
  331.         144
  332.         144
  333.         1
  334.     [spec]
  335.         0
  336.         4
  337.         
  338.         0
  339.         1
  340.         1
  341.         0
  342.         16
  343.         0
  344.         0
  345.     [nfmt]
  346.         280
  347.         1
  348.         2
  349.         .
  350.         ,
  351.         $
  352.     Body Text
  353.     0
  354.     0
  355. [tag]
  356.     Outline3
  357.     7
  358.     [fnt]
  359.         Times New Roman
  360.         240
  361.         0
  362.         49152
  363.     [algn]
  364.         1
  365.         1
  366.         432
  367.         0
  368.         0
  369.     [spc]
  370.         33
  371.         0
  372.         1
  373.         0
  374.         0
  375.         1
  376.         100
  377.     [brk]
  378.         4
  379.     [line]
  380.         8
  381.         0
  382.         1
  383.         0
  384.         0
  385.         1
  386.         1
  387.         144
  388.         144
  389.         1
  390.     [spec]
  391.         0
  392.         3
  393.         
  394.         0
  395.         1
  396.         1
  397.         0
  398.         16
  399.         0
  400.         0
  401.     [nfmt]
  402.         280
  403.         1
  404.         2
  405.         .
  406.         ,
  407.         $
  408.     Body Text
  409.     0
  410.     0
  411. [tag]
  412.     Function
  413.     8
  414.     [fnt]
  415.         Times New Roman
  416.         320
  417.         16711680
  418.         49152
  419.     [algn]
  420.         1
  421.         1
  422.         0
  423.         0
  424.         0
  425.     [spc]
  426.         33
  427.         0
  428.         1
  429.         0
  430.         0
  431.         1
  432.         100
  433.     [brk]
  434.         4
  435.     [line]
  436.         8
  437.         0
  438.         1
  439.         0
  440.         0
  441.         1
  442.         1
  443.         144
  444.         144
  445.         1
  446.     [spec]
  447.         0
  448.         1
  449.         
  450.         0
  451.         1
  452.         1
  453.         0
  454.         16
  455.         0
  456.         0
  457.     [nfmt]
  458.         280
  459.         1
  460.         2
  461.         .
  462.         ,
  463.         $
  464.     Body Text
  465.     0
  466.     0
  467. [tag]
  468.     Comments
  469.     9
  470.     [fnt]
  471.         Courier New
  472.         200
  473.         255
  474.         32768
  475.     [algn]
  476.         1
  477.         1
  478.         0
  479.         0
  480.         0
  481.     [spc]
  482.         33
  483.         0
  484.         1
  485.         0
  486.         0
  487.         1
  488.         100
  489.     [brk]
  490.         4
  491.     [line]
  492.         8
  493.         0
  494.         1
  495.         0
  496.         0
  497.         1
  498.         1
  499.         144
  500.         144
  501.         1
  502.     [spec]
  503.         0
  504.         0
  505.         
  506.         0
  507.         1
  508.         1
  509.         0
  510.         16
  511.         0
  512.         0
  513.     [nfmt]
  514.         280
  515.         1
  516.         2
  517.         .
  518.         ,
  519.         $
  520.     Comments
  521.     0
  522.     0
  523. [tag]
  524.     Defines
  525.     11
  526.     [fnt]
  527.         Courier New
  528.         200
  529.         16711680
  530.         32768
  531.     [algn]
  532.         1
  533.         1
  534.         0
  535.         0
  536.         0
  537.     [spc]
  538.         33
  539.         0
  540.         1
  541.         0
  542.         0
  543.         1
  544.         100
  545.     [brk]
  546.         4
  547.     [line]
  548.         8
  549.         0
  550.         1
  551.         0
  552.         0
  553.         1
  554.         1
  555.         144
  556.         144
  557.         1
  558.     [spec]
  559.         0
  560.         0
  561.         
  562.         0
  563.         1
  564.         1
  565.         0
  566.         16
  567.         0
  568.         0
  569.     [nfmt]
  570.         280
  571.         1
  572.         2
  573.         .
  574.         ,
  575.         $
  576.     Body Text
  577.     0
  578.     0
  579. [tag]
  580.     Outline8
  581.     12
  582.     [fnt]
  583.         Times New Roman
  584.         240
  585.         0
  586.         49152
  587.     [algn]
  588.         1
  589.         1
  590.         1512
  591.         0
  592.         0
  593.     [spc]
  594.         33
  595.         0
  596.         1
  597.         0
  598.         0
  599.         1
  600.         100
  601.     [brk]
  602.         4
  603.     [line]
  604.         8
  605.         0
  606.         1
  607.         0
  608.         0
  609.         1
  610.         1
  611.         144
  612.         144
  613.         1
  614.     [spec]
  615.         0
  616.         8
  617.         
  618.         0
  619.         1
  620.         1
  621.         0
  622.         16
  623.         0
  624.         0
  625.     [nfmt]
  626.         280
  627.         1
  628.         2
  629.         .
  630.         ,
  631.         $
  632.     Body Text
  633.     0
  634.     0
  635. [tag]
  636.     Outline9
  637.     0
  638.     [fnt]
  639.         Times New Roman
  640.         240
  641.         0
  642.         49152
  643.     [algn]
  644.         1
  645.         1
  646.         1728
  647.         0
  648.         0
  649.     [spc]
  650.         33
  651.         0
  652.         1
  653.         0
  654.         0
  655.         1
  656.         100
  657.     [brk]
  658.         4
  659.     [line]
  660.         8
  661.         0
  662.         1
  663.         0
  664.         0
  665.         1
  666.         1
  667.         144
  668.         144
  669.         1
  670.     [spec]
  671.         0
  672.         9
  673.         
  674.         0
  675.         1
  676.         1
  677.         0
  678.         16
  679.         0
  680.         0
  681.     [nfmt]
  682.         280
  683.         1
  684.         2
  685.         .
  686.         ,
  687.         $
  688.     Body Text
  689.     0
  690.     0
  691. [tag]
  692.     Footnote
  693.     0
  694.     [fnt]
  695.         Times New Roman
  696.         240
  697.         0
  698.         49152
  699.     [algn]
  700.         1
  701.         1
  702.         0
  703.         360
  704.         360
  705.     [spc]
  706.         33
  707.         0
  708.         1
  709.         0
  710.         0
  711.         1
  712.         100
  713.     [brk]
  714.         4
  715.     [line]
  716.         8
  717.         0
  718.         1
  719.         0
  720.         0
  721.         1
  722.         1
  723.         144
  724.         144
  725.         1
  726.     [spec]
  727.         0
  728.         2
  729.         <*:>
  730.         0
  731.         1
  732.         1
  733.         256
  734.         0
  735.         0
  736.         0
  737.     [nfmt]
  738.         280
  739.         1
  740.         2
  741.         .
  742.         ,
  743.         $
  744.     Footnote
  745.     0
  746.     0
  747. [lay]
  748.     Standard
  749.     513
  750.     [rght]
  751.         15840
  752.         12240
  753.         1
  754.         720
  755.         1440
  756.         1
  757.         1440
  758.         720
  759.         0
  760.         1
  761.         0
  762.         1
  763.         0
  764.         2
  765.         1
  766.         720
  767.         11520
  768.         12
  769.         1
  770.         720
  771.         1
  772.         1440
  773.         1
  774.         2160
  775.         1
  776.         2880
  777.         1
  778.         3600
  779.         1
  780.         4320
  781.         1
  782.         5040
  783.         1
  784.         5760
  785.         1
  786.         6480
  787.         1
  788.         7200
  789.         1
  790.         7920
  791.         1
  792.         8640
  793.     [hrght]
  794.     [lyfrm]
  795.         1
  796.         11200
  797.         0
  798.         0
  799.         12240
  800.         1440
  801.         0
  802.         1
  803.         3
  804.         1 0 0 0 0 0 0
  805.         0
  806.         0
  807.         1
  808.     [frmlay]
  809.         1440
  810.         12240
  811.         1
  812.         1440
  813.         72
  814.         1
  815.         792
  816.         1440
  817.         0
  818.         1
  819.         0
  820.         1
  821.         1
  822.         0
  823.         1
  824.         1440
  825.         10800
  826.         2
  827.         2
  828.         4680
  829.         3
  830.         9360
  831.     [txt]
  832. >
  833.     [frght]
  834.     [lyfrm]
  835.         1
  836.         13248
  837.         0
  838.         14400
  839.         12240
  840.         15840
  841.         0
  842.         1
  843.         3
  844.         1 0 0 0 0 0 0
  845.         0
  846.         0
  847.         2
  848.     [frmlay]
  849.         15840
  850.         12240
  851.         1
  852.         1440
  853.         792
  854.         1
  855.         14472
  856.         1440
  857.         0
  858.         1
  859.         0
  860.         1
  861.         1
  862.         0
  863.         1
  864.         1440
  865.         10800
  866.         2
  867.         2
  868.         4680
  869.         3
  870.         9360
  871.     [txt]
  872. >
  873. [elay]
  874. [l1]
  875.     0
  876. [edoc]
  877. @Defines@<:#240,10800>Declare Welcome()
  878.  
  879. @Defines@<:#240,10800>Declare MakeItAutoRun()
  880.  
  881. @Defines@<:#240,10800>Declare RemoveFromAutoRun()
  882.  
  883. @Defines@<:#240,10800>Declare ShowWelcome()
  884.  
  885. @Defines@<:#240,10800>Declare    HelpFunction()
  886.  
  887. @Defines@<:#240,10800>Define ShowWindow(hWnd, stuff) DllCall("user,ShowWindow,HHH", %1, %2)
  888.  
  889. @Defines@Define    WinHelp(hWnd, file, cmd, ptr)    DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
  890.  
  891. @Defines@<:><:><:><:>Define     FindWindow()     DllCall("user,FindWindow,HCC", %1, %2)
  892.  
  893. @Defines@define    HELP_CONTEXT    0x0001
  894.  
  895. @Defines@Define    HelpPanelGlobalVar    "HelpPanelGlobalVar"
  896.  
  897. @Defines@define    VK_F1        112
  898.  
  899. @Defines@Define    HP_Welcome    5012
  900.  
  901. @Defines@Define    CREATE_ERROR    "Unable to create file AMIAUTO.CFG"
  902.  
  903. @Defines@Define    SAVE_ERROR    "Unable to save file AMIAUTO.CFG"
  904.  
  905. @Defines@Define    READ_ERROR    "Unable to read file AMIAUTO.CFG."
  906.  
  907. @Defines@Define    OPEN_ERROR    "Unable to open file AMIAUTO.CFG."
  908.  
  909. @Function@Function Main()
  910.  
  911. If GetOpenFileCount() = 0<:F
  912. @Footnote@Allocation of global variables requires an open document.  If no document is currently open, this will create a document with the default style sheet, no contents and no run macro.
  913.  
  914. >
  915.  
  916. @Outline3@<:#288,10800>defstyle=getprofilestring$("AmiPro", "defstyle", "AMIPRO.INI")
  917.  
  918. @Outline3@<:#288,10800>New(defstyle, 0, 512)
  919.  
  920. <:#288,10800>EndIf
  921.  
  922. <:#288,10800>AllocGlobalVar("loadem", 100)    'holds the list of autorun macros
  923.  
  924. <:#288,10800>AllocGlobalVar("count", 1)
  925.  
  926. <:#288,10800>MakeItAutoRun()
  927.  
  928. <:#288,10800>FreeGlobalVar("loadem")
  929.  
  930. <:#288,10800>FreeGlobalVar("count")
  931.  
  932. <:#288,10800>ShowWelcome()
  933.  
  934. @Function@<:#384,10800>End Function
  935.  
  936. @Function@<:#384,10800>Function Welcome()
  937.  
  938. <:#288,10800>IgnoreKeyBoa<:ZDDE_BOOKMARK1>rd(2)
  939.  
  940. <:#288,10800>Stat = EvalField("NumChars")
  941.  
  942. <:#288,10800>Word = CurWord$()
  943.  
  944. <:#288,10800>If Stat <;> 0 OR GetOpenFile<:Z~DDE_BOOKMARK1>Name$() != "" OR word != ""
  945.  
  946. @Outline3@<:#288,10800>' A file is already open - probably from the command line  or OLE- don't run the macro
  947.  
  948. @Outline3@<:#288,10800>Return -1
  949.  
  950. <:#288,10800>Endif
  951.  
  952. <:#288,10800>ShowWelcome()
  953.  
  954. @Function@<:#384,10800>End Function
  955.  
  956. @Function@<:#384,10800>Function ShowWelcome()
  957.  
  958. <:#288,10800>Again:
  959.  
  960. <:#288,10800>Bitmap = StrCat$(GetAmiDirectory$(), "\","Welcome.Bmp")
  961.  
  962. <:#288,10800>FillEdit(20,1)
  963.  
  964. <:#288,10800>FillEdit(1001, Bitmap)
  965.  
  966. <:#288,10800>SetDlgCallBack(0,"InitWelcome")
  967.  
  968. <:#288,10800>
  969.  
  970. <:#288,10800>Mac = GetRunningMacroFile$()
  971.  
  972. <:#288,10800>AllocGlobalVar(HelpPanelGlobalVar,1)
  973.  
  974. <:#288,10800>SetGlobalVar(HelpPanelGlobalVar,HP_Welcome)
  975.  
  976. <:#288,10800>DlgKeyInterrupt(VK_F1,"{Mac}!HelpFunction")
  977.  
  978. <:#288,10800>Box = DialogBox(".","Welcome")
  979.  
  980. <:#288,10800>FreeGlobalVar(HelpPanelGlobalVar)
  981.  
  982. <:#288,10800>
  983.  
  984. <:#288,10800>If Box != 2
  985.  
  986. @Outline3@<:#288,10800>If (GetDialogField$(22)=1)
  987.  
  988. @Outline4@<:#288,10800>AllocGlobalVar("loadem", 100)    'holds the list of autorun macros
  989.  
  990. @Outline4@<:#288,10800>AllocGlobalVar("count", 1)
  991.  
  992. @Outline4@<:#288,10800>RemoveFromAutoRun()
  993.  
  994. @Outline4@<:#288,10800>FreeGlobalVar("loadem")
  995.  
  996. @Outline4@<:#288,10800>FreeGlobalVar("count")
  997.  
  998. @Outline3@<:#288,10800>EndIf
  999.  
  1000. <:#288,10800>EndIf
  1001.  
  1002. <:#288,10800>If Box = 3
  1003.  
  1004. @Outline3@<:#288,10800>' call tutorial
  1005.  
  1006. @Outline3@<:#288,10800>Call QS_Main.smm()
  1007.  
  1008. @Outline3@<:#288,10800>Goto Again
  1009.  
  1010. <:#288,10800>Endif
  1011.  
  1012. <:#288,10800>If Box <<<;> 1
  1013.  
  1014. @Outline3@<:#288,10800>Exit Function
  1015.  
  1016. <:#288,10800>Endif
  1017.  
  1018. <:#288,10800>If GetDialogField$(20)
  1019.  
  1020. @Outline3@<:#288,10800>If New
  1021.  
  1022. @Outline3@<:#288,10800>Else
  1023.  
  1024. @Outline4@<:#288,10800>Goto Again
  1025.  
  1026. @Outline3@<:#288,10800>Endif
  1027.  
  1028. <:#288,10800>ElseIf GetDialogField$(21)
  1029.  
  1030. @Outline3@<:#288,10800>If GetOpenFileCount() << 1
  1031.  
  1032. @Outline4@<:#288,10800>New("Default.sty",1,0)
  1033.  
  1034. @Outline3@<:#288,10800>Endif
  1035.  
  1036. @Outline3@<:#288,10800>If  FileOpen
  1037.  
  1038. @Outline3@<:#288,10800>Else
  1039.  
  1040. @Outline4@<:#288,10800>Goto Again
  1041.  
  1042. @Outline3@<:#288,10800>Endif
  1043.  
  1044. <:#288,10800>Endif
  1045.  
  1046. @Function@<:#384,10800>End Function
  1047.  
  1048. @Function@<:#384,10800>Function InitWelcome(Hdlg)
  1049.  
  1050. <:#288,10800>quickSt = strcat$(GetAmiDirectory$() , "QS_MAIN.SMM")
  1051.  
  1052. <:#288,10800>hQuickSt = fopen(quickSt, "r")
  1053.  
  1054. <:#288,10800>if hQuickSt = 0
  1055.  
  1056. @Outline3@<:#288,10800>ShowWindow(GetDlgItem(hDlg, 3) , 0)
  1057.  
  1058. <:#288,10800>endif
  1059.  
  1060. @Function@<:#384,10800>End Function
  1061.  
  1062. @Function@<:#384,10800>function zproglod()
  1063.  
  1064. <:#288,10800>defstr macro;
  1065.  
  1066. <:#288,10800>rmac=GetRunningMacroFile$()
  1067.  
  1068. <:#288,10800>pause(001)
  1069.  
  1070. <:#288,10800>ignorekeyboard(1)
  1071.  
  1072. <:#288,10800>curauto = lcase$(getprofilestring$("amipro", "automacroload", "amipro.ini"))
  1073.  
  1074. <:#288,10800>if "_autorun.smm!zrunmacs" = assign(¯o, strfield$(curauto, 2, ","))
  1075.  
  1076. @Outline3@<:#288,10800>return 1
  1077.  
  1078. <:#288,10800>elseif "zrunmacs.smm" = assign(¯o, strfield$(curauto, 2, ","))
  1079.  
  1080. @Outline3@<:#288,10800>writeprofilestring("amipro", "automacroload", "1,_autorun.smm!zrunmacs", "amipro.ini")
  1081.  
  1082. @Outline3@<:#288,10800>return 1
  1083.  
  1084. <:#288,10800>endif
  1085.  
  1086. <:#288,10800>if 1 = strfield$(curauto, 1, ",")
  1087.  
  1088. @Outline3@<:#288,10800>call zmkauto(macro)
  1089.  
  1090. <:#288,10800>endif
  1091.  
  1092. <:#288,10800>writeprofilestring("amipro", "automacroload", "1,_autorun.smm!zrunmacs", "amipro.ini")
  1093.  
  1094. @Function@<:#384,10800>end function
  1095.  
  1096. @Function@<:#384,10800>function loadlist(x) ' load list of autorun macros from amiauto.cfg file
  1097.  
  1098. <:#288,10800>ignorekeyboard(1)
  1099.  
  1100. <:#288,10800>hourglass(1)
  1101.  
  1102. <:#288,10800>windir = getwindowsdirectory$()
  1103.  
  1104. <:#288,10800>autofile = strcat$(windir, "amiauto.cfg")
  1105.  
  1106. <:#288,10800>ck = findfirst$(autofile, 33)
  1107.  
  1108. <:#288,10800>if ck = ""
  1109.  
  1110. @Outline3@<:#288,10800>option = "w"
  1111.  
  1112. <:#288,10800>else
  1113.  
  1114. @Outline3@<:#288,10800>option = "r"
  1115.  
  1116. <:#288,10800>endif
  1117.  
  1118. <:#288,10800>fh = fopen(autofile, option)
  1119.  
  1120. <:#288,10800>if fh << 1
  1121.  
  1122. @Outline3@message(CREATE_ERROR)
  1123.  
  1124. @Outline3@<:#288,10800>return -1
  1125.  
  1126. <:#288,10800>endif
  1127.  
  1128. <:#288,10800>if option = "w"
  1129.  
  1130. @Outline3@<:#288,10800>goto endit
  1131.  
  1132. <:#288,10800>endif
  1133.  
  1134. <:#288,10800>onerror endit
  1135.  
  1136. <:#288,10800>oncancel endit
  1137.  
  1138. <:#288,10800>i = 0
  1139.  
  1140. <:#288,10800>while (1)
  1141.  
  1142. @Outline3@<:#288,10800>txt = fgets$(fh)
  1143.  
  1144. @Outline3@<:#288,10800>if txt = -1
  1145.  
  1146. @Outline4@<:#288,10800>break
  1147.  
  1148. @Outline3@<:#288,10800>endif
  1149.  
  1150. @Outline3@<:f240,2Times New Roman,255,0,0>If instr(0,UCASE$(txt),"WELCOME.SMM")=0<:F
  1151. @Footnote@While reading the current list of autorun macros, the WELCOME macro is not loaded.  This is because it is going to be added to the list if the user doesn't select the "Don't show ..." checkbox, so this way we easily avoid duplication of the macro in the aut
  1152. orun list.  This also prevents someone from placing just WELCOME in the list without calling WELCOME.SMM!Welcome()
  1153.  
  1154. >
  1155.  
  1156. @Outline4@<:#288,10800><:f240,2Times New Roman,255,0,0>i = i + 1
  1157.  
  1158. @Outline4@<:#288,10800><:f240,2Times New Roman,255,0,0>setglobalarray("loadem", i, txt)
  1159.  
  1160. @Outline3@<:#288,10800><:f240,2Times New Roman,255,0,0>Endif<:f>
  1161.  
  1162. <:#288,10800>wend
  1163.  
  1164. <:#288,10800>endit:
  1165.  
  1166. <:#288,10800>fclose(fh)
  1167.  
  1168. <:#288,10800>setglobalvar("count", i)
  1169.  
  1170. <:#288,10800>hourglass(0)
  1171.  
  1172. @Function@<:#384,10800>end function
  1173.  
  1174. @Function@<:#384,10800>Function AddWelcomeToList()
  1175.  
  1176. <:#288,10800>i = GetGlobalVar$("count")
  1177.  
  1178. <:#288,10800>i = i + 1
  1179.  
  1180. <:#288,10800>SetGlobalArray("loadem",i,"WELCOME.SMM!Welcome")
  1181.  
  1182. <:#288,10800>SetGlobalVar("count",i)
  1183.  
  1184. @Function@<:#384,10800>End Function
  1185.  
  1186. @Function@<:#384,10800>function savelist(x) ' write out list of macros to be autorun
  1187.  
  1188. <:#288,10800>ignorekeyboard(1)
  1189.  
  1190. <:#288,10800>hourglass(1)
  1191.  
  1192. <:#288,10800>windir = getwindowsdirectory$()
  1193.  
  1194. <:#288,10800>autofile = strcat$(windir, "amiauto.cfg")
  1195.  
  1196. <:#288,10800>defstr txt;
  1197.  
  1198. <:#288,10800>fh = fopen(autofile, "w")
  1199.  
  1200. <:#288,10800>if fh << 1
  1201.  
  1202. @Outline3@message(SAVE_ERROR)
  1203.  
  1204. @Outline3@<:#288,10800>hourglass(0)
  1205.  
  1206. @Outline3@<:#288,10800>return -1
  1207.  
  1208. <:#288,10800>endif
  1209.  
  1210. <:#288,10800>onerror endit
  1211.  
  1212. <:#288,10800>oncancel endit
  1213.  
  1214. <:#288,10800>count = getglobalvar$("count")
  1215.  
  1216. <:#288,10800>for i = 1 to count
  1217.  
  1218. @Outline3@<:#288,10800>if assign(&txt, getglobalarray$("loadem", i)) <<<;> ""
  1219.  
  1220. @Outline4@<:#288,10800>fputs(fh, txt)
  1221.  
  1222. @Outline3@<:#288,10800>endif
  1223.  
  1224. <:#288,10800>next
  1225.  
  1226. <:#288,10800>endit:
  1227.  
  1228. <:#288,10800>fclose(fh)
  1229.  
  1230. <:#288,10800>hourglass(0)
  1231.  
  1232. <:#288,10800>call zproglod()
  1233.  
  1234. @Function@<:#384,10800>end function
  1235.  
  1236. @Function@<:#384,10800>Function MakeItAutoRun()
  1237.  
  1238. loadlist("")<:F
  1239. @Footnote@Not only does this load the list of autorun macros, but also keeps Welcome from being loading in the list so that we either don't have it duplicated or we remove it if the user has selected that option.
  1240.  
  1241. >
  1242.  
  1243. <:#288,10800>AddWelcomeToList()
  1244.  
  1245. <:#288,10800>SaveList("")
  1246.  
  1247. @Function@<:#384,10800>End Function
  1248.  
  1249. @Function@<:#384,10800>Function RemoveFromAutoRun()
  1250.  
  1251. LoadList("")<:F
  1252. @Footnote@Not only does this load the list of autorun macros, but also keeps Welcome from being loading in the list so that we either don't have it duplicated or we remove it if the user has selected that option.
  1253.  
  1254. >
  1255.  
  1256. <:#288,10800>SaveList("")
  1257.  
  1258. @Function@<:#384,10800>End Function
  1259.  
  1260. @Function@<:#384,10800>FUNCTION zmkauto(macro)
  1261.  
  1262. <:#288,10800>defstr autos;
  1263.  
  1264. <:#288,10800>ignorekeyboard(1)
  1265.  
  1266. <:#288,10800>windir = getwindowsdirectory$()
  1267.  
  1268. <:#288,10800>autofile = strcat$(windir, "amiauto.cfg")
  1269.  
  1270. <:#288,10800>ck = findfirst$(autofile, 33)
  1271.  
  1272. <:#288,10800>if ck = ""
  1273.  
  1274. @Outline3@<:#288,10800>fh = fopen(autofile, "w")
  1275.  
  1276. @Outline3@<:#288,10800>if fh << 1
  1277.  
  1278. @Outline4@message(CREATE_ERROR)
  1279.  
  1280. @Outline4@<:#288,10800>return -1
  1281.  
  1282. @Outline3@<:#288,10800>endif
  1283.  
  1284. @Outline3@<:#288,10800>fclose(fh)
  1285.  
  1286. <:#288,10800>endif
  1287.  
  1288. <:#288,10800>fh = fopen(autofile, "r")
  1289.  
  1290. <:#288,10800>if fh << 1
  1291.  
  1292. @Outline3@message(READ_ERROR)
  1293.  
  1294. @Outline3@<:#288,10800>return -1
  1295.  
  1296. <:#288,10800>endif
  1297.  
  1298. <:#288,10800>while (1)
  1299.  
  1300. @Outline3@<:#288,10800>if assign(&autos, fgets$(fh)) <;> 0
  1301.  
  1302. @Outline4@<:#288,10800>if lcase$(macro) = lcase$(autos)
  1303.  
  1304. @Outline5@return 0
  1305.  
  1306. @Outline4@<:#288,10800>endif
  1307.  
  1308. @Outline3@<:#288,10800>else
  1309.  
  1310. @Outline4@<:#288,10800>break
  1311.  
  1312. @Outline3@<:#288,10800>endif
  1313.  
  1314. <:#288,10800>wend
  1315.  
  1316. <:#288,10800>fclose(fh)
  1317.  
  1318. <:#288,10800>fh = fopen(autofile, "a")
  1319.  
  1320. <:#288,10800>if fh << 1
  1321.  
  1322. @Outline3@message(OPEN_ERROR)
  1323.  
  1324. @Outline3@<:#288,10800>return -1
  1325.  
  1326. <:#288,10800>endif
  1327.  
  1328. <:#288,10800>fputs(fh, lcase$(macro))
  1329.  
  1330. <:#288,10800>fclose(fh)
  1331.  
  1332. <:#288,10800>call zproglod()
  1333.  
  1334. <:#288,10800>return 1
  1335.  
  1336. @Function@<:#384,10800>end function
  1337.  
  1338. @Function@<:#384,10800>Function HelpFunction()
  1339.  
  1340. <:#288,10800>IgnoreKeyBoard(2)
  1341.  
  1342. <:#288,10800>HelpNum = GetGlobalVar$(HelpPanelGlobalVar)
  1343.  
  1344. <:#288,10800>prohWnd = FindWindow("AmiProWndA", 0)
  1345.  
  1346. <:#288,10800>helpfile = strcat$(GetAmiDirectory$(), "amipro.hlp")
  1347.  
  1348. <:#288,10800>WinHelp (prohWnd, helpfile, HELP_CONTEXT, HelpNum)    
  1349.  
  1350. @Function@<:#384,10800>End function
  1351.  
  1352. @Function@<:#384,10800>DIALOG    Welcome
  1353.  
  1354. <:#288,10800>-2134376448    8    16    41    168    155    ""    ""    "Welcome to Ami Pro"
  1355.  
  1356. <:#288,10800>FONT    8    "Helv"
  1357.  
  1358. <:#288,10800>124    5    40    14    1    1342373889    "button"    "OK"    0 
  1359.  
  1360. <:#288,10800>124    22    40    14    2    1342373888    "button"    "Cancel"    0 
  1361.  
  1362. <:#576,10800>7    14    98    10    20    1342242825    "button"    "&Create a new document"    0 
  1363.  
  1364. <:#576,10800>7    26    110    10    21    1342242825    "button"    "&Work on an existing document"    0 
  1365.  
  1366. <:#576,10800>4    4    96    8    1000    1342177280    "static"    "Choose what you want to do:"    0 
  1367.  
  1368. <:#288,10800>25    58    123    73    1001    1342177290    "static"    "filename.bmp"    0 
  1369.  
  1370. <:#288,10800>107    40    57    14    3    1342373888    "button"    "Start &Tutorial"    0 
  1371.  
  1372. <:#576,10800>9    139    122    12    22    1342242819    "button"    "&Don't show this screen again"    0 
  1373.  
  1374. @Function@<:#384,10800>END DIALOG
  1375.  
  1376. >
  1377.  
  1378. [Embedded]
  1379. 00017176
  1380. >
  1381. [macsum] 13
  1382. Main 0 0 2 16
  1383. Welcome 229 0 3 28
  1384. ShowWelcome 412 0 4 38
  1385. InitWelcome 1188 1 3 84
  1386. zproglod 1368 0 4 91
  1387. loadlist 1902 1 8 108
  1388. AddWelcomeToList 2537 0 2 145
  1389. savelist 2679 1 7 151
  1390. MakeItAutoRun 3160 0 1 176
  1391. RemoveFromAutoRun 3243 0 1 181
  1392. zmkauto 3309 1 6 185
  1393. HelpFunction 4049 0 4 224
  1394. Welcome 4267 0 -1 231
  1395. [macse]
  1396. 14 Main
  1397. 0 1050
  1398. 13
  1399. 5 0
  1400. 18 0
  1401. 11 00000115
  1402. 0 286 "AmiPro" "defstyle" "AMIPRO.INI"
  1403. 13
  1404. 8 1
  1405. 2 101 1 "{1}" 0 512
  1406. 0 271 "loadem" 100
  1407. 0 271 "count" 1
  1408. 16 MakeItAutoRun
  1409. 0 266 "loadem"
  1410. 0 266 "count"
  1411. 16 ShowWelcome
  1412. 6 0
  1413. 15
  1414. 9
  1415. 14 Welcome
  1416. 0 32 2
  1417. 0 1289 "NumChars"
  1418. 13
  1419. 8 1
  1420. 0 23
  1421. 13
  1422. 8 2
  1423. 6 1
  1424. 5 0
  1425. 18 3
  1426. 0 267
  1427. 13
  1428. 7 ""
  1429. 18 1
  1430. 6 2
  1431. 7 ""
  1432. 18 1
  1433. 1 2
  1434. 1 2
  1435. 11 00000155
  1436. 5 -1
  1437. 15
  1438. 9
  1439. 16 ShowWelcome
  1440. 6 0
  1441. 15
  1442. 9
  1443. 14 ShowWelcome
  1444. 0 798
  1445. 13
  1446. 0 16 [X] "\" "Welcome.Bmp"
  1447. 13
  1448. 8 1
  1449. 0 31 20 1
  1450. 0 31 1001 "{1}"
  1451. 0 41 0 "InitWelcome"
  1452. 0 802
  1453. 13
  1454. 8 2
  1455. 0 271 "HelpPanelGlobalVar" 1
  1456. 0 264 "HelpPanelGlobalVar" 5012
  1457. 0 47 112 "{2}!HelpFunction"
  1458. 0 26 "." "Welcome"
  1459. 13
  1460. 8 3
  1461. 0 266 "HelpPanelGlobalVar"
  1462. 6 3
  1463. 5 2
  1464. 18 1
  1465. 11 00000435
  1466. 0 27 22
  1467. 13
  1468. 5 1
  1469. 18 0
  1470. 11 00000435
  1471. 0 271 "loadem" 100
  1472. 0 271 "count" 1
  1473. 16 RemoveFromAutoRun
  1474. 0 266 "loadem"
  1475. 0 266 "count"
  1476. 6 3
  1477. 5 3
  1478. 18 0
  1479. 11 00000493
  1480. 16 QS_Main.smm
  1481. 10 00000016
  1482. 6 3
  1483. 5 1
  1484. 18 1
  1485. 11 00000534
  1486. 6 0
  1487. 15
  1488. 9
  1489. 0 27 20
  1490. 13
  1491. 11 00000624
  1492. 24 101
  1493. 13
  1494. 11 00000598
  1495. 10 00000611
  1496. 10 00000016
  1497. 10 00000764
  1498. 0 27 21
  1499. 13
  1500. 11 00000764
  1501. 0 1050
  1502. 13
  1503. 5 1
  1504. 18 5
  1505. 11 00000713
  1506. 2 101 1 "Default.sty" 1 0
  1507. 24 102
  1508. 13
  1509. 11 00000751
  1510. 10 00000764
  1511. 10 00000016
  1512. 6 0
  1513. 15
  1514. 9
  1515. 14 InitWelcome
  1516. 0 798
  1517. 13
  1518. 0 16 [X] "QS_MAIN.SMM"
  1519. 13
  1520. 8 2
  1521. 0 259 "{2}" "r"
  1522. 13
  1523. 8 3
  1524. 6 3
  1525. 5 0
  1526. 18 0
  1527. 11 00000168
  1528. 0 44 "{0}" 3
  1529. 13
  1530. 0 284 "user,ShowWindow,HHH" [X] 0
  1531. 6 1
  1532. 15
  1533. 9
  1534. 14 zproglod
  1535. 0 802
  1536. 13
  1537. 8 2
  1538. 0 274 001
  1539. 0 32 1
  1540. 0 286 "amipro" "automacroload" "amipro.ini"
  1541. 13
  1542. 0 17 [X]
  1543. 13
  1544. 8 3
  1545. 7 "_autorun.smm!zrunmacs"
  1546. 0 20 "{3}" 2 ","
  1547. 13
  1548. 0 805 &1 [X]
  1549. 13
  1550. 18 0
  1551. 11 00000227
  1552. 5 1
  1553. 15
  1554. 9
  1555. 10 00000387
  1556. 7 "zrunmacs.smm"
  1557. 0 20 "{3}" 2 ","
  1558. 13
  1559. 0 805 &1 [X]
  1560. 13
  1561. 18 0
  1562. 11 00000387
  1563. 0 287 "amipro" "automacroload" "1,_autorun.smm!zrunmacs" "amipro.ini"
  1564. 5 1
  1565. 15
  1566. 9
  1567. 5 1
  1568. 0 20 "{3}" 1 ","
  1569. 13
  1570. 18 0
  1571. 11 00000451
  1572. 16 zmkauto "{1}"
  1573. 0 287 "amipro" "automacroload" "1,_autorun.smm!zrunmacs" "amipro.ini"
  1574. 6 0
  1575. 15
  1576. 9
  1577. 14 loadlist
  1578. 0 32 1
  1579. 0 296 1
  1580. 0 1288
  1581. 13
  1582. 8 2
  1583. 0 16 "{2}" "amiauto.cfg"
  1584. 13
  1585. 8 3
  1586. 0 280 "{3}" 33
  1587. 13
  1588. 8 4
  1589. 6 4
  1590. 7 ""
  1591. 18 0
  1592. 11 00000162
  1593. 7 "w"
  1594. 8 5
  1595. 10 00000174
  1596. 7 "r"
  1597. 8 5
  1598. 0 259 "{3}" "{5}"
  1599. 13
  1600. 8 6
  1601. 6 6
  1602. 5 1
  1603. 18 5
  1604. 11 00000285
  1605. 0 3 "Unable to create file AMIAUTO.CFG"
  1606. 5 -1
  1607. 15
  1608. 9
  1609. 6 5
  1610. 7 "w"
  1611. 18 0
  1612. 11 00000329
  1613. 10 00000580
  1614. 20 00000580
  1615. 19 00000580
  1616. 5 0
  1617. 8 7
  1618. 5 1
  1619. 11 00000580
  1620. 0 257 "{6}"
  1621. 13
  1622. 8 8
  1623. 6 8
  1624. 5 -1
  1625. 18 0
  1626. 11 00000448
  1627. 10 00000580
  1628. 0 18 "{8}"
  1629. 13
  1630. 0 808 0 [X] "WELCOME.SMM"
  1631. 13
  1632. 5 0
  1633. 18 0
  1634. 11 00000567
  1635. 6 7
  1636. 5 1
  1637. 3 0
  1638. 8 7
  1639. 0 272 "loadem" "{7}" "{8}"
  1640. 10 00000365
  1641. 0 260 "{6}"
  1642. 0 264 "count" "{7}"
  1643. 0 296 0
  1644. 6 1
  1645. 15
  1646. 9
  1647. 14 AddWelcomeToList
  1648. 0 265 "count"
  1649. 13
  1650. 8 1
  1651. 6 1
  1652. 5 1
  1653. 3 0
  1654. 8 1
  1655. 0 272 "loadem" "{1}" "WELCOME.SMM!Welcome"
  1656. 0 264 "count" "{1}"
  1657. 6 0
  1658. 15
  1659. 9
  1660. 14 savelist
  1661. 0 32 1
  1662. 0 296 1
  1663. 0 1288
  1664. 13
  1665. 8 2
  1666. 0 16 "{2}" "amiauto.cfg"
  1667. 13
  1668. 8 3
  1669. 0 259 "{3}" "w"
  1670. 13
  1671. 8 5
  1672. 6 5
  1673. 5 1
  1674. 18 5
  1675. 11 00000198
  1676. 0 3 "Unable to save file AMIAUTO.CFG"
  1677. 0 296 0
  1678. 5 -1
  1679. 15
  1680. 9
  1681. 20 00000434
  1682. 19 00000434
  1683. 0 265 "count"
  1684. 13
  1685. 8 6
  1686. 5 1
  1687. 8 7
  1688. 6 6
  1689. 6 7
  1690. 18 2
  1691. 12 00000333
  1692. 10 00000434
  1693. 5 1
  1694. 6 7
  1695. 3 0
  1696. 8 7
  1697. 10 00000258
  1698. 0 273 "loadem" "{7}"
  1699. 13
  1700. 0 805 &4 [X]
  1701. 13
  1702. 7 ""
  1703. 18 1
  1704. 11 00000421
  1705. 0 258 "{5}" "{4}"
  1706. 10 00000300
  1707. 0 260 "{5}"
  1708. 0 296 0
  1709. 16 zproglod
  1710. 6 1
  1711. 15
  1712. 9
  1713. 14 MakeItAutoRun
  1714. 16 loadlist ""
  1715. 16 AddWelcomeToList
  1716. 16 SaveList ""
  1717. 6 0
  1718. 15
  1719. 9
  1720. 14 RemoveFromAutoRun
  1721. 16 LoadList ""
  1722. 16 SaveList ""
  1723. 6 0
  1724. 15
  1725. 9
  1726. 14 zmkauto
  1727. 0 32 1
  1728. 0 1288
  1729. 13
  1730. 8 3
  1731. 0 16 "{3}" "amiauto.cfg"
  1732. 13
  1733. 8 4
  1734. 0 280 "{4}" 33
  1735. 13
  1736. 8 5
  1737. 6 5
  1738. 7 ""
  1739. 18 0
  1740. 11 00000249
  1741. 0 259 "{4}" "w"
  1742. 13
  1743. 8 6
  1744. 6 6
  1745. 5 1
  1746. 18 5
  1747. 11 00000236
  1748. 0 3 "Unable to create file AMIAUTO.CFG"
  1749. 5 -1
  1750. 15
  1751. 9
  1752. 0 260 "{6}"
  1753. 0 259 "{4}" "r"
  1754. 13
  1755. 8 6
  1756. 6 6
  1757. 5 1
  1758. 18 5
  1759. 11 00000357
  1760. 0 3 "Unable to read file AMIAUTO.CFG."
  1761. 5 -1
  1762. 15
  1763. 9
  1764. 5 1
  1765. 11 00000536
  1766. 0 257 "{6}"
  1767. 13
  1768. 0 805 &2 [X]
  1769. 13
  1770. 5 0
  1771. 18 3
  1772. 11 00000510
  1773. 0 17 "{0}"
  1774. 13
  1775. 0 17 "{2}"
  1776. 13
  1777. 18 0
  1778. 11 00000497
  1779. 5 0
  1780. 15
  1781. 9
  1782. 10 00000523
  1783. 10 00000536
  1784. 10 00000357
  1785. 0 260 "{6}"
  1786. 0 259 "{4}" "a"
  1787. 13
  1788. 8 6
  1789. 6 6
  1790. 5 1
  1791. 18 5
  1792. 11 00000657
  1793. 0 3 "Unable to open file AMIAUTO.CFG."
  1794. 5 -1
  1795. 15
  1796. 9
  1797. 0 17 "{0}"
  1798. 13
  1799. 0 258 "{6}" [X]
  1800. 0 260 "{6}"
  1801. 16 zproglod
  1802. 5 1
  1803. 15
  1804. 9
  1805. 6 1
  1806. 15
  1807. 9
  1808. 14 HelpFunction
  1809. 0 32 2
  1810. 0 265 "HelpPanelGlobalVar"
  1811. 13
  1812. 8 1
  1813. 0 284 "user,FindWindow,HCC" "AmiProWndA" 0
  1814. 13
  1815. 8 2
  1816. 0 798
  1817. 13
  1818. 0 16 [X] "amipro.hlp"
  1819. 13
  1820. 8 3
  1821. 0 284 "user,WinHelp,HHCHJ" "{2}" "{3}" 1 "{1}"
  1822. 6 0
  1823. 15
  1824. 9
  1825. DIALOG Welcome
  1826. -2134376448 8 16 41 168 155 "" "" "Welcome to Ami Pro" 
  1827. FONT 8 "Helv" 
  1828. 124 5 40 14 1 1342373889 "button" "OK" 0 
  1829. 124 22 40 14 2 1342373888 "button" "Cancel" 0 
  1830. 7 14 98 10 20 1342242825 "button" "&Create a new document" 0 
  1831. 7 26 110 10 21 1342242825 "button" "&Work on an existing document" 0 
  1832. 4 4 96 8 1000 1342177280 "static" "Choose what you want to do:" 0 
  1833. 25 58 123 73 1001 1342177290 "static" "filename.bmp" 0 
  1834. 107 40 57 14 3 1342373888 "button" "Start &Tutorial" 0 
  1835. 9 139 122 12 22 1342242819 "button" "&Don't show this screen again" 0 
  1836. 00017201
  1837.