home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 18 / 18.iso / w / w380 / 6.ddi / SWITCKIT.CMZ / SKAUTO.SMM < prev    next >
Encoding:
INI File  |  1992-06-29  |  19.7 KB  |  1,422 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.     QMS-PS 810
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     SwitchKit autorunner 6/4/92
  19.     
  20.     
  21.     
  22.     
  23.     709838992
  24.     24
  25.     690230429
  26.     270
  27.     7
  28.     0
  29.     0
  30.     0
  31.     0
  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. [ParaNum]
  54.     1
  55. [tag]
  56.     Body Text
  57.     2
  58.     [fnt]
  59.         TimesNewRomanPS
  60.         200
  61.         0
  62.         49152
  63.     [algn]
  64.         1
  65.         1
  66.         0
  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.         0
  99.         0
  100.         0
  101.     [nfmt]
  102.         280
  103.         1
  104.         2
  105.         .
  106.         ,
  107.         $
  108.     Body Text
  109.     0
  110.     0
  111. [tag]
  112.     Body Single
  113.     3
  114.     [fnt]
  115.         TimesNewRomanPS
  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.     Bullet
  169.     4
  170.     [fnt]
  171.         TimesNewRomanPS
  172.         240
  173.         0
  174.         49152
  175.     [algn]
  176.         1
  177.         1
  178.         0
  179.         288
  180.         288
  181.     [spc]
  182.         33
  183.         273
  184.         1
  185.         0
  186.         0
  187.         1
  188.         100
  189.     [brk]
  190.         4
  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.         0
  205.         <*0>
  206.         360
  207.         1
  208.         1
  209.         0
  210.         0
  211.         0
  212.         0
  213.     [nfmt]
  214.         272
  215.         1
  216.         2
  217.         .
  218.         ,
  219.         $
  220.     Bullet
  221.     0
  222.     0
  223. [tag]
  224.     Bullet 1
  225.     5
  226.     [fnt]
  227.         TimesNewRomanPS
  228.         240
  229.         0
  230.         49152
  231.     [algn]
  232.         1
  233.         1
  234.         288
  235.         288
  236.         288
  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.         <*5>
  262.         0
  263.         1
  264.         1
  265.         0
  266.         0
  267.         0
  268.         0
  269.     [nfmt]
  270.         280
  271.         1
  272.         2
  273.         .
  274.         ,
  275.         $
  276.     Bullet 1
  277.     0
  278.     0
  279. [tag]
  280.     Number List
  281.     6
  282.     [fnt]
  283.         TimesNewRomanPS
  284.         240
  285.         0
  286.         49152
  287.     [algn]
  288.         1
  289.         1
  290.         360
  291.         360
  292.         360
  293.     [spc]
  294.         33
  295.         273
  296.         1
  297.         0
  298.         0
  299.         1
  300.         100
  301.     [brk]
  302.         4
  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.         360
  319.         1
  320.         1
  321.         0
  322.         0
  323.         0
  324.         0
  325.     [nfmt]
  326.         272
  327.         1
  328.         2
  329.         .
  330.         ,
  331.         $
  332.     Number List
  333.     0
  334.     0
  335. [tag]
  336.     Subhead
  337.     7
  338.     [fnt]
  339.         TimesNewRomanPS
  340.         200
  341.         0
  342.         49152
  343.     [algn]
  344.         1
  345.         1
  346.         0
  347.         0
  348.         0
  349.     [spc]
  350.         33
  351.         273
  352.         1
  353.         72
  354.         72
  355.         1
  356.         100
  357.     [brk]
  358.         4
  359.     [line]
  360.         8
  361.         0
  362.         1
  363.         0
  364.         1
  365.         1
  366.         1
  367.         10
  368.         10
  369.         1
  370.     [spec]
  371.         0
  372.         2
  373.         
  374.         0
  375.         1
  376.         1
  377.         0
  378.         0
  379.         0
  380.         0
  381.     [nfmt]
  382.         272
  383.         1
  384.         2
  385.         .
  386.         ,
  387.         $
  388.     Subhead
  389.     0
  390.     0
  391. [tag]
  392.     Title
  393.     8
  394.     [fnt]
  395.         Arial MT
  396.         240
  397.         0
  398.         16385
  399.     [algn]
  400.         1
  401.         1
  402.         0
  403.         0
  404.         0
  405.     [spc]
  406.         33
  407.         446
  408.         1
  409.         144
  410.         72
  411.         1
  412.         100
  413.     [brk]
  414.         16
  415.     [line]
  416.         8
  417.         0
  418.         1
  419.         0
  420.         1
  421.         1
  422.         1
  423.         10
  424.         10
  425.         1
  426.     [spec]
  427.         0
  428.         1
  429.         
  430.         0
  431.         1
  432.         1
  433.         0
  434.         0
  435.         0
  436.         0
  437.     [nfmt]
  438.         272
  439.         1
  440.         2
  441.         .
  442.         ,
  443.         $
  444.     Title
  445.     0
  446.     0
  447. [lay]
  448.     Standard
  449.     513
  450.     [rght]
  451.         15840
  452.         12240
  453.         1
  454.         1440
  455.         1440
  456.         1
  457.         1440
  458.         1440
  459.         0
  460.         1
  461.         0
  462.         1
  463.         0
  464.         2
  465.         1
  466.         1440
  467.         10800
  468.         12
  469.         1
  470.         720
  471.         1
  472.         1440
  473.         1
  474.         2160
  475.         1
  476.         2880
  477.         1
  478.         3600
  479.         1
  480.         4320
  481.         1
  482.         5040
  483.         1
  484.         5760
  485.         1
  486.         6480
  487.         1
  488.         7200
  489.         1
  490.         7920
  491.         1
  492.         8640
  493.     [hrght]
  494.     [lyfrm]
  495.         1
  496.         11200
  497.         0
  498.         0
  499.         12240
  500.         1440
  501.         0
  502.         1
  503.         3
  504.         1 0 0 0 0 0 0
  505.         0
  506.         0
  507.         1
  508.     [frmlay]
  509.         1440
  510.         12240
  511.         1
  512.         1440
  513.         72
  514.         1
  515.         792
  516.         1440
  517.         0
  518.         1
  519.         0
  520.         1
  521.         1
  522.         0
  523.         1
  524.         1440
  525.         10800
  526.         1
  527.         3
  528.         9360
  529.     [txt]
  530. >
  531.     [frght]
  532.     [lyfrm]
  533.         1
  534.         13248
  535.         0
  536.         14400
  537.         12240
  538.         15840
  539.         0
  540.         1
  541.         3
  542.         1 0 0 0 0 0 0
  543.         0
  544.         0
  545.         2
  546.     [frmlay]
  547.         15840
  548.         12240
  549.         1
  550.         1440
  551.         792
  552.         1
  553.         14472
  554.         1440
  555.         0
  556.         1
  557.         0
  558.         1
  559.         1
  560.         0
  561.         1
  562.         1440
  563.         10800
  564.         2
  565.         2
  566.         4680
  567.         3
  568.         9360
  569.     [txt]
  570.  
  571. >
  572. [elay]
  573. [l1]
  574.     0
  575. [edoc]
  576. @Title@<:#283,9360>'declares and defines
  577.  
  578. @Subhead@<:#240,9360>declare loadlist();
  579.  
  580. @Subhead@<:#240,9360>declare savelist();
  581.  
  582. @Subhead@<:#240,9360>declare getrunningmacpath$()
  583.  
  584. @Title@<:#283,9360>function isitloaded()
  585.  
  586. @Subhead@<:#240,9360>ini=strcat$(GetWindowsDirectory$(), "amipro2.ini")
  587.  
  588. @Subhead@<:#240,9360>sk=getrunningmacpath$()
  589.  
  590. @Subhead@<:#240,9360>if getprofilestring$("SwitchKit", "AutoStart", ini)=""
  591.  
  592. @Subhead@<:#240,9360>    call skstart()
  593.  
  594. @Subhead@<:#240,9360>else
  595.  
  596. @Subhead@<:#240,9360>    sf=strcat$(sk,"switch.smm")
  597.  
  598. @Subhead@<:#240,9360>    calli sf()
  599.  
  600. @Subhead@<:#240,9360>endif
  601.  
  602. @Subhead@<:#240,9360>end function
  603.  
  604. @Title@<:#283,9360>function skstart()
  605.  
  606. @Subhead@<:#240,9360>ini=strcat$(GetWindowsDirectory$(), "amipro2.ini")
  607.  
  608. @Subhead@<:#240,9360>sk=getrunningmacpath$()
  609.  
  610. @Subhead@<:#240,9360>filledit(32, "off.bmp")
  611.  
  612. @Subhead@<:#240,9360>filledit(30,"on.bmp")
  613.  
  614. @Subhead@<:#240,9360>filledit(31,"off.bmp")
  615.  
  616. @Subhead@<:#240,9360>setdlgcallback(31, "load")
  617.  
  618. @Subhead@<:#240,9360>setdlgcallback(30, "auto")
  619.  
  620. @Subhead@<:#240,9360>setdlgcallback(32, "manual")
  621.  
  622. @Subhead@<:#240,9360>box=dialogbox(".", "SwitchKit")
  623.  
  624. @Subhead@<:#240,9360>if getprofilestring$("SwitchKit", "AutoStart", ini)=""
  625.  
  626. @Subhead@<:#240,9360>    call auto(0)
  627.  
  628. @Subhead@<:#240,9360>elseif getprofilestring$("SwitchKit", "AutoStart", ini)=0
  629.  
  630. @Subhead@<:#240,9360>    call delauto()
  631.  
  632. @Subhead@<:#240,9360>    exit function
  633.  
  634. @Subhead@<:#240,9360>else
  635.  
  636. @Subhead@<:#240,9360>    writeprofilestring("AmiPro", "automacroexit", "1,skexit.smm", "AMIPRO.INI")
  637.  
  638. @Subhead@<:#240,9360>endif
  639.  
  640. @Subhead@<:#240,9360>swit=strcat$({sk}, "switch.smm")
  641.  
  642. @Subhead@<:#240,9360>calli {swit}()
  643.  
  644. @Subhead@<:#240,9360>end function
  645.  
  646. @Title@<:#283,9360>function getrunningmacpath$()
  647.  
  648. @Subhead@<:#240,9360>pathfile=getrunningmacrofile$()
  649.  
  650. @Subhead@<:#240,9360>i = 1
  651.  
  652. @Subhead@<:#240,9360>while (1)
  653.  
  654. @Subhead@<:#240,9360>    ck = strchr(i PathFile "\")
  655.  
  656. @Subhead@<:#240,9360>    if ck << 1
  657.  
  658. @Subhead@<:#240,9360>        break
  659.  
  660. @Subhead@<:#240,9360>    endif
  661.  
  662. @Subhead@<:#240,9360>    i = ck + 1
  663.  
  664. @Subhead@<:#240,9360>wend
  665.  
  666. @Subhead@<:#240,9360>plen = len(pathfile)
  667.  
  668. @Subhead@<:#240,9360>i=i - 1
  669.  
  670. @Subhead@<:#240,9360>pathfile = MID$(PathFile 1 i)
  671.  
  672. @Subhead@<:#240,9360>return pathfile
  673.  
  674. @Subhead@<:#240,9360>end function
  675.  
  676. @Title@<:#283,9360>function load(hdlg)
  677.  
  678. @Subhead@<:#240,9360>setdlgitemtext(hdlg, 30, "off.bmp")
  679.  
  680. @Subhead@<:#240,9360>setdlgitemtext(hdlg, 32, "off.bmp")
  681.  
  682. @Subhead@<:#240,9360>setdlgitemtext(hdlg, 31, "on.bmp")
  683.  
  684. @Subhead@<:#240,9360>sk=getrunningmacpath$()
  685.  
  686. @Subhead@<:#240,9360>ini=strcat$(GetWindowsDirectory$(), "amipro2.ini")
  687.  
  688. @Subhead@<:#240,9360>swit=strcat$("1,", sk, "switch.smm")
  689.  
  690. @Subhead@<:#240,9360>zmkauto="_autorun.smm!zmkauto"
  691.  
  692. @Subhead@<:#240,9360>calli zmkauto("switch.smm")
  693.  
  694. @Subhead@<:#240,9360>writeprofilestring("SwitchKit", "AutoStart", "1", ini)
  695.  
  696. @Subhead@<:#240,9360>writeprofilestring("SwitchKit", "Bitmap", "6", ini)
  697.  
  698. @Subhead@<:#240,9360>writeprofilestring("SwitchKit", "Winposition", "1", ini)
  699.  
  700. @Subhead@<:#240,9360>writeprofilestring("SwitchKit", "Splash", "1", ini)
  701.  
  702. @Subhead@<:#240,9360>writeprofilestring("SwitchKit", "Demo", "0", ini)
  703.  
  704. @Subhead@<:#240,9360>writeprofilestring("SwitchKit", "SKCustom", 0, ini)
  705.  
  706. @Subhead@<:#240,9360>writeprofilestring("Convert", "initrecnum", 3, ini)
  707.  
  708. @Subhead@<:#240,9360>end function
  709.  
  710. @Title@<:#283,9360>function auto(hdlg)
  711.  
  712. @Subhead@<:#240,9360>if hdlg<<<;>0
  713.  
  714. @Subhead@<:#240,9360>    setdlgitemtext(hdlg, 30, "on.bmp")
  715.  
  716. @Subhead@<:#240,9360>    setdlgitemtext(hdlg, 32, "off.bmp")
  717.  
  718. @Subhead@<:#240,9360>    setdlgitemtext(hdlg, 31, "off.bmp")
  719.  
  720. @Subhead@<:#240,9360>endif
  721.  
  722. @Subhead@<:#240,9360>ini=strcat$(GetWindowsDirectory$(), "amipro2.ini")
  723.  
  724. @Subhead@<:#240,9360>sk=getrunningmacpath$()
  725.  
  726. @Subhead@<:#240,9360>swit=strcat$("1,", sk, "switch.smm")
  727.  
  728. @Subhead@<:#240,9360>zmkauto="_autorun.smm!zmkauto"
  729.  
  730. @Subhead@<:#240,9360>calli zmkauto("switch.smm")
  731.  
  732. @Subhead@<:#240,9360>writeprofilestring("SwitchKit", "AutoStart", "2", ini)
  733.  
  734. @Subhead@<:#240,9360>writeprofilestring("SwitchKit", "Bitmap", "6", ini)
  735.  
  736. @Subhead@<:#240,9360>writeprofilestring("SwitchKit", "Winposition", "1", ini)
  737.  
  738. @Subhead@<:#240,9360>writeprofilestring("SwitchKit", "Splash", "1", ini)
  739.  
  740. @Subhead@<:#240,9360>writeprofilestring("SwitchKit", "Demo", "0", ini)
  741.  
  742. @Subhead@<:#240,9360>writeprofilestring("SwitchKit", "SKCustom", 0, ini)
  743.  
  744. @Subhead@<:#240,9360>writeprofilestring("Convert", "initrecnum", 3, ini)
  745.  
  746. @Subhead@<:#240,9360>end function
  747.  
  748. @Title@<:#283,9360>function manual(hdlg)
  749.  
  750. @Subhead@<:#240,9360>setdlgitemtext(hdlg, 32, "on.bmp")
  751.  
  752. @Subhead@<:#240,9360>setdlgitemtext(hdlg, 30, "off.bmp")
  753.  
  754. @Subhead@<:#240,9360>setdlgitemtext(hdlg, 31, "off.bmp")
  755.  
  756. @Subhead@<:#240,9360>ini=strcat$(GetWindowsDirectory$(), "amipro2.ini")
  757.  
  758. @Subhead@<:#240,9360>writeprofilestring("SwitchKit", "AutoStart", "0", ini)
  759.  
  760. @Subhead@<:#240,9360>writeprofilestring("SwitchKit", "Bitmap", "6", ini)
  761.  
  762. @Subhead@<:#240,9360>writeprofilestring("SwitchKit", "Winposition", "1", ini)
  763.  
  764. @Subhead@<:#240,9360>writeprofilestring("SwitchKit", "Splash", "1", ini)
  765.  
  766. @Subhead@<:#240,9360>writeprofilestring("SwitchKit", "Demo", "0", ini)
  767.  
  768. @Subhead@<:#240,9360>writeprofilestring("SwitchKit", "SKCustom", 0, ini)
  769.  
  770. @Subhead@<:#240,9360>writeprofilestring("Convert", "initrecnum", 3, ini)
  771.  
  772. @Subhead@<:#240,9360>end function
  773.  
  774. @Title@<:#283,9360>function delauto()
  775.  
  776. @Subhead@<:#240,9360>position=0
  777.  
  778. @Subhead@<:#240,9360>automacroload=lcase$(getprofilestring$("AmiPro", "automacroload", "AMIPRO.INI"))
  779.  
  780. @Subhead@if instr(0, automacroload, "switch")
  781.  
  782. @Subhead@<:#240,9360>    writeprofilestring("AmiPro", "automacroload", "", "AMIPRO.INI")
  783.  
  784. @Subhead@<:#240,9360>    ret=chr$(13)
  785.  
  786. @Subhead@<:#240,9360>    message("To use the SwitchKit, {ret}run the SWITCH macro.", "SwitchKit")
  787.  
  788. @Subhead@<:#240,9360>    exit function
  789.  
  790. @Subhead@endif
  791.  
  792. @Subhead@filestat=loadlist()    'pull in all autorun macros
  793.  
  794. @Subhead@if filestat="w"
  795.  
  796. @Subhead@    goto bailout
  797.  
  798. @Subhead@endif
  799.  
  800. @Subhead@<:#240,9360>count=getglobalvar$("count")
  801.  
  802. @Subhead@<:#240,9360>dim namelist(count)
  803.  
  804. @Subhead@<:#240,9360>for i = 1 to count
  805.  
  806. @Subhead@<:#240,9360>namelist(i)=lcase$(getglobalarray$("loadem", i,))
  807.  
  808. @Subhead@<:#240,9360>txt=namelist(i)
  809.  
  810. @Subhead@<:#240,9360>next
  811.  
  812. @Subhead@<:#240,9360>position=arraysearch(&namelist, "switch.smm")
  813.  
  814. @Subhead@<:#240,9360>if position != 0
  815.  
  816. @Subhead@<:#240,9360>    result=arraydelete(&namelist, position)
  817.  
  818. @Subhead@<:#240,9360>    newcount=arraysize(&namelist)
  819.  
  820. @Subhead@<:#240,9360>    setglobalvar("count", newcount)
  821.  
  822. @Subhead@<:#240,9360>    for i = 1 to newcount
  823.  
  824. @Subhead@<:#240,9360>        setglobalarray("loadem", i, namelist(i))
  825.  
  826. @Subhead@<:#240,9360>    next
  827.  
  828. @Subhead@<:#240,9360>endif
  829.  
  830. @Subhead@<:#240,9360>savelist()    'save out new list of autorun macros
  831.  
  832. @Subhead@bailout:
  833.  
  834. @Subhead@freeglobalvar("count")
  835.  
  836. @Subhead@<:#240,9360>freeglobalvar("loadem")
  837.  
  838. @Subhead@<:#240,9360>ret=chr$(13)
  839.  
  840. @Subhead@<:#240,9360>message("To use the SwitchKit, {ret}run the SWITCH macro.", "SwitchKit")
  841.  
  842. @Subhead@<:#240,9360>end function
  843.  
  844. @Title@<:#297,9360>function loadlist() <:f240,BArial,0,0,255>' load list of autorun macros from amiauto.cfg file<:f>
  845.  
  846. @Subhead@<:#240,9360>allocglobalvar("loadem", 50)
  847.  
  848. @Subhead@<:#240,9360>allocglobalvar("count", 1)
  849.  
  850. @Subhead@<:#240,9360>ignorekeyboard(2)
  851.  
  852. @Subhead@<:#240,9360>hourglass(1)
  853.  
  854. @Subhead@<:#240,9360>windir = getwindowsdirectory$()
  855.  
  856. @Subhead@<:#240,9360>autofile = strcat$(windir, "amiauto.cfg")
  857.  
  858. @Subhead@<:#240,9360>ck = findfirst$(autofile, 33)
  859.  
  860. @Subhead@<:#240,9360>if ck = ""
  861.  
  862. @Subhead@<:#240,9360>    option = "w"
  863.  
  864. @Subhead@<:#240,9360>else
  865.  
  866. @Subhead@<:#240,9360>    option = "r"
  867.  
  868. @Subhead@<:#240,9360>endif
  869.  
  870. @Subhead@<:#240,9360>fh = fopen(autofile, option)
  871.  
  872. @Subhead@<:#240,9360>if fh << 1
  873.  
  874. @Subhead@<:#240,9360>    message("Unable to create file AMIAUTO.CFG")
  875.  
  876. @Subhead@<:#240,9360>    return -1
  877.  
  878. @Subhead@<:#240,9360>endif
  879.  
  880. @Subhead@<:#240,9360>if option = "w"
  881.  
  882. @Subhead@<:#240,9360>    goto endit
  883.  
  884. @Subhead@<:#240,9360>endif
  885.  
  886. @Subhead@<:#240,9360>onerror endit
  887.  
  888. @Subhead@<:#240,9360>oncancel endit
  889.  
  890. @Subhead@<:#240,9360>i = 0
  891.  
  892. @Subhead@<:#240,9360>while (1)
  893.  
  894. @Subhead@<:#240,9360>    txt = fgets$(fh)
  895.  
  896. @Subhead@<:#240,9360>    if txt = -1
  897.  
  898. @Subhead@<:#240,9360>        break
  899.  
  900. @Subhead@<:#240,9360>    endif
  901.  
  902. @Subhead@<:#240,9360>    i = i + 1
  903.  
  904. @Subhead@<:#240,9360>    setglobalarray("loadem", i, txt)
  905.  
  906. @Subhead@<:#240,9360>wend
  907.  
  908. @Subhead@<:#240,9360>endit:
  909.  
  910. @Subhead@<:#240,9360>fclose(fh)
  911.  
  912. @Subhead@<:#240,9360>setglobalvar("count", i)
  913.  
  914. @Subhead@<:#240,9360>hourglass(0)
  915.  
  916. @Subhead@return option
  917.  
  918. @Subhead@<:#240,9360>end function
  919.  
  920. @Title@<:#297,9360>function savelist() <:f240,BArial,0,0,255>' write out list of macros to be autorun<:f>
  921.  
  922. @Subhead@<:#240,9360>ignorekeyboard(2)
  923.  
  924. @Subhead@<:#240,9360>hourglass(1)
  925.  
  926. @Subhead@<:#240,9360>windir = getwindowsdirectory$()
  927.  
  928. @Subhead@<:#240,9360>autofile = strcat$(windir, "amiauto.cfg")
  929.  
  930. @Subhead@<:#240,9360>defstr txt;
  931.  
  932. @Subhead@<:#240,9360>fh = fopen(autofile, "w")
  933.  
  934. @Subhead@<:#240,9360>if fh << 1
  935.  
  936. @Subhead@<:#240,9360>    message("Unable to save file AMIAUTO.CFG")
  937.  
  938. @Subhead@<:#240,9360>    hourglass(0)
  939.  
  940. @Subhead@<:#240,9360>    return -1
  941.  
  942. @Subhead@<:#240,9360>endif
  943.  
  944. @Subhead@<:#240,9360>onerror endit
  945.  
  946. @Subhead@<:#240,9360>oncancel endit
  947.  
  948. @Subhead@<:#240,9360>count = getglobalvar$("count")
  949.  
  950. @Subhead@<:#240,9360>for i = 1 to count
  951.  
  952. @Subhead@<:#240,9360>    if assign(&txt, getglobalarray$("loadem", i)) <<<;> ""
  953.  
  954. @Subhead@<:#240,9360>        fputs(fh, txt)
  955.  
  956. @Subhead@<:#240,9360>    endif
  957.  
  958. @Subhead@<:#240,9360>next
  959.  
  960. @Subhead@<:#240,9360>endit:
  961.  
  962. @Subhead@<:#240,9360>fclose(fh)
  963.  
  964. @Subhead@<:#240,9360>hourglass(0)
  965.  
  966. @Subhead@<:#240,9360>'call zproglod("")
  967.  
  968. @Subhead@<:#240,9360>end function
  969.  
  970. @Title@<:#283,9360>DIALOG SwitchKit
  971.  
  972. @Subhead@<:#240,9360>-2134376448 9 36 35 185 111 "" "" "Ami Pro SwitchKit - Loading Options"
  973.  
  974. @Subhead@<:#240,9360>FONT 8 "Helv"
  975.  
  976. @Subhead@<:#240,9360>5 4 130 17 1000 1342177280 "static" "The Ami Pro SwitchKit has been installed on your computer." 0 
  977.  
  978. @Subhead@<:#240,9360>5 92 18 14 32 1342373896 "button" "" 0 
  979.  
  980. @Subhead@<:#240,9360>5 45 18 14 30 1342373896 "button" "" 0 
  981.  
  982. @Subhead@<:#240,9360>5 69 18 14 31 1342373896 "button" "" 0 
  983.  
  984. @Subhead@<:#240,9360>140 4 40 14 1 1342373889 "button" "OK" 0 
  985.  
  986. @Subhead@<:#240,9360>27 47 129 11 1001 1342177280 "static" "Automatically run with Ami Pro." 0 
  987.  
  988. @Subhead@<:#240,9360>27 71 128 10 1002 1342177280 "static" "Add menu item." 0 
  989.  
  990. @Subhead@<:#240,9360>27 94 128 10 1003 1342177280 "static" "Start SwitchKit manually." 0 
  991.  
  992. @Subhead@<:#240,9360>5 28 175 11 1004 1342177280 "static" "Please choose an option for loading the SwitchKit:" 0 
  993.  
  994. @Subhead@<:#240,9360>END DIALOG
  995.  
  996. >
  997.  
  998. [Embedded]
  999. 00014602
  1000. >
  1001. [macsum] 10
  1002. isitloaded 0 0 4 4
  1003. skstart 239 0 5 14
  1004. getrunningmacpath$ 773 0 5 35
  1005. load 1040 1 5 50
  1006. auto 1577 1 5 67
  1007. manual 2143 1 2 86
  1008. delauto 2557 0 11 99
  1009. loadlist 3509 0 8 134
  1010. savelist 4121 0 7 172
  1011. SwitchKit 4589 0 -1 197
  1012. [macse]
  1013. 14 isitloaded
  1014. 0 1288
  1015. 13
  1016. 0 16 [X] "amipro2.ini"
  1017. 13
  1018. 8 1
  1019. 16 getrunningmacpath$
  1020. 13
  1021. 8 2
  1022. 0 286 "SwitchKit" "AutoStart" "{1}"
  1023. 13
  1024. 7 ""
  1025. 18 0
  1026. 11 00000183
  1027. 16 skstart
  1028. 10 00000227
  1029. 0 16 "{2}" "switch.smm"
  1030. 13
  1031. 8 3
  1032. 16 "{3}"
  1033. 6 0
  1034. 15
  1035. 9
  1036. 14 skstart
  1037. 0 1288
  1038. 13
  1039. 0 16 [X] "amipro2.ini"
  1040. 13
  1041. 8 1
  1042. 16 getrunningmacpath$
  1043. 13
  1044. 8 2
  1045. 0 31 32 "off.bmp"
  1046. 0 31 30 "on.bmp"
  1047. 0 31 31 "off.bmp"
  1048. 0 41 31 "load"
  1049. 0 41 30 "auto"
  1050. 0 41 32 "manual"
  1051. 0 26 "." "SwitchKit"
  1052. 13
  1053. 8 3
  1054. 0 286 "SwitchKit" "AutoStart" "{1}"
  1055. 13
  1056. 7 ""
  1057. 18 0
  1058. 11 00000316
  1059. 16 auto 0
  1060. 10 00000478
  1061. 0 286 "SwitchKit" "AutoStart" "{1}"
  1062. 13
  1063. 5 0
  1064. 18 0
  1065. 11 00000418
  1066. 16 delauto
  1067. 6 0
  1068. 15
  1069. 9
  1070. 10 00000478
  1071. 0 287 "AmiPro" "automacroexit" "1,skexit.smm" "AMIPRO.INI"
  1072. 0 16 "{2}" "switch.smm"
  1073. 13
  1074. 8 4
  1075. 16 "{4}"
  1076. 6 0
  1077. 15
  1078. 9
  1079. 14 getrunningmacpath$
  1080. 0 802
  1081. 13
  1082. 8 1
  1083. 5 1
  1084. 8 2
  1085. 5 1
  1086. 11 00000173
  1087. 0 13 "{2}" "{1}" "\"
  1088. 13
  1089. 8 3
  1090. 6 3
  1091. 5 1
  1092. 18 5
  1093. 11 00000140
  1094. 10 00000173
  1095. 6 3
  1096. 5 1
  1097. 3 0
  1098. 8 2
  1099. 10 00000049
  1100. 0 14 "{1}"
  1101. 13
  1102. 8 4
  1103. 6 2
  1104. 5 1
  1105. 3 1
  1106. 8 2
  1107. 0 15 "{1}" 1 "{2}"
  1108. 13
  1109. 8 1
  1110. 6 1
  1111. 15
  1112. 9
  1113. 6 0
  1114. 15
  1115. 9
  1116. 14 load
  1117. 0 43 "{0}" 30 "off.bmp"
  1118. 0 43 "{0}" 32 "off.bmp"
  1119. 0 43 "{0}" 31 "on.bmp"
  1120. 16 getrunningmacpath$
  1121. 13
  1122. 8 2
  1123. 0 1288
  1124. 13
  1125. 0 16 [X] "amipro2.ini"
  1126. 13
  1127. 8 3
  1128. 0 16 "1," "{2}" "switch.smm"
  1129. 13
  1130. 8 4
  1131. 7 "_autorun.smm!zmkauto"
  1132. 8 5
  1133. 16 "{5}" "switch.smm"
  1134. 0 287 "SwitchKit" "AutoStart" "1" "{3}"
  1135. 0 287 "SwitchKit" "Bitmap" "6" "{3}"
  1136. 0 287 "SwitchKit" "Winposition" "1" "{3}"
  1137. 0 287 "SwitchKit" "Splash" "1" "{3}"
  1138. 0 287 "SwitchKit" "Demo" "0" "{3}"
  1139. 0 287 "SwitchKit" "SKCustom" 0 "{3}"
  1140. 0 287 "Convert" "initrecnum" 3 "{3}"
  1141. 6 1
  1142. 15
  1143. 9
  1144. 14 auto
  1145. 6 0
  1146. 5 0
  1147. 18 1
  1148. 11 00000112
  1149. 0 43 "{0}" 30 "on.bmp"
  1150. 0 43 "{0}" 32 "off.bmp"
  1151. 0 43 "{0}" 31 "off.bmp"
  1152. 0 1288
  1153. 13
  1154. 0 16 [X] "amipro2.ini"
  1155. 13
  1156. 8 2
  1157. 16 getrunningmacpath$
  1158. 13
  1159. 8 3
  1160. 0 16 "1," "{3}" "switch.smm"
  1161. 13
  1162. 8 4
  1163. 7 "_autorun.smm!zmkauto"
  1164. 8 5
  1165. 16 "{5}" "switch.smm"
  1166. 0 287 "SwitchKit" "AutoStart" "2" "{2}"
  1167. 0 287 "SwitchKit" "Bitmap" "6" "{2}"
  1168. 0 287 "SwitchKit" "Winposition" "1" "{2}"
  1169. 0 287 "SwitchKit" "Splash" "1" "{2}"
  1170. 0 287 "SwitchKit" "Demo" "0" "{2}"
  1171. 0 287 "SwitchKit" "SKCustom" 0 "{2}"
  1172. 0 287 "Convert" "initrecnum" 3 "{2}"
  1173. 6 1
  1174. 15
  1175. 9
  1176. 14 manual
  1177. 0 43 "{0}" 32 "on.bmp"
  1178. 0 43 "{0}" 30 "off.bmp"
  1179. 0 43 "{0}" 31 "off.bmp"
  1180. 0 1288
  1181. 13
  1182. 0 16 [X] "amipro2.ini"
  1183. 13
  1184. 8 2
  1185. 0 287 "SwitchKit" "AutoStart" "0" "{2}"
  1186. 0 287 "SwitchKit" "Bitmap" "6" "{2}"
  1187. 0 287 "SwitchKit" "Winposition" "1" "{2}"
  1188. 0 287 "SwitchKit" "Splash" "1" "{2}"
  1189. 0 287 "SwitchKit" "Demo" "0" "{2}"
  1190. 0 287 "SwitchKit" "SKCustom" 0 "{2}"
  1191. 0 287 "Convert" "initrecnum" 3 "{2}"
  1192. 6 1
  1193. 15
  1194. 9
  1195. 14 delauto
  1196. 5 0
  1197. 8 1
  1198. 0 286 "AmiPro" "automacroload" "AMIPRO.INI"
  1199. 13
  1200. 0 17 [X]
  1201. 13
  1202. 8 2
  1203. 0 808 0 "{2}" "switch"
  1204. 13
  1205. 11 00000275
  1206. 0 287 "AmiPro" "automacroload" "" "AMIPRO.INI"
  1207. 0 39 13
  1208. 13
  1209. 8 3
  1210. 0 3 "To use the SwitchKit, {3}run the SWITCH macro." "SwitchKit"
  1211. 6 0
  1212. 15
  1213. 9
  1214. 16 loadlist
  1215. 13
  1216. 8 4
  1217. 6 4
  1218. 7 "w"
  1219. 18 0
  1220. 11 00000341
  1221. 10 00000825
  1222. 0 265 "count"
  1223. 13
  1224. 8 5
  1225. 6 5
  1226. 21 6 [X]
  1227. 5 1
  1228. 8 7
  1229. 6 5
  1230. 6 7
  1231. 18 2
  1232. 12 00000465
  1233. 10 00000545
  1234. 5 1
  1235. 6 7
  1236. 3 0
  1237. 8 7
  1238. 10 00000390
  1239. 6 7
  1240. 0 273 "loadem" "{7}"
  1241. 13
  1242. 0 17 [X]
  1243. 13
  1244. 23 6
  1245. 6 7
  1246. 22 6
  1247. 8 8
  1248. 10 00000432
  1249. 0 1044 &6 "switch.smm"
  1250. 13
  1251. 8 1
  1252. 6 1
  1253. 5 0
  1254. 18 1
  1255. 11 00000812
  1256. 0 1042 &6 "{1}"
  1257. 13
  1258. 8 9
  1259. 0 1046 &6
  1260. 13
  1261. 8 10
  1262. 0 264 "count" "{10}"
  1263. 5 1
  1264. 8 7
  1265. 6 10
  1266. 6 7
  1267. 18 2
  1268. 12 00000762
  1269. 10 00000812
  1270. 5 1
  1271. 6 7
  1272. 3 0
  1273. 8 7
  1274. 10 00000686
  1275. 6 7
  1276. 22 6
  1277. 0 272 "loadem" "{7}" [X]
  1278. 10 00000729
  1279. 16 savelist
  1280. 0 266 "count"
  1281. 0 266 "loadem"
  1282. 0 39 13
  1283. 13
  1284. 8 3
  1285. 0 3 "To use the SwitchKit, {3}run the SWITCH macro." "SwitchKit"
  1286. 6 0
  1287. 15
  1288. 9
  1289. 14 loadlist
  1290. 0 271 "loadem" 50
  1291. 0 271 "count" 1
  1292. 0 32 2
  1293. 0 296 1
  1294. 0 1288
  1295. 13
  1296. 8 1
  1297. 0 16 "{1}" "amiauto.cfg"
  1298. 13
  1299. 8 2
  1300. 0 280 "{2}" 33
  1301. 13
  1302. 8 3
  1303. 6 3
  1304. 7 ""
  1305. 18 0
  1306. 11 00000198
  1307. 7 "w"
  1308. 8 4
  1309. 10 00000210
  1310. 7 "r"
  1311. 8 4
  1312. 0 259 "{2}" "{4}"
  1313. 13
  1314. 8 5
  1315. 6 5
  1316. 5 1
  1317. 18 5
  1318. 11 00000321
  1319. 0 3 "Unable to create file AMIAUTO.CFG"
  1320. 5 -1
  1321. 15
  1322. 9
  1323. 6 4
  1324. 7 "w"
  1325. 18 0
  1326. 11 00000365
  1327. 10 00000545
  1328. 20 00000545
  1329. 19 00000545
  1330. 5 0
  1331. 8 6
  1332. 5 1
  1333. 11 00000545
  1334. 0 257 "{5}"
  1335. 13
  1336. 8 7
  1337. 6 7
  1338. 5 -1
  1339. 18 0
  1340. 11 00000484
  1341. 10 00000545
  1342. 6 6
  1343. 5 1
  1344. 3 0
  1345. 8 6
  1346. 0 272 "loadem" "{6}" "{7}"
  1347. 10 00000401
  1348. 0 260 "{5}"
  1349. 0 264 "count" "{6}"
  1350. 0 296 0
  1351. 6 4
  1352. 15
  1353. 9
  1354. 6 0
  1355. 15
  1356. 9
  1357. 14 savelist
  1358. 0 32 2
  1359. 0 296 1
  1360. 0 1288
  1361. 13
  1362. 8 1
  1363. 0 16 "{1}" "amiauto.cfg"
  1364. 13
  1365. 8 2
  1366. 0 259 "{2}" "w"
  1367. 13
  1368. 8 4
  1369. 6 4
  1370. 5 1
  1371. 18 5
  1372. 11 00000198
  1373. 0 3 "Unable to save file AMIAUTO.CFG"
  1374. 0 296 0
  1375. 5 -1
  1376. 15
  1377. 9
  1378. 20 00000434
  1379. 19 00000434
  1380. 0 265 "count"
  1381. 13
  1382. 8 5
  1383. 5 1
  1384. 8 6
  1385. 6 5
  1386. 6 6
  1387. 18 2
  1388. 12 00000333
  1389. 10 00000434
  1390. 5 1
  1391. 6 6
  1392. 3 0
  1393. 8 6
  1394. 10 00000258
  1395. 0 273 "loadem" "{6}"
  1396. 13
  1397. 0 805 &3 [X]
  1398. 13
  1399. 7 ""
  1400. 18 1
  1401. 11 00000421
  1402. 0 258 "{4}" "{3}"
  1403. 10 00000300
  1404. 0 260 "{4}"
  1405. 0 296 0
  1406. 6 0
  1407. 15
  1408. 9
  1409. DIALOG SwitchKit
  1410. -2134376448 9 36 35 185 111 "" "" "Ami Pro SwitchKit - Loading Options" 
  1411. FONT 8 "Helv" 
  1412. 5 4 130 17 1000 1342177280 "static" "The Ami Pro SwitchKit has been installed on your computer." 0 
  1413. 5 92 18 14 32 1342373896 "button" "" 0 
  1414. 5 45 18 14 30 1342373896 "button" "" 0 
  1415. 5 69 18 14 31 1342373896 "button" "" 0 
  1416. 140 4 40 14 1 1342373889 "button" "OK" 0 
  1417. 27 47 129 11 1001 1342177280 "static" "Automatically run with Ami Pro." 0 
  1418. 27 71 128 10 1002 1342177280 "static" "Add menu item." 0 
  1419. 27 94 128 10 1003 1342177280 "static" "Start SwitchKit manually." 0 
  1420. 5 28 175 11 1004 1342177280 "static" "Please choose an option for loading the SwitchKit:" 0 
  1421. 00014627
  1422.