home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 May / Pcwk5b98.iso / DISK1 / MACROS.CMZ / PRNBATCH.SMM < prev    next >
INI File  |  1993-03-14  |  29KB  |  2,106 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.     Wybranie kilku dokument<\s>w do drukowania
  19.     Lotus WPD Technical Support
  20.     Advanced
  21.     Call Backs, Global Arrays
  22.     noautorun
  23.     723945498
  24.     62
  25.     677020248
  26.     3496
  27.     11
  28.     1245
  29.     9186
  30.     27
  31.     27
  32.     Call Backs, Runlater, Global Aray
  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.         240
  61.         0
  62.         16384
  63.     [algn]
  64.         1
  65.         1
  66.         216
  67.         0
  68.         0
  69.     [spc]
  70.         33
  71.         273
  72.         1
  73.         0
  74.         0
  75.         1
  76.         100
  77.     [brk]
  78.         4
  79.     [line]
  80.         8
  81.         0
  82.         1
  83.         0
  84.         1
  85.         1
  86.         1
  87.         10
  88.         10
  89.         1
  90.     [spec]
  91.         0
  92.         0
  93.         
  94.         0
  95.         1
  96.         1
  97.         0
  98.         0
  99.         0
  100.         0
  101.     [nfmt]
  102.         272
  103.         1
  104.         3
  105.         .
  106.         ,
  107.         $
  108.     Body Text
  109.     6
  110.     1
  111.     1560
  112.     1
  113.     3075
  114.     1
  115.     4275
  116.     1
  117.     5655
  118.     1
  119.     7005
  120.     1
  121.     8580
  122.     0
  123. [lay]
  124.     Standard
  125.     513
  126.     [rght]
  127.         15840
  128.         12240
  129.         1
  130.         1440
  131.         1440
  132.         1
  133.         1972
  134.         1440
  135.         0
  136.         1
  137.         0
  138.         1
  139.         0
  140.         2
  141.         1
  142.         1440
  143.         10800
  144.         9
  145.         1
  146.         720
  147.         1
  148.         1440
  149.         1
  150.         2160
  151.         1
  152.         2880
  153.         1
  154.         3690
  155.         1
  156.         4815
  157.         1
  158.         5925
  159.         1
  160.         7200
  161.         1
  162.         8535
  163.     [hrght]
  164.     [lyfrm]
  165.         1
  166.         11200
  167.         0
  168.         0
  169.         12240
  170.         1972
  171.         0
  172.         1
  173.         3
  174.         1 0 0 0 0 0 0
  175.         0
  176.         0
  177.         1
  178.     [frmlay]
  179.         1972
  180.         12240
  181.         1
  182.         1440
  183.         0
  184.         1
  185.         792
  186.         1440
  187.         0
  188.         1
  189.         0
  190.         1
  191.         1
  192.         0
  193.         1
  194.         1440
  195.         10800
  196.         0
  197.     [txt]
  198. <+B><:da<*!><* >>
  199.  
  200. <+B>Peyton McManus
  201.  
  202. <+B>Page <:P10,0,> of <:X3,16384;NumPages>11<:X~3,16384;NumPages>
  203.  
  204. <+B>Modified by Marek G. B</y>czek from UNICORN Poland
  205.  
  206. <+B>
  207.  
  208.  
  209. >
  210.     [frght]
  211.     [lyfrm]
  212.         1
  213.         13248
  214.         0
  215.         14400
  216.         12240
  217.         15840
  218.         0
  219.         1
  220.         3
  221.         1 0 0 0 0 0 0
  222.         0
  223.         0
  224.         2
  225.     [frmlay]
  226.         15840
  227.         12240
  228.         1
  229.         1440
  230.         90
  231.         1
  232.         14472
  233.         1440
  234.         0
  235.         1
  236.         0
  237.         1
  238.         1
  239.         0
  240.         1
  241.         1440
  242.         10800
  243.         0
  244.     [txt]
  245. <+B>Revision Number <:da<*&><* >>
  246.  
  247. <+B><:Da> <:b<* >>
  248.  
  249. <+B>
  250.  
  251. >
  252. [elay]
  253. [l1]
  254.     0
  255. [pg]
  256.     11
  257.     44 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
  258.     88 0 9 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
  259.     132 0 28 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
  260.     176 0 33 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
  261.     220 0 16 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  262.     264 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
  263.     308 0 5 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
  264.     352 0 34 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
  265.     396 0 15 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
  266.     437 0 14 32 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
  267.     466 0 10 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
  268. [edoc]
  269. Declare GetFlag(p1)
  270.  
  271. Declare SetFlag(p1,p2)
  272.  
  273. Declare SaveSettings(p1,p2,p3)
  274.  
  275. Define    SetTrue()        SetDlgITemText(Hdlg,%1,"True")
  276.  
  277. Define    SetFalse()        SetDlgITemText(Hdlg,%1,0)
  278.  
  279. Define GetItem()        GetDlgItemText(Hdlg,%1)
  280.  
  281. Define    GetPerm()        GetGlobalArray$("perm",%1)
  282.  
  283. Define    GetTemp()        GetGlobalArray$("temp",%1)
  284.  
  285. Define    Hour_up        67
  286.  
  287. Define    Minute_up        66
  288.  
  289. Define    Hour_down        57
  290.  
  291. Define    Minute_down        56
  292.  
  293. define    VK_LBUTTON        0x001
  294.  
  295. Define    EnableWindow()    DllCall("User,EnableWindow,AHA",%1,%2)
  296.  
  297. Define    SetFocus()        DllCall("User,SetFocus,HH",%1)
  298.  
  299. define    FindWindow()     DllCall("user,FindWindow,HCC", %1, %2)
  300.  
  301. define     isiconic(hWnd)     DLLCall("user,isiconic,HA", %1)
  302.  
  303.  
  304.  
  305.  
  306. define GetActiveWindow()    DllCall("user,GetActiveWindow,H")
  307.  
  308. define SetWindowText()    DllCall("user,SetWindowText,IHC", %1, %2)
  309.  
  310. define TitleBarMsg()    SetWindowText(GetActiveWindow(), %1)
  311.  
  312. define GetWindowText()    DllCall("user,GetWindowText,HHFH", %1, %2, %3)
  313.  
  314.  
  315.  
  316.  
  317.  
  318.  
  319. @Function@<:><:>Function Multiple()
  320.  
  321. IF IsNewWave()
  322.  
  323.     Message("Makroprogram nie dzia</s>a, je</\>li jest uruchomiony HP NewWave.")
  324.  
  325.     Exit Function
  326.  
  327. ENDIF
  328.  
  329. X = 1
  330.  
  331. AllocGlobalVar("Perm",200)
  332.  
  333. SetGlobalArray("Perm",1,1)
  334.  
  335. AllocGlobalVar("Time"2) ' This is the Time Global
  336.  
  337. SetGlobalArray("time",1,0)
  338.  
  339. SetGlobalArray("time",2,0)
  340.  
  341. Mac=GetRunningMacroFile$()
  342.  
  343. doc=getdocpath$()
  344.  
  345. Filledit(9001,"{doc}*.s?m")
  346.  
  347. <:#284,9360>Filledit(60,1)
  348.  
  349. SetDlgCallBack(54,"{Mac}!Time")
  350.  
  351. SetDlgCallBack(51,"{Mac}!Options")
  352.  
  353. Box=dialogbox(".","Select")
  354.  
  355. if Box<<<;>1
  356.  
  357.     FreeGlobalVar("Time")
  358.  
  359.     FreeGlobalVar("Perm")
  360.  
  361.     FreeGlobalVar("Temp")
  362.  
  363.     Exit Function
  364.  
  365. Endif
  366.  
  367. Files=GetDialogField$(8001)
  368.  
  369. Call Loadfiles(Files)
  370.  
  371. Radio1=getdialogfield$(60)
  372.  
  373. Radio2=Getdialogfield$(61)
  374.  
  375. If {Radio2}
  376.  
  377.     hour=GetGlobalArray$("time",1)
  378.  
  379.     Minute=GetGlobalArray$("time",2)
  380.  
  381.         IF Hour<;>0 or Minute<;>0
  382.  
  383.             Runlater("{Mac}!Go","{hour}:{Minute}")
  384.  
  385.             message("Drukowanie rozpocznie si<\j> o godz. {Hour}:{Minute}")
  386.  
  387.         Else
  388.  
  389.             Message("Nie okre</\>lono godziny...Drukuj<\j> teraz!")
  390.  
  391.             Call Go()
  392.  
  393.         Endif
  394.  
  395. Elseif {Radio1}
  396.  
  397.     Call Go()
  398.  
  399. Endif
  400.  
  401. End Function
  402.  
  403.  
  404.  
  405.  
  406. @Function@<:><:><:><:>Function LoadFiles(Files)
  407.  
  408. 'SingleStep(1)
  409.  
  410. From=1
  411.  
  412. Finish=9999
  413.  
  414. Flag=1
  415.  
  416. Copies=1
  417.  
  418. x=1
  419.  
  420. dir=getcurrentdir$()
  421.  
  422. Total=GetGlobalArray$("Perm",1)
  423.  
  424.     Dim LStorage(total)
  425.  
  426.         For T=2 to ToTal
  427.  
  428.             LStorage(t)=GetGlobalArray$("Perm",t)
  429.  
  430. <:#284,9360>        Next
  431.  
  432. <:#284,9360>While (1)
  433.  
  434.         Filename=Strfield$(Files,x," ")
  435.  
  436.         if Len(filename)<;>3
  437.  
  438.             Found=ArraySearch(&LStorage,Filename,2,"^")
  439.  
  440.             IF Found<;>0
  441.  
  442.                 Temp=LStorage(Found)
  443.  
  444.             Else
  445.  
  446.         temp="{dir}^{Filename}^{Copies}^{From}^{Finish}^{Flag}"
  447.  
  448.             Endif        
  449.  
  450.             SetGlobalArray("perm",x+1,Temp)
  451.  
  452.             x=x+1
  453.  
  454.         Else
  455.  
  456.             Break
  457.  
  458.         Endif
  459.  
  460. Wend
  461.  
  462. SetGlobalArray("Perm",1,x)
  463.  
  464. End Function
  465.  
  466.  
  467.  
  468. @Function@<:><:>Function Options(Hdlg,Id,Text)
  469.  
  470. Files=GetDlgItemText(Hdlg,8001)
  471.  
  472. If Len(files) <<3
  473.  
  474.     Message("Wybierz najpierw pliki do drukowania")
  475.  
  476.     Exit Function
  477.  
  478. Endif
  479.  
  480.  
  481. Call Loadfiles(Files)
  482.  
  483. MaxPerm=GetGlobalArray$("Perm",1)
  484.  
  485. AllocGlobalVar("Temp",MaxPerm)
  486.  
  487. AllocGlobalVar ("Counter",1)
  488.  
  489. SetGlobalVar("Counter",2)
  490.  
  491.  
  492. For x=2 to Maxperm
  493.  
  494.     Data=GetGlobalArray$("Perm",x)
  495.  
  496.     SetGlobalArray("temp",x,Data)
  497.  
  498. Next    
  499.  
  500. Call SetFirst()
  501.  
  502. Mac=GetRunningMacroFile$()
  503.  
  504. FillEdit(50,1)
  505.  
  506. SetDlgCallBack(8000,"{mac}!Numbering")
  507.  
  508. SetDlgCallBack(8001,"{MAc}!Numbering")
  509.  
  510. SetDlgCallBack(56,"{mac}!NextFile")
  511.  
  512. SetDlgCallBack(57,"{mac}!SaveSettings")
  513.  
  514. EnableWindow(Hdlg,0)
  515.  
  516. <:#284,9360>Box=dialogbox(".","Options")
  517.  
  518. EnableWindow(Hdlg,1)
  519.  
  520. SetFocus(Hdlg)
  521.  
  522. if Box = 1
  523.  
  524. Call TempToPerm() ' if ok swap temp to perm
  525.  
  526. Endif
  527.  
  528. FreeGlobalVar("Counter")
  529.  
  530. End Function
  531.  
  532.  
  533. <:><:>
  534.  
  535. @Function@Function SaveSettings(Hdlg,Id,Text)
  536.  
  537. Lcount=GetGlobalVar$("Counter")
  538.  
  539. From=GetDlgItemText(Hdlg,8000)
  540.  
  541. Finish=GetDlgItemText(Hdlg,8001)
  542.  
  543. Copies=GetdlgItemText(Hdlg,8002)
  544.  
  545. Flag=GetFlag(Hdlg)
  546.  
  547. Dir=StrField$(GetTemp(Lcount),1,"^")
  548.  
  549. Name=StrField$(GetTemp(Lcount),2,"^")
  550.  
  551. SaveBack="{Dir}^{Name}^{copies}^{From}^{Finish}^{Flag}"
  552.  
  553. 'Message(SaveBack)
  554.  
  555. SetGlobalArray("Temp",Lcount,SaveBack)
  556.  
  557. End Function
  558.  
  559.  
  560. @Function@Function NextFile(Hdlg,id,Text)
  561.  
  562. SaveSettings(Hdlg,id,Text)
  563.  
  564. LCount=GetGlobalVar$("counter")
  565.  
  566. Max=GetGlobalArray$("Perm",1)
  567.  
  568. If Lcount<<Max
  569.  
  570.     Lcount=Lcount+1
  571.  
  572. Else
  573.  
  574.     Lcount=2
  575.  
  576. Endif
  577.  
  578. ShowStat=Lcount - 1
  579.  
  580. ShowMax=Max - 1
  581.  
  582.     Status="File {ShowStat} of {ShowMax}"
  583.  
  584.     Name2=UCase$(StrField$(GetTemp(Lcount),2,"^"))
  585.  
  586.     Flag=StrField$(GetTemp(Lcount),6,"^")
  587.  
  588.     From=StrField$(GetTemp(Lcount),4,"^")
  589.  
  590.     fin=StrField$(GetTemp(Lcount),5,"^")
  591.  
  592.     Copies=StrField$(GetTemp(Lcount),3,"^")
  593.  
  594.     SetFlag(Hdlg,Flag)
  595.  
  596.     SetDlgItemText(Hdlg,1002,"{Name2}")
  597.  
  598.     SetDlgItemText(Hdlg,8000,from)
  599.  
  600.     SetDlgITemText(Hdlg,8001,Fin)
  601.  
  602. <:#284,9360>    SetDlgItemText(Hdlg,8002,Copies)
  603.  
  604. <:#278,9360>    SetDlgItemText(Hdlg,1003,Status)
  605.  
  606. <:#278,9360>SetGlobalVar("counter",lcount)
  607.  
  608. <:#278,9360>End Function
  609.  
  610. <:#278,9360>
  611.  
  612. @Function@<:#278,9360><:><:>Function SetFlag(Hdlg,Flag)
  613.  
  614. <:#278,9360>mask = 1
  615.  
  616. <:#278,9360>for i = 1 to 11
  617.  
  618. <:#278,9360>    If Flag & Mask
  619.  
  620. <:#278,9360>        SetDlgItemText(hDlg, 59 + i, 1)
  621.  
  622. <:#278,9360>    Else
  623.  
  624. <:#278,9360>        SetDlgItemText(Hdlg,59 + i, 0)
  625.  
  626. <:#278,9360>    Endif
  627.  
  628. <:#278,9360>    mask = mask * 2
  629.  
  630. <:#278,9360>If I=3 
  631.  
  632. <:#278,9360>    Mask=Mask*2
  633.  
  634. <:#278,9360>Endif
  635.  
  636. <:#278,9360>next
  637.  
  638. <:#278,9360>If (GetDlgItemText(Hdlg,60)=0) ' if all is no
  639.  
  640. <:#278,9360>    SetDlgItemText(Hdlg,90,1)
  641.  
  642. <:#278,9360>Endif
  643.  
  644. <:#278,9360>if (((GetDlgItemText(Hdlg,68)=0) and (GetDlgItemText(Hdlg,69)=0)))
  645.  
  646. <:#278,9360>    SetdlgItemText(Hdlg,50,1)
  647.  
  648. <:#278,9360>Else
  649.  
  650. <:#278,9360>    SetDlgItemText(Hdlg,50,0)    
  651.  
  652. <:#278,9360>Endif
  653.  
  654. <:#278,9360>End Function
  655.  
  656. <:#278,9360>
  657.  
  658. @Function@<:#278,9360>Function SetFirst()
  659.  
  660. <:#278,9360>Name=Ucase$(Strfield$(GetTemp(2),2,"^"))
  661.  
  662. <:#278,9360>flag=StrField$(GetTemp(2),6,"^")
  663.  
  664. <:#278,9360>From=Strfield$(GetTemp(2),4,"^")
  665.  
  666. <:#278,9360>Finish=Strfield$(GetTemp(2),5,"^")
  667.  
  668. <:#278,9360>Copies=StrField$(GetTemp(2),3,"^")
  669.  
  670. <:#278,9360>Max=GetGlobalArray$("Perm",1) - 1
  671.  
  672. <:#278,9360>Status="File 1 of {Max}"
  673.  
  674. <:#278,9360>Filledit(1002,Name)
  675.  
  676. <:#278,9360>Filledit(1003,Status)
  677.  
  678. <:#278,9360>Filledit(8000,From)
  679.  
  680. <:#278,9360>Filledit(8001,Finish)
  681.  
  682. <:#278,9360>Filledit(8002,Copies)
  683.  
  684. <:#278,9360>mask = 1
  685.  
  686. <:#278,9360>for i = 1 to 11
  687.  
  688. <:#278,9360>    Filledit(59 + i, flag & mask)
  689.  
  690.     mask = mask * 2
  691.  
  692. <:#278,9360>If I=3 
  693.  
  694. <:#278,9360>    Mask=Mask*2
  695.  
  696. <:#278,9360>Endif
  697.  
  698. <:#278,9360>next
  699.  
  700. <:#278,9360>End Function
  701.  
  702. <:#278,9360>
  703.  
  704. @Function@<:#278,9360>Function GetFlag(Hdlg)
  705.  
  706. <:#278,9360>Mask=1
  707.  
  708. <:#278,9360>SumFlag=0
  709.  
  710. <:#278,9360>For x=60 to 70
  711.  
  712. <:#278,9360>    SumFlag=SumFlag+(GetItem(x)*Mask)
  713.  
  714. <:#278,9360>    Mask=Mask*2
  715.  
  716. <:#278,9360>if x=62
  717.  
  718. <:#278,9360>        mask=Mask*2
  719.  
  720. <:#278,9360>Endif
  721.  
  722. <:#278,9360>    
  723.  
  724. <:#278,9360>Next
  725.  
  726. <:#278,9360>Return SumFlag;
  727.  
  728. <:#278,9360>End Function
  729.  
  730. <:#278,9360>
  731.  
  732. @Function@<:#278,9360>Function Numbering(Hdlg,Id,Text)
  733.  
  734. <:#278,9360>SetDlgItemText(Hdlg,60,0)
  735.  
  736. <:#278,9360>SetDlgItemText(Hdlg,90,True)
  737.  
  738. <:#278,9360>End Function
  739.  
  740. <:#278,9360>
  741.  
  742. <:#278,9360>Function TempToPerm()
  743.  
  744. <:#278,9360>' This will dump the contents of the Temp Array into the Perm Array.
  745.  
  746. <:#278,9360>Total=GetGlobalarray$("Perm",1)
  747.  
  748. <:#278,9360>FreeGlobalVar("Perm")
  749.  
  750. <:#278,9360>AllocGlobalVar("Perm",200)
  751.  
  752. <:#278,9360>SetGlobalArray("Perm",1,Total)
  753.  
  754. <:#278,9360>For X= 2 to Total
  755.  
  756. <:#278,9360>    Data=GetGlobalArray$("Temp",x)
  757.  
  758. <:#278,9360>    SetGlobalArray("Perm",x,Data)
  759.  
  760. <:#278,9360>Next
  761.  
  762. <:#278,9360>FreeGlobalVar("Temp")
  763.  
  764. <:#278,9360>End function
  765.  
  766. <:#278,9360>For T=1 to Total
  767.  
  768. <:#278,9360>    
  769.  
  770. <:#278,9360>
  771.  
  772. <:#278,9360>'  This is the time box to allow user to set print time.
  773.  
  774. <:#278,9360>'
  775.  
  776. @Function@<:#278,9360><:><:>Function Time(hdlg,id,text)
  777.  
  778. 'singlestep(1)
  779.  
  780. SetDlgItemText(Hdlg,60,0)
  781.  
  782. SetDlgItemText(Hdlg,61,True)
  783.  
  784. T = 0
  785.  
  786. Mac=GetRunningMacroFile$()
  787.  
  788. Today=NOW()
  789.  
  790. Time= FormatTime$(Today,3)
  791.  
  792. Date=FormatDate$(Today,"f")
  793.  
  794. Filledit(1000,Time)
  795.  
  796. Filledit(1006,Date)
  797.  
  798. Sec=(GetGlobalArray$("time",1) * 3600) + (GetGlobalArray$("time",2) * 60)
  799.  
  800. Sec = Sec + Today
  801.  
  802. Filledit(1001,FormatDate$(Sec, "f"))
  803.  
  804. Filledit(1005,FormatTime$(Sec, 3))
  805.  
  806. Filledit(8000, GetGlobalArray$("time",1))
  807.  
  808. Filledit(8001,GetGlobalArray$("time",2))
  809.  
  810. SetDlgCallBack(Hour_Up,"{Mac}!Timeup")
  811.  
  812. SetDlgCallBack(Minute_up,"{Mac}!Timeup")
  813.  
  814. SetDlgCallBack(Hour_Down,"{Mac}!TimeDown")
  815.  
  816. SetDlgCallBack(Minute_Down,"{Mac}!TimeDown")
  817.  
  818.  
  819. EnableWindow(Hdlg,0)
  820.  
  821. Box=dialogbox(".","Time")
  822.  
  823. EnableWindow(Hdlg,1)
  824.  
  825. SetFocus(Hdlg)
  826.  
  827. If Box<<<;>1
  828.  
  829.     Exit Function
  830.  
  831. Endif
  832.  
  833. SetGlobalArray("time",1,GetDialogField$(8000))
  834.  
  835. SetGlobalArray("time",2,GetDialogField$(8001))
  836.  
  837. End Function
  838.  
  839.  
  840. @Function@<:><:>Function Timeup(hdlg,id,text)
  841.  
  842. dllid = DllLoadLib("User", "GetAsyncKeyState", "HH")
  843.  
  844. Editbox =8067 - id
  845.  
  846. Number=GetDlgItemText(Hdlg,Editbox)
  847.  
  848. Number=Number + 1
  849.  
  850. if  dllid
  851.  
  852.     while (0x8000 & DllCall(dllid, VK_LBUTTON))
  853.  
  854.         Number=Number+1
  855.  
  856.         if Number <;> 60 
  857.  
  858.             Number = 0
  859.  
  860.         Endif
  861.  
  862.         SetDlgItemText(hdlg, EditBox, Number)
  863.  
  864. <:#284,9360>    wend
  865.  
  866.     DllFreeLib(dllid)
  867.  
  868. Endif
  869.  
  870. if Number <;> 60 
  871.  
  872.         Number = 0
  873.  
  874.     Endif
  875.  
  876. SetDlgItemText(Hdlg,Editbox,Number)
  877.  
  878. Call SetTime(Hdlg)
  879.  
  880. End Function
  881.  
  882.  
  883. @Function@<:><:>Function TimeDown(hdlg,id,text)
  884.  
  885. dllid = DllLoadLib("User", "GetAsyncKeyState", "HH")
  886.  
  887. Editbox =8057 - id
  888.  
  889. Number=GetDlgItemText(Hdlg,Editbox)
  890.  
  891. Number=Number - 1
  892.  
  893. if  dllid
  894.  
  895.     while (0x8000 & DllCall(dllid, VK_LBUTTON))
  896.  
  897.         Number=Number - 1
  898.  
  899.         if Number << 0 
  900.  
  901.             Number = 60
  902.  
  903.         Endif
  904.  
  905.         SetDlgItemText(hdlg, EditBox, Number)
  906.  
  907.     wend
  908.  
  909.     DllFreeLib(dllid)
  910.  
  911. Endif
  912.  
  913.     if Number << 0 
  914.  
  915.         Number = 60
  916.  
  917.     Endif
  918.  
  919. SetDlgItemText(Hdlg,Editbox,Number)
  920.  
  921. Call SetTime(Hdlg)
  922.  
  923. End Function
  924.  
  925.  
  926. @Function@<:><:>Function SetTime(Hdlg)
  927.  
  928. Today = Now()
  929.  
  930. Sec=(GetDlgItemText(Hdlg,8000) * 3600) + (GetDlgItemText(Hdlg,8001) * 60)
  931.  
  932. Sec = Sec + Today
  933.  
  934. SetDlgItemText(Hdlg,1000,FormatTime$(Today,3))
  935.  
  936. SetDlgItemText(Hdlg,1006,FormatDate$(Today,"f"))
  937.  
  938. SetDlgItemText(Hdlg,1001,FormatDate$(Sec, "f"))
  939.  
  940. SetDlgItemText(Hdlg,1005,FormatTime$(Sec, 3))
  941.  
  942. End Function
  943.  
  944.  
  945. @Function@<:><:><:><:><:><:>Function Go()
  946.  
  947. HourGlass(on)
  948.  
  949. <:#284,9360>hwnd = FindWindow("AmiProWndA", 0)
  950.  
  951.     if not isiconic(hwnd)
  952.  
  953.         TitleBarMsg("Czekaj....Drukuj<\j>")
  954.  
  955.     Endif
  956.  
  957. StatusBarMsg("Teraz drukuj<\j>.....")
  958.  
  959. Total=GetGlobalArray$("Perm",1)
  960.  
  961. If GetOpenFilecount() <;>0
  962.  
  963.     If FileChanged(0,1)
  964.  
  965.         isfileChanged = 1
  966.  
  967.     Endif
  968.  
  969. Endif
  970.  
  971. For y=2 to Total   
  972.  
  973.     AnswerMsgBox(7)
  974.  
  975.     Path=StrField$(GetPerm(y),1,"^")
  976.  
  977.     Drive=Right$(StrField$(Path,1,":"),1)
  978.  
  979.     Direct=Strfield$(Path,2,":")
  980.  
  981.     Name=UCase$(StrField$(GetPerm(y),2,"^"))
  982.  
  983.     Filename="{Drive}:{Direct}{name}"
  984.  
  985.  
  986.     Flag=StrField$(GetPerm(Y),6,"^")
  987.  
  988.         If ((Flag & 512) or (Flag & 1024))
  989.  
  990.             Else
  991.  
  992.                 Flag=Flag+1536
  993.  
  994.         Endif
  995.  
  996.     From=StrField$(GetPerm(Y),4,"^")
  997.  
  998.     fin=StrField$(GetPerm(Y),5,"^")
  999.  
  1000.     Copies=StrField$(GetPerm(Y),3,"^")
  1001.  
  1002.     StatusBarMsg("Teraz drukuj<\j> {Filename} ")
  1003.  
  1004.         If 1 = Fileopen("{Filename}",1,"AmiPro")
  1005.  
  1006.             FilePrint(copies,From,Fin,Flag)
  1007.  
  1008.             FileClose()
  1009.  
  1010.         Endif
  1011.  
  1012. Next
  1013.  
  1014. If GetOpenFilecount()<;>0
  1015.  
  1016.     Filechanged(1,1)
  1017.  
  1018. Endif
  1019.  
  1020. FreeGlobalVar("Time")
  1021.  
  1022. FreeGlobalVar("Perm")
  1023.  
  1024. TitleBarMsg("")
  1025.  
  1026. TitleBarMsg("Ami Pro")
  1027.  
  1028. StatusBarMsg("")
  1029.  
  1030. HourGlass(off)
  1031.  
  1032. End Function
  1033.  
  1034.  
  1035. <:#284,9360>ChechBoth(Flag)
  1036.  
  1037. <:#278,9360>End Function
  1038.  
  1039. <:#278,9360>
  1040.  
  1041. <:#278,9360>DIALOG    select
  1042.  
  1043. <:#556,9360>-2134376448    10    100    32    130    112    ""    ""    "Wyb<\s>r Dokument<\s>w"
  1044.  
  1045. <:#278,9360>FONT    6    "Helv"
  1046.  
  1047. <:#278,9360>8    16    66    90    9001    1352859659    "listbox"    ""    0 
  1048.  
  1049. <:#278,9360>82    78    38    12    60    1342373897    "button"    "Teraz"    0 
  1050.  
  1051. <:#278,9360>82    90    38    12    61    1342177289    "button"    "P<\s></_>niej"    0 
  1052.  
  1053. <:#278,9360>8    4    68    10    7999    1342308352    "static"    ""    0 
  1054.  
  1055. <:#278,9360>18    92    0    0    8001    1350566016    "edit"    ""    0 
  1056.  
  1057. <:#278,9360>78    68    46    36    12    1342177287    "button"    "Drukuj"    0 
  1058.  
  1059. <:#278,9360>84    4    40    14    1    1342373889    "button"    "OK"    0 
  1060.  
  1061. <:#278,9360>84    20    40    14    2    1342373888    "button"    "Anuluj"    0 
  1062.  
  1063. <:#278,9360>84    36    40    14    51    1342373888    "button"    "Opcje..."    0 
  1064.  
  1065. <:#278,9360>84    52    40    14    54    1342373888    "button"    "Godzina..."    0 
  1066.  
  1067. <:#278,9360>END DIALOG
  1068.  
  1069. <:#278,9360>
  1070.  
  1071. <:#278,9360>
  1072.  
  1073. <:#278,9360>
  1074.  
  1075. <:#278,9360>
  1076.  
  1077. DIALOG    Time
  1078.  
  1079. -2134376448    14    72    52    180    76    ""    ""    "Wyb<\s>r Godziny Drukowania"
  1080.  
  1081. FONT    6    "Helv"
  1082.  
  1083. 30    28    14    12    8000    1350631424    "edit"    ""    0 
  1084.  
  1085. 81    28    13    12    8001    1350631424    "edit"    ""    0 
  1086.  
  1087. 136    4    40    14    1    1342242817    "button"    "OK"    0 
  1088.  
  1089. 136    20    40    14    2    1342242816    "button"    "Anuluj"    0 
  1090.  
  1091. 94    5    40    10    1000    1342177281    "static"    " "    0 
  1092.  
  1093. 25    17    30    10    1002    1342177280    "static"    "Godziny"    0 
  1094.  
  1095. 76    17    23    9    1003    1342177280    "static"    "Minuty"    0 
  1096.  
  1097. 20    28    10    12    57    1342177280    "button"    "<<"    0 
  1098.  
  1099. 44    28    11    12    67    1342177280    "button"    "<;>"    0 
  1100.  
  1101. 70    28    11    12    56    1342177280    "button"    "<<"    0 
  1102.  
  1103. 94    28    11    12    66    1342242816    "button"    "<;>"    0 
  1104.  
  1105. 6    6    84    10    1006    1342177281    "static"    ""    0 
  1106.  
  1107. 4    56    84    10    1001    1342177281    "static"    ""    0 
  1108.  
  1109. 93    56    43    10    1005    1342177281    "static"    ""    0 
  1110.  
  1111. END DIALOG
  1112.  
  1113. <:#278,9360>
  1114.  
  1115. <:#278,9360>
  1116.  
  1117. <:#278,9360>DIALOG    options
  1118.  
  1119. <:#556,9360>-2134376448    26    64    42    194    134    ""    ""    "Opcje Drukowania"
  1120.  
  1121. <:#278,9360>FONT    6    "Helv"
  1122.  
  1123. <:#278,9360>70    16    16    12    8002    1350631552    "edit"    ""    0 
  1124.  
  1125. <:#278,9360>49    31    45    11    60    1342373897    "button"    "Wszystkie"    0 
  1126.  
  1127. <:#278,9360>75    42    22    12    8000    1350631424    "edit"    ""    0 
  1128.  
  1129. <:#278,9360>116    42    22    12    8001    1350631424    "edit"    ""    0 
  1130.  
  1131. <:#278,9360>6    56    45    12    50    1342373897    "button"    "Wszystkie"    0 
  1132.  
  1133. <:#278,9360>58    56    42    12    68    1342177289    "button"    "Parzyste"    0 
  1134.  
  1135. <:#556,9360>112    56    52    12    69    1342177289    "button"    "Nieparzyste"    0 
  1136.  
  1137. <:#278,9360>50    42    24    12    90    1342308361    "button"    "Od:"    0 
  1138.  
  1139. <:#278,9360>101    44    14    10    1001    1342177280    "static"    "Do:"    0 
  1140.  
  1141. <:#278,9360>26    4    60    10    1002    1342177280    "static"    ""    0 
  1142.  
  1143. <:#556,9360>10    78    87    12    61    1342373891    "button"    "W odwrotnej kolejno</\>ci"    0 
  1144.  
  1145. <:#556,9360>10    90    87    12    62    1342242819    "button"    "Ka</>da kopia osobno"    0 
  1146.  
  1147. <:#556,9360>10    102    80    12    63    1342242819    "button"    "Drukuj pasery"    0 
  1148.  
  1149. <:#556,9360>10    114    77    12    70    1342242819    "button"    "Nie drukuj grafiki"    0 
  1150.  
  1151. <:#556,9360>104    78    82    12    64    1342242819    "button"    "Wydrukuj opis dokum."    0 
  1152.  
  1153. <:#556,9360>104    90    78    12    65    1342242819    "button"    "Na gotowym formularzu"    0 
  1154.  
  1155. <:#556,9360>104    102    78    12    66    1342242819    "button"    "Aktualizuj pola oper."    0 
  1156.  
  1157. <:#556,9360>104    114    78    12    67    1342242819    "button"    "Drukuj notatki"    0 
  1158.  
  1159. <:#556,9360>25    18    40    10    1000    1342308352    "static"    "Ilo</\><\f> kopii:"    0 
  1160.  
  1161. <:#278,9360>88    4    54    10    1003    1342177280    "static"    ""    0 
  1162.  
  1163. <:#278,9360>2    4    22    10    1004    1342177280    "static"    "Drukuj:"    0 
  1164.  
  1165. <:#556,9360>2    32    46    10    1005    1342177280    "static"    "Zakres stron:"    0 
  1166.  
  1167. <:#556,9360>6    68    182    62    33    1342177287    "button"    "Opcje Dodatkowe"    0 
  1168.  
  1169. <:#278,9360>148    6    40    14    1    1342373889    "button"    "OK"    0 
  1170.  
  1171. <:#278,9360>148    22    40    14    2    1342373888    "button"    "Anuluj"    0 
  1172.  
  1173. <:#278,9360>148    38    40    14    56    1342373888    "button"    "Zapisz -<;>"    0 
  1174.  
  1175. <:#278,9360>END DIALOG
  1176.  
  1177. >
  1178.  
  1179. [Embedded]
  1180. 00018121
  1181. >
  1182. [macsum] 18
  1183. Multiple 0 0 10 29
  1184. LoadFiles 834 1 13 74
  1185. Options 1451 3 7 106
  1186. SaveSettings 2199 3 9 141
  1187. NextFile 2521 3 11 154
  1188. SetFlag 3199 2 3 180
  1189. SetFirst 3696 0 10 203
  1190. GetFlag 4328 1 4 226
  1191. Numbering 4601 3 1 240
  1192. TempToPerm 4661 0 4 245
  1193. Time 4934 3 7 262
  1194. Timeup 5688 3 4 295
  1195. TimeDown 6085 3 4 317
  1196. SetTime 6484 1 3 339
  1197. Go 6784 0 14 349
  1198. select 8130 0 -1 398
  1199. Time 8679 0 -1 416
  1200. options 9391 0 -1 436
  1201. [macse]
  1202. 14 Multiple
  1203. 0 1317
  1204. 13
  1205. 11 00000123
  1206. 0 3 "Makroprogram nie dzia</s>a, je</\>li jest uruchomiony HP NewWave."
  1207. 6 0
  1208. 15
  1209. 9
  1210. 5 1
  1211. 8 1
  1212. 0 271 "Perm" 200
  1213. 0 272 "Perm" 1 1
  1214. 0 271 "Time" 2
  1215. 0 272 "time" 1 0
  1216. 0 272 "time" 2 0
  1217. 0 802
  1218. 13
  1219. 8 2
  1220. 0 268
  1221. 13
  1222. 8 3
  1223. 0 31 9001 "{3}*.s?m"
  1224. 0 31 60 1
  1225. 0 41 54 "{2}!Time"
  1226. 0 41 51 "{2}!Options"
  1227. 0 26 "." "Select"
  1228. 13
  1229. 8 4
  1230. 6 4
  1231. 5 1
  1232. 18 1
  1233. 11 00000440
  1234. 0 266 "Time"
  1235. 0 266 "Perm"
  1236. 0 266 "Temp"
  1237. 6 0
  1238. 15
  1239. 9
  1240. 0 27 8001
  1241. 13
  1242. 8 5
  1243. 16 Loadfiles "{5}"
  1244. 0 27 60
  1245. 13
  1246. 8 6
  1247. 0 27 61
  1248. 13
  1249. 8 7
  1250. 6 7
  1251. 11 00000797
  1252. 0 273 "time" 1
  1253. 13
  1254. 8 8
  1255. 0 273 "time" 2
  1256. 13
  1257. 8 9
  1258. 6 8
  1259. 5 0
  1260. 18 3
  1261. 6 9
  1262. 5 0
  1263. 18 3
  1264. 1 2
  1265. 11 00000725
  1266. 0 285 "{2}!Go" "{8}:{9}"
  1267. 0 3 "Drukowanie rozpocznie si<\j> o godz. {8}:{9}"
  1268. 10 00000784
  1269. 0 3 "Nie okre</\>lono godziny...Drukuj<\j> teraz!"
  1270. 16 Go
  1271. 10 00000822
  1272. 6 6
  1273. 11 00000822
  1274. 16 Go
  1275. 6 0
  1276. 15
  1277. 9
  1278. 14 LoadFiles
  1279. 5 1
  1280. 8 2
  1281. 5 9999
  1282. 8 3
  1283. 5 1
  1284. 8 4
  1285. 5 1
  1286. 8 5
  1287. 5 1
  1288. 8 6
  1289. 0 290
  1290. 13
  1291. 8 7
  1292. 0 273 "Perm" 1
  1293. 13
  1294. 8 8
  1295. 6 8
  1296. 21 9 [X]
  1297. 5 2
  1298. 8 10
  1299. 6 8
  1300. 6 10
  1301. 18 2
  1302. 12 00000212
  1303. 10 00000262
  1304. 5 1
  1305. 6 10
  1306. 3 0
  1307. 8 10
  1308. 10 00000134
  1309. 6 10
  1310. 0 273 "Perm" "{10}"
  1311. 13
  1312. 23 9
  1313. 10 00000177
  1314. 5 1
  1315. 11 00000583
  1316. 0 20 "{0}" "{6}" " "
  1317. 13
  1318. 8 11
  1319. 0 14 "{11}"
  1320. 13
  1321. 5 3
  1322. 18 3
  1323. 11 00000557
  1324. 0 1044 &9 "{11}" 2 "^"
  1325. 13
  1326. 8 12
  1327. 6 12
  1328. 5 0
  1329. 18 3
  1330. 11 00000448
  1331. 6 12
  1332. 22 9
  1333. 8 13
  1334. 10 00000484
  1335. 7 "{7}^{11}^{5}^{2}^{3}^{4}"
  1336. 8 13
  1337. 6 6
  1338. 5 1
  1339. 3 0
  1340. 0 272 "perm" [X] "{13}"
  1341. 6 6
  1342. 5 1
  1343. 3 0
  1344. 8 6
  1345. 10 00000570
  1346. 10 00000583
  1347. 10 00000262
  1348. 0 272 "Perm" 1 "{6}"
  1349. 6 1
  1350. 15
  1351. 9
  1352. 14 Options
  1353. 0 42 "{0}" 8001
  1354. 13
  1355. 8 4
  1356. 0 14 "{4}"
  1357. 13
  1358. 5 3
  1359. 18 5
  1360. 11 00000134
  1361. 0 3 "Wybierz najpierw pliki do drukowania"
  1362. 6 3
  1363. 15
  1364. 9
  1365. 16 Loadfiles "{4}"
  1366. 0 273 "Perm" 1
  1367. 13
  1368. 8 5
  1369. 0 271 "Temp" "{5}"
  1370. 0 271 "Counter" 1
  1371. 0 264 "Counter" 2
  1372. 5 2
  1373. 8 6
  1374. 6 5
  1375. 6 6
  1376. 18 2
  1377. 12 00000322
  1378. 10 00000390
  1379. 5 1
  1380. 6 6
  1381. 3 0
  1382. 8 6
  1383. 10 00000247
  1384. 0 273 "Perm" "{6}"
  1385. 13
  1386. 8 7
  1387. 0 272 "temp" "{6}" "{7}"
  1388. 10 00000289
  1389. 16 SetFirst
  1390. 0 802
  1391. 13
  1392. 8 8
  1393. 0 31 50 1
  1394. 0 41 8000 "{8}!Numbering"
  1395. 0 41 8001 "{8}!Numbering"
  1396. 0 41 56 "{8}!NextFile"
  1397. 0 41 57 "{8}!SaveSettings"
  1398. 0 284 "User,EnableWindow,AHA" "{0}" 0
  1399. 0 26 "." "Options"
  1400. 13
  1401. 8 9
  1402. 0 284 "User,EnableWindow,AHA" "{0}" 1
  1403. 0 284 "User,SetFocus,HH" "{0}"
  1404. 6 9
  1405. 5 1
  1406. 18 0
  1407. 11 00000719
  1408. 16 TempToPerm
  1409. 0 266 "Counter"
  1410. 6 3
  1411. 15
  1412. 9
  1413. 14 SaveSettings
  1414. 0 265 "Counter"
  1415. 13
  1416. 8 4
  1417. 0 42 "{0}" 8000
  1418. 13
  1419. 8 5
  1420. 0 42 "{0}" 8001
  1421. 13
  1422. 8 6
  1423. 0 42 "{0}" 8002
  1424. 13
  1425. 8 7
  1426. 16 GetFlag "{0}"
  1427. 13
  1428. 8 8
  1429. 0 273 "temp" "{4}"
  1430. 13
  1431. 0 20 [X] 1 "^"
  1432. 13
  1433. 8 9
  1434. 0 273 "temp" "{4}"
  1435. 13
  1436. 0 20 [X] 2 "^"
  1437. 13
  1438. 8 10
  1439. 7 "{9}^{10}^{7}^{5}^{6}^{8}"
  1440. 8 11
  1441. 0 272 "Temp" "{4}" "{11}"
  1442. 6 3
  1443. 15
  1444. 9
  1445. 14 NextFile
  1446. 16 SaveSettings "{0}" "{1}" "{2}"
  1447. 0 265 "counter"
  1448. 13
  1449. 8 4
  1450. 0 273 "Perm" 1
  1451. 13
  1452. 8 5
  1453. 6 4
  1454. 6 5
  1455. 18 5
  1456. 11 00000161
  1457. 6 4
  1458. 5 1
  1459. 3 0
  1460. 8 4
  1461. 10 00000171
  1462. 5 2
  1463. 8 4
  1464. 6 4
  1465. 5 1
  1466. 3 1
  1467. 8 6
  1468. 6 5
  1469. 5 1
  1470. 3 1
  1471. 8 7
  1472. 7 "File {6} of {7}"
  1473. 8 8
  1474. 0 273 "temp" "{4}"
  1475. 13
  1476. 0 20 [X] 2 "^"
  1477. 13
  1478. 0 18 [X]
  1479. 13
  1480. 8 9
  1481. 0 273 "temp" "{4}"
  1482. 13
  1483. 0 20 [X] 6 "^"
  1484. 13
  1485. 8 10
  1486. 0 273 "temp" "{4}"
  1487. 13
  1488. 0 20 [X] 4 "^"
  1489. 13
  1490. 8 11
  1491. 0 273 "temp" "{4}"
  1492. 13
  1493. 0 20 [X] 5 "^"
  1494. 13
  1495. 8 12
  1496. 0 273 "temp" "{4}"
  1497. 13
  1498. 0 20 [X] 3 "^"
  1499. 13
  1500. 8 13
  1501. 16 SetFlag "{0}" "{10}"
  1502. 0 43 "{0}" 1002 "{9}"
  1503. 0 43 "{0}" 8000 "{11}"
  1504. 0 43 "{0}" 8001 "{12}"
  1505. 0 43 "{0}" 8002 "{13}"
  1506. 0 43 "{0}" 1003 "{8}"
  1507. 0 264 "counter" "{4}"
  1508. 6 3
  1509. 15
  1510. 9
  1511. 14 SetFlag
  1512. 5 1
  1513. 8 3
  1514. 5 1
  1515. 8 4
  1516. 5 11
  1517. 6 4
  1518. 18 2
  1519. 12 00000108
  1520. 10 00000300
  1521. 5 1
  1522. 6 4
  1523. 3 0
  1524. 8 4
  1525. 10 00000032
  1526. 6 1
  1527. 6 3
  1528. 25 1
  1529. 11 00000184
  1530. 5 59
  1531. 6 4
  1532. 3 0
  1533. 0 43 "{0}" [X] 1
  1534. 10 00000218
  1535. 5 59
  1536. 6 4
  1537. 3 0
  1538. 0 43 "{0}" [X] 0
  1539. 6 3
  1540. 5 2
  1541. 4 0
  1542. 8 3
  1543. 6 4
  1544. 5 3
  1545. 18 0
  1546. 11 00000287
  1547. 6 3
  1548. 5 2
  1549. 4 0
  1550. 8 3
  1551. 10 00000075
  1552. 0 42 "{0}" 60
  1553. 13
  1554. 5 0
  1555. 18 0
  1556. 11 00000360
  1557. 0 43 "{0}" 90 1
  1558. 0 42 "{0}" 68
  1559. 13
  1560. 5 0
  1561. 18 0
  1562. 0 42 "{0}" 69
  1563. 13
  1564. 5 0
  1565. 18 0
  1566. 1 1
  1567. 11 00000468
  1568. 0 43 "{0}" 50 1
  1569. 10 00000485
  1570. 0 43 "{0}" 50 0
  1571. 6 2
  1572. 15
  1573. 9
  1574. 14 SetFirst
  1575. 0 273 "temp" 2
  1576. 13
  1577. 0 20 [X] 2 "^"
  1578. 13
  1579. 0 18 [X]
  1580. 13
  1581. 8 1
  1582. 0 273 "temp" 2
  1583. 13
  1584. 0 20 [X] 6 "^"
  1585. 13
  1586. 8 2
  1587. 0 273 "temp" 2
  1588. 13
  1589. 0 20 [X] 4 "^"
  1590. 13
  1591. 8 3
  1592. 0 273 "temp" 2
  1593. 13
  1594. 0 20 [X] 5 "^"
  1595. 13
  1596. 8 4
  1597. 0 273 "temp" 2
  1598. 13
  1599. 0 20 [X] 3 "^"
  1600. 13
  1601. 8 5
  1602. 0 273 "Perm" 1
  1603. 13
  1604. 5 1
  1605. 3 1
  1606. 8 6
  1607. 7 "File 1 of {6}"
  1608. 8 7
  1609. 0 31 1002 "{1}"
  1610. 0 31 1003 "{7}"
  1611. 0 31 8000 "{3}"
  1612. 0 31 8001 "{4}"
  1613. 0 31 8002 "{5}"
  1614. 5 1
  1615. 8 8
  1616. 5 1
  1617. 8 9
  1618. 5 11
  1619. 6 9
  1620. 18 2
  1621. 12 00000492
  1622. 10 00000620
  1623. 5 1
  1624. 6 9
  1625. 3 0
  1626. 8 9
  1627. 10 00000416
  1628. 5 59
  1629. 6 9
  1630. 3 0
  1631. 6 2
  1632. 6 8
  1633. 25 1
  1634. 0 31 [X] [X]
  1635. 6 8
  1636. 5 2
  1637. 4 0
  1638. 8 8
  1639. 6 9
  1640. 5 3
  1641. 18 0
  1642. 11 00000607
  1643. 6 8
  1644. 5 2
  1645. 4 0
  1646. 8 8
  1647. 10 00000459
  1648. 6 0
  1649. 15
  1650. 9
  1651. 14 GetFlag
  1652. 5 1
  1653. 8 2
  1654. 5 0
  1655. 8 3
  1656. 5 60
  1657. 8 4
  1658. 5 70
  1659. 6 4
  1660. 18 2
  1661. 12 00000119
  1662. 10 00000249
  1663. 5 1
  1664. 6 4
  1665. 3 0
  1666. 8 4
  1667. 10 00000043
  1668. 6 3
  1669. 0 42 "{0}" "{4}"
  1670. 13
  1671. 6 2
  1672. 4 0
  1673. 3 0
  1674. 8 3
  1675. 6 2
  1676. 5 2
  1677. 4 0
  1678. 8 2
  1679. 6 4
  1680. 5 62
  1681. 18 0
  1682. 11 00000236
  1683. 6 2
  1684. 5 2
  1685. 4 0
  1686. 8 2
  1687. 10 00000086
  1688. 6 3
  1689. 15
  1690. 9
  1691. 6 1
  1692. 15
  1693. 9
  1694. 14 Numbering
  1695. 0 43 "{0}" 60 0
  1696. 0 43 "{0}" 90 1
  1697. 6 3
  1698. 15
  1699. 9
  1700. 14 TempToPerm
  1701. 0 273 "Perm" 1
  1702. 13
  1703. 8 1
  1704. 0 266 "Perm"
  1705. 0 271 "Perm" 200
  1706. 0 272 "Perm" 1 "{1}"
  1707. 5 2
  1708. 8 2
  1709. 6 1
  1710. 6 2
  1711. 18 2
  1712. 12 00000179
  1713. 10 00000247
  1714. 5 1
  1715. 6 2
  1716. 3 0
  1717. 8 2
  1718. 10 00000104
  1719. 0 273 "Temp" "{2}"
  1720. 13
  1721. 8 3
  1722. 0 272 "Perm" "{2}" "{3}"
  1723. 10 00000146
  1724. 0 266 "Temp"
  1725. 6 0
  1726. 15
  1727. 9
  1728. 14 Time
  1729. 0 43 "{0}" 60 0
  1730. 0 43 "{0}" 61 1
  1731. 5 0
  1732. 8 4
  1733. 0 802
  1734. 13
  1735. 8 5
  1736. 0 772
  1737. 13
  1738. 8 6
  1739. 0 773 "{6}" 3
  1740. 13
  1741. 8 3
  1742. 0 770 "{6}" "f"
  1743. 13
  1744. 8 7
  1745. 0 31 1000 "{3}"
  1746. 0 31 1006 "{7}"
  1747. 0 273 "time" 1
  1748. 13
  1749. 5 3600
  1750. 4 0
  1751. 0 273 "time" 2
  1752. 13
  1753. 5 60
  1754. 4 0
  1755. 3 0
  1756. 8 8
  1757. 6 8
  1758. 6 6
  1759. 3 0
  1760. 8 8
  1761. 0 770 "{8}" "f"
  1762. 13
  1763. 0 31 1001 [X]
  1764. 0 773 "{8}" 3
  1765. 13
  1766. 0 31 1005 [X]
  1767. 0 273 "time" 1
  1768. 13
  1769. 0 31 8000 [X]
  1770. 0 273 "time" 2
  1771. 13
  1772. 0 31 8001 [X]
  1773. 0 41 67 "{5}!Timeup"
  1774. 0 41 66 "{5}!Timeup"
  1775. 0 41 57 "{5}!TimeDown"
  1776. 0 41 56 "{5}!TimeDown"
  1777. 0 284 "User,EnableWindow,AHA" "{0}" 0
  1778. 0 26 "." "Time"
  1779. 13
  1780. 8 9
  1781. 0 284 "User,EnableWindow,AHA" "{0}" 1
  1782. 0 284 "User,SetFocus,HH" "{0}"
  1783. 6 9
  1784. 5 1
  1785. 18 1
  1786. 11 00000672
  1787. 6 3
  1788. 15
  1789. 9
  1790. 0 27 8000
  1791. 13
  1792. 0 272 "time" 1 [X]
  1793. 0 27 8001
  1794. 13
  1795. 0 272 "time" 2 [X]
  1796. 6 3
  1797. 15
  1798. 9
  1799. 14 Timeup
  1800. 0 297 "User" "GetAsyncKeyState" "HH"
  1801. 13
  1802. 8 4
  1803. 5 8067
  1804. 6 1
  1805. 3 1
  1806. 8 5
  1807. 0 42 "{0}" "{5}"
  1808. 13
  1809. 8 6
  1810. 6 6
  1811. 5 1
  1812. 3 0
  1813. 8 6
  1814. 6 4
  1815. 11 00000303
  1816. 5 32768
  1817. 0 284 "{4}" 1
  1818. 13
  1819. 25 1
  1820. 11 00000290
  1821. 6 6
  1822. 5 1
  1823. 3 0
  1824. 8 6
  1825. 6 6
  1826. 5 60
  1827. 18 3
  1828. 11 00000253
  1829. 5 0
  1830. 8 6
  1831. 0 43 "{0}" "{5}" "{6}"
  1832. 10 00000146
  1833. 0 298 "{4}"
  1834. 6 6
  1835. 5 60
  1836. 18 3
  1837. 11 00000343
  1838. 5 0
  1839. 8 6
  1840. 0 43 "{0}" "{5}" "{6}"
  1841. 16 SetTime "{0}"
  1842. 6 3
  1843. 15
  1844. 9
  1845. 14 TimeDown
  1846. 0 297 "User" "GetAsyncKeyState" "HH"
  1847. 13
  1848. 8 4
  1849. 5 8057
  1850. 6 1
  1851. 3 1
  1852. 8 5
  1853. 0 42 "{0}" "{5}"
  1854. 13
  1855. 8 6
  1856. 6 6
  1857. 5 1
  1858. 3 1
  1859. 8 6
  1860. 6 4
  1861. 11 00000305
  1862. 5 32768
  1863. 0 284 "{4}" 1
  1864. 13
  1865. 25 1
  1866. 11 00000292
  1867. 6 6
  1868. 5 1
  1869. 3 1
  1870. 8 6
  1871. 6 6
  1872. 5 0
  1873. 18 5
  1874. 11 00000255
  1875. 5 60
  1876. 8 6
  1877. 0 43 "{0}" "{5}" "{6}"
  1878. 10 00000148
  1879. 0 298 "{4}"
  1880. 6 6
  1881. 5 0
  1882. 18 5
  1883. 11 00000345
  1884. 5 60
  1885. 8 6
  1886. 0 43 "{0}" "{5}" "{6}"
  1887. 16 SetTime "{0}"
  1888. 6 3
  1889. 15
  1890. 9
  1891. 14 SetTime
  1892. 0 772
  1893. 13
  1894. 8 2
  1895. 0 42 "{0}" 8000
  1896. 13
  1897. 5 3600
  1898. 4 0
  1899. 0 42 "{0}" 8001
  1900. 13
  1901. 5 60
  1902. 4 0
  1903. 3 0
  1904. 8 3
  1905. 6 3
  1906. 6 2
  1907. 3 0
  1908. 8 3
  1909. 0 773 "{2}" 3
  1910. 13
  1911. 0 43 "{0}" 1000 [X]
  1912. 0 770 "{2}" "f"
  1913. 13
  1914. 0 43 "{0}" 1006 [X]
  1915. 0 770 "{3}" "f"
  1916. 13
  1917. 0 43 "{0}" 1001 [X]
  1918. 0 773 "{3}" 3
  1919. 13
  1920. 0 43 "{0}" 1005 [X]
  1921. 6 1
  1922. 15
  1923. 9
  1924. 14 Go
  1925. 0 296 1
  1926. 0 284 "user,FindWindow,HCC" "AmiProWndA" 0
  1927. 13
  1928. 8 1
  1929. 0 284 "user,isiconic,HA" "{1}"
  1930. 13
  1931. 1 3
  1932. 11 00000218
  1933. 0 284 "user,GetActiveWindow,H"
  1934. 13
  1935. 0 284 "user,SetWindowText,IHC" [X] "Czekaj....Drukuj<\j>"
  1936. 0 789 "Teraz drukuj<\j>....."
  1937. 0 273 "Perm" 1
  1938. 13
  1939. 8 2
  1940. 0 1050
  1941. 13
  1942. 5 0
  1943. 18 3
  1944. 11 00000347
  1945. 0 34 0 1
  1946. 13
  1947. 11 00000347
  1948. 5 1
  1949. 8 3
  1950. 5 2
  1951. 8 4
  1952. 6 2
  1953. 6 4
  1954. 18 2
  1955. 12 00000432
  1956. 10 00001084
  1957. 5 1
  1958. 6 4
  1959. 3 0
  1960. 8 4
  1961. 10 00000357
  1962. 0 291 7
  1963. 0 273 "perm" "{4}"
  1964. 13
  1965. 0 20 [X] 1 "^"
  1966. 13
  1967. 8 5
  1968. 0 20 "{5}" 1 ":"
  1969. 13
  1970. 0 807 [X] 1
  1971. 13
  1972. 8 6
  1973. 0 20 "{5}" 2 ":"
  1974. 13
  1975. 8 7
  1976. 0 273 "perm" "{4}"
  1977. 13
  1978. 0 20 [X] 2 "^"
  1979. 13
  1980. 0 18 [X]
  1981. 13
  1982. 8 8
  1983. 7 "{6}:{7}{8}"
  1984. 8 9
  1985. 0 273 "perm" "{4}"
  1986. 13
  1987. 0 20 [X] 6 "^"
  1988. 13
  1989. 8 10
  1990. 6 10
  1991. 5 512
  1992. 25 1
  1993. 6 10
  1994. 5 1024
  1995. 25 1
  1996. 1 2
  1997. 11 00000765
  1998. 10 00000790
  1999. 6 10
  2000. 5 1536
  2001. 3 0
  2002. 8 10
  2003. 0 273 "perm" "{4}"
  2004. 13
  2005. 0 20 [X] 4 "^"
  2006. 13
  2007. 8 11
  2008. 0 273 "perm" "{4}"
  2009. 13
  2010. 0 20 [X] 5 "^"
  2011. 13
  2012. 8 12
  2013. 0 273 "perm" "{4}"
  2014. 13
  2015. 0 20 [X] 3 "^"
  2016. 13
  2017. 8 13
  2018. 0 789 "Teraz drukuj<\j> {9} "
  2019. 5 1
  2020. 2 102 1 "{9}" 1 "AmiPro"
  2021. 13
  2022. 18 0
  2023. 11 00001071
  2024. 2 111 1 "{13}" "{11}" "{12}" "{10}"
  2025. 2 147 1
  2026. 10 00000399
  2027. 0 1050
  2028. 13
  2029. 5 0
  2030. 18 3
  2031. 11 00001130
  2032. 0 34 1 1
  2033. 0 266 "Time"
  2034. 0 266 "Perm"
  2035. 0 284 "user,GetActiveWindow,H"
  2036. 13
  2037. 0 284 "user,SetWindowText,IHC" [X] ""
  2038. 0 284 "user,GetActiveWindow,H"
  2039. 13
  2040. 0 284 "user,SetWindowText,IHC" [X] "Ami Pro"
  2041. 0 789 ""
  2042. 0 296 0
  2043. 6 0
  2044. 15
  2045. 9
  2046. DIALOG select
  2047. -2134376448 10 100 32 130 112 "" "" "Wyb≤r Dokument≤w" 
  2048. FONT 6 "Helv" 
  2049. 8 16 66 90 9001 1352859659 "listbox" "" 0 
  2050. 82 78 38 12 60 1342373897 "button" "Teraz" 0 
  2051. 82 90 38 12 61 1342177289 "button" "P≤ƒniej" 0 
  2052. 8 4 68 10 7999 1342308352 "static" "" 0 
  2053. 18 92 0 0 8001 1350566016 "edit" "" 0 
  2054. 78 68 46 36 12 1342177287 "button" "Drukuj" 0 
  2055. 84 4 40 14 1 1342373889 "button" "OK" 0 
  2056. 84 20 40 14 2 1342373888 "button" "Anuluj" 0 
  2057. 84 36 40 14 51 1342373888 "button" "Opcje..." 0 
  2058. 84 52 40 14 54 1342373888 "button" "Godzina..." 0 
  2059. DIALOG Time
  2060. -2134376448 14 72 52 180 76 "" "" "Wyb≤r Godziny Drukowania" 
  2061. FONT 6 "Helv" 
  2062. 30 28 14 12 8000 1350631424 "edit" "" 0 
  2063. 81 28 13 12 8001 1350631424 "edit" "" 0 
  2064. 136 4 40 14 1 1342242817 "button" "OK" 0 
  2065. 136 20 40 14 2 1342242816 "button" "Anuluj" 0 
  2066. 94 5 40 10 1000 1342177281 "static" " " 0 
  2067. 25 17 30 10 1002 1342177280 "static" "Godziny" 0 
  2068. 76 17 23 9 1003 1342177280 "static" "Minuty" 0 
  2069. 20 28 10 12 57 1342177280 "button" "<" 0 
  2070. 44 28 11 12 67 1342177280 "button" ">" 0 
  2071. 70 28 11 12 56 1342177280 "button" "<" 0 
  2072. 94 28 11 12 66 1342242816 "button" ">" 0 
  2073. 6 6 84 10 1006 1342177281 "static" "" 0 
  2074. 4 56 84 10 1001 1342177281 "static" "" 0 
  2075. 93 56 43 10 1005 1342177281 "static" "" 0 
  2076. DIALOG options
  2077. -2134376448 26 64 42 194 134 "" "" "Opcje Drukowania" 
  2078. FONT 6 "Helv" 
  2079. 70 16 16 12 8002 1350631552 "edit" "" 0 
  2080. 49 31 45 11 60 1342373897 "button" "Wszystkie" 0 
  2081. 75 42 22 12 8000 1350631424 "edit" "" 0 
  2082. 116 42 22 12 8001 1350631424 "edit" "" 0 
  2083. 6 56 45 12 50 1342373897 "button" "Wszystkie" 0 
  2084. 58 56 42 12 68 1342177289 "button" "Parzyste" 0 
  2085. 112 56 52 12 69 1342177289 "button" "Nieparzyste" 0 
  2086. 50 42 24 12 90 1342308361 "button" "Od:" 0 
  2087. 101 44 14 10 1001 1342177280 "static" "Do:" 0 
  2088. 26 4 60 10 1002 1342177280 "static" "" 0 
  2089. 10 78 87 12 61 1342373891 "button" "W odwrotnej kolejno£ci" 0 
  2090. 10 90 87 12 62 1342242819 "button" "Ka┐da kopia osobno" 0 
  2091. 10 102 80 12 63 1342242819 "button" "Drukuj pasery" 0 
  2092. 10 114 77 12 70 1342242819 "button" "Nie drukuj grafiki" 0 
  2093. 104 78 82 12 64 1342242819 "button" "Wydrukuj opis dokum." 0 
  2094. 104 90 78 12 65 1342242819 "button" "Na gotowym formularzu" 0 
  2095. 104 102 78 12 66 1342242819 "button" "Aktualizuj pola oper." 0 
  2096. 104 114 78 12 67 1342242819 "button" "Drukuj notatki" 0 
  2097. 25 18 40 10 1000 1342308352 "static" "Ilo£µ kopii:" 0 
  2098. 88 4 54 10 1003 1342177280 "static" "" 0 
  2099. 2 4 22 10 1004 1342177280 "static" "Drukuj:" 0 
  2100. 2 32 46 10 1005 1342177280 "static" "Zakres stron:" 0 
  2101. 6 68 182 62 33 1342177287 "button" "Opcje Dodatkowe" 0 
  2102. 148 6 40 14 1 1342373889 "button" "OK" 0 
  2103. 148 22 40 14 2 1342373888 "button" "Anuluj" 0 
  2104. 148 38 40 14 56 1342373888 "button" "Zapisz ->" 0 
  2105. 00018146
  2106.