Liren Large Software Subsidy 14/14.iso/s/s005/52.ddi/SAMPMAC.LIB/PRNBATCH.SMM

INI File | 1993-10-14 | 30.1 KB | 2,221 lines

[ver]
    4
[sty]
    _macro.sty
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[PanoseFontTable]
    3
    5
    Helvetica
    2818
    1029
    514
    2562
    1026
    Helv
    2818
    1029
    514
    770
    1026
    Times New Roman
    514
    773
    1029
    2309
    1027
[revisions]
    0
[recfile]

    *
    1
    1
    3
    8
    0
    0
[lang]
    1
[desc]
    Select multiple files to print
    Lotus WPD Technical Support
    Advanced
    Call Backs, Global Arrays
    noautorun
    750641863
    75
    677020248
    3644
    10
    973
    10728
    61128
    27
    Call Backs, Runlater, Global Aray





    0
[prn]
    QMS-PS 810
[port]
    LPT2:
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[tag]
    Body Text
    2
    [fnt]
        Helvetica
        240
        0
        49152
    [algn]
        1
        1
        216
        0
        0
    [spc]
        33
        0
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        0
        1
        1
        144
        144
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Body Text
    6
    1
    1560
    1
    3075
    1
    4275
    1
    5655
    1
    7005
    1
    8580
    0
[lay]
    Standard
    513
    [rght]
        15840
        12240
        1
        1440
        1440
        1
        1440
        1440
        0
        0
        16777215
        0
        0
        1
        1
        1440
        10800
        0
    [frght]
    [lyfrm]
        0
        13184
        0
        14400
        12240
        15840
        0
        1
        1
        0 0 0 0 0 0 0
        0
        16777215
        0
    [frmlay]
        15840
        12240
        1
        1440
        648
        1
        14472
        1440
        0
        0
        16777215
        0
        0
        0
        1
        1440
        10800
        0
    [txt]
<:s>

>
    [hrght]
    [lyfrm]
        0
        11136
        0
        0
        12240
        1440
        0
        1
        1
        0 0 0 0 0 0 0
        0
        16777215
        0
    [frmlay]
        1440
        12240
        1
        1440
        72
        1
        648
        1440
        0
        0
        16777215
        0
        0
        0
        1
        1440
        10800
        0
    [txt]
<:s>

>
[elay]
[lay]
    1
    513
    [rght]
        15840
        12240
        1
        1440
        1440
        1
        1440
        1440
        0
        0
        16777215
        0
        0
        1
        1
        1440
        10800
        11
        1
        705
        1
        1440
        1
        2160
        1
        2880
        1
        3600
        1
        4320
        1
        5040
        1
        5760
        1
        6525
        1
        7185
        1
        7920
    [hrght]
    [lyfrm]
        0
        11136
        0
        0
        12240
        1440
        0
        1
        1
        0 0 0 0 0 0 0
        0
        16777215
        0
    [frmlay]
        1440
        12240
        1
        1440
        72
        1
        648
        1440
        0
        0
        16777215
        0
        0
        0
        1
        1440
        10800
        0
    [txt]
<:s><:#P30670848,P975176>

>
    [frght]
    [lyfrm]
        0
        13184
        0
        14400
        12240
        15840
        0
        1
        1
        0 0 0 0 0 0 0
        0
        16777215
        0
    [frmlay]
        15840
        12240
        1
        1440
        648
        1
        14472
        1440
        0
        0
        16777215
        0
        0
        0
        1
        1440
        10800
        0
    [txt]
<:s><:#P30670848,P975176>

>
[elay]
[l1]
    1
[edoc]
<:s><:#P30670848,P975176>Define    PrintMsg    "Printing will begin in {Hour} Hours and {Minute} Minutes"

<:s><:#P30670848,P975176>Define    NoFiles    "Please Select Some Files First, Thanks.."

<:s><:#P30670848,P975176>Define    PrnStatus        "File 1 of {Max}"

<:s><:#P30670848,P975176>Define    Status2    "File {ShowStat} of {ShowMax}"

<:s><:#P30670848,P975176>Define    NowPrinting    "Now Printing....."

<:s><:#P30670848,P975176>Define    NowPrintingFile    "Now Printing File {Filename} "

<:s><:#P30670848,P975176>

<:s><:#P30670848,P975176>

<:s><:#P30670848,P975176>Declare     GetFlag(p1)

<:s><:#P30670848,P975176>Declare     SetFlag(p1,p2)

<:s><:#P30670848,P975176>Declare     SaveSettings(p1,p2,p3)

<:s><:#P30670848,P975176>Define    SetTrue()        SetDlgITemText(Hdlg,%1,1)

<:s><:#P30670848,P975176>Define    SetFalse()        SetDlgITemText(Hdlg,%1,0)

<:s><:#P30670848,P975176>Define     GetItem()        GetDlgItemText(Hdlg,%1)

<:s><:#P30670848,P975176>Define    GetPerm()        GetGlobalArray$("perm",%1)

<:s><:#P30670848,P975176>Define    GetTemp()        GetGlobalArray$("temp",%1)

<:s><:#P30670848,P975176>Define    Hour_up        67

<:s><:#P30670848,P975176>Define    Minute_up        66

<:s><:#P30670848,P975176>Define    Hour_down        57

<:s><:#P30670848,P975176>Define    Minute_down        56

<:s><:#P30670848,P975176>define    VK_LBUTTON        0x001

<:s><:#P30670848,P975176>

@Function@<:s><:#P30670848,P975176>Function Main()

<:s><:#P30670848,P975176>X = 1

<:s><:#P30670848,P975176>AllocGlobalVar("Perm",200)

<:s><:#P30670848,P975176>SetGlobalArray("Perm",1,1)

<:s><:#P30670848,P975176>AllocGlobalVar("Time"2) ' This is the Time Global

<:s><:#P30670848,P975176>SetGlobalArray("time",1,0)

<:s><:#P30670848,P975176>SetGlobalArray("time",2,0)

<:s><:#P30670848,P975176>Mac=GetRunningMacroFile$()

<:s><:#P30670848,P975176>doc=getDocpath$()

<:s><:#P30670848,P975176>Filledit(9001,"{doc}*.s?m")

<:s><:#P30670848,P975176>Filledit(60,1)

<:s><:#P30670848,P975176>SetDlgCallBack(54,"{Mac}!Time")

<:s><:#P30670848,P975176>SetDlgCallBack(51,"{Mac}!Options")

<:s><:#P30670848,P975176>Box=dialogbox("prnbatch.dlg","Select")

<:s><:#P30670848,P975176>if Box<<<;>1

<:s><:#P30670848,P975176>    FreeGlobalVar("Time")

<:s><:#P30670848,P975176>    FreeGlobalVar("Perm")

<:s><:#P30670848,P975176>    FreeGlobalVar("Temp")

<:s><:#P30670848,P975176>    Exit Function

<:s><:#P30670848,P975176>Endif

<:s><:#P30670848,P975176>Files=GetDialogField$(9001)

<:s><:#P30670848,P975176>Call Loadfiles(Files)

<:s><:#P30670848,P975176>Radio1=getdialogfield$(60)

<:s><:#P30670848,P975176>Radio2=Getdialogfield$(61)

<:s><:#P30670848,P975176>If {Radio2}

<:s><:#P30670848,P975176>    hour=GetGlobalArray$("time",1)

<:s><:#P30670848,P975176>    Minute=GetGlobalArray$("time",2)

<:s><:#P30670848,P975176>        IF Hour<;>0 or Minute<;>0

<:s><:#P30670848,P975176>            Runlater("{Mac}!Go","{hour}:{Minute}")

<:s><:#P30670848,P975176>            message(PrintMsg)

<:s><:#P30670848,P975176>        Else

<:s><:#P30670848,P975176>            Call Go()

<:s><:#P30670848,P975176>        Endif

<:s><:#P30670848,P975176>Elseif {Radio1}

<:s><:#P30670848,P975176>    Call Go()

<:s><:#P30670848,P975176>Endif

<:s><:#P30670848,P975176>End Function

<:s><:#P30670848,P975176>

<:s><:#P30670848,P975176>

@Function@<:s><:#P30670848,P975176>Function LoadFiles(Files)

<:s><:#P30670848,P975176>From=1

<:s><:#P30670848,P975176>Finish=9999

<:s><:#P30670848,P975176>Flag=1

<:s><:#P30670848,P975176>Copies=1

<:s><:#P30670848,P975176>x=1

<:s><:#P30670848,P975176>Dir = GetDocPath$()

<:s><:#P30670848,P975176>Total=GetGlobalArray$("Perm",1)

<:s><:#P30670848,P975176>    Dim LStorage(total)

<:s><:#P30670848,P975176>        For T=2 to ToTal

<:s><:#P30670848,P975176>            LStorage(t)=GetGlobalArray$("Perm",t)

<:s><:#P30670848,P975176>        Next

<:s><:#P30670848,P975176>While (1)

<:s><:#P30670848,P975176>        Filename=Strfield$(Files,x," ")

<:s><:#P30670848,P975176>        if Len(filename)<;>3

<:s><:#P30670848,P975176>            Found=ArraySearch(&LStorage,Filename,2,"^")

<:s><:#P30670848,P975176>            IF Found<;>0

<:s><:#P30670848,P975176>                Temp=LStorage(Found)

<:s><:#P30670848,P975176>            Else

<:s><:#P30670848,P975176>        temp="{dir}^{Filename}^{Copies}^{From}^{Finish}^{Flag}"

<:s><:#P30670848,P975176>            Endif

<:s><:#P30670848,P975176>            SetGlobalArray("perm",x+1,Temp)

<:s><:#P30670848,P975176>            x=x+1

<:s><:#P30670848,P975176>        Else

<:s><:#P30670848,P975176>            Break

<:s><:#P30670848,P975176>        Endif

<:s><:#P30670848,P975176>Wend

<:s><:#P30670848,P975176>SetGlobalArray("Perm",1,x)

<:s><:#P30670848,P975176>End Function

<:s><:#P30670848,P975176>

<:s><:#P30670848,P975176>

@Function@<:s><:#P30670848,P975176>Function Options(Hdlg,Id,Text)

<:s><:#P30670848,P975176>Files=GetDlgItemText(Hdlg,9001)

<:s><:#P30670848,P975176>If Len(files) <<3

<:s><:#P30670848,P975176>    Message(NoFiles)

<:s><:#P30670848,P975176>    Exit Function

<:s><:#P30670848,P975176>Endif

<:s><:#P30670848,P975176>

<:s><:#P30670848,P975176>Call Loadfiles(Files)

<:s><:#P30670848,P975176>MaxPerm=GetGlobalArray$("Perm",1)

<:s><:#P30670848,P975176>AllocGlobalVar("Temp",MaxPerm)

<:s><:#P30670848,P975176>AllocGlobalVar ("Counter",1)

<:s><:#P30670848,P975176>SetGlobalVar("Counter",2)

<:s><:#P30670848,P975176>

<:s><:#P30670848,P975176>For x=2 to Maxperm

<:s><:#P30670848,P975176>    Data=GetGlobalArray$("Perm",x)

<:s><:#P30670848,P975176>    SetGlobalArray("temp",x,Data)

<:s><:#P30670848,P975176>Next

<:s><:#P30670848,P975176>Call SetFirst()

<:s><:#P30670848,P975176>Mac=GetRunningMacroFile$()

<:s><:#P30670848,P975176>FillEdit(50,1)

<:s><:#P30670848,P975176>SetDlgCallBack(8000,"{mac}!Numbering")

<:s><:#P30670848,P975176>SetDlgCallBack(8001,"{MAc}!Numbering")

<:s><:#P30670848,P975176>SetDlgCallBack(56,"{mac}!NextFile")

<:s><:#P30670848,P975176>SetDlgCallBack(57,"{mac}!SaveSettings")

<:s><:#P30670848,P975176>Box=dialogbox("prnbatch.dlg","Options")

<:s><:#P30670848,P975176>if Box = 1

<:s><:#P30670848,P975176>Call TempToPerm() ' if ok swap temp to perm

<:s><:#P30670848,P975176>Endif

<:s><:#P30670848,P975176>FreeGlobalVar("Counter")

<:s><:#P30670848,P975176>End Function

<:s><:#P30670848,P975176>

<:s><:#P30670848,P975176>

@Function@<:s><:#P30670848,P975176>Function SaveSettings(Hdlg,Id,Text)

<:s><:#P30670848,P975176>Lcount=GetGlobalVar$("Counter")

<:s><:#P30670848,P975176>From=GetDlgItemText(Hdlg,8000)

<:s><:#P30670848,P975176>Finish=GetDlgItemText(Hdlg,8001)

<:s><:#P30670848,P975176>Copies=GetdlgItemText(Hdlg,8002)

<:s><:#P30670848,P975176>Flag=GetFlag(Hdlg)

<:s><:#P30670848,P975176>Dir=StrField$(GetTemp(Lcount),1,"^")

<:s><:#P30670848,P975176>Name=StrField$(GetTemp(Lcount),2,"^")

<:s><:#P30670848,P975176>SaveBack="{Dir}^{Name}^{copies}^{From}^{Finish}^{Flag}"

<:s><:#P30670848,P975176>SetGlobalArray("Temp",Lcount,SaveBack)

<:s><:#P30670848,P975176>End Function

<:s><:#P30670848,P975176>

@Function@<:s><:#P30670848,P975176>Function NextFile(Hdlg,id,Text)

<:s><:#P30670848,P975176>SaveSettings(Hdlg,id,Text)

<:s><:#P30670848,P975176>LCount=GetGlobalVar$("counter")

<:s><:#P30670848,P975176>Max=GetGlobalArray$("Perm",1)

<:s><:#P30670848,P975176>If Lcount<<Max

<:s><:#P30670848,P975176>    Lcount=Lcount+1

<:s><:#P30670848,P975176>Else

<:s><:#P30670848,P975176>    Lcount=2

<:s><:#P30670848,P975176>Endif

<:s><:#P30670848,P975176>ShowStat=Lcount - 1

<:s><:#P30670848,P975176>FullData = GetTemp(Lcount)

<:s><:#P30670848,P975176>

<:s><:#P30670848,P975176>ShowMax=Max - 1

<:s><:#P30670848,P975176>    Name2=UCase$(StrField$(GetTemp(Lcount),2,"^"))

<:s><:#P30670848,P975176>    Flag=StrField$(GetTemp(Lcount),6,"^")

<:s><:#P30670848,P975176>    From=StrField$(GetTemp(Lcount),4,"^")

<:s><:#P30670848,P975176>    fin=StrField$(GetTemp(Lcount),5,"^")

<:s><:#P30670848,P975176>    Copies=StrField$(GetTemp(Lcount),3,"^")

<:s><:#P30670848,P975176>    SetFlag(Hdlg,Flag)

<:s><:#P30670848,P975176>    SetDlgItemText(Hdlg,1002,"{Name2}")

<:s><:#P30670848,P975176>    SetDlgItemText(Hdlg,8000,from)

<:s><:#P30670848,P975176>    SetDlgITemText(Hdlg,8001,Fin)

<:s><:#P30670848,P975176>    SetDlgItemText(Hdlg,8002,Copies)

<:s><:#P30670848,P975176>    SetDlgItemText(Hdlg,1003,Status2)

<:s><:#P30670848,P975176>    SetGlobalVar("counter",lcount)

<:s><:#P30670848,P975176>End Function

<:s><:#P30670848,P975176>

@Function@<:s><:#P30670848,P975176>Function SetFlag(Hdlg,Flag)

<:s><:#P30670848,P975176>mask = 1

<:s><:#P30670848,P975176>for i = 1 to 11

<:s><:#P30670848,P975176>    If Flag & Mask

<:s><:#P30670848,P975176>        SetDlgItemText(hDlg, 59 + i, 1)

<:s><:#P30670848,P975176>    Else

<:s><:#P30670848,P975176>        SetDlgItemText(Hdlg,59 + i, 0)

<:s><:#P30670848,P975176>    Endif

<:s><:#P30670848,P975176>    mask = mask * 2

<:s><:#P30670848,P975176>If I=3

<:s><:#P30670848,P975176>    Mask=Mask*2

<:s><:#P30670848,P975176>Endif

<:s><:#P30670848,P975176>next

<:s><:#P30670848,P975176>If (GetDlgItemText(Hdlg,60)=0) ' if all is no

<:s><:#P30670848,P975176>    SetDlgItemText(Hdlg,90,1)

<:s><:#P30670848,P975176>Endif

<:s><:#P30670848,P975176>if (((GetDlgItemText(Hdlg,68)=0) and (GetDlgItemText(Hdlg,69)=0)))

<:s><:#P30670848,P975176>    SetdlgItemText(Hdlg,50,1)

<:s><:#P30670848,P975176>Else

<:s><:#P30670848,P975176>    SetDlgItemText(Hdlg,50,0)

<:s><:#P30670848,P975176>Endif

<:s><:#P30670848,P975176>End Function

<:s><:#P30670848,P975176>

@Function@<:s><:#P30670848,P975176>Function SetFirst()

<:s><:#P30670848,P975176>Name=Ucase$(Strfield$(GetTemp(2),2,"^"))

<:s><:#P30670848,P975176>flag=StrField$(GetTemp(2),6,"^")

<:s><:#P30670848,P975176>From=Strfield$(GetTemp(2),4,"^")

<:s><:#P30670848,P975176>Finish=Strfield$(GetTemp(2),5,"^")

<:s><:#P30670848,P975176>Copies=StrField$(GetTemp(2),3,"^")

<:s><:#P30670848,P975176>Max=GetGlobalArray$("Perm",1) - 1

<:s><:#P30670848,P975176>Filledit(1002,Name)

<:s><:#P30670848,P975176>Filledit(1003,Status)

<:s><:#P30670848,P975176>Filledit(8000,From)

<:s><:#P30670848,P975176>Filledit(8001,Finish)

<:s><:#P30670848,P975176>Filledit(8002,Copies)

<:s><:#P30670848,P975176>mask = 1

<:s><:#P30670848,P975176>for i = 1 to 11

<:s><:#P30670848,P975176>    Filledit(59 + i, flag & mask)

<:s><:#P30670848,P975176>    mask = mask * 2

<:s><:#P30670848,P975176>If I=3

<:s><:#P30670848,P975176>    Mask=Mask*2

<:s><:#P30670848,P975176>Endif

<:s><:#P30670848,P975176>next

<:s><:#P30670848,P975176>End Function

<:s><:#P30670848,P975176>

@Function@<:s><:#P30670848,P975176>Function GetFlag(Hdlg)

<:s><:#P30670848,P975176>Mask=1

<:s><:#P30670848,P975176>SumFlag=0

<:s><:#P30670848,P975176>For x=60 to 70

<:s><:#P30670848,P975176>    SumFlag=SumFlag+(GetItem(x)*Mask)

<:s><:#P30670848,P975176>    Mask=Mask*2

<:s><:#P30670848,P975176>if x=62

<:s><:#P30670848,P975176>        mask=Mask*2

<:s><:#P30670848,P975176>Endif

<:s><:#P30670848,P975176>

<:s><:#P30670848,P975176>Next

<:s><:#P30670848,P975176>Return SumFlag;

<:s><:#P30670848,P975176>End Function

<:s><:#P30670848,P975176>

@Function@<:s><:#P30670848,P975176>Function Numbering(Hdlg,Id,Text)

<:s><:#P30670848,P975176>SetDlgItemText(Hdlg,60,0)

<:s><:#P30670848,P975176>SetDlgItemText(Hdlg,90,True)

<:s><:#P30670848,P975176>End Function

<:s><:#P30670848,P975176>

@Function@<:s><:#P30670848,P975176>Function TempToPerm()

<:s><:#P30670848,P975176>' This will dump the contents of the Temp Array into the Perm Array.

<:s><:#P30670848,P975176>Total=GetGlobalarray$("Perm",1)

<:s><:#P30670848,P975176>FreeGlobalVar("Perm")

<:s><:#P30670848,P975176>AllocGlobalVar("Perm",200)

<:s><:#P30670848,P975176>SetGlobalArray("Perm",1,Total)

<:s><:#P30670848,P975176>For X= 2 to Total

<:s><:#P30670848,P975176>    Data=GetGlobalArray$("Temp",x)

<:s><:#P30670848,P975176>    SetGlobalArray("Perm",x,Data)

<:s><:#P30670848,P975176>Next

<:s><:#P30670848,P975176>FreeGlobalVar("Temp")

<:s><:#P30670848,P975176>End function

<:s><:#P30670848,P975176>

<:s><:#P30670848,P975176>

<:s><:#P30670848,P975176>'  This is the time box to allow user to set print time.

<:s><:#P30670848,P975176>'

@Function@<:s><:#P30670848,P975176>Function Time(hdlg,id,text)

<:s><:#P30670848,P975176>SetDlgItemText(Hdlg,60,0)

<:s><:#P30670848,P975176>SetDlgItemText(Hdlg,61,True)

<:s><:#P30670848,P975176>T = 0

<:s><:#P30670848,P975176>Mac=GetRunningMacroFile$()

<:s><:#P30670848,P975176>Today=NOW()

<:s><:#P30670848,P975176>Time= FormatTime$(Today,3)

<:s><:#P30670848,P975176>Date=FormatDate$(Today,"f")

<:s><:#P30670848,P975176>Filledit(1000,Time)

<:s><:#P30670848,P975176>Filledit(1006,Date)

<:s><:#P30670848,P975176>Sec=(GetGlobalArray$("time",1) * 3600) + (GetGlobalArray$("time",2) * 60)

<:s><:#P30670848,P975176>Sec = Sec + Today

<:s><:#P30670848,P975176>Filledit(1001,FormatDate$(Sec, "f"))

<:s><:#P30670848,P975176>Filledit(1005,FormatTime$(Sec, 3))

<:s><:#P30670848,P975176>Filledit(8000, GetGlobalArray$("time",1))

<:s><:#P30670848,P975176>Filledit(8001,GetGlobalArray$("time",2))

<:s><:#P30670848,P975176>SetDlgCallBack(Hour_Up,"{Mac}!Timeup")

<:s><:#P30670848,P975176>SetDlgCallBack(Minute_up,"{Mac}!Timeup")

<:s><:#P30670848,P975176>SetDlgCallBack(Hour_Down,"{Mac}!TimeDown")

<:s><:#P30670848,P975176>SetDlgCallBack(Minute_Down,"{Mac}!TimeDown")

<:s><:#P30670848,P975176>

<:s><:#P30670848,P975176>Box=dialogbox("prnbatch.dlg","Time")

<:s><:#P30670848,P975176>If Box<<<;>1

<:s><:#P30670848,P975176>    Exit Function

<:s><:#P30670848,P975176>Endif

<:s><:#P30670848,P975176>SetGlobalArray("time",1,GetDialogField$(8000))

<:s><:#P30670848,P975176>SetGlobalArray("time",2,GetDialogField$(8001))

<:s><:#P30670848,P975176>End Function

<:s><:#P30670848,P975176>

@Function@<:s><:#P30670848,P975176>Function Timeup(hdlg,id,text)

<:s><:#P30670848,P975176>Editbox =8067 - id

<:s><:#P30670848,P975176>Number=GetDlgItemText(Hdlg,Editbox)

<:s><:#P30670848,P975176>Number=Number + 1

<:s><:#P30670848,P975176>if Number <;> 60

<:s><:#P30670848,P975176>        Number = 0

<:s><:#P30670848,P975176>    Endif

<:s><:#P30670848,P975176>SetDlgItemText(Hdlg,Editbox,Number)

<:s><:#P30670848,P975176>Call SetTime(Hdlg)

<:s><:#P30670848,P975176>End Function

<:s><:#P30670848,P975176>

@Function@<:s><:#P30670848,P975176>Function TimeDown(hdlg,id,text)

<:s><:#P30670848,P975176>Editbox =8057 - id

<:s><:#P30670848,P975176>Number=GetDlgItemText(Hdlg,Editbox)

<:s><:#P30670848,P975176>Number=Number - 1

<:s><:#P30670848,P975176>if Number << 0

<:s><:#P30670848,P975176>    Number = 60

<:s><:#P30670848,P975176>Endif

<:s><:#P30670848,P975176>SetDlgItemText(Hdlg,Editbox,Number)

<:s><:#P30670848,P975176>Call SetTime(Hdlg)

<:s><:#P30670848,P975176>End Function

<:s><:#P30670848,P975176>

@Function@<:s><:#P30670848,P975176>Function SetTime(Hdlg)

<:s><:#P30670848,P975176>Today = Now()

<:s><:#P30670848,P975176>Sec=(GetDlgItemText(Hdlg,8000) * 3600) + (GetDlgItemText(Hdlg,8001) * 60)

<:s><:#P30670848,P975176>Sec = Sec + Today

<:s><:#P30670848,P975176>SetDlgItemText(Hdlg,1000,FormatTime$(Today,3))

<:s><:#P30670848,P975176>SetDlgItemText(Hdlg,1006,FormatDate$(Today,"f"))

<:s><:#P30670848,P975176>SetDlgItemText(Hdlg,1001,FormatDate$(Sec, "f"))

<:s><:#P30670848,P975176>SetDlgItemText(Hdlg,1005,FormatTime$(Sec, 3))

<:s><:#P30670848,P975176>End Function

<:s><:#P30670848,P975176>

@Function@<:s><:#P30670848,P975176>Function Go()

<:s><:#P30670848,P975176>StatusBarMsg(NowPrinting)

<:s><:#P30670848,P975176>Total=GetGlobalArray$("Perm",1)

<:s><:#P30670848,P975176>If GetOpenFilecount() <;>0

<:s><:#P30670848,P975176>    If FileChanged(0,1)

<:s><:#P30670848,P975176>        isfileChanged = 1

<:s><:#P30670848,P975176>    Endif

<:s><:#P30670848,P975176>Endif

<:s><:#P30670848,P975176>For y=2 to Total

<:s><:#P30670848,P975176>    AnswerMsgBox(7)

<:s><:#P30670848,P975176>    Path=StrField$(GetPerm(y),1,"^")

<:s><:#P30670848,P975176>    Drive=Right$(StrField$(Path,1,":"),1)

<:s><:#P30670848,P975176>    Direct=Strfield$(Path,2,":")

<:s><:#P30670848,P975176>    Name=UCase$(StrField$(GetPerm(y),2,"^"))

<:s><:#P30670848,P975176>    Filename="{Drive}:{Direct}{name}"

<:s><:#P30670848,P975176>

<:s><:#P30670848,P975176>    Flag=StrField$(GetPerm(Y),6,"^")

<:s><:#P30670848,P975176>        If ((Flag & 512) or (Flag & 1024))

<:s><:#P30670848,P975176>            Else

<:s><:#P30670848,P975176>                Flag=Flag+1536

<:s><:#P30670848,P975176>        Endif

<:s><:#P30670848,P975176>    From=StrField$(GetPerm(Y),4,"^")

<:s><:#P30670848,P975176>    fin=StrField$(GetPerm(Y),5,"^")

<:s><:#P30670848,P975176>    Copies=StrField$(GetPerm(Y),3,"^")

<:s><:#P30670848,P975176>    StatusBarMsg(NowPrintingFile)

<:s><:#P30670848,P975176>        If 1 = Fileopen("{Filename}",1,"")

<:s><:#P30670848,P975176>            FilePrint(copies,From,Fin,Flag)

<:s><:#P30670848,P975176>            FileClose()

<:s><:#P30670848,P975176>        Endif

<:s><:#P30670848,P975176>Next

<:s><:#P30670848,P975176>If GetOpenFilecount()<;>0

<:s><:#P30670848,P975176>    Filechanged(1,1)

<:s><:#P30670848,P975176>Endif

<:s><:#P30670848,P975176>FreeGlobalVar("Time")

<:s><:#P30670848,P975176>FreeGlobalVar("Perm")

<:s><:#P30670848,P975176>StatusBarMsg("")

<:s><:#P30670848,P975176>'HourGlass(off)

<:s><:#P30670848,P975176>End Function

<:s><:#P30670848,P975176>

<:s><:#P30670848,P975176>ChechBoth(Flag)

<:s><:#P30670848,P975176>End Function

<:s><:#P30670848,P975176>

<:s><:#P30670848,P975176>
>

[Embedded]
00020402
>
[macsum4] 15 123
Main 0 0 10 22
LoadFiles 1033 1 13 61
Options 1997 3 7 92
SaveSettings 2915 3 9 124
NextFile 3447 3 11 136
SetFlag 4461 2 3 163
SetFirst 5104 0 9 186
GetFlag 5930 1 4 208
Numbering 6317 3 1 222
TempToPerm 6442 0 4 227
Time 6819 3 7 243
Timeup 7736 3 3 272
TimeDown 8030 3 3 283
SetTime 8328 1 3 294
Go 8723 0 13 304
[macse]
14 Main
29 0 Main
17 1
29 1 X
5 1
8 1
17 2
0 271 "Perm" 200
17 3
0 272 "Perm" 1 1
17 4
0 271 "Time" 2
17 5
0 272 "time" 1 0
17 6
0 272 "time" 2 0
17 7
29 2 Mac
0 802
13
8 2
17 8
29 3 doc
31 101 45 2
13
16 _$$5CatSlash [X]
13
8 3
17 9
0 31 9001 "{3}*.s?m"
17 10
0 31 60 1
17 11
0 41 54 "{2}!Time"
17 12
0 41 51 "{2}!Options"
17 13
29 4 Box
0 26 "prnbatch.dlg" "Select"
13
8 4
17 14
6 4
5 1
18 1
11 00000527
17 15
0 266 "Time"
17 16
0 266 "Perm"
17 17
0 266 "Temp"
6 0
15
9
17 20
29 5 Files
0 27 9001
13
8 5
17 21
16 Loadfiles "{5}"
17 22
29 6 Radio1
0 27 60
13
8 6
17 23
29 7 Radio2
0 27 61
13
8 7
17 24
6 7
11 00000975
17 25
29 8 hour
0 273 "time" 1
13
8 8
17 26
29 9 Minute
0 273 "time" 2
13
8 9
17 27
6 8
5 0
18 3
6 9
5 0
18 3
1 2
11 00000948
17 28
0 285 "{2}!Go" "{8}:{9}"
17 29
0 3 "Printing will begin in {8} Hours and {9} Minutes"
10 00000962
17 31
16 Go
10 00001014
17 33
6 6
11 00001014
17 34
16 Go
6 0
15
17 36
9
14 LoadFiles
29 0 Files
29 1 LoadFiles
17 1
29 2 From
5 1
8 2
17 2
29 3 Finish
5 9999
8 3
17 3
29 4 Flag
5 1
8 4
17 4
29 5 Copies
5 1
8 5
17 5
29 6 x
5 1
8 6
17 6
29 7 Dir
31 101 45 2
13
16 _$$5CatSlash [X]
13
8 7
17 7
29 8 Total
0 273 "Perm" 1
13
8 8
17 8
6 8
29 9 LStorage
21 9 [X]
29 10 T
5 2
8 10
17 9
6 8
6 10
18 2
12 00000427
10 00000484
5 1
6 10
3 0
8 10
10 00000343
17 10
6 10
0 273 "Perm" "{10}"
13
23 9
10 00000392
17 12
5 1
11 00000916
17 13
29 11 Filename
0 20 "{0}" "{6}" " "
13
8 11
17 14
0 14 "{11}"
13
5 3
18 3
11 00000883
17 15
29 12 Found
0 1044 &9 "{11}" 2 "^"
13
8 12
17 16
6 12
5 0
18 3
11 00000753
17 17
29 13 Temp
6 12
22 9
8 13
10 00000796
17 19
7 "{7}^{11}^{5}^{2}^{3}^{4}"
8 13
17 21
6 6
5 1
3 0
0 272 "perm" [X] "{13}"
17 22
6 6
5 1
3 0
8 6
10 00000903
17 24
10 00000916
10 00000484
17 27
0 272 "Perm" 1 "{6}"
6 1
15
17 28
9
14 Options
29 0 Hdlg
29 1 Id
29 2 Text
29 3 Options
17 1
29 4 Files
0 42 "{0}" 9001
13
8 4
17 2
0 14 "{4}"
13
5 3
18 5
11 00000213
17 3
0 3 "Please Select Some Files First, Thanks.."
6 3
15
9
17 7
16 Loadfiles "{4}"
17 8
29 5 MaxPerm
0 273 "Perm" 1
13
8 5
17 9
0 271 "Temp" "{5}"
17 10
0 271 "Counter" 1
17 11
0 264 "Counter" 2
29 6 x
5 2
8 6
17 13
6 5
6 6
18 2
12 00000462
10 00000555
5 1
6 6
3 0
8 6
10 00000380
17 14
29 7 Data
0 273 "Perm" "{6}"
13
8 7
17 15
0 272 "temp" "{6}" "{7}"
10 00000429
17 17
16 SetFirst
17 18
29 8 Mac
0 802
13
8 8
17 19
0 31 50 1
17 20
0 41 8000 "{8}!Numbering"
17 21
0 41 8001 "{8}!Numbering"
17 22
0 41 56 "{8}!NextFile"
17 23
0 41 57 "{8}!SaveSettings"
17 24
29 9 Box
0 26 "prnbatch.dlg" "Options"
13
8 9
17 25
6 9
5 1
18 0
11 00000875
17 26
16 TempToPerm
17 28
0 266 "Counter"
6 3
15
17 29
9
14 SaveSettings
29 0 Hdlg
29 1 Id
29 2 Text
29 3 SaveSettings
17 1
29 4 Lcount
0 265 "Counter"
13
8 4
17 2
29 5 From
0 42 "{0}" 8000
13
8 5
17 3
29 6 Finish
0 42 "{0}" 8001
13
8 6
17 4
29 7 Copies
0 42 "{0}" 8002
13
8 7
17 5
29 8 Flag
16 GetFlag "{0}"
13
8 8
17 6
29 9 Dir
0 273 "temp" "{4}"
13
0 20 [X] 1 "^"
13
8 9
17 7
29 10 Name
0 273 "temp" "{4}"
13
0 20 [X] 2 "^"
13
8 10
17 8
29 11 SaveBack
7 "{9}^{10}^{7}^{5}^{6}^{8}"
8 11
17 9
0 272 "Temp" "{4}" "{11}"
6 3
15
17 10
9
14 NextFile
29 0 Hdlg
29 1 id
29 2 Text
29 3 NextFile
17 1
16 SaveSettings "{0}" "{1}" "{2}"
17 2
29 4 LCount
0 265 "counter"
13
8 4
17 3
29 5 Max
0 273 "Perm" 1
13
8 5
17 4
6 4
6 5
18 5
11 00000260
17 5
6 4
5 1
3 0
8 4
10 00000276
17 7
5 2
8 4
17 9
29 6 ShowStat
6 4
5 1
3 1
8 6
17 10
29 7 FullData
0 273 "temp" "{4}"
13
8 7
17 12
29 8 ShowMax
6 5
5 1
3 1
8 8
17 13
29 9 Name2
0 273 "temp" "{4}"
13
0 20 [X] 2 "^"
13
0 18 [X]
13
8 9
17 14
29 10 Flag
0 273 "temp" "{4}"
13
0 20 [X] 6 "^"
13
8 10
17 15
29 11 From
0 273 "temp" "{4}"
13
0 20 [X] 4 "^"
13
8 11
17 16
29 12 fin
0 273 "temp" "{4}"
13
0 20 [X] 5 "^"
13
8 12
17 17
29 13 Copies
0 273 "temp" "{4}"
13
0 20 [X] 3 "^"
13
8 13
17 18
16 SetFlag "{0}" "{10}"
17 19
0 43 "{0}" 1002 "{9}"
17 20
0 43 "{0}" 8000 "{11}"
17 21
0 43 "{0}" 8001 "{12}"
17 22
0 43 "{0}" 8002 "{13}"
17 23
0 43 "{0}" 1003 "File {6} of {8}"
17 24
0 264 "counter" "{4}"
6 3
15
17 25
9
14 SetFlag
29 0 Hdlg
29 1 Flag
29 2 SetFlag
17 1
29 3 mask
5 1
8 3
29 4 i
5 1
8 4
17 2
5 11
6 4
18 2
12 00000175
10 00000404
5 1
6 4
3 0
8 4
10 00000093
17 3
6 1
6 3
25 1
11 00000263
17 4
5 59
6 4
3 0
0 43 "{0}" [X] 1
10 00000303
17 6
5 59
6 4
3 0
0 43 "{0}" [X] 0
17 8
6 3
5 2
4 0
8 3
17 9
6 4
5 3
18 0
11 00000391
17 10
6 3
5 2
4 0
8 3
10 00000142
17 13
0 42 "{0}" 60
13
5 0
18 0
11 00000478
17 14
0 43 "{0}" 90 1
17 16
0 42 "{0}" 68
13
5 0
18 0
0 42 "{0}" 69
13
5 0
18 0
1 1
11 00000600
17 17
0 43 "{0}" 50 1
10 00000624
17 19
0 43 "{0}" 50 0
6 2
15
17 21
9
14 SetFirst
29 0 SetFirst
17 1
29 1 Name
0 273 "temp" 2
13
0 20 [X] 2 "^"
13
0 18 [X]
13
8 1
17 2
29 2 flag
0 273 "temp" 2
13
0 20 [X] 6 "^"
13
8 2
17 3
29 3 From
0 273 "temp" 2
13
0 20 [X] 4 "^"
13
8 3
17 4
29 4 Finish
0 273 "temp" 2
13
0 20 [X] 5 "^"
13
8 4
17 5
29 5 Copies
0 273 "temp" 2
13
0 20 [X] 3 "^"
13
8 5
17 6
29 6 Max
0 273 "Perm" 1
13
5 1
3 1
8 6
17 7
0 31 1002 "{1}"
17 8
0 31 1003 264
17 9
0 31 8000 "{3}"
17 10
0 31 8001 "{4}"
17 11
0 31 8002 "{5}"
17 12
29 7 mask
5 1
8 7
29 8 i
5 1
8 8
17 13
5 11
6 8
18 2
12 00000651
10 00000807
5 1
6 8
3 0
8 8
10 00000568
17 14
5 59
6 8
3 0
6 2
6 7
25 1
0 31 [X] [X]
17 15
6 7
5 2
4 0
8 7
17 16
6 8
5 3
18 0
11 00000794
17 17
6 7
5 2
4 0
8 7
10 00000618
6 0
15
17 20
9
14 GetFlag
29 0 Hdlg
29 1 GetFlag
17 1
29 2 Mask
5 1
8 2
17 2
29 3 SumFlag
5 0
8 3
29 4 x
5 60
8 4
17 3
5 70
6 4
18 2
12 00000195
10 00000349
5 1
6 4
3 0
8 4
10 00000113
17 4
6 3
0 42 "{0}" "{4}"
13
6 2
4 0
3 0
8 3
17 5
6 2
5 2
4 0
8 2
17 6
6 4
5 62
18 0
11 00000336
17 7
6 2
5 2
4 0
8 2
10 00000162
17 11
6 3
15
9
6 1
15
17 12
9
14 Numbering
29 0 Hdlg
29 1 Id
29 2 Text
29 3 Numbering
17 1
0 43 "{0}" 60 0
17 2
0 43 "{0}" 90 1
6 3
15
17 3
9
14 TempToPerm
29 0 TempToPerm
17 2
29 1 Total
0 273 "Perm" 1
13
8 1
17 3
0 266 "Perm"
17 4
0 271 "Perm" 200
17 5
0 272 "Perm" 1 "{1}"
29 2 X
5 2
8 2
17 6
6 1
6 2
18 2
12 00000246
10 00000337
5 1
6 2
3 0
8 2
10 00000165
17 7
29 3 Data
0 273 "Temp" "{2}"
13
8 3
17 8
0 272 "Perm" "{2}" "{3}"
10 00000213
17 10
0 266 "Temp"
6 0
15
17 11
9
14 Time
29 0 hdlg
29 1 id
29 2 text
29 3 Time
17 1
0 43 "{0}" 60 0
17 2
0 43 "{0}" 61 1
17 3
29 4 T
5 0
8 4
17 4
29 5 Mac
0 802
13
8 5
17 5
29 6 Today
0 772
13
8 6
17 6
0 773 "{6}" 3
13
8 3
17 7
29 7 Date
0 770 "{6}" "f"
13
8 7
17 8
0 31 1000 "{3}"
17 9
0 31 1006 "{7}"
17 10
29 8 Sec
0 273 "time" 1
13
5 3600
4 0
0 273 "time" 2
13
5 60
4 0
3 0
8 8
17 11
6 8
6 6
3 0
8 8
17 12
0 770 "{8}" "f"
13
0 31 1001 [X]
17 13
0 773 "{8}" 3
13
0 31 1005 [X]
17 14
0 273 "time" 1
13
0 31 8000 [X]
17 15
0 273 "time" 2
13
0 31 8001 [X]
17 16
0 41 67 "{5}!Timeup"
17 17
0 41 66 "{5}!Timeup"
17 18
0 41 57 "{5}!TimeDown"
17 19
0 41 56 "{5}!TimeDown"
17 21
29 9 Box
0 26 "prnbatch.dlg" "Time"
13
8 9
17 22
6 9
5 1
18 1
11 00000814
6 3
15
9
17 25
0 27 8000
13
0 272 "time" 1 [X]
17 26
0 27 8001
13
0 272 "time" 2 [X]
6 3
15
17 27
9
14 Timeup
29 0 hdlg
29 1 id
29 2 text
29 3 Timeup
17 1
29 4 Editbox
5 8067
6 1
3 1
8 4
17 2
29 5 Number
0 42 "{0}" "{4}"
13
8 5
17 3
6 5
5 1
3 0
8 5
17 4
6 5
5 60
18 3
11 00000222
17 5
5 0
8 5
17 7
0 43 "{0}" "{4}" "{5}"
17 8
16 SetTime "{0}"
6 3
15
17 9
9
14 TimeDown
29 0 hdlg
29 1 id
29 2 text
29 3 TimeDown
17 1
29 4 Editbox
5 8057
6 1
3 1
8 4
17 2
29 5 Number
0 42 "{0}" "{4}"
13
8 5
17 3
6 5
5 1
3 1
8 5
17 4
6 5
5 0
18 5
11 00000226
17 5
5 60
8 5
17 7
0 43 "{0}" "{4}" "{5}"
17 8
16 SetTime "{0}"
6 3
15
17 9
9
14 SetTime
29 0 Hdlg
29 1 SetTime
17 1
29 2 Today
0 772
13
8 2
17 2
29 3 Sec
0 42 "{0}" 8000
13
5 3600
4 0
0 42 "{0}" 8001
13
5 60
4 0
3 0
8 3
17 3
6 3
6 2
3 0
8 3
17 4
0 773 "{2}" 3
13
0 43 "{0}" 1000 [X]
17 5
0 770 "{2}" "f"
13
0 43 "{0}" 1006 [X]
17 6
0 770 "{3}" "f"
13
0 43 "{0}" 1001 [X]
17 7
0 773 "{3}" 3
13
0 43 "{0}" 1005 [X]
6 1
15
17 8
9
14 Go
29 0 Go
17 1
0 789 "Now Printing....."
17 2
29 1 Total
0 273 "Perm" 1
13
8 1
17 3
0 1050
13
5 0
18 3
11 00000217
17 4
16 _$$2FileChanged 0 1
13
11 00000217
17 5
29 2 isfileChanged
5 1
8 2
29 3 y
5 2
8 3
17 8
6 1
6 3
18 2
12 00000316
10 00001195
5 1
6 3
3 0
8 3
10 00000235
17 9
0 291 7
17 10
29 4 Path
0 273 "perm" "{3}"
13
0 20 [X] 1 "^"
13
8 4
17 11
29 5 Drive
0 20 "{4}" 1 ":"
13
0 807 [X] 1
13
8 5
17 12
29 6 Direct
0 20 "{4}" 2 ":"
13
8 6
17 13
29 7 Name
0 273 "perm" "{3}"
13
0 20 [X] 2 "^"
13
0 18 [X]
13
8 7
17 14
29 8 Filename
7 "{5}:{6}{7}"
8 8
17 16
29 9 Flag
0 273 "perm" "{3}"
13
0 20 [X] 6 "^"
13
8 9
17 17
6 9
5 512
25 1
6 9
5 1024
25 1
1 2
11 00000774
10 00000804
17 19
6 9
5 1536
3 0
8 9
17 21
29 10 From
0 273 "perm" "{3}"
13
0 20 [X] 4 "^"
13
8 10
17 22
29 11 fin
0 273 "perm" "{3}"
13
0 20 [X] 5 "^"
13
8 11
17 23
29 12 Copies
0 273 "perm" "{3}"
13
0 20 [X] 3 "^"
13
8 12
17 24
0 789 "Now Printing File {8} "
17 25
5 1
16 _$$1FileOpen "{8}" 1 ""
13
18 0
11 00001182
17 26
16 _$$3FilePrint "{12}" "{10}" "{11}" "{9}"
17 27
2 732 1
10 00000283
17 30
0 1050
13
5 0
18 3
11 00001269
17 31
16 _$$2FileChanged 1 1
17 33
0 266 "Time"
17 34
0 266 "Perm"
17 35
0 789 ""
6 0
15
17 37
9
00020427