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