home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 May / Pcwk5b98.iso / DISK1 / MACROS.CMZ / _AUTORUN.SMM next >
INI File  |  1993-03-14  |  55KB  |  3,197 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PostScript Printer
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Automatyczne uruchamianie wybranych makroprogram<\s>w
  19.     Lotus WPD Marketing
  20.     Advanced
  21.     Global Arrays, Callbacks, fopen
  22.     noautorun
  23.     731358023
  24.     106
  25.     679268150
  26.     2441
  27.     12
  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.         Arial
  60.         200
  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.         0
  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.     Outline2
  113.     5
  114.     [fnt]
  115.         Arial
  116.         200
  117.         0
  118.         16384
  119.     [algn]
  120.         1
  121.         1
  122.         216
  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.         2
  149.         
  150.         0
  151.         1
  152.         1
  153.         0
  154.         0
  155.         0
  156.         0
  157.     [nfmt]
  158.         272
  159.         1
  160.         3
  161.         .
  162.         ,
  163.         $
  164.     Outline2
  165.     0
  166.     0
  167. [tag]
  168.     Outline3
  169.     6
  170.     [fnt]
  171.         Arial
  172.         200
  173.         0
  174.         16384
  175.     [algn]
  176.         1
  177.         1
  178.         216
  179.         0
  180.         0
  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.         3
  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.     Outline3
  221.     0
  222.     0
  223. [tag]
  224.     Footnote
  225.     7
  226.     [fnt]
  227.         Arial
  228.         200
  229.         0
  230.         16384
  231.     [algn]
  232.         1
  233.         1
  234.         216
  235.         720
  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.         256
  266.         0
  267.         0
  268.         0
  269.     [nfmt]
  270.         272
  271.         1
  272.         3
  273.         .
  274.         ,
  275.         $
  276.     Footnote
  277.     0
  278.     0
  279. [lay]
  280.     Standard
  281.     516
  282.     [rght]
  283.         16833
  284.         11908
  285.         1
  286.         1440
  287.         1440
  288.         1
  289.         1440
  290.         1440
  291.         0
  292.         1
  293.         0
  294.         1
  295.         0
  296.         2
  297.         1
  298.         1440
  299.         10465
  300.         12
  301.         1
  302.         720
  303.         1
  304.         1440
  305.         1
  306.         2160
  307.         1
  308.         2880
  309.         1
  310.         3600
  311.         1
  312.         4320
  313.         1
  314.         5040
  315.         1
  316.         5760
  317.         1
  318.         6480
  319.         1
  320.         7200
  321.         1
  322.         7920
  323.         1
  324.         8640
  325.     [hrght]
  326.     [lyfrm]
  327.         1
  328.         11200
  329.         0
  330.         0
  331.         11908
  332.         1440
  333.         0
  334.         1
  335.         3
  336.         1 0 0 0 0 0 0
  337.         0
  338.         0
  339.         1
  340.     [frmlay]
  341.         1440
  342.         11908
  343.         1
  344.         1440
  345.         72
  346.         1
  347.         792
  348.         1440
  349.         0
  350.         1
  351.         0
  352.         1
  353.         1
  354.         0
  355.         1
  356.         1440
  357.         10465
  358.         1
  359.         3
  360.         9360
  361.     [txt]
  362. Modified by Marek G. B</y>czek from UNICORN Poland
  363.  
  364. >
  365.     [frght]
  366.     [lyfrm]
  367.         1
  368.         13248
  369.         0
  370.         15393
  371.         11908
  372.         16833
  373.         0
  374.         1
  375.         3
  376.         1 0 0 0 0 0 0
  377.         0
  378.         0
  379.         2
  380.     [frmlay]
  381.         16833
  382.         11908
  383.         1
  384.         1440
  385.         792
  386.         1
  387.         15465
  388.         1440
  389.         0
  390.         1
  391.         0
  392.         1
  393.         1
  394.         0
  395.         1
  396.         1440
  397.         10465
  398.         2
  399.         2
  400.         4680
  401.         3
  402.         9360
  403.     [txt]
  404. >
  405. [elay]
  406. [l1]
  407.     0
  408. [pg]
  409.     12
  410.     53 0 22 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
  411.     110 0 34 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
  412.     167 0 44 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
  413.     224 0 8 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
  414.     280 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
  415.     334 0 4 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
  416.     391 0 12 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
  417.     474 0 12 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
  418.     531 0 11 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
  419.     586 0 13 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
  420.     643 0 14 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
  421.     676 0 12 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
  422. [edoc]
  423. <:#245,9025>Macro by <+!>Charlie Pappas,  Mark Osborne & David Zoller<-!>
  424.  
  425. <:#240,9025>
  426.  
  427. @Function@<+@><:#278,9025><:f240,BArial,0,0,255>'declares & defines<:f>
  428.  
  429. @Outline2@<:#240,9025>define EnableWindow()    DllCall("user,EnableWindow,HHH", %1, %2)
  430.  
  431. @Outline2@<:#240,9025>Define ShowWindow()        DllCall("User,ShowWindow,AHH",%1,%2)
  432.  
  433. @Outline2@<:#240,9025>Define GetActiveWindow()    DllCall("User,GetActiveWindow,H")
  434.  
  435. @Outline2@<:#240,9025>Define SetFocus()        DllCall("User,SetFocus,HH", %1)
  436.  
  437. @Outline2@<:#240,9025>define    HFONT    "Setfont:hFont"
  438.  
  439. @Outline2@<:#480,9025>define    SendMessage(hwnd, msg, wpara, lparm)    DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
  440.  
  441. @Outline2@<:#240,9025>define    WM_SETFONT    0x30
  442.  
  443. @Outline2@<:#480,9025>define CreateFont()        DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
  444.  
  445. @Outline2@<:#240,9025>define    DeleteObject(handle)    DllCall("gdi,DeleteObject,HH", %1)
  446.  
  447. @Outline2@<:#240,9025>declare DiskFmtToAnsi(p1);
  448.  
  449. @Outline2@<:#240,9025>define VK_F1            112
  450.  
  451. @Outline2@<:#278,9025><:>declare freeit(p1) <:f240,BArial,0,0,255>' declare user defined functions<:f>
  452.  
  453. @Outline2@<:#240,9025>declare loadlist(p1)
  454.  
  455. @Outline2@<:#240,9025>declare savelist(p1)
  456.  
  457. @Outline2@<:#240,9025>declare showdesc(hdlg, id, dummy)
  458.  
  459. @Outline2@<:#240,9025>declare ckauto(macro)
  460.  
  461. @Outline2@<+@><:#240,9025>Declare    LoadDocDesc(Array, array)
  462.  
  463. @Outline2@<+@><:#240,9025>Declare    GetDocInfo(FopenId)
  464.  
  465. @Outline2@<+@><:I0,0,0,0><:S+-1><:#240,9025>declare countfiles(filespec, array)
  466.  
  467. @Function@<:#259,9025>function info()
  468.  
  469. @Outline2@ignorekeyboard(2)
  470.  
  471. @Outline2@<:#240,9025>hourglass(1)
  472.  
  473. @Outline2@<:#240,9025>DefStr Stat;
  474.  
  475. @Outline2@<:#240,9025>defstr hdlg;
  476.  
  477. @Outline2@<:#240,9025>dim descs(1)
  478.  
  479. @Outline2@<:#240,9025>dim macfiles(1)
  480.  
  481. @Outline2@<:#278,9025>rmac = getrunningmacrofile$() <:f240,BArial,0,0,255>' get the dos file name of running macro<:f>
  482.  
  483. @Outline2@<:#278,9025><:f240,BArial,0,0,255>'load Descs from disk or global array<:f>
  484.  
  485. @Outline3@<:#240,9025>Mac = GetMacPath$()
  486.  
  487. @Outline3@<:#240,9025>numfiles = countfiles("{mac}*.smm", &macfiles)
  488.  
  489. @Outline3@<:#240,9025>trytoalloc=allocglobalvar("DescAndName", numfiles)
  490.  
  491. @Outline3@<:#278,9025>if GetGlobalVar$("DescAndName") = ""    <:f240,BArial,0,0,255>'we've never been initialized<:f>
  492.  
  493. @Outline3@<:#240,9025>    If 0 = Assign(&Stat, LoadDocDesc(&Descs, &macfiles))
  494.  
  495. @Outline3@<:#240,9025>    Else
  496.  
  497. @Outline3@<:#278,9025>        <:f240,BArial,0,0,255>' Function returned error code<:f>
  498.  
  499. @Outline3@<:#240,9025>    Endif
  500.  
  501. @Outline3@<:#240,9025>    freeglobalvar("DescAndName")
  502.  
  503. @Outline3@<:#240,9025>    x=ArraySize(&Descs)
  504.  
  505. @Outline3@<:#278,9025>    x= x + 1        <:f240,BArial,0,0,255>'make room for the arraysize number @ the beginning<:f>
  506.  
  507. @Outline3@<:#240,9025>    allocglobalvar("DescAndName", x)
  508.  
  509. @Outline3@<:#556,9025>    SetGlobalArray("DescAndName", 1, x)    <:f240,BArial,0,0,255>'set the 1st position to the number of files in the local array<:f>
  510.  
  511. @Outline3@<:#240,9025>    for i = 2 to (x - 1)
  512.  
  513. @Outline3@<:#240,9025>        countdown = x - i
  514.  
  515. @Outline3@<:#240,9025>        StatusBarMsg("Files remaining: {countdown}")
  516.  
  517. @Outline3@<:#240,9025>        data =Descs(i)
  518.  
  519. @Outline3@<:#240,9025>        SetGlobalArray("DescAndName", i, data)
  520.  
  521. @Outline3@<:#240,9025>    next
  522.  
  523. @Outline3@<:#240,9025>else
  524.  
  525. @Outline3@<:#240,9025>    numfiles = GetGlobalArray$("DescAndName", 1)
  526.  
  527. @Outline3@<:#240,9025>    for i = 1 to numfiles
  528.  
  529. @Outline3@<:#240,9025>        countdown = numfiles - i
  530.  
  531. @Outline3@<:#240,9025>        StatusBarMsg("Files remaining: {countdown}")
  532.  
  533. @Outline3@<:#240,9025>        data = GetGlobalArray$("DescAndName", i + 1)
  534.  
  535. @Outline3@<:#240,9025>        if data != ""
  536.  
  537. @Outline3@<:#240,9025>            ArrayInsert(&Descs, i, data)
  538.  
  539. @Outline3@<:#240,9025>        endif
  540.  
  541. @Outline3@<:#240,9025>    next
  542.  
  543. @Outline3@<:#240,9025>endif
  544.  
  545. @Outline3@<:#240,9025>StatusBarMsg("")
  546.  
  547. <:#240,9025><:f200,BArial,255,0,0>number =arraysize(&descs)                       
  548.  
  549. <:#240,9025><:f200,BArial,255,0,0>dim filename(number)
  550.  
  551. <:#240,9025><:f200,BArial,255,0,0>for i = 1 to number
  552.  
  553. <:#240,9025><:f200,BArial,255,0,0>c =  strcat$(strfield$(descs(i),2,"|"),"!",i) 
  554.  
  555. <:#240,9025><:f200,BArial,255,0,0>filename(i) = c
  556.  
  557. <:#240,9025><:f200,BArial,255,0,0>next
  558.  
  559. <:#240,9025><:f200,BArial,255,0,0>arraysort(&filename)
  560.  
  561. <:#240,9025><:f200,BArial,255,0,0>dim temper(number)
  562.  
  563. <:#240,9025><:f200,BArial,255,0,0>for i = 1 to number 
  564.  
  565. <:#240,9025><:f200,BArial,255,0,0>    place = strfield$(filename(i),2,"!")
  566.  
  567. <:#240,9025><:f200,BArial,255,0,0>    temper(i) =  descs(place)
  568.  
  569. <:#240,9025><:f200,BArial,255,0,0>next    
  570.  
  571. <:#240,9025><:f200,BArial,255,0,0>for i = 1 to number
  572.  
  573. <:#240,9025><:f200,BArial,255,0,0>    descs(i) = temper(i)
  574.  
  575. <:#240,9025><:f200,BArial,255,0,0>next<:f>
  576.  
  577. @Outline2@<:#240,9025>Filledit(9000,&Descs)
  578.  
  579. @Outline2@<:#278,9025>allocglobalvar("loadem", 100) <:f240,BArial,0,0,255>' keep track of the stuff in the list box<:f>
  580.  
  581. @Outline2@<:#240,9025>allocglobalvar("count", 1)
  582.  
  583. @Outline2@<:#240,9025>setglobalvar("count", 1)
  584.  
  585. @Outline2@<:#278,9025>onerror endit <:f240,BArial,0,0,255>' set up error and cancel routines<:f>
  586.  
  587. @Outline2@<:#240,9025>oncancel endit
  588.  
  589. @Outline2@<:#240,9025>'font handing
  590.  
  591. @Outline3@<:#240,9025>AllocGlobalVar(HFONT, 1)
  592.  
  593. @Outline3@<:#240,9025>if getglobalvar$(HFONT) != ""
  594.  
  595. @Outline3@<:#240,9025>'    SetGlobalVar(HFONT, 0)
  596.  
  597. @Outline3@<:#240,9025>endif
  598.  
  599. @Outline2@<:#240,9025>filledit(20, True)
  600.  
  601. @Outline2@<:#240,9025>DlgKeyInterrupt(VK_F1, "{rmac}!helpme")
  602.  
  603. @Outline2@<:#278,9025><:>SetDlgCallBack (9000,"{rmac}!showdesc") <:f240,BArial,0,0,255>' load dlg items for callback functions<:f>
  604.  
  605. @Outline2@<:#240,9025>SetDlgCallBack (9003,"{rmac}!showdesc")
  606.  
  607. @Outline2@<:#240,9025>SetDlgCallBack (70,"{rmac}!Add")
  608.  
  609. @Outline2@<:#240,9025>SetDlgCallBack (71,"{rmac}!Del")
  610.  
  611. @Outline2@<:#240,9025>SetDlgCallBack (77,"{rmac}!cwp")
  612.  
  613. @Outline2@<:#240,9025>SetDlgCallBack(20,"{rmac}!sorttype")
  614.  
  615. @Outline2@<:#240,9025>SetDlgCallBack (0,"{rmac}!PreBuild")
  616.  
  617. @Outline2@<:#240,9025>loadlist("")
  618.  
  619. @Outline2@<:#278,9025>Box = Dialogbox(".","showfiles") <:f240,BArial,0,0,255>' display the dialog box<:f>
  620.  
  621. @Outline2@<:#278,9025>switch box <:f240,BArial,0,0,255>' what did the user do<:f>
  622.  
  623. @Outline2@<:#240,9025>    case 0
  624.  
  625. @Outline3@<:#240,9025>        goto endit
  626.  
  627. @Outline2@<:#278,9025>    case 4 <:f240,BArial,0,0,255>' save stuff and close box<:f>
  628.  
  629. @Outline3@<:#240,9025>        savelist("")
  630.  
  631. @Outline3@<:#240,9025>        freeit("")
  632.  
  633. @Outline3@<:#240,9025>        exit function
  634.  
  635. @Outline2@<:#278,9025>    case 3 <:f240,BArial,0,0,255>' play the macro<:f>
  636.  
  637. @Outline3@<:#240,9025>        savelist("")
  638.  
  639. @Outline3@<:#240,9025>        freeit("")
  640.  
  641. @Outline3@<:#240,9025>        longname = GetDialogField$(9000)
  642.  
  643. @Outline3@<:#240,9025>        tname=strfield$(longname, 2, "|")
  644.  
  645. @Outline3@<:#240,9025>        mac = ucase$(tname)
  646.  
  647. @Outline3@<:#278,9025>        if mac = ucase$("_info.smm") <:f240,BArial,0,0,255>' trying to run us?<:f>
  648.  
  649. @Outline3@            message("Makroprogram {mac} jest ju</> uruchomiony")
  650.  
  651. @Outline3@<:#240,9025>            goto hosemenot
  652.  
  653. @Outline3@<:#240,9025>        endif
  654.  
  655. @Outline3@        go = decide("Czy uruchomi<\f> makroprogram ""{mac}""?")
  656.  
  657. @Outline3@<:#240,9025>        if go = 1
  658.  
  659. @Outline3@<:#240,9025>            hourglass(0)
  660.  
  661. @Outline3@<:#240,9025>            calli mac()
  662.  
  663. @Outline3@<:#240,9025>        endif
  664.  
  665. @Outline3@<:#240,9025>        hosemenot:
  666.  
  667. @Outline3@<:#240,9025>        RunLater(rmac, "00:00.02")
  668.  
  669. @Outline2@<:#278,9025>    case 1 <:f240,BArial,0,0,255>' wants to get help on the macro<:f>
  670.  
  671. @Outline3@<:#240,9025>        defstr count;
  672.  
  673. @Outline3@<:#240,9025>        savelist("")
  674.  
  675. @Outline3@<:#240,9025>        freeit("")
  676.  
  677. @Outline3@<:#240,9025>        if assign(&count, getopenfilecount()) << 1
  678.  
  679. @Outline3@<:#240,9025>            goto jump
  680.  
  681. @Outline3@<:#240,9025>        endif
  682.  
  683. @Outline3@<:#278,9025>        dim mdifiles(count) <:f240,BArial,0,0,255>' is goodies open?<:f>
  684.  
  685. @Outline3@<:#240,9025>        getopenfilenames(&mdifiles)
  686.  
  687. @Outline3@<:#240,9025>        alreadyopen = 0
  688.  
  689. @Outline3@<:#240,9025>        for i = 1 to count
  690.  
  691. @Outline3@<:#240,9025>            if instr(1, lcase$(mdifiles(i)), "goodies.sam") <;> 0
  692.  
  693. @Outline3@<:#240,9025>                alreadyopen = 1
  694.  
  695. @Outline3@<:#240,9025>                break
  696.  
  697. @Outline3@<:#240,9025>            endif
  698.  
  699. @Outline3@<:#240,9025>        next
  700.  
  701. @Outline3@<:#240,9025>        if alreadyopen = 0
  702.  
  703. @Outline3@<:#240,9025>            opts = 1
  704.  
  705. @Outline3@<:#278,9025>            if count << 1 <:f240,BArial,0,0,255>' didn't have a mdi window<:f>
  706.  
  707. @Outline3@<:#240,9025>                jump:
  708.  
  709. @Outline3@<:#240,9025>                defstyle = getprofilestring$("amipro", "defstyle", "amipro.ini")
  710.  
  711. @Outline3@<:#278,9025>                new(defstyle, 0, 0) <:f240,BArial,0,0,255>' open window<:f>
  712.  
  713. @Outline3@<:#240,9025>                opts = 129
  714.  
  715. @Outline3@<:#240,9025>            endif
  716.  
  717. @Outline3@<:#240,9025>            FileOpen(strcat$(getdocpath$(), "goodies.sam"),  opts, "")
  718.  
  719. @Outline3@<:#240,9025>        else
  720.  
  721. @Outline3@<:#240,9025>            appmaximize("goodies.sam")
  722.  
  723. @Outline3@<:#240,9025>            layoutmode()
  724.  
  725. @Outline3@<:#240,9025>        endif
  726.  
  727. @Outline3@<:#240,9025>        longname = GetDialogField$(9000)
  728.  
  729. @Outline3@<:#240,9025>        tname=ucase$(strfield$(longname, 2, "|"))
  730.  
  731. @Outline3@<:#240,9025>        markpage=GetBookMarkPage(tName)
  732.  
  733. @Outline3@<:#240,9025>'        GoToCmd(1, markPage, 0)
  734.  
  735. @Outline3@<:#240,9025>'        markbookmark(ucase$(tname), findbookmark)
  736.  
  737. @Outline3@<:#240,9025>        Replace(0, 0, 8197, TNAME, "")
  738.  
  739. @Outline3@<:#278,9025>        type("<[>esc]") <:f240,BArial,0,0,255>' go to bookmark of macro<:f>
  740.  
  741. @Outline3@        usercontrol("Naci</\>nij Kontynuuj, aby powr<\s>ci<\f> do makroprogramu.")
  742.  
  743. @Outline3@<:#240,9025>        RunLater(rmac, "00:00.02")
  744.  
  745. @Outline3@<:#240,9025>        exit function
  746.  
  747. @Outline2@<:#240,9025>endswitch
  748.  
  749. @Outline2@<:#240,9025>endit:
  750.  
  751. @Outline2@<:#240,9025>freeit("")
  752.  
  753. @Outline2@<:#240,9025>'nukefont
  754.  
  755. @Outline3@<:#240,9025>font = GetGlobalVar$(HFONT)        ' If we created
  756.  
  757. @Outline3@<:#240,9025>if (0 != font)                ' the font.
  758.  
  759. @Outline3@<:#240,9025>    DeleteObject(font)        ' Delete it
  760.  
  761. @Outline3@<:#240,9025>endif
  762.  
  763. @Outline3@<:#240,9025>result=freeglobalvar(HFONT)
  764.  
  765. @Outline2@<:#240,9025>hourglass(0)
  766.  
  767. @Outline2@<:#240,9025>end function
  768.  
  769. @Function@<:#259,9025>Function PreBuild(hdlg, id, dummy)
  770.  
  771. @Outline2@<:#240,9025>'INITDLG(hdlg, id, stuff)
  772.  
  773. @Outline3@<:#240,9025>Font = CreateFont(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")
  774.  
  775. @Outline3@<:#240,9025>if (Font)
  776.  
  777. @Outline3@<:#240,9025>    hctl = GetDlgItem(hDlg, 9000)    'one desc box
  778.  
  779. @Outline3@<:#240,9025>    hctl2 = GetDlgItem(hDlg, 9002)    'the other
  780.  
  781. @Outline3@<:#240,9025>    hctl3 = GetDlgItem(hDlg, 8007)    'the static text field for file name
  782.  
  783. @Outline3@<:#240,9025>    SendMessage(hctl, WM_SETFONT, font, 0)
  784.  
  785. @Outline3@<:#240,9025>    SendMessage(hctl2, WM_SETFONT, font, 0)
  786.  
  787. @Outline3@<:#240,9025>    SendMessage(hctl3, WM_SETFONT, font, 0)
  788.  
  789. @Outline3@<:#240,9025>    SetGlobalVar(HFONT, Font)
  790.  
  791. @Outline3@<:#240,9025>endif 
  792.  
  793. @Outline2@<:#240,9025>call UngrayButtons(hdlg)
  794.  
  795. @Outline2@<:#240,9025>call sorttype(hdlg, 20, 1)
  796.  
  797. @Outline2@<:#240,9025>end function
  798.  
  799. @Function@<:#278,9025>function UngrayButtons(hdlg) <:f240,BArial,0,0,255>' this function ungrays buttons<:f>
  800.  
  801. @Outline2@<:#240,9025>enablewindow(getdlgitem(Hdlg, 71), 0)
  802.  
  803. @Outline2@<:#240,9025>'showdesc(hdlg, id, dummy)
  804.  
  805. @Outline2@<:#240,9025>if getglobalvar$("count") <;> 0
  806.  
  807. @Outline2@<:#240,9025>    enablewindow(getdlgitem(Hdlg, 71), 1)
  808.  
  809. @Outline2@<:#240,9025>endif
  810.  
  811. @Outline2@<:#240,9025>end function
  812.  
  813. @Function@<:#278,9025>function freeit(x) <:f240,BArial,0,0,255>' free globals<:f>
  814.  
  815. @Outline2@<:#240,9025>freeglobalvar("loadem")
  816.  
  817. @Outline2@<:#240,9025>freeglobalvar("count")
  818.  
  819. @Outline2@<:#240,9025>end function
  820.  
  821. @Function@<:#259,9025>function saveit(hdlg)
  822.  
  823. @Outline2@<:#240,9025>hourglass(1)
  824.  
  825. @Outline2@<:#240,9025>savelist("")
  826.  
  827. @Outline2@<:#240,9025>hourglass(0)
  828.  
  829. @Outline2@<:#240,9025>end function
  830.  
  831. @Function@<:#278,9025>function showdesc(hdlg, id, dummy) <:f240,BArial,0,0,255>' get the doc info stuff from array<:f>
  832.  
  833. @Outline2@ignorekeyboard(2)
  834.  
  835. @Outline2@<:#240,9025>hourglass(1)
  836.  
  837. @Outline2@<:#240,9025>defstr ar;
  838.  
  839. @Outline2@<:#240,9025>longname = GetDlgItemText(Hdlg, id)
  840.  
  841. @Outline2@<:#240,9025>file=lcase$(strfield$(longname, 2, "|"))
  842.  
  843. @Outline2@<:#240,9025>onerror endit
  844.  
  845. @Outline2@<:#240,9025>oncancel endit
  846.  
  847. @Outline2@<:#240,9025>SetDlgItemText(Hdlg, 8007, file)
  848.  
  849. @Outline2@<:#240,9025>stat = 1
  850.  
  851. @Outline2@<:#240,9025>endit:
  852.  
  853. @Outline2@<:#240,9025>hourglass(0)
  854.  
  855. @Outline2@<:#240,9025>return stat
  856.  
  857. @Outline2@<:#240,9025>end function
  858.  
  859. @Function@<:#259,9025>function sorttype(Hdlg,id,dummy)
  860.  
  861. @Outline2@<:#240,9025>sortbydesc=getdlgitemtext(hdlg, 20)
  862.  
  863. @Outline2@<:#240,9025>if sortbydesc=1
  864.  
  865. @Outline2@<:#240,9025>    ShowWindow(GetDlgItem(Hdlg,9003), 0)
  866.  
  867. @Outline2@<:#240,9025>    ShowWindow(GetDlgItem(Hdlg,9000), 1)
  868.  
  869. @Outline2@<:#240,9025>    id=9000
  870.  
  871. @Outline2@<:#240,9025>    call showdesc(Hdlg,id,dummy)
  872.  
  873. @Outline2@<:#240,9025>else
  874.  
  875. @Outline2@<:#240,9025>    ShowWindow(GetDlgItem(Hdlg,9000), 0)
  876.  
  877. @Outline2@<:#240,9025>    ShowWindow(GetDlgItem(Hdlg,9003), 1)
  878.  
  879. @Outline2@<:#240,9025>    id=9003
  880.  
  881. @Outline2@<:#240,9025>    call showdesc(Hdlg,id,dummy)
  882.  
  883. @Outline2@<:#240,9025>endif
  884.  
  885. @Outline2@<:#240,9025>end function
  886.  
  887. @Function@<:#259,9025>DIALOG    showfiles
  888.  
  889. @Outline2@<:#480,9025>-2134376448    17    49    45    280    140    ""    "AmiDialog"    "Automatycznie Uruchamiane Makroprogramy"
  890.  
  891. @Outline2@<:#240,9025>FONT    8    "Helv"
  892.  
  893. @Outline2@<:#240,9025>6    3    60    8    1000    1342308352    "static"    "M&akro:"    0 
  894.  
  895. @Outline2@<:#240,9025>6    12    155    116    9003    1352728577    "listbox"    ""    0 
  896.  
  897. @Outline2@<:#240,9025>6    12    155    122    9000    1352728577    "listbox"    ""    0 
  898.  
  899. @Outline2@<:#240,9025>164    93    44    14    70    1342373888    "button"    "&Instaluj <;><;>"    0 
  900.  
  901. @Outline2@<:#240,9025>164    110    44    14    71    1342242816    "button"    "<<<< &Usu<\q>"    0 
  902.  
  903. @Outline2@<:#240,9025>212    66    46    8    1001    1342308352    "static"    "Z&ainstalowane:"    0 
  904.  
  905. @Outline2@<:#240,9025>212    75    60    53    9002    1352728577    "listbox"    ""    0 
  906.  
  907. @Outline2@<:#240,9025>232    3    42    14    4    1342373888    "button"    "OK"    0 
  908.  
  909. @Outline2@<:#240,9025>232    19    42    14    2    1342373888    "button"    "Anuluj"    0 
  910.  
  911. @Outline2@<:#240,9025>232    35    42    14    1    1342373889    "button"    "&Pomoc..."    0 
  912.  
  913. @Outline2@<:#240,9025>232    51    42    14    3    1342373888    "button"    "&Wykonaj..."    0 
  914.  
  915. @Outline2@<:#240,9025>263    292    0    0    77    1342177280    "button"    "&z"    0 
  916.  
  917. @Outline2@<:#240,9025>45    128    70    10    8007    1342177280    "static"    ""    0 
  918.  
  919. @Outline2@<:#240,9025>65    1    1    1    8013    1342177280    "static"    ""    0 
  920.  
  921. @Outline2@<:#240,9025>34    3    110    8    8777    1342177281    "static"    ""    0 
  922.  
  923. @Outline2@<:#240,9025>6    128    38    10    1002    1342177280    "static"    "Nazwa:"    0 
  924.  
  925. @Outline2@<:#240,9025>14    290    0    0    20    1342242819    "button"    "wy</\>w. opisy"    0 
  926.  
  927. @Outline2@<:#240,9025>END DIALOG
  928.  
  929. @Function@<:#278,9025>Function add(Hdlg) <:f240,BArial,0,0,255>' add a macro to autorun list<:f>
  930.  
  931. @Outline2@<:#240,9025>ignorekeyboard(2)
  932.  
  933. @Outline2@<:#240,9025>defstr autos;
  934.  
  935. @Outline2@<:#240,9025>hourglass(1)
  936.  
  937. @Outline2@<:#240,9025>longname = GetDlgItemText(Hdlg, 9000)
  938.  
  939. @Outline2@<:#240,9025>tname=lcase$(strfield$(longname, 2, "|"))
  940.  
  941. @Outline2@<:#240,9025>if ckauto(lcase$(tname)) <<<;> 1
  942.  
  943. @Outline2@<:#240,9025>    return 0
  944.  
  945. @Outline2@<:#240,9025>endif
  946.  
  947. @Outline2@<:#240,9025>count = getglobalvar$("count")
  948.  
  949. @Outline2@<:#240,9025>for i = 1 to count
  950.  
  951. @Outline2@<:#240,9025>    if tname <<<;> ""
  952.  
  953. @Outline2@<:#240,9025>        if tname = lcase$(getglobalarray$("loadem", i))
  954.  
  955. @Outline2@            message("Ten makroprogram jest ju</> zainstalowany.")
  956.  
  957. @Outline2@<:#240,9025>            hourglass(0)
  958.  
  959. @Outline2@<:#240,9025>            return 1
  960.  
  961. @Outline2@<:#240,9025>        endif
  962.  
  963. @Outline2@<:#240,9025>    endif
  964.  
  965. @Outline2@<:#240,9025>next
  966.  
  967. @Outline2@<:#240,9025>SetDlgItemText(Hdlg, 9002, tname)
  968.  
  969. @Outline2@<:#240,9025>enablewindow(getdlgitem(Hdlg, 71), 1)
  970.  
  971. @Outline2@<:#240,9025>count = getglobalvar$("count") + 1
  972.  
  973. @Outline2@<:#240,9025>setglobalarray("loadem", count, tname)
  974.  
  975. @Outline2@<:#240,9025>setglobalvar("count", count)
  976.  
  977. @Outline2@<:#240,9025>if GetDlgItemText(Hdlg, 9002) = ""
  978.  
  979. @Outline2@<:#240,9025>    enablewindow(getdlgitem(Hdlg, 71), 0)
  980.  
  981. @Outline2@<:#240,9025>endif
  982.  
  983. @Outline2@<:#240,9025>hourglass(0)
  984.  
  985. @Outline2@<:#240,9025>End Function
  986.  
  987. @Function@<:#278,9025><:><:>Function del(Hdlg) <:f240,BArial,0,0,255>' delete macro from autorun list<:f>
  988.  
  989. @Outline2@<:#240,9025>ignorekeyboard(2)
  990.  
  991. @Outline2@<:#240,9025>hourglass(1)
  992.  
  993. @Outline2@<:#240,9025>sname = GetDlgItemText(Hdlg, 9002)
  994.  
  995. @Outline2@<:#240,9025>if sname = ""
  996.  
  997. @Outline2@<:#240,9025>    return 0
  998.  
  999. @Outline2@<:#240,9025>endif
  1000.  
  1001. @Outline2@<:#240,9025>Handle=GetDlgItem(Hdlg, 9002)
  1002.  
  1003. @Outline2@<:#240,9025>AppSendMessage(Handle, 0x0405, 0, 0)
  1004.  
  1005. @Outline2@<:#240,9025>count = getglobalvar$("count")
  1006.  
  1007. @Outline2@<:#240,9025>if count = 0
  1008.  
  1009. @Outline2@<:#240,9025>    enablewindow(getdlgitem(Hdlg, 71), 0)
  1010.  
  1011. @Outline2@<:#240,9025>    return 0
  1012.  
  1013. @Outline2@<:#240,9025>endif    
  1014.  
  1015. @Outline2@<:#240,9025>for i = 1 to count
  1016.  
  1017. @Outline2@<:#240,9025>    xname = getglobalarray$("loadem", i)
  1018.  
  1019. @Outline2@<:#240,9025>    if xname = sname
  1020.  
  1021. @Outline2@<:#240,9025>        setglobalarray("loadem", i, "")
  1022.  
  1023. @Outline2@<:#240,9025>    else
  1024.  
  1025. @Outline2@<:#240,9025>        if xname <<<;> ""
  1026.  
  1027. @Outline2@<:#240,9025>            SetDlgItemText(Hdlg, 9002, xname)
  1028.  
  1029. @Outline2@<:#240,9025>        endif
  1030.  
  1031. @Outline2@<:#240,9025>        setglobalarray("loadem", i, xname)
  1032.  
  1033. @Outline2@<:#240,9025>    endif
  1034.  
  1035. @Outline2@<:#240,9025>next
  1036.  
  1037. @Outline2@<:#240,9025>hourglass(0)
  1038.  
  1039. @Outline2@<:#240,9025>highlighted=getdlgitemtext(hdlg, 9002)
  1040.  
  1041. @Outline2@<:#240,9025>if highlighted = ""
  1042.  
  1043. @Outline2@<:#240,9025>    enablewindow(getdlgitem(Hdlg, 71), 0)
  1044.  
  1045. @Outline2@<:#240,9025>endif
  1046.  
  1047. @Outline2@<:#240,9025>End Function
  1048.  
  1049. @Function@<:#259,9025>function helpme(hdlg)
  1050.  
  1051. @Outline2@<:#240,9025>box = dialogbox(".", "help")
  1052.  
  1053. @Outline2@<:#240,9025>end function
  1054.  
  1055. @Outline2@<:#240,9025>DIALOG    help
  1056.  
  1057. @Outline2@<:#240,9025>-2134376448    5    93    47    160    124    ""    ""    "Informacja"
  1058.  
  1059. @Outline2@<:#240,9025>FONT    8    "Helv"
  1060.  
  1061. @Outline2@<:#240,9025>60    105    40    14    1    1342242817    "button"    "OK"    0 
  1062.  
  1063. @Outline2@<:#480,9025>11    21    138    25    1001    1342177280    "static"    "Wybierz makroprogram i naci</\>nij Instaluj. Od tej pory b<\j>dzie uruchamiany razem z Ami Pro."    0 
  1064.  
  1065. @Outline2@<:#240,9025>6    7    148    89    80    1342177287    "button"    "Instalowanie Makroprogram<\s>w"    0 
  1066.  
  1067. @Outline2@<:#480,9025>11    52    138    18    1002    1342177280    "static"    "Naci</\>nij Pomoc, aby przeczyta<\f> informacje o makroprogramie."    0 
  1068.  
  1069. @Outline2@<:#480,9025>11    73    138    18    1000    1342177280    "static"    "Naci</\>nij Wykonaj, aby zobaczy<\f> efekt dzia</s>ania makroprogramu."    0 
  1070.  
  1071. @Outline2@<:#240,9025>END DIALOG
  1072.  
  1073. @Function@<:#278,9025>function loadlist(x) <:f240,BArial,0,0,255>' load list of autorun macros from amiauto.cfg file<:f>
  1074.  
  1075. @Outline2@<:#240,9025>ignorekeyboard(2)
  1076.  
  1077. @Outline2@<:#240,9025>hourglass(1)
  1078.  
  1079. @Subhead@<:#240,9025>windir = getwindowsdirectory$()
  1080.  
  1081. @Subhead@<:#240,9025>autofile = strcat$(windir, "amiauto.cfg")
  1082.  
  1083. @Outline2@<:#240,9025>ck = findfirst$(autofile, 33)
  1084.  
  1085. @Outline2@<:#240,9025>if ck = ""
  1086.  
  1087. @Outline2@<:#240,9025>    option = "w"
  1088.  
  1089. @Outline2@<:#240,9025>else
  1090.  
  1091. @Outline2@<:#240,9025>    option = "r"
  1092.  
  1093. @Outline2@<:#240,9025>endif
  1094.  
  1095. @Outline2@<:#240,9025>fh = fopen(autofile, option)
  1096.  
  1097. @Outline2@<:#240,9025>if fh << 1
  1098.  
  1099. @Outline2@<:#240,9025>    message("Nie mog<\j> utworzy<\f> pliku AMIAUTO.CFG")
  1100.  
  1101. @Outline2@<:#240,9025>    return -1
  1102.  
  1103. @Outline2@<:#240,9025>endif
  1104.  
  1105. @Outline2@<:#240,9025>if option = "w"
  1106.  
  1107. @Outline2@<:#240,9025>    goto endit
  1108.  
  1109. @Outline2@<:#240,9025>endif
  1110.  
  1111. @Outline2@<:#240,9025>onerror endit
  1112.  
  1113. @Outline2@<:#240,9025>oncancel endit
  1114.  
  1115. @Outline2@<:#240,9025>i = 0
  1116.  
  1117. @Outline2@<:#240,9025>while (1)
  1118.  
  1119. @Outline2@<:#240,9025>    txt = fgets$(fh)
  1120.  
  1121. @Outline2@<:#240,9025>    if txt = -1
  1122.  
  1123. @Outline2@<:#240,9025>        break
  1124.  
  1125. @Outline2@<:#240,9025>    endif
  1126.  
  1127. @Outline2@<:#240,9025>    i = i + 1
  1128.  
  1129. @Outline2@<:#240,9025>    setglobalarray("loadem", i, txt)
  1130.  
  1131. @Outline2@<:#240,9025>    filledit(9002, txt)
  1132.  
  1133. @Outline2@<:#240,9025>wend
  1134.  
  1135. @Outline2@<:#240,9025>endit:
  1136.  
  1137. @Outline2@<:#240,9025>fclose(fh)
  1138.  
  1139. @Outline2@<:#240,9025>setglobalvar("count", i)
  1140.  
  1141. @Outline2@<:#240,9025>hourglass(0)
  1142.  
  1143. @Outline2@<:#240,9025>end function
  1144.  
  1145. @Function@<:#278,9025>function savelist(x) <:f240,BArial,0,0,255>' write out list of macros to be autorun<:f>
  1146.  
  1147. @Outline2@<:#240,9025>ignorekeyboard(2)
  1148.  
  1149. @Outline2@<:#240,9025>hourglass(1)
  1150.  
  1151. @Subhead@<:#240,9025>windir = getwindowsdirectory$()
  1152.  
  1153. @Subhead@<:#240,9025>autofile = strcat$(windir, "amiauto.cfg")
  1154.  
  1155. @Outline2@<:#240,9025>defstr txt;
  1156.  
  1157. @Outline2@<:#240,9025>fh = fopen(autofile, "w")
  1158.  
  1159. @Outline2@<:#240,9025>if fh << 1
  1160.  
  1161. @Outline2@<:#240,9025>    message("Nie mog<\j> zapisa<\f> pliku AMIAUTO.CFG")
  1162.  
  1163. @Outline2@<:#240,9025>    hourglass(0)
  1164.  
  1165. @Outline2@<:#240,9025>    return -1
  1166.  
  1167. @Outline2@<:#240,9025>endif
  1168.  
  1169. @Outline2@<:#240,9025>onerror endit
  1170.  
  1171. @Outline2@<:#240,9025>oncancel endit
  1172.  
  1173. @Outline2@<:#240,9025>count = getglobalvar$("count")
  1174.  
  1175. @Outline2@<:#240,9025>for i = 1 to count
  1176.  
  1177. @Outline2@<:#240,9025>    if assign(&txt, getglobalarray$("loadem", i)) <<<;> ""
  1178.  
  1179. @Outline2@<:#240,9025>        fputs(fh, txt)
  1180.  
  1181. @Outline2@<:#240,9025>    endif
  1182.  
  1183. @Outline2@<:#240,9025>next
  1184.  
  1185. @Outline2@<:#240,9025>endit:
  1186.  
  1187. @Outline2@<:#240,9025>fclose(fh)
  1188.  
  1189. @Outline2@<:#240,9025>hourglass(0)
  1190.  
  1191. @Outline2@<:#240,9025>call zproglod("")
  1192.  
  1193. @Outline2@<:#240,9025>end function
  1194.  
  1195. @Function@<:#259,9025>function zgood(macro) 
  1196.  
  1197. @Outline2@<:#240,9025>declare ckauto(file)
  1198.  
  1199. @Outline2@<:#240,9025>which = left$(macro, 2)
  1200.  
  1201. @Outline2@<:#240,9025>mac = mid$(macro, 3, len(macro))
  1202.  
  1203. @Outline2@<:#240,9025>switch which
  1204.  
  1205. @Outline2@<:#240,9025>    case "td"
  1206.  
  1207. @Outline2@<:#240,9025>        calli mac()
  1208.  
  1209. @Outline2@<:#240,9025>    case "ar"
  1210.  
  1211. @Outline2@<:#240,9025>        runit = ckauto(mac)
  1212.  
  1213. @Outline2@<:#240,9025>        if runit <<<;> 1
  1214.  
  1215. @Outline2@<:#240,9025>            message("{mac} nie mo</>na zainstalowa<\f>.")
  1216.  
  1217. @Outline2@<:#240,9025>            return -1
  1218.  
  1219. @Outline2@<:#240,9025>        endif
  1220.  
  1221. @Outline2@<:#240,9025>        if call zmkauto(mac) = 1
  1222.  
  1223. @Outline2@<:#240,9025>            message("{mac} ju</> zainstalowany.")
  1224.  
  1225. @Outline2@<:#240,9025>        endif
  1226.  
  1227. @Outline2@<:#240,9025>    case    "si"
  1228.  
  1229. @Outline2@<:#240,9025>        call _autorun.smm()        
  1230.  
  1231. @Outline2@<:#240,9025>endswitch
  1232.  
  1233. @Outline2@<:#240,9025>end function
  1234.  
  1235. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>function cwp(hdlg)
  1236.  
  1237. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>again:
  1238.  
  1239. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>p = 004
  1240.  
  1241. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "--<;><;> Pete <<<<--")
  1242.  
  1243. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>pause(p)
  1244.  
  1245. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Mark Osborne")
  1246.  
  1247. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>pause(p)
  1248.  
  1249. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Peter Housley")
  1250.  
  1251. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>pause(p)
  1252.  
  1253. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Hugh Marlor")
  1254.  
  1255. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>pause(p)
  1256.  
  1257. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "John McDaniel")
  1258.  
  1259. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>pause(p)
  1260.  
  1261. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Peyton McManus")
  1262.  
  1263. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>pause(p)
  1264.  
  1265. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Robert Pernett")
  1266.  
  1267. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>pause(p)
  1268.  
  1269. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Powell Smith")
  1270.  
  1271. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>pause(p)
  1272.  
  1273. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Sandra Wilson")
  1274.  
  1275. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>pause(p)
  1276.  
  1277. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "David Zoller")
  1278.  
  1279. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>pause(p)
  1280.  
  1281. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Charlie Pappas")
  1282.  
  1283. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>pause(p)
  1284.  
  1285. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>goto again
  1286.  
  1287. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>end function
  1288.  
  1289. @Function@<:#259,9025>function ckauto(file)
  1290.  
  1291. @Outline2@<:#240,9025>ignorekeyboard(2)
  1292.  
  1293. @Outline2@<:#240,9025>hourglass(1)
  1294.  
  1295. @Outline2@<:#240,9025>fh = fopen(file, "r")
  1296.  
  1297. @Outline2@<:#240,9025>if fh << 1
  1298.  
  1299. @Outline2@<:#240,9025>    statusbarmsg("Nie mog<\j> odczyta<\f> pliku")
  1300.  
  1301. @Outline2@<:#240,9025>    hourglass(0)
  1302.  
  1303. @Outline2@<:#240,9025>    return -1
  1304.  
  1305. @Outline2@<:#240,9025>endif
  1306.  
  1307. @Outline2@<:#240,9025>onerror endit
  1308.  
  1309. @Outline2@<:#240,9025>oncancel endit
  1310.  
  1311. @Outline2@<:#240,9025>line = ""
  1312.  
  1313. @Outline2@<:#240,9025>b = mid$("<[><[>", 1, 1)
  1314.  
  1315. @Outline2@<:#240,9025>while (line <<<;> "{b}desc]")
  1316.  
  1317. @Outline2@<:#240,9025>    line = fgets$(fh)
  1318.  
  1319. @Outline2@<:#240,9025>    if line = -1
  1320.  
  1321. @Outline2@<:#240,9025>        fclose(fh)
  1322.  
  1323. @Outline2@<:#240,9025>        hourglass(0)
  1324.  
  1325. @Outline2@<:#240,9025>        return -1
  1326.  
  1327. @Outline2@<:#240,9025>    endif
  1328.  
  1329. @Outline2@<:#240,9025>wend
  1330.  
  1331. @Outline2@<:#240,9025>defstr ar;
  1332.  
  1333. @Outline2@<:#240,9025>again:
  1334.  
  1335. @Outline2@<:#240,9025>for i = 1 to 4
  1336.  
  1337. @Outline2@<:#240,9025>    fgets$(fh)
  1338.  
  1339. @Outline2@<:#240,9025>next
  1340.  
  1341. @Outline2@<:#240,9025>if assign(&ar, ucase$(strfield$(fgets$(fh), 2, "    "))) = "NOAUTORUN"
  1342.  
  1343. @Outline2@<:#240,9025>    stat = 0
  1344.  
  1345. @Outline2@<:#240,9025>else
  1346.  
  1347. @Outline2@<:#240,9025>    stat = 1
  1348.  
  1349. @Outline2@<:#240,9025>endif
  1350.  
  1351. @Outline2@<:#240,9025>endit:
  1352.  
  1353. @Outline2@<:#240,9025>fclose(fh)
  1354.  
  1355. @Outline2@<:#240,9025>hourglass(0)
  1356.  
  1357. @Outline2@<:#240,9025>return stat
  1358.  
  1359. @Outline2@<:#240,9025>end function
  1360.  
  1361. @Function@<:#259,9025>function GetName(hdlg, id, dummy)
  1362.  
  1363. @Outline2@<:#240,9025>text=getdlgitemtext(hdlg, id)
  1364.  
  1365. @Outline2@<:#240,9025>macname=strfield$(text, 2, "|")
  1366.  
  1367. @Outline2@<:#240,9025>setdlgitemtext(hdlg, 2, macname)
  1368.  
  1369. @Outline2@<:#240,9025>end function
  1370.  
  1371. @Function@<:#259,9025>Function LoadDocDesc(Descs, macfiles)
  1372.  
  1373. @Outline2@<:#240,9025>mpath = GetMacPath$()
  1374.  
  1375. @Outline2@<:#240,9025>DefStr DInfo;
  1376.  
  1377. @Outline2@<:#240,9025>DefStr Id;
  1378.  
  1379. @Outline2@<:#240,9025>j = 1
  1380.  
  1381. @Outline2@<:#240,9025>total = getglobalvar$("autodesctotal")
  1382.  
  1383. @Outline2@<:#240,9025>for i = 1 to total;
  1384.  
  1385. @Outline2@<:#240,9025>    name = *macfiles(i)
  1386.  
  1387. @Outline2@<:#240,9025>    statusbarmsg("Odczytuj<\j> opis pliku {name}...")
  1388.  
  1389. @Outline2@<:#240,9025>    If 0 != Assign(&Id,Fopen("{mpath}{Name}","r"))
  1390.  
  1391. @Outline2@<:#240,9025>        DInfo=GetDocInfo(Id)
  1392.  
  1393. @Outline2@<:#240,9025>        if DInfo != -1
  1394.  
  1395. @Outline2@<:#240,9025>            Data = StrCat$(DInfo,"                                                                      |",Name)
  1396.  
  1397. @Outline2@<:#240,9025>            if len(DInfo) <;> 1
  1398.  
  1399. @Outline2@<:#240,9025>                ArrayInsert(&descs, j, data)
  1400.  
  1401. @Outline2@<:#240,9025>                j = j + 1
  1402.  
  1403. @Outline2@<:#240,9025>            endif
  1404.  
  1405. @Outline2@<:#240,9025>        endif
  1406.  
  1407. @Outline2@<:#240,9025>        Fclose(id)
  1408.  
  1409. @Outline2@<:#240,9025>    endif
  1410.  
  1411. @Outline2@<:#240,9025>next
  1412.  
  1413. @Outline2@<:#240,9025>HourGlass(off)
  1414.  
  1415. @Outline2@<:#240,9025>StatusBarMsg("")
  1416.  
  1417. @Outline2@<:#240,9025>End Function
  1418.  
  1419. @Function@<:#259,9025>FUNCTION DiskFmtToAnsi(str)
  1420.  
  1421. @Outline2@<:#240,9025>'- convert an ascii string from AmiPro disk format to ANSI.
  1422.  
  1423. @Outline2@<:#240,9025>defstr    c;
  1424.  
  1425. @Outline2@<:#240,9025>if (Instr(1, str, "<<"))        ' Got any funny stuff?
  1426.  
  1427. @Outline2@<:#240,9025>    newstr = "";
  1428.  
  1429. @Outline2@<:#240,9025>    off = 1;
  1430.  
  1431. @Outline2@<:#240,9025>    ' Loop over all the chars one at a time looking for
  1432.  
  1433. @Outline2@<:#240,9025>    ' for the escape char.  Off will track where we get the
  1434.  
  1435. @Outline2@<:#240,9025>    ' next char from the input stream. Newstr is where we 
  1436.  
  1437. @Outline2@<:#240,9025>    ' will build the return string.
  1438.  
  1439. @Outline2@<:#240,9025>    while ("" != Assign(&c, Mid$(str, off, 1)))
  1440.  
  1441. @Outline2@<:#240,9025>        off = off + 1;
  1442.  
  1443. @Outline2@<:#240,9025>        if (c = "<<")
  1444.  
  1445. @Outline2@<:#240,9025>            c = Mid$(str, off, 1);
  1446.  
  1447. @Outline2@<:#240,9025>            off = off + 1;
  1448.  
  1449. @Outline2@<:#240,9025>            if (c != "<<")
  1450.  
  1451. @Outline2@<:#240,9025>                nc = Mid$(str, off, 1);
  1452.  
  1453. @Outline2@<:#240,9025>                off = off + 2
  1454.  
  1455. @Outline2@<:#240,9025>                switch c
  1456.  
  1457. @Outline2@<:#240,9025>                    case "*"
  1458.  
  1459. @Outline2@<:#240,9025>                        c = chr$(asc(nc) - 0x20);
  1460.  
  1461. @Outline2@<:#240,9025>                    case "/"
  1462.  
  1463. @Outline2@<:#240,9025>                        c = chr$(asc(nc) + 0x40);
  1464.  
  1465. @Outline2@<:#240,9025>                    case "\"
  1466.  
  1467. @Outline2@<:#240,9025>                        c = chr$(asc(nc) + 0x80);
  1468.  
  1469. @Outline2@<:#240,9025>                endswitch
  1470.  
  1471. @Outline2@<:#240,9025>            endif
  1472.  
  1473. @Outline2@<:#240,9025>        endif
  1474.  
  1475. @Outline2@<:#240,9025>        newstr = strcat$(newstr, c);
  1476.  
  1477. @Outline2@<:#240,9025>    wend
  1478.  
  1479. @Outline2@<:#240,9025>    str = newstr;
  1480.  
  1481. @Outline2@<:#240,9025>endif
  1482.  
  1483. @Outline2@<:#240,9025>return str;
  1484.  
  1485. @Outline2@<:#240,9025>END FUNCTION
  1486.  
  1487. @Function@<:#259,9025>Function GetDocInfo(Fh)
  1488.  
  1489. @Outline2@<:#240,9025>DefStr Data, LocateDesc;
  1490.  
  1491. @Outline2@<:#278,9025><:f240,BArial,0,0,255>'SingleStep(on)<:f>
  1492.  
  1493. @Outline2@<:#240,9025>If "" = Assign(&Data, Fread(FH,500))
  1494.  
  1495. @Outline2@<:#240,9025>    Return ""
  1496.  
  1497. @Outline2@<:#240,9025>Endif
  1498.  
  1499. @Outline2@<:#240,9025>If 0 != Assign(&LocateDesc, instr(1, Data,"esc]"))
  1500.  
  1501. @Outline2@<:#240,9025>    Desc = Mid$(Data,LocateDesc,(LocateDesc + 384))
  1502.  
  1503. @Outline2@<:#240,9025>    RealDesc = StrField$(Desc, 2, "    ")
  1504.  
  1505. @Outline2@<:#240,9025>    autorunstat = StrField$(Desc, 6, "    ")
  1506.  
  1507. @Outline2@<:#240,9025>    if instr (0, lcase$(autorunstat), "noautorun") != 0
  1508.  
  1509. @Outline2@<:#240,9025>        Return -1
  1510.  
  1511. @Outline2@<:#240,9025>    endif
  1512.  
  1513. @Outline2@<:#240,9025>    lenRealDesc= len (RealDesc) - 1
  1514.  
  1515. @Outline2@<:#240,9025>    RealDesc = left$(RealDesc, lenRealDesc)
  1516.  
  1517. @Outline2@<:#240,9025>    if lenrealdesc <;> 80
  1518.  
  1519. @Outline2@<:#240,9025>        RealDesc = left$(RealDesc, 80)
  1520.  
  1521. @Outline2@<:#240,9025>    endif
  1522.  
  1523. @Outline2@<:#240,9025>    realDesc = DiskFmtToAnsi(realdesc)
  1524.  
  1525. @Outline2@<:#240,9025>    Return RealDesc
  1526.  
  1527. @Outline2@<:#240,9025>Endif
  1528.  
  1529. @Outline2@<:#240,9025>End Function
  1530.  
  1531. @Function@<:#259,9025>function countfiles(filespec, macfiles)
  1532.  
  1533. @Outline2@<:#240,9025>switchkit = "SKDATA1.SMM SKDATA2.SMM SKAUTO.SMM SKEXIT.SMM"
  1534.  
  1535. @Outline2@<:#480,9025>dontuse = "AUTOCLOS.SMM AUTOOPEN.SMM AUTONEW.SMM AUTOEXIT.SMM AUTOEXEC.SMM"
  1536.  
  1537. @Outline2@<:#480,9025>moredonts="AUTOCAL.SMM TOAGEN.SMM TOALONG.SMM TOAREMOV.SMM TOASHORT.SMM FAX.SMM"
  1538.  
  1539. @Outline2@<:#240,9025>dontuse = strcat$(dontuse, switchkit, moredonts)
  1540.  
  1541. @Outline2@<:#240,9025>
  1542.  
  1543. @Outline2@<:#240,9025>allocglobalvar("autodesctotal", 1)
  1544.  
  1545. @Outline2@<:#240,9025>count = 0
  1546.  
  1547. @Outline2@<:#240,9025>name = findfirst$(filespec, 1)
  1548.  
  1549. @Outline2@<:#240,9025>if name = ""
  1550.  
  1551. @Outline2@<:#240,9025>    setglobalvar("autodesctotal", count)
  1552.  
  1553. @Outline2@<:#240,9025>    return count
  1554.  
  1555. @Outline2@<:#240,9025>endif
  1556.  
  1557. @Outline2@<:#240,9025>if instr(0, dontuse, Name) = 0
  1558.  
  1559. @Outline2@<:#240,9025>    count = 1;
  1560.  
  1561. @Outline2@<:#240,9025>    *macfiles(1) = name
  1562.  
  1563. @Outline2@<:#240,9025>endif
  1564.  
  1565. @Outline2@<:#240,9025>while (1)
  1566.  
  1567. @Outline2@<:#240,9025>    name = findnext$()
  1568.  
  1569. @Outline2@<:#240,9025>    if name = ""
  1570.  
  1571. @Outline2@<:#240,9025>        break
  1572.  
  1573. @Outline2@<:#240,9025>    endif
  1574.  
  1575. @Outline2@<:#240,9025>    if instr(0, dontuse, Name) = 0
  1576.  
  1577. @Outline2@<:#240,9025>        count = count +1 
  1578.  
  1579. @Outline2@<:#240,9025>        ArrayInsert(&macfiles, count, name)
  1580.  
  1581. @Outline2@<:#240,9025>    endif
  1582.  
  1583. @Outline2@<:#240,9025>wend
  1584.  
  1585. @Outline2@<:#240,9025>setglobalvar("autodesctotal", count)
  1586.  
  1587. @Outline2@<:#240,9025>return count
  1588.  
  1589. @Outline2@<:#240,9025>end function
  1590.  
  1591. @Function@<:#259,9025>function zproglod()
  1592.  
  1593. @Outline2@<:#240,9025>defstr macro;
  1594.  
  1595. @Outline2@<:#240,9025>rmac=GetRunningMacroFile$()
  1596.  
  1597. @Outline2@<:#240,9025>pause(001)
  1598.  
  1599. @Outline2@<:#240,9025>ignorekeyboard(2)
  1600.  
  1601. @Outline2@<:#240,9025>curauto = lcase$(getprofilestring$("amipro", "automacroload", "amipro.ini"))
  1602.  
  1603. @Outline2@<:#240,9025>if "_autorun.smm!zrunmacs" = assign(¯o, strfield$(curauto, 2, ","))
  1604.  
  1605. @Outline2@<:#240,9025>    return 1
  1606.  
  1607. @Outline2@<:#240,9025>elseif "zrunmacs.smm" = assign(¯o, strfield$(curauto, 2, ","))
  1608.  
  1609. @Outline2@<:#240,9025>    writeprofilestring("amipro", "automacroload", "1,_autorun.smm!zrunmacs", "amipro.ini")
  1610.  
  1611. @Outline2@<:#240,9025>    return 1
  1612.  
  1613. @Outline2@<:#240,9025>endif
  1614.  
  1615. @Outline2@<:#240,9025>if 1 = strfield$(curauto, 1, ",")
  1616.  
  1617. @Outline2@<:#240,9025>    call zmkauto(macro)
  1618.  
  1619. @Outline2@<:#240,9025>endif
  1620.  
  1621. @Outline2@<:#240,9025>writeprofilestring("amipro", "automacroload", "1,_autorun.smm!zrunmacs", "amipro.ini")
  1622.  
  1623. @Outline2@<:#240,9025>end function
  1624.  
  1625. @Function@<:#259,9025>FUNCTION zmkauto(macro)
  1626.  
  1627. @Outline2@<:#240,9025>defstr autos;
  1628.  
  1629. @Outline2@<:#240,9025>ignorekeyboard(2)
  1630.  
  1631. @Outline2@<:#240,9025>windir = getwindowsdirectory$()
  1632.  
  1633. @Outline2@<:#240,9025>autofile = strcat$(windir, "amiauto.cfg")
  1634.  
  1635. @Outline2@<:#240,9025>ck = findfirst$(autofile, 33)
  1636.  
  1637. @Outline2@<:#240,9025>if ck = ""
  1638.  
  1639. @Outline2@<:#240,9025>    fh = fopen(autofile, "w")
  1640.  
  1641. @Outline2@<:#240,9025>    if fh << 1
  1642.  
  1643. @Outline2@<:#240,9025>        message("Nie mog<\j> utworzy<\f> pliku AMIAUTO.CFG.")
  1644.  
  1645. @Outline2@<:#240,9025>        return -1
  1646.  
  1647. @Outline2@<:#240,9025>    endif
  1648.  
  1649. @Outline2@<:#240,9025>    fclose(fh)
  1650.  
  1651. @Outline2@<:#240,9025>endif
  1652.  
  1653. @Outline2@<:#240,9025>fh = fopen(autofile, "r")
  1654.  
  1655. @Outline2@<:#240,9025>if fh << 1
  1656.  
  1657. @Outline2@<:#240,9025>    message("Nie mog<\j> odczyta<\f> pliku AMIAUTO.CFG.")
  1658.  
  1659. @Outline2@<:#240,9025>    return -1
  1660.  
  1661. @Outline2@<:#240,9025>endif
  1662.  
  1663. @Outline2@<:#240,9025>while (1)
  1664.  
  1665. @Outline2@<:#240,9025>    if assign(&autos, fgets$(fh)) <;> 0
  1666.  
  1667. @Outline2@<:#240,9025>        if lcase$(macro) = lcase$(autos)
  1668.  
  1669. @Outline2@<:#240,9025>'            message("{macro} ju</> jest zainstalowany.")
  1670.  
  1671. @Outline2@<:#240,9025>            return 0
  1672.  
  1673. @Outline2@<:#240,9025>        endif
  1674.  
  1675. @Outline2@<:#240,9025>    else
  1676.  
  1677. @Outline2@<:#240,9025>        break
  1678.  
  1679. @Outline2@<:#240,9025>    endif
  1680.  
  1681. @Outline2@<:#240,9025>wend
  1682.  
  1683. @Outline2@<:#240,9025>fclose(fh)
  1684.  
  1685. @Outline2@<:#240,9025>fh = fopen(autofile, "a")
  1686.  
  1687. @Outline2@<:#240,9025>if fh << 1
  1688.  
  1689. @Outline2@<:#240,9025>    message("Nie mog<\j> otworzy<\f> pliku AMIAUTO.CFG.")
  1690.  
  1691. @Outline2@<:#240,9025>    return -1
  1692.  
  1693. @Outline2@<:#240,9025>endif
  1694.  
  1695. @Outline2@<:#240,9025>fputs(fh, lcase$(macro))
  1696.  
  1697. @Outline2@<:#240,9025>fclose(fh)
  1698.  
  1699. @Outline2@<:#240,9025>call zproglod()
  1700.  
  1701. @Outline2@<:#240,9025>return 1
  1702.  
  1703. @Outline2@<:#240,9025>end function
  1704.  
  1705. @Function@<:#259,9025>function zrunmacs()
  1706.  
  1707. @Outline2@<:#240,9025>'singlestep(1)
  1708.  
  1709. @Outline2@<:#240,9025>ignorekeyboard(2)
  1710.  
  1711. @Subhead@<:#240,9025>windir = getwindowsdirectory$()
  1712.  
  1713. @Subhead@<:#240,9025>autofile = strcat$(windir, "amiauto.cfg")
  1714.  
  1715. @Outline2@<:#240,9025>ck = findfirst$(autofile, 33)
  1716.  
  1717. @Outline2@<:#240,9025>if ck = ""
  1718.  
  1719. @Outline2@<:#240,9025>    exit function
  1720.  
  1721. @Outline2@<:#240,9025>endif
  1722.  
  1723. @Outline2@<:#240,9025>fh = fopen(autofile, "r")
  1724.  
  1725. @Outline2@<:#240,9025>if fh << 1
  1726.  
  1727. @Outline2@<:#240,9025>    message("Nie mog<\j> otworzy<\f> pliku AMIAUTO.CFG")
  1728.  
  1729. @Outline2@<:#240,9025>    return -1
  1730.  
  1731. @Outline2@<:#240,9025>endif
  1732.  
  1733. @Outline2@<:#240,9025>onerror endit
  1734.  
  1735. @Outline2@<:#240,9025>oncancel endit
  1736.  
  1737. @Outline2@<:#240,9025>dim files(100)
  1738.  
  1739. @Outline2@<:#240,9025>i = 0
  1740.  
  1741. @Outline2@<:#240,9025>while (1)
  1742.  
  1743. @Outline2@<:#240,9025>    txt = fgets$(fh)
  1744.  
  1745. @Outline2@<:#240,9025>    if txt = -1
  1746.  
  1747. @Outline2@<:#240,9025>        break
  1748.  
  1749. @Outline2@<:#240,9025>    endif
  1750.  
  1751. @Outline2@<:#240,9025>    if txt <<<;> ""
  1752.  
  1753. @Outline2@<:#240,9025>        i = i + 1
  1754.  
  1755. @Outline2@<:#240,9025>        files(i) = txt
  1756.  
  1757. @Outline2@<:#240,9025>    endif
  1758.  
  1759. @Outline2@<:#240,9025>wend
  1760.  
  1761. @Outline2@<:#240,9025>endit:
  1762.  
  1763. @Outline2@<:#240,9025>fclose(fh)
  1764.  
  1765. @Outline2@<:#240,9025>for j = 1 to i
  1766.  
  1767. @Outline2@<:#240,9025>    txt = files(j)
  1768.  
  1769. @Outline2@<:#240,9025>    calli txt()
  1770.  
  1771. @Outline2@<:#240,9025>next
  1772.  
  1773. @Outline2@<:#240,9025>end function
  1774.  
  1775. >
  1776.  
  1777. [Embedded]
  1778. 00039615
  1779. >
  1780. [macsum] 25
  1781. info 0 0 30 22
  1782. PreBuild 3459 3 5 173
  1783. UngrayButtons 3889 1 1 188
  1784. freeit 4074 1 1 195
  1785. saveit 4128 1 1 199
  1786. showdesc 4185 3 5 204
  1787. sorttype 4375 3 2 218
  1788. showfiles 4778 0 -1 232
  1789. add 5722 1 6 253
  1790. del 6458 1 7 282
  1791. helpme 7131 1 2 313
  1792. help 7180 0 -1 316
  1793. loadlist 7714 1 8 325
  1794. savelist 8303 1 7 361
  1795. zgood 8796 1 4 386
  1796. cwp 9222 1 2 406
  1797. ckauto 9774 1 7 433
  1798. GetName 10410 3 3 469
  1799. LoadDocDesc 10508 2 9 474
  1800. DiskFmtToAnsi 11092 1 5 498
  1801. GetDocInfo 11749 1 7 532
  1802. countfiles 12264 2 6 554
  1803. zproglod 12961 0 4 584
  1804. zmkauto 13495 1 6 601
  1805. zrunmacs 14264 0 9 641
  1806. [macse]
  1807. 14 info
  1808. 0 32 2
  1809. 0 296 1
  1810. 5 1
  1811. 21 3 [X]
  1812. 5 1
  1813. 21 4 [X]
  1814. 0 802
  1815. 13
  1816. 8 5
  1817. 0 295
  1818. 13
  1819. 8 6
  1820. 16 countfiles "{6}*.smm" &4
  1821. 13
  1822. 8 7
  1823. 0 271 "DescAndName" "{7}"
  1824. 13
  1825. 8 8
  1826. 0 265 "DescAndName"
  1827. 13
  1828. 7 ""
  1829. 18 0
  1830. 11 00000641
  1831. 5 0
  1832. 16 LoadDocDesc &3 &4
  1833. 13
  1834. 0 805 &1 [X]
  1835. 13
  1836. 18 0
  1837. 11 00000293
  1838. 10 00000293
  1839. 0 266 "DescAndName"
  1840. 0 1046 &3
  1841. 13
  1842. 8 9
  1843. 6 9
  1844. 5 1
  1845. 3 0
  1846. 8 9
  1847. 0 271 "DescAndName" "{9}"
  1848. 0 272 "DescAndName" 1 "{9}"
  1849. 5 2
  1850. 8 10
  1851. 6 9
  1852. 5 1
  1853. 3 1
  1854. 6 10
  1855. 18 2
  1856. 12 00000509
  1857. 10 00000628
  1858. 5 1
  1859. 6 10
  1860. 3 0
  1861. 8 10
  1862. 10 00000421
  1863. 6 9
  1864. 6 10
  1865. 3 1
  1866. 8 11
  1867. 0 789 "Files remaining: {11}"
  1868. 6 10
  1869. 22 3
  1870. 8 12
  1871. 0 272 "DescAndName" "{10}" "{12}"
  1872. 10 00000474
  1873. 10 00000935
  1874. 0 273 "DescAndName" 1
  1875. 13
  1876. 8 7
  1877. 5 1
  1878. 8 10
  1879. 6 7
  1880. 6 10
  1881. 18 2
  1882. 12 00000762
  1883. 10 00000935
  1884. 5 1
  1885. 6 10
  1886. 3 0
  1887. 8 10
  1888. 10 00000684
  1889. 6 7
  1890. 6 10
  1891. 3 1
  1892. 8 11
  1893. 0 789 "Files remaining: {11}"
  1894. 6 10
  1895. 5 1
  1896. 3 0
  1897. 0 273 "DescAndName" [X]
  1898. 13
  1899. 8 12
  1900. 6 12
  1901. 7 ""
  1902. 18 1
  1903. 11 00000922
  1904. 0 1041 &3 "{10}" "{12}"
  1905. 10 00000727
  1906. 0 789 ""
  1907. 0 1046 &3
  1908. 13
  1909. 8 13
  1910. 6 13
  1911. 21 14 [X]
  1912. 5 1
  1913. 8 10
  1914. 6 13
  1915. 6 10
  1916. 18 2
  1917. 12 00001073
  1918. 10 00001168
  1919. 5 1
  1920. 6 10
  1921. 3 0
  1922. 8 10
  1923. 10 00000994
  1924. 6 10
  1925. 22 3
  1926. 0 20 [X] 2 "|"
  1927. 13
  1928. 0 16 [X] "!" "{10}"
  1929. 13
  1930. 8 15
  1931. 6 10
  1932. 6 15
  1933. 23 14
  1934. 10 00001038
  1935. 0 1043 &14
  1936. 6 13
  1937. 21 16 [X]
  1938. 5 1
  1939. 8 10
  1940. 6 13
  1941. 6 10
  1942. 18 2
  1943. 12 00001287
  1944. 10 00001364
  1945. 5 1
  1946. 6 10
  1947. 3 0
  1948. 8 10
  1949. 10 00001208
  1950. 6 10
  1951. 22 14
  1952. 0 20 [X] 2 "!"
  1953. 13
  1954. 8 17
  1955. 6 10
  1956. 6 17
  1957. 22 3
  1958. 23 16
  1959. 10 00001252
  1960. 5 1
  1961. 8 10
  1962. 6 13
  1963. 6 10
  1964. 18 2
  1965. 12 00001454
  1966. 10 00001492
  1967. 5 1
  1968. 6 10
  1969. 3 0
  1970. 8 10
  1971. 10 00001375
  1972. 6 10
  1973. 6 10
  1974. 22 16
  1975. 23 3
  1976. 10 00001419
  1977. 0 31 9000 &3
  1978. 0 271 "loadem" 100
  1979. 0 271 "count" 1
  1980. 0 264 "count" 1
  1981. 20 00003292
  1982. 19 00003292
  1983. 0 271 "Setfont:hFont" 1
  1984. 0 265 "Setfont:hFont"
  1985. 13
  1986. 7 ""
  1987. 18 1
  1988. 11 00001663
  1989. 0 31 20 1
  1990. 0 47 112 "{5}!helpme"
  1991. 0 41 9000 "{5}!showdesc"
  1992. 0 41 9003 "{5}!showdesc"
  1993. 0 41 70 "{5}!Add"
  1994. 0 41 71 "{5}!Del"
  1995. 0 41 77 "{5}!cwp"
  1996. 0 41 20 "{5}!sorttype"
  1997. 0 41 0 "{5}!PreBuild"
  1998. 16 loadlist ""
  1999. 0 26 "." "showfiles"
  2000. 13
  2001. 8 18
  2002. 5 0
  2003. 6 18
  2004. 18 0
  2005. 11 00001957
  2006. 10 00003292
  2007. 10 00003292
  2008. 5 4
  2009. 6 18
  2010. 18 0
  2011. 11 00002042
  2012. 16 savelist ""
  2013. 16 freeit ""
  2014. 6 0
  2015. 15
  2016. 9
  2017. 10 00003292
  2018. 5 3
  2019. 6 18
  2020. 18 0
  2021. 11 00002423
  2022. 16 savelist ""
  2023. 16 freeit ""
  2024. 0 27 9000
  2025. 13
  2026. 8 19
  2027. 0 20 "{19}" 2 "|"
  2028. 13
  2029. 8 20
  2030. 0 18 "{20}"
  2031. 13
  2032. 8 6
  2033. 6 6
  2034. 0 18 "_info.smm"
  2035. 13
  2036. 18 0
  2037. 11 00002281
  2038. 0 3 "Makroprogram {6} jest ju</> uruchomiony"
  2039. 10 00002386
  2040. 0 2 "Czy uruchomi<\f> makroprogram ""{6}""?"
  2041. 13
  2042. 8 21
  2043. 6 21
  2044. 5 1
  2045. 18 0
  2046. 11 00002386
  2047. 0 296 0
  2048. 16 "{6}"
  2049. 0 285 "{5}" "00:00.02"
  2050. 10 00003292
  2051. 5 1
  2052. 6 18
  2053. 18 0
  2054. 11 00003292
  2055. 16 savelist ""
  2056. 16 freeit ""
  2057. 0 1050
  2058. 13
  2059. 0 805 &22 [X]
  2060. 13
  2061. 5 1
  2062. 18 5
  2063. 11 00002551
  2064. 10 00002871
  2065. 6 22
  2066. 21 23 [X]
  2067. 0 1051 &23
  2068. 5 0
  2069. 8 24
  2070. 5 1
  2071. 8 10
  2072. 6 22
  2073. 6 10
  2074. 18 2
  2075. 12 00002681
  2076. 10 00002800
  2077. 5 1
  2078. 6 10
  2079. 3 0
  2080. 8 10
  2081. 10 00002602
  2082. 6 10
  2083. 22 23
  2084. 0 17 [X]
  2085. 13
  2086. 0 808 1 [X] "goodies.sam"
  2087. 13
  2088. 5 0
  2089. 18 3
  2090. 11 00002787
  2091. 5 1
  2092. 8 24
  2093. 10 00002800
  2094. 10 00002646
  2095. 6 24
  2096. 5 0
  2097. 18 0
  2098. 11 00003029
  2099. 5 1
  2100. 8 25
  2101. 6 22
  2102. 5 1
  2103. 18 5
  2104. 11 00002954
  2105. 0 286 "amipro" "defstyle" "amipro.ini"
  2106. 13
  2107. 8 26
  2108. 2 101 1 "{26}" 0 0
  2109. 5 129
  2110. 8 25
  2111. 0 268
  2112. 13
  2113. 0 16 [X] "goodies.sam"
  2114. 13
  2115. 2 102 1 [X] "{25}" ""
  2116. 10 00003060
  2117. 0 1029 "goodies.sam"
  2118. 2 210 1
  2119. 0 27 9000
  2120. 13
  2121. 8 19
  2122. 0 20 "{19}" 2 "|"
  2123. 13
  2124. 0 18 [X]
  2125. 13
  2126. 8 20
  2127. 0 1049 "{20}"
  2128. 13
  2129. 8 27
  2130. 2 488 1 0 0 8197 "{20}" ""
  2131. 0 6 "[27]"
  2132. 0 7 "Naci</\>nij Kontynuuj, aby powr<\s>ci<\f> do makroprogramu."
  2133. 0 285 "{5}" "00:00.02"
  2134. 6 0
  2135. 15
  2136. 9
  2137. 16 freeit ""
  2138. 0 265 "Setfont:hFont"
  2139. 13
  2140. 8 28
  2141. 5 0
  2142. 6 28
  2143. 18 1
  2144. 11 00003405
  2145. 0 284 "gdi,DeleteObject,HH" "{28}"
  2146. 0 266 "Setfont:hFont"
  2147. 13
  2148. 8 29
  2149. 0 296 0
  2150. 6 0
  2151. 15
  2152. 9
  2153. 14 PreBuild
  2154. 0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
  2155. 13
  2156. 8 4
  2157. 6 4
  2158. 11 00000370
  2159. 0 44 "{0}" 9000
  2160. 13
  2161. 8 5
  2162. 0 44 "{0}" 9002
  2163. 13
  2164. 8 6
  2165. 0 44 "{0}" 8007
  2166. 13
  2167. 8 7
  2168. 0 284 "user,SendMessage,HHHHJ" "{5}" 48 "{4}" 0
  2169. 0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{4}" 0
  2170. 0 284 "user,SendMessage,HHHHJ" "{7}" 48 "{4}" 0
  2171. 0 264 "Setfont:hFont" "{4}"
  2172. 16 UngrayButtons "{0}"
  2173. 16 sorttype "{0}" 20 1
  2174. 6 3
  2175. 15
  2176. 9
  2177. 14 UngrayButtons
  2178. 0 44 "{0}" 71
  2179. 13
  2180. 0 284 "user,EnableWindow,HHH" [X] 0
  2181. 0 265 "count"
  2182. 13
  2183. 5 0
  2184. 18 3
  2185. 11 00000173
  2186. 0 44 "{0}" 71
  2187. 13
  2188. 0 284 "user,EnableWindow,HHH" [X] 1
  2189. 6 1
  2190. 15
  2191. 9
  2192. 14 freeit
  2193. 0 266 "loadem"
  2194. 0 266 "count"
  2195. 6 1
  2196. 15
  2197. 9
  2198. 14 saveit
  2199. 0 296 1
  2200. 16 savelist ""
  2201. 0 296 0
  2202. 6 1
  2203. 15
  2204. 9
  2205. 14 showdesc
  2206. 0 32 2
  2207. 0 296 1
  2208. 0 42 "{0}" "{1}"
  2209. 13
  2210. 8 5
  2211. 0 20 "{5}" 2 "|"
  2212. 13
  2213. 0 17 [X]
  2214. 13
  2215. 8 6
  2216. 20 00000157
  2217. 19 00000157
  2218. 0 43 "{0}" 8007 "{6}"
  2219. 5 1
  2220. 8 7
  2221. 0 296 0
  2222. 6 7
  2223. 15
  2224. 9
  2225. 6 3
  2226. 15
  2227. 9
  2228. 14 sorttype
  2229. 0 42 "{0}" 20
  2230. 13
  2231. 8 4
  2232. 6 4
  2233. 5 1
  2234. 18 0
  2235. 11 00000235
  2236. 0 44 "{0}" 9003
  2237. 13
  2238. 0 284 "User,ShowWindow,AHH" [X] 0
  2239. 0 44 "{0}" 9000
  2240. 13
  2241. 0 284 "User,ShowWindow,AHH" [X] 1
  2242. 5 9000
  2243. 8 1
  2244. 16 showdesc "{0}" "{1}" "{2}"
  2245. 10 00000391
  2246. 0 44 "{0}" 9000
  2247. 13
  2248. 0 284 "User,ShowWindow,AHH" [X] 0
  2249. 0 44 "{0}" 9003
  2250. 13
  2251. 0 284 "User,ShowWindow,AHH" [X] 1
  2252. 5 9003
  2253. 8 1
  2254. 16 showdesc "{0}" "{1}" "{2}"
  2255. 6 3
  2256. 15
  2257. 9
  2258. DIALOG showfiles
  2259. -2134376448 17 49 45 280 140 "" "AmiDialog" "Automatycznie Uruchamiane Makroprogramy" 
  2260. FONT 8 "Helv" 
  2261. 6 3 60 8 1000 1342308352 "static" "M&akro:" 0 
  2262. 6 12 155 116 9003 1352728577 "listbox" "" 0 
  2263. 6 12 155 122 9000 1352728577 "listbox" "" 0 
  2264. 164 93 44 14 70 1342373888 "button" "&Instaluj >>" 0 
  2265. 164 110 44 14 71 1342242816 "button" "<< &Usu±" 0 
  2266. 212 66 46 8 1001 1342308352 "static" "Z&ainstalowane:" 0 
  2267. 212 75 60 53 9002 1352728577 "listbox" "" 0 
  2268. 232 3 42 14 4 1342373888 "button" "OK" 0 
  2269. 232 19 42 14 2 1342373888 "button" "Anuluj" 0 
  2270. 232 35 42 14 1 1342373889 "button" "&Pomoc..." 0 
  2271. 232 51 42 14 3 1342373888 "button" "&Wykonaj..." 0 
  2272. 263 292 0 0 77 1342177280 "button" "&z" 0 
  2273. 45 128 70 10 8007 1342177280 "static" "" 0 
  2274. 65 1 1 1 8013 1342177280 "static" "" 0 
  2275. 34 3 110 8 8777 1342177281 "static" "" 0 
  2276. 6 128 38 10 1002 1342177280 "static" "Nazwa:" 0 
  2277. 14 290 0 0 20 1342242819 "button" "wy£w. opisy" 0 
  2278. 14 add
  2279. 0 32 2
  2280. 0 296 1
  2281. 0 42 "{0}" 9000
  2282. 13
  2283. 8 3
  2284. 0 20 "{3}" 2 "|"
  2285. 13
  2286. 0 17 [X]
  2287. 13
  2288. 8 4
  2289. 0 17 "{4}"
  2290. 13
  2291. 16 ckauto [X]
  2292. 13
  2293. 5 1
  2294. 18 1
  2295. 11 00000163
  2296. 5 0
  2297. 15
  2298. 9
  2299. 0 265 "count"
  2300. 13
  2301. 8 5
  2302. 5 1
  2303. 8 6
  2304. 6 5
  2305. 6 6
  2306. 18 2
  2307. 12 00000272
  2308. 10 00000451
  2309. 5 1
  2310. 6 6
  2311. 3 0
  2312. 8 6
  2313. 10 00000197
  2314. 6 4
  2315. 7 ""
  2316. 18 1
  2317. 11 00000438
  2318. 6 4
  2319. 0 273 "loadem" "{6}"
  2320. 13
  2321. 0 17 [X]
  2322. 13
  2323. 18 0
  2324. 11 00000438
  2325. 0 3 "Ten makroprogram jest ju</> zainstalowany."
  2326. 0 296 0
  2327. 5 1
  2328. 15
  2329. 9
  2330. 10 00000239
  2331. 0 43 "{0}" 9002 "{4}"
  2332. 0 44 "{0}" 71
  2333. 13
  2334. 0 284 "user,EnableWindow,HHH" [X] 1
  2335. 0 265 "count"
  2336. 13
  2337. 5 1
  2338. 3 0
  2339. 8 5
  2340. 0 272 "loadem" "{5}" "{4}"
  2341. 0 264 "count" "{5}"
  2342. 0 42 "{0}" 9002
  2343. 13
  2344. 7 ""
  2345. 18 0
  2346. 11 00000715
  2347. 0 44 "{0}" 71
  2348. 13
  2349. 0 284 "user,EnableWindow,HHH" [X] 0
  2350. 0 296 0
  2351. 6 1
  2352. 15
  2353. 9
  2354. 14 del
  2355. 0 32 2
  2356. 0 296 1
  2357. 0 42 "{0}" 9002
  2358. 13
  2359. 8 2
  2360. 6 2
  2361. 7 ""
  2362. 18 0
  2363. 11 00000093
  2364. 5 0
  2365. 15
  2366. 9
  2367. 0 44 "{0}" 9002
  2368. 13
  2369. 8 3
  2370. 0 1036 "{3}" 1029 0 0
  2371. 0 265 "count"
  2372. 13
  2373. 8 4
  2374. 6 4
  2375. 5 0
  2376. 18 0
  2377. 11 00000263
  2378. 0 44 "{0}" 71
  2379. 13
  2380. 0 284 "user,EnableWindow,HHH" [X] 0
  2381. 5 0
  2382. 15
  2383. 9
  2384. 5 1
  2385. 8 5
  2386. 6 4
  2387. 6 5
  2388. 18 2
  2389. 12 00000348
  2390. 10 00000540
  2391. 5 1
  2392. 6 5
  2393. 3 0
  2394. 8 5
  2395. 10 00000273
  2396. 0 273 "loadem" "{5}"
  2397. 13
  2398. 8 6
  2399. 6 6
  2400. 6 2
  2401. 18 0
  2402. 11 00000446
  2403. 0 272 "loadem" "{5}" ""
  2404. 10 00000527
  2405. 6 6
  2406. 7 ""
  2407. 18 1
  2408. 11 00000499
  2409. 0 43 "{0}" 9002 "{6}"
  2410. 0 272 "loadem" "{5}" "{6}"
  2411. 10 00000315
  2412. 0 296 0
  2413. 0 42 "{0}" 9002
  2414. 13
  2415. 8 7
  2416. 6 7
  2417. 7 ""
  2418. 18 0
  2419. 11 00000661
  2420. 0 44 "{0}" 71
  2421. 13
  2422. 0 284 "user,EnableWindow,HHH" [X] 0
  2423. 6 1
  2424. 15
  2425. 9
  2426. 14 helpme
  2427. 0 26 "." "help"
  2428. 13
  2429. 8 2
  2430. 6 1
  2431. 15
  2432. 9
  2433. DIALOG help
  2434. -2134376448 5 93 47 160 124 "" "" "Informacja" 
  2435. FONT 8 "Helv" 
  2436. 60 105 40 14 1 1342242817 "button" "OK" 0 
  2437. 11 21 138 25 1001 1342177280 "static" "Wybierz makroprogram i naci£nij Instaluj. Od tej pory bΩdzie uruchamiany razem z Ami Pro." 0 
  2438. 6 7 148 89 80 1342177287 "button" "Instalowanie Makroprogram≤w" 0 
  2439. 11 52 138 18 1002 1342177280 "static" "Naci£nij Pomoc, aby przeczytaµ informacje o makroprogramie." 0 
  2440. 11 73 138 18 1000 1342177280 "static" "Naci£nij Wykonaj, aby zobaczyµ efekt dzia│ania makroprogramu." 0 
  2441. 14 loadlist
  2442. 0 32 2
  2443. 0 296 1
  2444. 0 1288
  2445. 13
  2446. 8 2
  2447. 0 16 "{2}" "amiauto.cfg"
  2448. 13
  2449. 8 3
  2450. 0 280 "{3}" 33
  2451. 13
  2452. 8 4
  2453. 6 4
  2454. 7 ""
  2455. 18 0
  2456. 11 00000162
  2457. 7 "w"
  2458. 8 5
  2459. 10 00000174
  2460. 7 "r"
  2461. 8 5
  2462. 0 259 "{3}" "{5}"
  2463. 13
  2464. 8 6
  2465. 6 6
  2466. 5 1
  2467. 18 5
  2468. 11 00000293
  2469. 0 3 "Nie mog<\j> utworzy<\f> pliku AMIAUTO.CFG"
  2470. 5 -1
  2471. 15
  2472. 9
  2473. 6 5
  2474. 7 "w"
  2475. 18 0
  2476. 11 00000337
  2477. 10 00000534
  2478. 20 00000534
  2479. 19 00000534
  2480. 5 0
  2481. 8 7
  2482. 5 1
  2483. 11 00000534
  2484. 0 257 "{6}"
  2485. 13
  2486. 8 8
  2487. 6 8
  2488. 5 -1
  2489. 18 0
  2490. 11 00000456
  2491. 10 00000534
  2492. 6 7
  2493. 5 1
  2494. 3 0
  2495. 8 7
  2496. 0 272 "loadem" "{7}" "{8}"
  2497. 0 31 9002 "{8}"
  2498. 10 00000373
  2499. 0 260 "{6}"
  2500. 0 264 "count" "{7}"
  2501. 0 296 0
  2502. 6 1
  2503. 15
  2504. 9
  2505. 14 savelist
  2506. 0 32 2
  2507. 0 296 1
  2508. 0 1288
  2509. 13
  2510. 8 2
  2511. 0 16 "{2}" "amiauto.cfg"
  2512. 13
  2513. 8 3
  2514. 0 259 "{3}" "w"
  2515. 13
  2516. 8 5
  2517. 6 5
  2518. 5 1
  2519. 18 5
  2520. 11 00000207
  2521. 0 3 "Nie mog<\j> zapisa<\f> pliku AMIAUTO.CFG"
  2522. 0 296 0
  2523. 5 -1
  2524. 15
  2525. 9
  2526. 20 00000443
  2527. 19 00000443
  2528. 0 265 "count"
  2529. 13
  2530. 8 6
  2531. 5 1
  2532. 8 7
  2533. 6 6
  2534. 6 7
  2535. 18 2
  2536. 12 00000342
  2537. 10 00000443
  2538. 5 1
  2539. 6 7
  2540. 3 0
  2541. 8 7
  2542. 10 00000267
  2543. 0 273 "loadem" "{7}"
  2544. 13
  2545. 0 805 &4 [X]
  2546. 13
  2547. 7 ""
  2548. 18 1
  2549. 11 00000430
  2550. 0 258 "{5}" "{4}"
  2551. 10 00000309
  2552. 0 260 "{5}"
  2553. 0 296 0
  2554. 16 zproglod ""
  2555. 6 1
  2556. 15
  2557. 9
  2558. 14 zgood
  2559. 0 806 "{0}" 2
  2560. 13
  2561. 8 2
  2562. 0 14 "{0}"
  2563. 13
  2564. 0 15 "{0}" 3 [X]
  2565. 13
  2566. 8 3
  2567. 7 "td"
  2568. 6 2
  2569. 18 0
  2570. 11 00000132
  2571. 16 "{3}"
  2572. 10 00000414
  2573. 7 "ar"
  2574. 6 2
  2575. 18 0
  2576. 11 00000365
  2577. 16 ckauto "{3}"
  2578. 13
  2579. 8 4
  2580. 6 4
  2581. 5 1
  2582. 18 1
  2583. 11 00000273
  2584. 0 3 "{3} nie mo</>na zainstalowa<\f>."
  2585. 5 -1
  2586. 15
  2587. 9
  2588. 16 zmkauto "{3}"
  2589. 13
  2590. 5 1
  2591. 18 0
  2592. 11 00000352
  2593. 0 3 "{3} ju</> zainstalowany."
  2594. 10 00000414
  2595. 7 "si"
  2596. 6 2
  2597. 18 0
  2598. 11 00000414
  2599. 16 _autorun.smm
  2600. 6 1
  2601. 15
  2602. 9
  2603. 14 cwp
  2604. 5 004
  2605. 8 2
  2606. 0 43 "{0}" 8777 "-->> Pete <<<<--"
  2607. 0 274 "{2}"
  2608. 0 43 "{0}" 8777 "Mark Osborne"
  2609. 0 274 "{2}"
  2610. 0 43 "{0}" 8777 "Peter Housley"
  2611. 0 274 "{2}"
  2612. 0 43 "{0}" 8777 "Hugh Marlor"
  2613. 0 274 "{2}"
  2614. 0 43 "{0}" 8777 "John McDaniel"
  2615. 0 274 "{2}"
  2616. 0 43 "{0}" 8777 "Peyton McManus"
  2617. 0 274 "{2}"
  2618. 0 43 "{0}" 8777 "Robert Pernett"
  2619. 0 274 "{2}"
  2620. 0 43 "{0}" 8777 "Powell Smith"
  2621. 0 274 "{2}"
  2622. 0 43 "{0}" 8777 "Sandra Wilson"
  2623. 0 274 "{2}"
  2624. 0 43 "{0}" 8777 "David Zoller"
  2625. 0 274 "{2}"
  2626. 0 43 "{0}" 8777 "Charlie Pappas"
  2627. 0 274 "{2}"
  2628. 10 00000008
  2629. 6 1
  2630. 15
  2631. 9
  2632. 14 ckauto
  2633. 0 32 2
  2634. 0 296 1
  2635. 0 259 "{0}" "r"
  2636. 13
  2637. 8 2
  2638. 6 2
  2639. 5 1
  2640. 18 5
  2641. 11 00000144
  2642. 0 789 "Nie mog<\j> odczyta<\f> pliku"
  2643. 0 296 0
  2644. 5 -1
  2645. 15
  2646. 9
  2647. 20 00000590
  2648. 19 00000590
  2649. 7 ""
  2650. 8 3
  2651. 0 15 "[[" 1 1
  2652. 13
  2653. 8 4
  2654. 6 3
  2655. 7 "{4}desc]"
  2656. 18 1
  2657. 11 00000343
  2658. 0 257 "{2}"
  2659. 13
  2660. 8 3
  2661. 6 3
  2662. 5 -1
  2663. 18 0
  2664. 11 00000330
  2665. 0 260 "{2}"
  2666. 0 296 0
  2667. 5 -1
  2668. 15
  2669. 9
  2670. 10 00000205
  2671. 5 1
  2672. 8 6
  2673. 5 4
  2674. 6 6
  2675. 18 2
  2676. 12 00000428
  2677. 10 00000454
  2678. 5 1
  2679. 6 6
  2680. 3 0
  2681. 8 6
  2682. 10 00000353
  2683. 0 257 "{2}"
  2684. 10 00000395
  2685. 0 257 "{2}"
  2686. 13
  2687. 0 20 [X] 2 "    "
  2688. 13
  2689. 0 18 [X]
  2690. 13
  2691. 0 805 &5 [X]
  2692. 13
  2693. 7 "NOAUTORUN"
  2694. 18 0
  2695. 11 00000580
  2696. 5 0
  2697. 8 7
  2698. 10 00000590
  2699. 5 1
  2700. 8 7
  2701. 0 260 "{2}"
  2702. 0 296 0
  2703. 6 7
  2704. 15
  2705. 9
  2706. 6 1
  2707. 15
  2708. 9
  2709. 14 GetName
  2710. 0 42 "{0}" "{1}"
  2711. 13
  2712. 8 4
  2713. 0 20 "{4}" 2 "|"
  2714. 13
  2715. 8 5
  2716. 0 43 "{0}" 2 "{5}"
  2717. 6 3
  2718. 15
  2719. 9
  2720. 14 LoadDocDesc
  2721. 0 295
  2722. 13
  2723. 8 3
  2724. 5 1
  2725. 8 6
  2726. 0 265 "autodesctotal"
  2727. 13
  2728. 8 7
  2729. 5 1
  2730. 8 8
  2731. 6 7
  2732. 6 8
  2733. 18 2
  2734. 12 00000159
  2735. 10 00000553
  2736. 5 1
  2737. 6 8
  2738. 3 0
  2739. 8 8
  2740. 10 00000084
  2741. 6 8
  2742. 22 1
  2743. 8 9
  2744. 0 789 "Odczytuj<\j> opis pliku {9}..."
  2745. 5 0
  2746. 0 259 "{3}{9}" "r"
  2747. 13
  2748. 0 805 &5 [X]
  2749. 13
  2750. 18 1
  2751. 11 00000540
  2752. 16 GetDocInfo "{5}"
  2753. 13
  2754. 8 4
  2755. 6 4
  2756. 5 -1
  2757. 18 1
  2758. 11 00000527
  2759. 0 16 "{4}" "                                                                      |" "{9}"
  2760. 13
  2761. 8 10
  2762. 0 14 "{4}"
  2763. 13
  2764. 5 1
  2765. 18 3
  2766. 11 00000527
  2767. 0 1041 &0 "{6}" "{10}"
  2768. 6 6
  2769. 5 1
  2770. 3 0
  2771. 8 6
  2772. 0 260 "{5}"
  2773. 10 00000126
  2774. 0 296 0
  2775. 0 789 ""
  2776. 6 2
  2777. 15
  2778. 9
  2779. 14 DiskFmtToAnsi
  2780. 0 808 1 "{0}" "<<"
  2781. 13
  2782. 11 00000633
  2783. 7 ""
  2784. 8 3
  2785. 5 1
  2786. 8 4
  2787. 7 ""
  2788. 0 15 "{0}" "{4}" 1
  2789. 13
  2790. 0 805 &2 [X]
  2791. 13
  2792. 18 1
  2793. 11 00000623
  2794. 6 4
  2795. 5 1
  2796. 3 0
  2797. 8 4
  2798. 6 2
  2799. 7 "<<"
  2800. 18 0
  2801. 11 00000583
  2802. 0 15 "{0}" "{4}" 1
  2803. 13
  2804. 8 2
  2805. 6 4
  2806. 5 1
  2807. 3 0
  2808. 8 4
  2809. 6 2
  2810. 7 "<<"
  2811. 18 1
  2812. 11 00000583
  2813. 0 15 "{0}" "{4}" 1
  2814. 13
  2815. 8 5
  2816. 6 4
  2817. 5 2
  2818. 3 0
  2819. 8 4
  2820. 7 "*"
  2821. 6 2
  2822. 18 0
  2823. 11 00000415
  2824. 0 40 "{5}"
  2825. 13
  2826. 5 32
  2827. 3 1
  2828. 0 39 [X]
  2829. 13
  2830. 8 2
  2831. 10 00000583
  2832. 7 "/"
  2833. 6 2
  2834. 18 0
  2835. 11 00000505
  2836. 0 40 "{5}"
  2837. 13
  2838. 5 64
  2839. 3 0
  2840. 0 39 [X]
  2841. 13
  2842. 8 2
  2843. 10 00000583
  2844. 7 "\"
  2845. 6 2
  2846. 18 0
  2847. 11 00000583
  2848. 0 40 "{5}"
  2849. 13
  2850. 5 128
  2851. 3 0
  2852. 0 39 [X]
  2853. 13
  2854. 8 2
  2855. 0 16 "{3}" "{2}"
  2856. 13
  2857. 8 3
  2858. 10 00000076
  2859. 6 3
  2860. 8 0
  2861. 6 0
  2862. 15
  2863. 9
  2864. 6 1
  2865. 15
  2866. 9
  2867. 14 GetDocInfo
  2868. 7 ""
  2869. 0 782 "{0}" 500
  2870. 13
  2871. 0 805 &2 [X]
  2872. 13
  2873. 18 0
  2874. 11 00000092
  2875. 7 ""
  2876. 15
  2877. 9
  2878. 5 0
  2879. 0 808 1 "{2}" "esc]"
  2880. 13
  2881. 0 805 &3 [X]
  2882. 13
  2883. 18 1
  2884. 11 00000503
  2885. 6 3
  2886. 5 384
  2887. 3 0
  2888. 0 15 "{2}" "{3}" [X]
  2889. 13
  2890. 8 4
  2891. 0 20 "{4}" 2 "    "
  2892. 13
  2893. 8 5
  2894. 0 20 "{4}" 6 "    "
  2895. 13
  2896. 8 6
  2897. 0 17 "{6}"
  2898. 13
  2899. 0 808 0 [X] "noautorun"
  2900. 13
  2901. 5 0
  2902. 18 1
  2903. 11 00000344
  2904. 5 -1
  2905. 15
  2906. 9
  2907. 0 14 "{5}"
  2908. 13
  2909. 5 1
  2910. 3 1
  2911. 8 7
  2912. 0 806 "{5}" "{7}"
  2913. 13
  2914. 8 5
  2915. 6 7
  2916. 5 80
  2917. 18 3
  2918. 11 00000458
  2919. 0 806 "{5}" 80
  2920. 13
  2921. 8 5
  2922. 16 DiskFmtToAnsi "{5}"
  2923. 13
  2924. 8 5
  2925. 6 5
  2926. 15
  2927. 9
  2928. 6 1
  2929. 15
  2930. 9
  2931. 14 countfiles
  2932. 7 "SKDATA1.SMM SKDATA2.SMM SKAUTO.SMM SKEXIT.SMM"
  2933. 8 3
  2934. 7 "AUTOCLOS.SMM AUTOOPEN.SMM AUTONEW.SMM AUTOEXIT.SMM AUTOEXEC.SMM"
  2935. 8 4
  2936. 7 "AUTOCAL.SMM TOAGEN.SMM TOALONG.SMM TOAREMOV.SMM TOASHORT.SMM FAX.SMM"
  2937. 8 5
  2938. 0 16 "{4}" "{3}" "{5}"
  2939. 13
  2940. 8 4
  2941. 0 271 "autodesctotal" 1
  2942. 5 0
  2943. 8 6
  2944. 0 280 "{0}" 1
  2945. 13
  2946. 8 7
  2947. 6 7
  2948. 7 ""
  2949. 18 0
  2950. 11 00000387
  2951. 0 264 "autodesctotal" "{6}"
  2952. 6 6
  2953. 15
  2954. 9
  2955. 0 808 0 "{4}" "{7}"
  2956. 13
  2957. 5 0
  2958. 18 0
  2959. 11 00000462
  2960. 5 1
  2961. 8 6
  2962. 5 1
  2963. 6 7
  2964. 23 1
  2965. 5 1
  2966. 11 00000644
  2967. 0 281
  2968. 13
  2969. 8 7
  2970. 6 7
  2971. 7 ""
  2972. 18 0
  2973. 11 00000539
  2974. 10 00000644
  2975. 0 808 0 "{4}" "{7}"
  2976. 13
  2977. 5 0
  2978. 18 0
  2979. 11 00000631
  2980. 6 6
  2981. 5 1
  2982. 3 0
  2983. 8 6
  2984. 0 1041 &1 "{6}" "{7}"
  2985. 10 00000462
  2986. 0 264 "autodesctotal" "{6}"
  2987. 6 6
  2988. 15
  2989. 9
  2990. 6 2
  2991. 15
  2992. 9
  2993. 14 zproglod
  2994. 0 802
  2995. 13
  2996. 8 2
  2997. 0 274 001
  2998. 0 32 2
  2999. 0 286 "amipro" "automacroload" "amipro.ini"
  3000. 13
  3001. 0 17 [X]
  3002. 13
  3003. 8 3
  3004. 7 "_autorun.smm!zrunmacs"
  3005. 0 20 "{3}" 2 ","
  3006. 13
  3007. 0 805 &1 [X]
  3008. 13
  3009. 18 0
  3010. 11 00000227
  3011. 5 1
  3012. 15
  3013. 9
  3014. 10 00000387
  3015. 7 "zrunmacs.smm"
  3016. 0 20 "{3}" 2 ","
  3017. 13
  3018. 0 805 &1 [X]
  3019. 13
  3020. 18 0
  3021. 11 00000387
  3022. 0 287 "amipro" "automacroload" "1,_autorun.smm!zrunmacs" "amipro.ini"
  3023. 5 1
  3024. 15
  3025. 9
  3026. 5 1
  3027. 0 20 "{3}" 1 ","
  3028. 13
  3029. 18 0
  3030. 11 00000451
  3031. 16 zmkauto "{1}"
  3032. 0 287 "amipro" "automacroload" "1,_autorun.smm!zrunmacs" "amipro.ini"
  3033. 6 0
  3034. 15
  3035. 9
  3036. 14 zmkauto
  3037. 0 32 2
  3038. 0 1288
  3039. 13
  3040. 8 3
  3041. 0 16 "{3}" "amiauto.cfg"
  3042. 13
  3043. 8 4
  3044. 0 280 "{4}" 33
  3045. 13
  3046. 8 5
  3047. 6 5
  3048. 7 ""
  3049. 18 0
  3050. 11 00000258
  3051. 0 259 "{4}" "w"
  3052. 13
  3053. 8 6
  3054. 6 6
  3055. 5 1
  3056. 18 5
  3057. 11 00000245
  3058. 0 3 "Nie mog<\j> utworzy<\f> pliku AMIAUTO.CFG."
  3059. 5 -1
  3060. 15
  3061. 9
  3062. 0 260 "{6}"
  3063. 0 259 "{4}" "r"
  3064. 13
  3065. 8 6
  3066. 6 6
  3067. 5 1
  3068. 18 5
  3069. 11 00000376
  3070. 0 3 "Nie mog<\j> odczyta<\f> pliku AMIAUTO.CFG."
  3071. 5 -1
  3072. 15
  3073. 9
  3074. 5 1
  3075. 11 00000555
  3076. 0 257 "{6}"
  3077. 13
  3078. 0 805 &2 [X]
  3079. 13
  3080. 5 0
  3081. 18 3
  3082. 11 00000529
  3083. 0 17 "{0}"
  3084. 13
  3085. 0 17 "{2}"
  3086. 13
  3087. 18 0
  3088. 11 00000516
  3089. 5 0
  3090. 15
  3091. 9
  3092. 10 00000542
  3093. 10 00000555
  3094. 10 00000376
  3095. 0 260 "{6}"
  3096. 0 259 "{4}" "a"
  3097. 13
  3098. 8 6
  3099. 6 6
  3100. 5 1
  3101. 18 5
  3102. 11 00000686
  3103. 0 3 "Nie mog<\j> otworzy<\f> pliku AMIAUTO.CFG."
  3104. 5 -1
  3105. 15
  3106. 9
  3107. 0 17 "{0}"
  3108. 13
  3109. 0 258 "{6}" [X]
  3110. 0 260 "{6}"
  3111. 16 zproglod
  3112. 5 1
  3113. 15
  3114. 9
  3115. 6 1
  3116. 15
  3117. 9
  3118. 14 zrunmacs
  3119. 0 32 2
  3120. 0 1288
  3121. 13
  3122. 8 1
  3123. 0 16 "{1}" "amiauto.cfg"
  3124. 13
  3125. 8 2
  3126. 0 280 "{2}" 33
  3127. 13
  3128. 8 3
  3129. 6 3
  3130. 7 ""
  3131. 18 0
  3132. 11 00000140
  3133. 6 0
  3134. 15
  3135. 9
  3136. 0 259 "{2}" "r"
  3137. 13
  3138. 8 4
  3139. 6 4
  3140. 5 1
  3141. 18 5
  3142. 11 00000257
  3143. 0 3 "Nie mog<\j> otworzy<\f> pliku AMIAUTO.CFG"
  3144. 5 -1
  3145. 15
  3146. 9
  3147. 20 00000472
  3148. 19 00000472
  3149. 5 100
  3150. 21 5 [X]
  3151. 5 0
  3152. 8 6
  3153. 5 1
  3154. 11 00000472
  3155. 0 257 "{4}"
  3156. 13
  3157. 8 7
  3158. 6 7
  3159. 5 -1
  3160. 18 0
  3161. 11 00000393
  3162. 10 00000472
  3163. 6 7
  3164. 7 ""
  3165. 18 1
  3166. 11 00000459
  3167. 6 6
  3168. 5 1
  3169. 3 0
  3170. 8 6
  3171. 6 6
  3172. 6 7
  3173. 23 5
  3174. 10 00000310
  3175. 0 260 "{4}"
  3176. 5 1
  3177. 8 8
  3178. 6 6
  3179. 6 8
  3180. 18 2
  3181. 12 00000570
  3182. 10 00000609
  3183. 5 1
  3184. 6 8
  3185. 3 0
  3186. 8 8
  3187. 10 00000495
  3188. 6 8
  3189. 22 5
  3190. 8 7
  3191. 16 "{7}"
  3192. 10 00000537
  3193. 6 0
  3194. 15
  3195. 9
  3196. 00039640
  3197.