Liren Large Software Subsidy 14

home *** CD-ROM | disk | FTP | other *** search

/ Liren Large Software Subsidy 14 / 14.iso / s / s005 / 52.ddi / AMIENV.SM$ / AMIENV.SMM

Wrap

INI File | 1993-11-10 | 105.8 KB | 6,897 lines

[ver] 4 [sty] [charset] 82 ANSI (Windows, IBM CP 1252) [PanoseFontTable] 6 5 Helvetica 2818 1029 514 514 1026 Arial 2818 1030 514 514 1026 Courier 1794 2310 514 517 1028 Arial MT 2818 1030 514 514 1026 Helv 2818 1029 514 770 1026 Times New Roman 514 774 1029 517 1027 [revisions] 0 [recfile] * 1 1 3 8 0 0 [lang] 1 [desc] 752969839 85 751160524 544 1 0 0 0 0 1 [prn] QMS-PS 810 [port] LPT3.OS2 [fopts] 0 1 0 0 [lnopts] 2 Body Text 1 [docopts] 5 2 [GramStyle] [tag] Outline3 1 [fnt] Helv 200 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 3 0 1 1 0 0 0 0 [nfmt] 272 1 3 . , $ Outline3 0 0 [tag] Function 1 [fnt] Arial MT 240 0 49153 [algn] 1 1 0 360 360 [spc] 17 0 1 144 144 1 100 [brk] 4 [line] 8 0 1 0 0 2 2 144 144 1 [spec] 0 2 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Function 0 0 [tag] Comments 1 [fnt] Times New Roman 200 255 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 16 0 0 [nfmt] 272 1 3 . , $ Comments 0 0 [tag] Defines 1 [fnt] Times New Roman 200 16711680 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 16 0 0 [nfmt] 272 1 3 . , $ Defines 0 0 [tag] Outline 2 1 [fnt] Times New Roman 200 0 49152 [algn] 1 1 360 0 0 [spc] 17 0 1 0 72 1 100 [brk] 4 [line] 8 0 1 0 0 2 2 144 144 1 [spec] 0 3 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline A 0 0 [tag] Outline 3 1 [fnt] Times New Roman 200 0 49152 [algn] 1 1 720 0 0 [spc] 17 0 1 0 72 1 100 [brk] 4 [line] 8 0 1 0 0 2 2 144 144 1 [spec] 0 4 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline 1 0 0 [tag] Outline 4 1 [fnt] Times New Roman 200 0 49152 [algn] 1 1 1080 0 0 [spc] 17 0 1 0 72 1 100 [brk] 4 [line] 8 0 1 0 0 2 2 144 144 1 [spec] 0 5 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline a 0 0 [tag] Outline 5 1 [fnt] Times New Roman 200 0 49152 [algn] 1 1 1440 0 0 [spc] 17 0 1 0 72 1 100 [brk] 4 [line] 8 0 1 0 0 2 2 144 144 1 [spec] 0 6 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline i 0 0 [tag] Outline 6 1 [fnt] Times New Roman 200 0 49152 [algn] 1 1 1800 0 0 [spc] 17 0 1 0 72 1 100 [brk] 4 [line] 8 0 1 0 0 2 2 144 144 1 [spec] 0 7 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline i 0 0 [tag] Body Single 3 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 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] 280 1 2 . , $ Body Single 0 0 [tag] Define 12 [fnt] Courier 200 16711680 32768 [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 16 0 0 [nfmt] 272 1 3 . , $ Define 0 0 [tag] Header 9 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 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] 280 1 2 . , $ Header 0 0 [tag] Footer 11 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 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] 280 1 2 . , $ Footer 0 0 [tag] Outline8 1 [fnt] Times New Roman 200 0 49152 [algn] 1 1 2520 360 360 [spc] 17 0 1 0 72 1 100 [brk] 4 [line] 8 0 1 0 0 2 2 144 144 1 [spec] 0 9 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline8 0 0 [tag] Title 8 [fnt] Arial 360 0 49153 [algn] 4 1 0 0 0 [spc] 33 0 1 144 72 1 100 [brk] 16 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Title 0 0 [tag] Outline9 1 [fnt] Times New Roman 200 0 49152 [algn] 1 1 2880 360 360 [spc] 17 0 1 0 72 1 100 [brk] 4 [line] 8 0 1 0 0 2 2 144 144 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline9 0 0 [tag] Outline 1 1 [fnt] Arial 280 0 49153 [algn] 1 1 0 360 360 [spc] 17 0 1 144 144 1 100 [brk] 4 [line] 8 0 1 0 0 2 2 144 144 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline I 0 0 [tag] Bullet 4 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 288 288 [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> 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Bullet 0 0 [tag] Bullet 1 5 [fnt] Times New Roman 240 0 49152 [algn] 1 1 288 288 288 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 <*5> 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Bullet 1 0 0 [tag] Number List 6 [fnt] Times New Roman 240 0 49152 [algn] 1 1 360 360 360 [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 16 0 0 [nfmt] 272 1 2 . , $ Number List 0 0 [tag] Subhead 7 [fnt] Times New Roman 240 0 49155 [algn] 1 1 0 0 0 [spc] 33 0 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 2 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Subhead 0 0 [tag] Outline7 1 [fnt] Times New Roman 200 0 49152 [algn] 1 1 2160 360 360 [spc] 17 0 1 0 72 1 100 [brk] 4 [line] 8 0 1 0 0 2 2 144 144 1 [spec] 0 8 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline7 0 0 [tag] Modules 1 [fnt] Arial MT 240 8388863 49153 [algn] 1 1 0 360 360 [spc] 17 0 1 144 144 1 100 [brk] 4 [line] 8 0 1 0 0 2 2 144 144 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Modules 0 0 [tag] Body Text 2 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 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] 280 1 2 . , $ Body Text 0 0 [lay] Standard 513 [rght] 15840 12240 1 1440 1440 1 1440 1440 0 1 0 1 0 2 1 1440 10800 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 [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 792 1 14472 1440 0 1 0 0 0 0 1 1440 10800 2 2 4680 3 9360 [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 792 1440 0 1 0 0 0 0 1 1440 10800 2 2 4680 3 9360 [txt] <:s> > [elay] [lay] 1 513 [rght] 15840 12240 1 1440 1440 1 1440 1440 0 0 0 0 0 1 1 1440 10800 0 [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 1 3 9195 [txt] <:s><:#P30670848,P943718>Envelope Function for OS/2 <:s><:#P30670848,P943718><:I0,0,0,0>Last revision <:ra> Howard Shevitz > [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,P943718><:R1,1,2,4546,> -<:P11,0,>- > [elay] [l1] 1 [edoc] @Defines@<:s><:#P30670848,P802161>declare WriteDefs(%1, %2, %3, %4, %5, %6, %7) @Defines@<:s><:#P30670848,P802161>declare CustomSize(%1) @Defines@<:s><:#P30670848,P802161>declare ModEnvPage(%1, %2, %3, %4) @Defines@<:s><:#P30670848,P802161>declare AutoShade() @Defines@<:s><:#P30670848,P802161>declare InsertAddress(%1, %2) @Defines@<:s><:#P30670848,P802161>declare GetAddrs(%1) @Defines@<:s><:#P30670848,P802161>declare ReturnPlace(%1) @Defines@<:s><:#P30670848,P802161>declare SavePlace() @Defines@<:s><:#P30670848,P802161>declare PrintSet(%1) @Defines@<:s><:#P30670848,P802161>declare NewPrintDef(%1) @Defines@<:s><:#P30670848,P802161>declare NewPrintDefSet(%1, %2) @Defines@<:s><:#P30670848,P802161>declare SetDefaults() @Defines@<:s><:#P30670848,P802161>declare TwipsToUnits(%1) @Defines@<:s><:#P30670848,P802161>declare ConvertToTwips(%1) @Defines@<:s><:#P30670848,P802161>declare ConvertToUnits(%1) @Defines@<:s><:#P30670848,P802161>declare GetUnits(%1) @Defines@<:s><:#P30670848,P802161>declare FillEnvelopeSizesBox(%1, %2) @Defines@<:s><:#P30670848,P802161> @Defines@<:s><:#P30670848,P802161> @Defines@<:s><:#P30670848,P802161> @Defines@<:s><:#P30670848,P802161><:X3,0;include "amixlat2.sam!amienv"><:f200,2Times New Roman,0,0,255>'Amienv Defines <:s><+@><:I0,216,216,0><:S+65535><:R><:f200,2Times New Roman,0,0,255>define MAC_DIR "GetAmiDirectory$()" <:s><+@><:I0,216,216,0><:S+65535><:f200,2Times New Roman,0,0,255>define NULL "" <:s><+@><:I0,216,216,0><:S+65535><:f200,2Times New Roman,0,0,255>define INI_FILE "amipro2.ini" <:s><+@><:I0,216,216,0><:S+65535><:f200,2Times New Roman,0,0,255>define INI_SETUP "amienv.ini" <:s><+@><:I0,216,216,0><:S+65535><:f200,2Times New Roman,0,0,255>define INI_ADDRESS_FILE "amipro2.ini" <:s><+@><:I0,216,216,0><:S+65535><:f200,2Times New Roman,0,0,255>define INI_SETUP_PRINT "PrinterNames" <:s><+@><:I0,216,216,0><:S+65535><:f200,2Times New Roman,0,0,255>define DIALOG_BOX "{MacPath}amienv.dlg" <:s><+@><:I0,216,216,0><:S+65535><:f200,2Times New Roman,0,0,255>define INI_SETUP_ENV "EnvelopeSizes" <:s><+@><:I0,216,216,0><:S+65535><:f200,2Times New Roman,0,0,255>define INI_ENV_DEFAULTS "EnvDefaults" <:s><+@><:I0,216,216,0><:S+65535><:f200,2Times New Roman,0,0,255>define INI_ADDRESS "AdrsBook" <:s><+@><:I0,216,216,0><:S+65535><:f200,2Times New Roman,0,0,255>define ENV_STYLE "{StylePath}~amienv.sty" <:s><+@><:I0,216,216,0><:S+65535><:f200,2Times New Roman,0,0,255>define MAXLINES 5 <:s><+@><:I0,216,216,0><:S+65535><:f200,2Times New Roman,0,0,255>define CUST_ENV_SIZE_PARM 0.44 <:s><+@><:I0,216,216,0><:S+65535><:f200,2Times New Roman,0,0,255>define ENV_SIZE_DEF <:f,,0,0,255>"Size 10 (9 1/2 x 4 1/8 in)" <:s> <:s><+@><:I0,216,216,0><:S+65535><:f200,2Times New Roman,255,0,0>'Messages <:s><+@><:I0,216,216,0><:S+65535><:f200,2Times New Roman,0,0,255>define ADJERROR "The number entered must" <:s><+@><:I0,216,216,0><:S+65535><:f200,2Times New Roman,0,0,255>define ADJERROR2 "be between 0.00 and " <:s><+@><:I0,216,216,0><:S+65535><:f200,2Times New Roman,0,0,255>define REPLACE_RETURN "Title already exists, do you want to replace it?" <:s><+@><:I0,216,216,0><:S+65535><:f200,2Times New Roman,0,0,255>define DELETE_RETURN "Are you sure that you want to delete this return address?" <:s><+@><:I0,216,216,0><:S+65535><:f200,2Times New Roman,0,0,255>define NO_ENV_SIZE_SETTINGS "No settings for envelope size - Exiting function!"<:X~3,0;include "amixlat2.sam!amienv"> @Defines@<:s><:#P30670848,P802161> @Defines@<:s><:#P30670848,P802161> @Defines@<:s><:#P30670848,P802161> @Defines@<:s><:#P30670848,P802161> @Modules@<:s><:#P30670848,P1918894>'Main @Function@<:s><:#P30670848,P1918894>Function Main() @Outline 2@<:s><:#P30670848,P1038090>'SingleStep(1) @Outline 2@<:s><:#P30670848,P1038090>AllocGlobalVar("ini_section", 1) @Outline 2@<:s><:#P30670848,P1038090>AllocGlobalVar("macpath", 1) @Outline 2@<:s><:#P30670848,P1038090>AllocGlobalVar("ChangePrinter", 1) @Outline 2@<:s><:#P30670848,P1038090>AllocGlobalVar("HasRunEnvSize", 1) @Outline 2@<:s><:#P30670848,P1038090>AllocGlobalVar("NoPrinterSect", 1) @Outline 2@<:s><:#P30670848,P1038090>SetGlobalVar("macpath", GetAmiDirectory$()) @Outline 2@<:s><:#P30670848,P1038090>ONCANCEL Endit @Outline 2@<:s><:#P30670848,P1038090>Hourglass(1) @Outline 2@<:s><:#P30670848,P1038090>StylePath = GetStylePath$() @Outline 2@<:s><:#P30670848,P1038090>macpath = GetGlobalVar$("macpath") @Outline 2@<:s><:#P30670848,P1038090>rmac = GetRunningMacroFile$() @Outline 2@<:s><:#P30670848,P1038090>LastMode = GetMode() @Outline 2@<:s><:#P30670848,P1038090>Printer = GetProfileString$(INI_ENV_DEFAULTS, "Printer", INI_FILE) @Outline 2@<:s><:#P30670848,P1038090>PrintRetDef = GetProfileString$(INI_ENV_DEFAULTS, "PrintRetDef", INI_FILE) @Outline 2@<:s><:#P30670848,P1038090>If PrintRetDef = NULL @Outline 3@<:s><:#P30670848,P1038090>SetDefaults() @Outline 3@<:s><:#P30670848,P1038090>PrintRetDef = GetProfileString$(INI_ENV_DEFAULTS, "PrintRetDef", INI_FILE) @Outline 2@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>EnvFeed = GetProfileString$(Printer, "EnvFeed", INI_FILE) 'Flag to see if INI section exists. @Outline 2@<:s><:#P30670848,P1038090>SetGlobalVar("ini_section", INI_ENV_DEFAULTS) @Outline 2@<:s><:#P30670848,P1038090>ini_section = GetGlobalVar$("ini_section") @Outline 2@<:s><:#P30670848,P1038090>If EnvFeed << 0 ' If there is not section, use defaults. Set a flag for "No Section" @Outline 3@<:s><:#P30670848,P1038090>SetGlobalVar("NoPrinterSect", 1) @Outline 3@<:s><:#P30670848,P1038090>PrinterName = NewPrintDef(PrinterName) @Outline 3@<:s><:#P30670848,P1038090>EnvFeed = GetProfileString$(ini_section, "EnvFeed", INI_FILE) @Outline 3@<:s><:#P30670848,P1038090>NoPrinterSect = GetGlobalVar$("NoPrinterSect") @Outline 2@<:s><:#P30670848,P1038090>Else ' If section exists, use this. @Outline 3@<:s><:#P30670848,P1038090>SetGlobalVar("ini_section", Printer) @Outline 2@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>Units = GetUnits(Units) @Outline 2@<:s><:#P30670848,P1038090>ShadedText = CurShade$() @Outline 2@<:s><:#P30670848,P1038090>NoText = ShadedText @Outline 2@<:s><:#P30670848,P1038090>.push() @Outline 2@<:s><:#P30670848,P1038090>If ShadedText <<<;> NULL @Outline 3@<:s><:#P30670848,P1038090>Copy() @Outline 2@<:s><:#P30670848,P1038090>Else @Outline 3@<:s><:#P30670848,P1038090>IsAutoShade = AutoShade() @Outline 2@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>FillEdit(20, PrintRetDef) @Outline 2@<:s><:#P30670848,P1038090>FillEdit(21, EnvFeed) @Outline 2@<:s><:#P30670848,P1038090>FillEdit(1006, Units) @Outline 2@<:s><:#P30670848,P1038090>SetDlgCallBack(0, "FillPrinterBox") @Outline 2@<:s><:#P30670848,P1038090>SetDlgCallBack(0, "FillEnvelopeSizesBox") @Outline 2@<:s><:#P30670848,P1038090>SetDlgCallBack(0, "FillRetTitleBox") @Outline 2@<:s><:#P30670848,P1038090>SetDlgCallBack(0, "FillRetAddBox") @Outline 2@<:s><:#P30670848,P1038090>SetDlgCallBack(25, "AddAddress") @Outline 2@<:s><:#P30670848,P1038090>SetDlgCallBack(26, "DeleteRetName") @Outline 2@<:s><:#P30670848,P1038090>SetDlgCallBack(27, "EnvSettings") @Outline 2@<:s><:#P30670848,P1038090>SetDlgCallBack(8003, "SetCustomEnvSize") @Outline 2@<:s><:#P30670848,P1038090>SetDlgCallBack(8004, "SetCustomEnvSize") @Outline 2@<:s><:#P30670848,P1038090>SetDlgCallBack(9500, "SetPrinter") @Outline 2@<:s><:#P30670848,P1038090>SetDlgCallBack(9501, "FillEnvelopeSizesBox") @Outline 2@<:s><:#P30670848,P1038090>SetDlgCallBack(9502, "FillRetAddBox") @Outline 2@<:s><:#P30670848,P1038090>DlgSetHelpNumber(237) @Outline 2@<:s><:#P30670848,P1038090>Hourglass(0) @Outline 2@<:s><:#P30670848,P1038090>Box = DialogBox(DIALOG_BOX, "Printenv") @Outline 2@<:s><:#P30670848,P1038090>Switch Box @Outline 3@<:s><:#P30670848,P1038090>Case -1 @Outline 3@<:s><:#P30670848,P1038090>Message("Could not find dialog box - Exiting macro!") @Outline 2@<:s><:#P30670848,P1038090>Case 0 @Outline 3@<:s><:#P30670848,P1038090>Goto Endit ' User canceled @Outline 2@<:s><:#P30670848,P1038090>Case 1 @Outline 3@<:s><:#P30670848,P1038090>RetAddress = GetDialogField$(8002) @Outline 3@<:s><:#P30670848,P1038090>LastName = GetDialogField$(9502) @Outline 3@<:s><:#P30670848,P1038090>LastPrinter = GetDialogField$(9500) @Outline 3@<:s><:#P30670848,P1038090>LastEnvSize = GetDialogField$(9501) @Outline 3@<:s><:#P30670848,P1038090>PrintRet = GetDialogField$(20) @Outline 3@<:s><:#P30670848,P1038090>CustomWidth = GetDialogField$(8004) @Outline 3@<:s><:#P30670848,P1038090>CustomHeight = GetDialogField$(8003) @Outline 3@<:s><:#P30670848,P1038090>EnvFeed = GetDialogField$(21) @Outline 3@<:s><:#P30670848,P1038090>PrinterName = GetDialogField$(9500) @Outline 3@<:s><:#P30670848,P1038090>GetEnvSize = GetDialogfield$(9501) @Outline 3@<:s><:#P30670848,P1038090>EnvSize = strfield$(GetEnvSize, 1, "~") @Outline 3@<:s><:#P30670848,P1038090>If IsAutoShade <<<;> 0 and NoText = NULL ' If there is no selected text, get it from user. @Outline 4@<:s><:#P30670848,P1038090>defstr AddrsText @Outline 4@<:s><:#P30670848,P1038090>AddrsText = NULL @Outline 4@<:s><:#P30670848,P1038090>GetAddrs(&AddrsText) @Outline 4@<:s><:#P30670848,P1038090>If AddrsText = NULL @Outline 5@<:s><:#P30670848,P1038090>Goto Endit @Outline 4@<:s><:#P30670848,P1038090>Endif @Outline 3@<:s><:#P30670848,P1038090>Endif @Outline 3@<:s><:#P30670848,P1038090>New(ENV_STYLE, 1, 0) @Outline 3@<:s><:#P30670848,P1038090> @Outline 3@<:s><:#P30670848,P1038090>CustomWidth = ConvertToTwips(CustomWidth) @Outline 3@<:s><:#P30670848,P1038090>CustomHeight = ConvertToTwips(CustomHeight) @Outline 3@<:s><:#P30670848,P1038090>If EnvSize = "Custom envelope" @Outline 4@<:s><:#P30670848,P1038090>CustWidth = CustomSize(CustomWidth) ' Use function to convert to margin sizes @Outline 4@<:s><:#P30670848,P1038090>CustHeight = CustomSize(CustomHeight) @Outline 4@<:s><:#P30670848,P1038090>IsSettings = ModEnvPage(EnvSize, EnvFeed, CustWidth, CustHeight) @Outline 4@<:s><:#P30670848,P1038090>If IsSettings = -1 @Outline 5@<:s><:#P30670848,P1038090>AnswerMsgBox(7) @Outline 5@<:s><:#P30670848,P1038090>FileClose() @Outline 5@<:s><:#P30670848,P1038090>Goto Endit @Outline 4@<:s><:#P30670848,P1038090>Endif @Outline 4@<:s><:#P30670848,P1038090> @Outline 3@<:s><:#P30670848,P1038090>Else @Outline 4@<:s><:#P30670848,P1038090>IsSettings = ModEnvPage(EnvSize, EnvFeed, 0, 0) @Outline 4@<:s><:#P30670848,P1038090>If IsSettings = -1 @Outline 5@<:s><:#P30670848,P1038090>AnswerMsgBox(7) @Outline 5@<:s><:#P30670848,P1038090>FileClose() @Outline 5@<:s><:#P30670848,P1038090>Goto Endit @Outline 4@<:s><:#P30670848,P1038090>Endif @Outline 3@<:s><:#P30670848,P1038090>Endif @Outline 3@<:s><:#P30670848,P1038090>If PrintRet = 1 @Outline 4@<:s><:#P30670848,P1038090>MarkBookMark("Return", 4002) @Outline 4@<:s><:#P30670848,P1038090>Type ("{RetAddress}") @Outline 3@<:s><:#P30670848,P1038090>Endif @Outline 3@<:s><:#P30670848,P1038090>MarkBookMark("Recipient", 4002) @Outline 3@<:s><:#P30670848,P1038090>If NoText <<<;> NULL or IsAutoShade <<<;> 1 @Outline 4@<:s><:#P30670848,P1038090>Paste() @Outline 4@<:s><:#P30670848,P1038090>Type("<[>CtrlShiftHome]") ' Remove the text attributes. @Outline 4@<:s><:#P30670848,P1038090>SetStyle("Body Text") @Outline 4@<:s><:#P30670848,P1038090>NormalText() @Outline 4@<:s><:#P30670848,P1038090>Type("<[>Esc]") @Outline 3@<:s><:#P30670848,P1038090>Else @Outline 4@<:s><:#P30670848,P1038090>Type("{AddrsText}") @Outline 3@<:s><:#P30670848,P1038090>Endif @Outline 3@<:s><:#P30670848,P1038090>PrintSet(PrinterName) @Outline 3@<:s><:#P30670848,P1038090>'UserControl("Pause") @Outline 3@<:s><:#P30670848,P1038090>FilePrint(1, 1, 9999, 1537) @Outline 3@<:s><:#P30670848,P1038090>AnswerMsgBox(7) @Outline 3@<:s><:#P30670848,P1038090>FileClose() @Outline 3@<:s><:#P30670848,P1038090>If NoPrinterSect = 1 @Outline 4@<:s><:#P30670848,P1038090>SetGlobalVar("ini_section", LastPrinter) @Outline 3@<:s><:#P30670848,P1038090>Endif @Outline 3@<:s><:#P30670848,P1038090>WriteDefs(LastName, PrinterName, LastEnvSize, PrintRet, EnvFeed, CustomWidth, CustomHeight ) @Outline 3@<:s><:#P30670848,P1038090>Goto Endit @Outline 2@<:s><:#P30670848,P1038090>EndSwitch @Outline 2@<:s><:#P30670848,P1038090>Endit: @Outline 2@<:s><:#P30670848,P1038090>FreeGlobalVar("macpath") @Outline 2@<:s><:#P30670848,P1038090>FreeGlobalVar("ini_section") @Outline 2@<:s><:#P30670848,P1038090>FreeGlobalVar("NoPrinterSect") @Outline 2@<:s><:#P30670848,P1038090>FreeGlobalVar("HasRunEnvSize") @Outline 2@<:s><:#P30670848,P1038090>FreeGlobalVar("EnvSizes") @Outline 2@<:s><:#P30670848,P1038090>FreeGlobalVar("ChangePrinter") @Outline 2@<:s><:#P30670848,P1038090>.pop() @Function@<:s><:#P30670848,P1918894>End Function @Function@<:s><:#P30670848,P1918894> @Modules@<:s><:#P30670848,P1918894>'Initiate Dialog Boxes @Function@<:s><:#P30670848,P1918894>Function FillRetAddBox(hdlg, id,) 'Fill the return address edit box @Outline 2@<:s><:#P30670848,P1038090>IgnoreKeyboard(2) @Outline 2@<:s><:#P30670848,P1038090>NumNames = GetProfileString$(INI_ADDRESS, "NumNames", INI_FILE) @Outline 2@<:s><:#P30670848,P1038090>GetName = GetDlgItemText(hdlg, 9502) @Outline 2@<:s><:#P30670848,P1038090>For i = 1 to NumNames @Outline 3@<:s><:#P30670848,P1038090>RetNameAdd = GetProfileString$(INI_ADDRESS, "Name{I}", INI_FILE) @Outline 3@<:s><:#P30670848,P1038090>RetNameComp = strfield$(RetNameAdd, 1, "~") @Outline 3@<:s><:#P30670848,P1038090>If RetNameComp = GetName @Outline 4@<:s><:#P30670848,P1038090>dim Line(MAXLINES) @Outline 4@<:s><:#P30670848,P1038090>crlf = strcat$(CHR$ (13), CHR$ (10)) @Outline 4@<:s><:#P30670848,P1038090>For i = 1 to MAXLINES @Outline 5@<:s><:#P30670848,P1038090>Line(i) = strfield$(RetNameAdd, i, "~") @Outline 5@<:s><:#P30670848,P1038090>If i = 1 @Outline 6@<:s><:#P30670848,P1038090>TextToBox = Line(i) @Outline 5@<:s><:#P30670848,P1038090>Elseif Line(i) != -1 @Outline 6@<:s><:#P30670848,P1038090>TextToBox = strcat$(TextToBox, crlf, Line(i)) @Outline 5@<:s><:#P30670848,P1038090>Else @Outline 6@<:s><:#P30670848,P1038090>Goto Endit @Outline 5@<:s><:#P30670848,P1038090>Endif @Outline 4@<:s><:#P30670848,P1038090>Next @Outline 3@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>Next @Outline 2@<:s><:#P30670848,P1038090>Endit: @Outline 2@<:s><:#P30670848,P1038090>SetDlgItemText(hdlg, 8002, TextToBox) @Function@<:s><:#P30670848,P1918894>End Function @Function@<:s><:#P30670848,P1918894> @Function@<:s><:#P30670848,P1918894>Function FillRetTitleBox(hDlg, Id) 'Fill the return address name box @Outline 2@<:s><:#P30670848,P1038090>IgnoreKeyboard(2) @Outline 2@<:s><:#P30670848,P1038090>Index = 0 @Outline 2@<:s><:#P30670848,P1038090>NumNames = GetProfileString$(INI_ADDRESS, "NumNames", INI_ADDRESS_FILE) @Outline 2@<:s><:#P30670848,P1038090>GetDef = GetProfileString$(INI_ENV_DEFAULTS, "RetName", INI_ADDRESS_FILE) @Outline 2@<:s><:#P30670848,P1038090>dim RetAddName(NumNames) @Outline 2@<:s><:#P30670848,P1038090>For i = 1 to NumNames @Outline 3@<:s><:#P30670848,P1038090>RetAddName(i) = GetProfileString$(INI_ADDRESS, "Name{i}", INI_ADDRESS_FILE) @Outline 2@<:s><:#P30670848,P1038090>Next @Outline 2@<:s><:#P30670848,P1038090>ArraySort(&RetAddName) ' Sort the names. @Outline 2@<:s><:#P30670848,P1038090>For i = 1 to NumNames @Outline 3@<:s><:#P30670848,P1038090>RetName = RetAddName(i) @Outline 3@<:s><:#P30670848,P1038090>RetName = strfield$(RetName, 1, "~") @Outline 3@<:s><:#P30670848,P1038090>If RetName <<<;> NULL @Outline 4@<:s><:#P30670848,P1038090>SetDlgItemText(hDlg, 9502, RetName) @Comments@<:s><:#P30670848,P802161> @Comments@<:s><:#P30670848,P802161>'Finds the last used return name and sets the index === @Outline 4@<:s><:#P30670848,P1038090>If GetDef = RetName @Outline 5@<:s><:#P30670848,P1038090>RetNameIndex = Index @Outline 4@<:s><:#P30670848,P1038090>Endif @Outline 4@<:s><:#P30670848,P1038090>Index = Index + 1 @Outline 4@<:s><:#P30670848,P1038090> @Outline 3@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>Next @Outline 2@<:s><:#P30670848,P1038090>If RetNameIndex = NULL @Outline 3@<:s><:#P30670848,P1038090>RetNameIndex = 0 @Outline 2@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>DlgSetListBoxIndex(hDlg, 9502, RetNameIndex) @Function@<:s><:#P30670848,P1918894>End Function <:s><:#P30670848,P943718> @Function@<:s><:#P30670848,P1918894> @Function@<:s><:#P30670848,P1918894>Function FillPrinterBox(hDlg, id) ' Fill the printer name box. @Outline 2@<:s><:#P30670848,P1038090>'singlestep(1) @Outline 2@<:s><:#P30670848,P1038090>IgnoreKeyboard(2) @Outline 2@<:s><:#P30670848,P1038090>Index = 0 @Outline 2@<:s><:#P30670848,P1038090>ini_section = INI_ENV_DEFAULTS @Outline 2@<:s><:#P30670848,P1038090>GetDef = GetProfileString$(ini_section, "Printer", INI_FILE) @Outline 2@<:s><:#P30670848,P1038090> @Outline 2@<:s><:#P30670848,P1038090>if (.Document.Printer.Stack()) @Outline 3@<:s><:#P30670848,P1038090>dim prts(100) @Outline 3@<:s><:#P30670848,P1038090>dim streams(100) @Outline 3@<:s><:#P30670848,P1038090>pcnt = .Enumerate(Printer, 0, &prts) @Outline 3@<:s><:#P30670848,P1038090>if (pcnt <;> 0) @Outline 4@<:s><:#P30670848,P1038090>for i = 1 to pcnt @Outline 5@<:s><:#P30670848,P1038090>p = prts(i) @Outline 6@<:s><:#P30670848,P1038090>if (.Object(p).Stack()) @Outline7@<:s><:#P30670848,P1038090>scnt = .Enumerate(Stream, 0, &streams) @Outline7@<:s><:#P30670848,P1038090>if (scnt <;> 0) @Outline8@<:s><:#P30670848,P1038090>for j = 1 to scnt @Outline8@<:s><:#P30670848,P1038090>Str = streams(j) @Outline8@<:s><:#P30670848,P1038090>SetDlgItemText(hDlg, 9500, Str) @Comments@<:s><:#P30670848,P802161>'Get last printer index # @Outline8@<:s><:#P30670848,P1038090>If GetDef = Str @Outline8@<:s><:#P30670848,P1038090>PrinterIndex = Index @Outline8@<:s><:#P30670848,P1038090>Endif @Outline8@<:s><:#P30670848,P1038090>Index = Index + 1 @Outline8@<:s><:#P30670848,P1038090>next @Outline7@<:s><:#P30670848,P1038090>endif @Outline7@<:s><:#P30670848,P1038090>UnStack(1) @Outline 6@<:s><:#P30670848,P1038090>endif @Outline 5@<:s><:#P30670848,P1038090>next @Outline 4@<:s><:#P30670848,P1038090>endif @Outline 3@<:s><:#P30670848,P1038090>UnStack(2) @Outline 3@<:s><:#P30670848,P1038090>endif @Outline 2@<:s><:#P30670848,P1038090>If PrinterIndex = NULL @Outline 3@<:s><:#P30670848,P1038090>PrinterIndex = 0 @Outline 2@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>DlgSetListBoxIndex(hDlg, 9500, PrinterIndex) @Outline 2@<:s><:#P30670848,P1038090>PrinterName = GetDlgItemText(hDlg, 9500) @Outline 2@<:s><:#P30670848,P1038090>NoPrinterSect = GetGlobalVar$("NoPrinterSect") @Outline 2@<:s><:#P30670848,P1038090>If NoPrinterSect = 1 @Outline 3@<:s><:#P30670848,P1038090>NewPrintDef(PrinterName) @Outline 3@<:s><:#P30670848,P1038090>SetGlobalVar("NoPrinterSect", 0) @Outline 3@<:s><:#P30670848,P1038090>SetGlobalVar("ini_section", PrinterName) @Outline 2@<:s><:#P30670848,P1038090>Endif @Function@<:s><:#P30670848,P1918894>End Function @Function@<:s><:#P30670848,P1918894> @Function@<:s><:#P30670848,P1918894>Function FillEnvelopeSizesBox(hDlg, Id) ' Fill the envelope sizes box. @Outline 2@<:s><:#P30670848,P1038090>IgnoreKeyboard(2) @Outline 2@<:s><:#P30670848,P1038090>MacPath = GetGlobalVar$("macpath") @Outline 2@<:s><:#P30670848,P1038090>NumSizes = GetProfileString$(INI_SETUP_ENV, "NumSizes", INI_SETUP) @Outline 2@<:s><:#P30670848,P1038090>AllocGlobalVar("EnvSizes", NumSizes) @Outline 2@<:s><:#P30670848,P1038090>ini_section = GetGlobalVar$("ini_section") @Outline 2@<:s><:#P30670848,P1038090>Index = 0 @Outline 2@<:s><:#P30670848,P1038090>Dim EnvSizes(NumSizes) @Outline 2@<:s><:#P30670848,P1038090>HasRun = GetGlobalVar$("HasRunEnvSize") @Outline 2@<:s><:#P30670848,P1038090>If HasRun <<= 0 @Outline 3@<:s><:#P30670848,P1038090>GetDef = GetProfileString$(ini_section, "EnvSize", INI_FILE) @Outline 3@<:s><:#P30670848,P1038090>If GetDef = NULL @Outline 4@<:s><:#P30670848,P1038090>GetDef = GetProfileString$(INI_ENV_DEFAULTS, "EnvSize", INI_FILE) @Outline 3@<:s><:#P30670848,P1038090>Endif @Outline 3@<:s><:#P30670848,P1038090>For i = 1 to NumSizes @Outline 4@<:s><:#P30670848,P1038090>SetSize = GetProfileString$(INI_SETUP_ENV, "Size{i}", INI_SETUP) @Outline 4@<:s><:#P30670848,P1038090>SetGlobalArray("EnvSizes", i, SetSize) @Outline 3@<:s><:#P30670848,P1038090>Next @Outline 3@<:s><:#P30670848,P1038090>SetGlobalVar("HasRunEnvSize", NumSizes) @Outline 2@<:s><:#P30670848,P1038090>Elseif GetGlobalVar$("ChangePrinter") = 1 @Outline 3@<:s><:#P30670848,P1038090>GetDef = GetProfileString$(ini_section, "EnvSize", INI_FILE) @Outline 3@<:s><:#P30670848,P1038090>If GetDef = NULL @Outline 4@<:s><:#P30670848,P1038090>ini_section = INI_ENV_DEFAULTS @Outline 4@<:s><:#P30670848,P1038090> GetDef = GetProfileString$(ini_section, "EnvSize", INI_FILE) @Outline 3@<:s><:#P30670848,P1038090>Endif @Outline 3@<:s><:#P30670848,P1038090>SetGlobalVar("ChangePrinter", 0) @Outline 2@<:s><:#P30670848,P1038090>Else @Outline 3@<:s><:#P30670848,P1038090>GetDef = GetDlgItemText(hDlg, 9501) @Outline 2@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>'DlgClearControl(hDlg, 9501) @Outline 2@<:s><:#P30670848,P1038090>For i = 1 to NumSizes @Outline 3@<:s><:#P30670848,P1038090>EnvSize = GetGlobalArray$("EnvSizes", i) @Outline 3@<:s><:#P30670848,P1038090>EnvSizeName = strfield$(EnvSize, 1, "~") @Outline 3@<:s><:#P30670848,P1038090>If EnvSizeName <<<;> NULL @Outline 4@<:s><:#P30670848,P1038090>If HasRun <<=0 @Outline 5@<:s><:#P30670848,P1038090>SetDlgItemText(hDlg, 9501, EnvSizeName) @Outline 4@<:s><:#P30670848,P1038090>Endif @Comments@<:s><:#P30670848,P802161>'Get last envelope size @Outline 4@<:s><:#P30670848,P1038090>If GetDef = EnvSizeName @Outline 5@<:s><:#P30670848,P1038090>EnvSizeIndex = Index @Outline 4@<:s><:#P30670848,P1038090>Endif @Outline 4@<:s><:#P30670848,P1038090>Index = Index + 1 @Outline 3@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>Next @Outline 2@<:s><:#P30670848,P1038090>If GetDef = "Custom envelope" @Outline 3@<:s><:#P30670848,P1038090>EnvWidth = ConvertToUnits(GetProfileString(ini_section, "CustomWidth", INI_FILE)) @Outline 3@<:s><:#P30670848,P1038090>EnvHeight = ConvertToUnits(GetProfileString(ini_section, "CustomHeight", INI_FILE)) @Outline 2@<:s><:#P30670848,P1038090>Else @Outline 3@<:s><:#P30670848,P1038090>EnvSect = GetGlobalArray$("EnvSizes", EnvSizeIndex+1) @Outline 3@<:s><:#P30670848,P1038090>EnvSect = strfield$(EnvSect, 2, "~") @Outline 3@<:s><:#P30670848,P1038090>EnvPgSize = GetProfileString$(EnvSect, "EnvPgSize2", INI_SETUP) @Outline 3@<:s><:#P30670848,P1038090>EnvWidth = ConvertToUnits(strfield$(EnvPgSize, 2, "~")) @Outline 3@<:s><:#P30670848,P1038090>EnvHeight = ConvertToUnits(strfield$(EnvPgSize, 1, "~")) @Outline 2@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>SetDlgItemText(hDlg, 8004, EnvWidth) @Outline 2@<:s><:#P30670848,P1038090>SetDlgItemText(hDlg, 8003, EnvHeight) @Outline 2@<:s><:#P30670848,P1038090>DlgSetListBoxIndex(hDlg, 9501, EnvSizeIndex) @Function@<:s><:#P30670848,P1918894>End Function @Outline 2@<:s><:#P30670848,P1038090> @Function@<:s><:#P30670848,P1918894> @Function@<:s><:#P30670848,P1918894>Function SetCustomEnvSize(hDlg, Id) ' Fill the envelope sizes box. @Outline 2@<:s><:#P30670848,P1038090>IgnoreKeyboard(2) @Outline 2@<:s><:#P30670848,P1038090>MacPath = GetGlobalVar$("macpath") @Outline 2@<:s><:#P30670848,P1038090>GetCurrSize = GetDlgItemText(hDlg, 9501) @Outline 2@<:s><:#P30670848,P1038090>If GetCurrSize = "Custom envelope" @Outline 3@<:s><:#P30670848,P1038090>Exit Function @Outline 2@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>NumSizes = GetProfileString$(INI_SETUP_ENV, "NumSizes", INI_SETUP) @Outline 2@<:s><:#P30670848,P1038090>Index = 0 @Outline 2@<:s><:#P30670848,P1038090>For i = 1 to NumSizes @Outline 3@<:s><:#P30670848,P1038090>EnvSizes = GetProfileString$(INI_SETUP_ENV, "Size{i}", INI_SETUP) @Outline 3@<:s><:#P30670848,P1038090>EnvSizeName = strfield$(EnvSizes, 1, "~") @Outline 3@<:s><:#P30670848,P1038090>If EnvSizeName <<<;> NULL @Outline 4@<:s><:#P30670848,P1038090>If EnvSizeName = "Custom envelope" @Outline 5@<:s><:#P30670848,P1038090>EnvSizeIndex = Index @Outline 4@<:s><:#P30670848,P1038090>Endif @Outline 4@<:s><:#P30670848,P1038090>Index = Index + 1 @Outline 3@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>Next @Outline 2@<:s><:#P30670848,P1038090>DlgSetListBoxIndex(hDlg, 9501, EnvSizeIndex) @Function@<:s><:#P30670848,P1918894>End Function @Function@<:s><:#P30670848,P1918894> @Function@<:s><:#P30670848,P1918894>Function EnvSettings(hDlg, Id) ' Initialize Envelope Settings Dialog box. @Outline 2@<:s><:#P30670848,P1038090>'singlestep(1) @Outline 2@<:s><:#P30670848,P1038090>IgnoreKeyboard(2) @Outline 2@<:s><:#P30670848,P1038090>MacPath = GetGlobalVar$("macpath") @Outline 2@<:s><:#P30670848,P1038090>ini_section = GetGlobalVar$("ini_section") @Outline 2@<:s><:#P30670848,P1038090>Position = GetProfileString$(ini_section, "Position", INI_FILE) @Outline 2@<:s><:#P30670848,P1038090>If Position = NULL @Outline 3@<:s><:#P30670848,P1038090>ini_section = INI_ENV_DEFAULTS @Outline 3@<:s><:#P30670848,P1038090>Position = GetProfileString$(ini_section, "Position", INI_FILE) @Outline 2@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>Orientation = GetProfileString$(ini_section, "Orientation", INI_FILE) @Outline 2@<:s><:#P30670848,P1038090>Switch Position @Outline 3@<:s><:#P30670848,P1038090>Case 1 @Outline 4@<:s><:#P30670848,P1038090>FillEdit(22, 1) @Outline 3@<:s><:#P30670848,P1038090>Case 2 @Outline 4@<:s><:#P30670848,P1038090>FillEdit(23, 1) @Outline 3@<:s><:#P30670848,P1038090>Case 3 @Outline 4@<:s><:#P30670848,P1038090>FillEdit(24, 1) @Outline 2@<:s><:#P30670848,P1038090>EndSwitch @Outline 2@<:s><:#P30670848,P1038090>Switch Orientation @Outline 3@<:s><:#P30670848,P1038090>Case "Portrait" @Outline 4@<:s><:#P30670848,P1038090>FillEdit(30, 1) @Outline 3@<:s><:#P30670848,P1038090>Case "Landscape" @Outline 4@<:s><:#P30670848,P1038090>FillEdit(31, 1) @Outline 2@<:s><:#P30670848,P1038090>EndSwitch @Outline 2@<:s><:#P30670848,P1038090>SetDlgCallback(40, "AdjustSettings") @Outline 2@<:s><:#P30670848,P1038090>DlgSetHelpNumber(238) @Outline 2@<:s><:#P30670848,P1038090>Box = DialogBox(DIALOG_BOX, "EnvSettings") @Outline 2@<:s><:#P30670848,P1038090>ini_section = GetGlobalVar$("ini_section") @Outline 2@<:s><:#P30670848,P1038090>For i = 22 to 24 @Outline 3@<:s><:#P30670848,P1038090>NewPosition = GetDialogField$(i) @Outline 3@<:s><:#P30670848,P1038090>If NewPosition = 1 @Outline 4@<:s><:#P30670848,P1038090>If i = 22 @Outline 5@<:s><:#P30670848,P1038090>WriteProfileString(ini_section, "Position", 1, INI_FILE) @Outline 4@<:s><:#P30670848,P1038090>ElseIf i = 23 @Outline 5@<:s><:#P30670848,P1038090>WriteProfileString(ini_section, "Position", 2, INI_FILE) @Outline 4@<:s><:#P30670848,P1038090>Else @Outline 5@<:s><:#P30670848,P1038090>WriteProfileString(ini_section, "Position", 3, INI_FILE) @Outline 4@<:s><:#P30670848,P1038090>Endif @Outline 3@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>Next @Outline 2@<:s><:#P30670848,P1038090>For i = 30 to 31 @Outline 3@<:s><:#P30670848,P1038090>NewOrient = GetDialogField$(i) @Outline 3@<:s><:#P30670848,P1038090>If NewOrient = 1 @Outline 4@<:s><:#P30670848,P1038090>If i = 30 @Outline 5@<:s><:#P30670848,P1038090>WriteProfileString(ini_section, "Orientation", "Portrait", INI_FILE) @Outline 4@<:s><:#P30670848,P1038090>Elseif i = 31 @Outline 5@<:s><:#P30670848,P1038090>WriteProfileString(ini_section, "Orientation", "Landscape", INI_FILE) @Outline 4@<:s><:#P30670848,P1038090>Endif @Outline 3@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>Next @Function@<:s><:#P30670848,P1918894>End Function @Outline 2@<:s><:#P30670848,P1038090> @Function@<:s><:#P30670848,P1918894> @Modules@<:s><:#P30670848,P1918894>'Address functions @Function@<:s><:#P30670848,P1918894>Function AddAddress(HDlg, Id) ' Get the return address to add @Outline 2@<:s><:#P30670848,P1038090>'Singlestep(1) @Outline 2@<:s><:#P30670848,P1038090>IgnoreKeyboard(2) @Outline 2@<:s><:#P30670848,P1038090>NewAddress = GetDlgItemText(Hdlg, 8002) @Outline 2@<:s><:#P30670848,P1038090>crlf = strcat$(CHR$ (13), CHR$ (10)) @Outline 2@<:s><:#P30670848,P1038090>NewAddressTitle = strfield$(NewAddress, 1, crlf) @Outline 2@<:s><:#P30670848,P1038090>NumNames = GetProfileString$(INI_ADDRESS, "NumNames", INI_ADDRESS_FILE) @Outline 2@<:s><:#P30670848,P1038090> @Comments@<:s><:#P30670848,P802161>'Look for existing return names @Outline 2@<:s><:#P30670848,P1038090>For i = 1 to NumNames @Outline 3@<:s><:#P30670848,P1038090>CompName = GetProfileString$(INI_ADDRESS, "Name{i}", INI_ADDRESS_FILE) @Outline 3@<:s><:#P30670848,P1038090>CompName = StrField$(CompName, 1, "~") @Outline 3@<:s><:#P30670848,P1038090>If CompName = NULL @Outline 4@<:s><:#P30670848,P1038090>NewNameIndexNull = i @Outline 3@<:s><:#P30670848,P1038090>Endif @Outline 3@<:s><:#P30670848,P1038090>If NewAddressTitle = CompName @Outline 4@<:s><:#P30670848,P1038090>ReplaceIt = decide(REPLACE_RETURN) @Outline 4@<:s><:#P30670848,P1038090>If ReplaceIt = 1 @Outline 5@<:s><:#P30670848,P1038090>InsertAddress(i, NewAddress) @Outline 5@<:s><:#P30670848,P1038090>WriteProfileString(INI_ADDRESS, "NumNames", i, INI_ADDRESS_FILE) @Outline 5@<:s><:#P30670848,P1038090>Exit Function @Outline 4@<:s><:#P30670848,P1038090>Elseif ReplaceIt <<<;> 1 @Outline 5@<:s><:#P30670848,P1038090>Exit Function @Outline 4@<:s><:#P30670848,P1038090>Endif @Outline 3@<:s><:#P30670848,P1038090>Endif @Outline 3@<:s><:#P30670848,P1038090>NewNameIndex = i @Outline 2@<:s><:#P30670848,P1038090>Next @Outline 2@<:s><:#P30670848,P1038090>If CompName <<<;> NULL @Outline 3@<:s><:#P30670848,P1038090>NewNameIndex = NewNameIndex + 1 @Outline 3@<:s><:#P30670848,P1038090>InsertAddress(NewNameIndex, NewAddress) @Outline 3@<:s><:#P30670848,P1038090>NumNames = NumNames + 1 @Outline 3@<:s><:#P30670848,P1038090>WriteProfileString(INI_ADDRESS, "NumNames", NumNames, INI_ADDRESS_FILE) @Outline 2@<:s><:#P30670848,P1038090>Else @Outline 3@<:s><:#P30670848,P1038090>InsertAddress(NewNameIndexNull, NewAddress) @Outline 2@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>NewNameIndex = NewNameIndex - 1 @Outline 2@<:s><:#P30670848,P1038090>DlgListBoxInsertItem(hDlg, 9502, NewNameIndex, NewAddressTitle) @Outline 2@<:s><:#P30670848,P1038090>DlgSetListBoxIndex(hDlg, 9502, NewNameIndex) @Function@<:s><:#P30670848,P1918894>End Function @Function@<:s><:#P30670848,P1918894> @Function@<:s><:#P30670848,P2894070>Function InsertAddress(NewNameNum, Address) 'Write the return address to the INI file @Outline 2@<:s><:#P30670848,P1038090>IgnoreKeyboard(2) @Outline 2@<:s><:#P30670848,P1038090>crlf = strcat$(CHR$ (13), CHR$ (10)) @Outline 2@<:s><:#P30670848,P1038090>For i = 1 to MAXLINES @Outline 3@<:s><:#P30670848,P1038090>GetAddress = Strfield$(Address, i, crlf) @Outline 3@<:s><:#P30670848,P1038090>If GetAddress = -1 @Outline 4@<:s><:#P30670848,P1038090>Break @Outline 3@<:s><:#P30670848,P1038090>Endif @Outline 3@<:s><:#P30670848,P1038090>If i = 1 @Outline 4@<:s><:#P30670848,P1038090>NewAddress = GetAddress @Outline 3@<:s><:#P30670848,P1038090>Else @Outline 4@<:s><:#P30670848,P1038090>NewAddress = Strcat$(NewAddress, "~", Mid$(GetAddress, 2, "45")) @Outline 3@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>Next @Outline 2@<:s><:#P30670848,P1038090>WriteProfileString(INI_ADDRESS, "Name{NewNameNum}", NewAddress, INI_ADDRESS_FILE) @Function@<:s><:#P30670848,P1918894>End Function @Function@<:s><:#P30670848,P1918894> @Function@<:s><:#P30670848,P1918894>Function DeleteRetName(hDlg, ID, text) ' Delete the return address. @Outline 2@<:s><:#P30670848,P1038090>'singlestep(1) @Outline 2@<:s><:#P30670848,P1038090>IgnoreKeyboard(2) @Outline 2@<:s><:#P30670848,P1038090>NumNames = GetProfileString$(INI_ADDRESS, "NumNames", INI_ADDRESS_FILE) @Outline 2@<:s><:#P30670848,P1038090>NameToDelete = GetDlgItemText(hDlg, 9502) @Outline 2@<:s><:#P30670848,P1038090>USure = Decide(DELETE_RETURN) @Outline 2@<:s><:#P30670848,P1038090>If Usure = 1 @Outline 3@<:s><:#P30670848,P1038090>For i = 1 to NumNames @Outline 4@<:s><:#P30670848,P1038090>CompName = GetProfileString$(INI_ADDRESS, "Name{i}", INI_ADDRESS_FILE) @Outline 4@<:s><:#P30670848,P1038090>CompName = strfield$(CompName, 1, "~") @Outline 4@<:s><:#P30670848,P1038090>If CompName = NameToDelete @Outline 5@<:s><:#P30670848,P1038090>WriteProfileString(INI_ADDRESS, "Name{i}", NULL, INI_ADDRESS_FILE) @Outline 5@<:s><:#P30670848,P1038090>Index = DlgGetListBoxIndex(hDlg, 9502) @Outline 5@<:s><:#P30670848,P1038090>DlgListBoxDeleteItem(hDlg, 9502, Index) @Outline 5@<:s><:#P30670848,P1038090>DlgSetListBoxIndex(hDlg, 9502, 0) @Outline 5@<:s><:#P30670848,P1038090>DlgClearControl(hDlg, 8002) @Comments@<:s><:#P30670848,P802161> @Comments@<:s><:#P30670848,P802161>'Call the function to fill the ret box and pass hDlg to it @Outline 5@<:s><:#P30670848,P1038090>Call FillRetAddBox(hDlg, 9502) @Outline 5@<:s><:#P30670848,P1038090> @Outline 5@<:s><:#P30670848,P1038090>Exit Function @Outline 4@<:s><:#P30670848,P1038090>Endif @Outline 3@<:s><:#P30670848,P1038090>Next @Outline 2@<:s><:#P30670848,P1038090>Else @Outline 3@<:s><:#P30670848,P1038090>Exit Function @Outline 2@<:s><:#P30670848,P1038090>Endif @Function@<:s><:#P30670848,P1918894>End Function @Function@<:s><:#P30670848,P1918894> @Function@<:s><:#P30670848,P1918894>Function GetAddrs(AddrsText) ' If no recipient address. @Outline 2@<:s><:#P30670848,P1038090>IgnoreKeyboard(2) @Outline 2@<:s><:#P30670848,P1038090>macpath = GetGlobalVar$("macpath") @Outline 2@<:s><:#P30670848,P1038090>Box = DialogBox(DIALOG_BOX, "Adrs"); @Outline 2@<:s><:#P30670848,P1038090>If box = -1 @Outline 3@<:s><:#P30670848,P1038090>Exit Function @Outline 2@<:s><:#P30670848,P1038090>ElseIf box = 0 @Outline 3@<:s><:#P30670848,P1038090>Exit Function @Outline 2@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>*AddrsText = GetDialogField$(8002); @Function@<:s><:#P30670848,P1918894>End Function @Function@<:s><:#P30670848,P1918894> @Modules@<:s><:#P30670848,P1918894>'Modify page sizes @Function@<:s><:#P30670848,P2894070>Function ModEnvPage(EnvSize, EnvFeed, Width, Height) ' Modify the page layout to the selected env size. @Outline 2@<:s><:#P30670848,P1038090>'Singlestep(1) @Outline 2@<:s><:#P30670848,P1038090>IgnoreKeyboard(2) @Outline 2@<:s><:#P30670848,P1038090>ini_section = GetGlobalVar$("ini_section") @Outline 2@<:s><:#P30670848,P1038090>MacPath = GetGlobalVar$("macpath") @Outline 2@<:s><:#P30670848,P1038090>NumSizes = GetProfileString$(INI_SETUP_ENV, "NumSizes", INI_SETUP) @Outline 2@<:s><:#P30670848,P1038090>Orientation = GetProfileString$(ini_section, "Orientation", INI_FILE) @Outline 2@<:s><:#P30670848,P1038090>Cnt = 4 @Outline 2@<:s><:#P30670848,P1038090>CntH = 4 @Outline 2@<:s><:#P30670848,P1038090>CntF = 4 @Outline 2@<:s><:#P30670848,P1038090>For i = 1 to NumSizes @Outline 3@<:s><:#P30670848,P1038090>GetSize = GetProfileString$(INI_SETUP_ENV, "Size{i}", INI_SETUP) @Outline 3@<:s><:#P30670848,P1038090>CompSize = strfield$(GetSize, 1, "~") @Outline 3@<:s><:#P30670848,P1038090>If EnvSize = CompSize @Outline 4@<:s><:#P30670848,P1038090>EnvSize = strfield$(GetSize, 2, "~") @Outline 4@<:s><:#P30670848,P1038090>break @Outline 3@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>Next @Outline 2@<:s><:#P30670848,P1038090>IsSetting = strfield$(GetSize, 2, "~") @Outline 2@<:s><:#P30670848,P1038090>If IsSetting = -1 @Outline 3@<:s><:#P30670848,P1038090>Message(NO_ENV_SIZE_SETTINGS) @Outline 3@<:s><:#P30670848,P1038090>Return (IsSetting) @Outline 2@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090> @Comments@<:s><:#P30670848,P802161>'Get the parameters for the custom page layout from the INI file. @Outline 2@<:s><:#P30670848,P1038090>Dim Pl(Cnt) @Outline 2@<:s><:#P30670848,P1038090>Dim Hd(CntH) @Outline 2@<:s><:#P30670848,P1038090>Dim Ft(CntF) @Outline 2@<:s><:#P30670848,P1038090>Dim EnvPgSz(4) @Outline 2@<:s><:#P30670848,P1038090>If EnvFeed = 1 or Orientation = "Portrait" @Outline 3@<:s><:#P30670848,P1038090>EnvPg = GetProfileString$(EnvSize, "EnvPgLayout2", INI_SETUP) @Outline 3@<:s><:#P30670848,P1038090>EnvHd = GetProfileString$(EnvSize, "EnvHdLayout2", INI_SETUP) @Outline 3@<:s><:#P30670848,P1038090>EnvFt = GetProfileString$(EnvSize, "EnvFtLayout2", INI_SETUP) @Outline 3@<:s><:#P30670848,P1038090>EnvPgSize = GetProfileString$(EnvSize, "EnvPgSize2", INI_SETUP) @Outline 2@<:s><:#P30670848,P1038090>Else @Outline 3@<:s><:#P30670848,P1038090>EnvPg = GetProfileString$(EnvSize, "EnvPgLayout", INI_SETUP) @Outline 3@<:s><:#P30670848,P1038090>EnvHd = GetProfileString$(EnvSize, "EnvHdLayout", INI_SETUP) @Outline 3@<:s><:#P30670848,P1038090>EnvFt = GetProfileString$(EnvSize, "EnvFtLayout", INI_SETUP) @Outline 3@<:s><:#P30670848,P1038090>EnvPgSize = GetProfileString$(EnvSize, "EnvPgSize", INI_SETUP) @Outline 2@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>For i = 1 to 4 @Outline 3@<:s><:#P30670848,P1038090>EnvPgSz(i) = Strfield$(EnvPgSize, i, "~") @Outline 3@<:s><:#P30670848,P1038090>Pl(i) = Strfield$(EnvPg, i, "~") @Outline 3@<:s><:#P30670848,P1038090>Hd(i) = Strfield$(EnvHd, i, "~") @Outline 3@<:s><:#P30670848,P1038090>Ft(i) = Strfield$(EnvFt, i, "~") @Outline 2@<:s><:#P30670848,P1038090>Next @Outline 2@<:s><:#P30670848,P1038090> @Comments@<:s><:#P30670848,P802161>'See if it is a custom envelope @Outline 2@<:s><:#P30670848,P1038090>If EnvSize = "Custom" @Outline 3@<:s><:#P30670848,P1038090>Pl(1) = Width + (15840 - (Width/CUST_ENV_SIZE_PARM)) @Outline 3@<:s><:#P30670848,P1038090>Pl(2) = Height + (Height * 0.06) @Outline 3@<:s><:#P30670848,P1038090>Hd(1) = (16340) - (Width/CUST_ENV_SIZE_PARM) @Outline 2@<:s><:#P30670848,P1038090>Endif @Comments@<:s><:#P30670848,P802161> @Comments@<:s><:#P30670848,P802161>'See if the position is set for Left, Center or Right @Outline 2@<:s><:#P30670848,P1038090>If Orientation <<<;> "Portrait" @Outline 3@<:s><:#P30670848,P1038090>Position = GetProfileString$(ini_section, "Position", INI_FILE) @Outline 3@<:s><:#P30670848,P1038090>If Position = 2 @Outline 4@<:s><:#P30670848,P1038090>Pl(2) = Pl(2) + 3240 @Outline 4@<:s><:#P30670848,P1038090>Hd(2) = Hd(2) + 3240 @Outline 3@<:s><:#P30670848,P1038090>Elseif Position = 3 @Outline 4@<:s><:#P30670848,P1038090>Pl(2) = Pl(2) + 6264 @Outline 4@<:s><:#P30670848,P1038090>Hd(2) = Hd(2) + 6264 @Outline 4@<:s><:#P30670848,P1038090>Ft(1) = 0 @Outline 3@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090> @Comments@<:s><:#P30670848,P802161>'See if it is portait or landscape @Outline 2@<:s><:#P30670848,P1038090>If Orientation = "Portrait" and EnvSize <<<;> "Custom" @Outline 3@<:s><:#P30670848,P1038090>beginChange() @Outline 3@<:s><:#P30670848,P1038090>endChange(1) @Outline 3@<:s><:#P30670848,P1038090>.page.layout.style.right.orientation = 0 @Outline 2@<:s><:#P30670848,P1038090>Elseif (Orientation = "Portrait" or EnvFeed = 1) and EnvSize = "Custom" @Outline 3@<:s><:#P30670848,P1038090>EnvPgSz(1) = (Height / 0.4) @Outline 3@<:s><:#P30670848,P1038090>EnvPgSz(2) = (Width / 0.4) @Outline 3@<:s><:#P30670848,P1038090>Pl(1) = Width @Outline 3@<:s><:#P30670848,P1038090>Pl(2) = Height +360 @Outline 3@<:s><:#P30670848,P1038090>Hd(1) = 500 @Outline 3@<:s><:#P30670848,P1038090>Hd(2) = 500 @Outline 3@<:s><:#P30670848,P1038090>Ft(2) = 1440 @Outline 3@<:s><:#P30670848,P1038090>beginChange() @Outline 3@<:s><:#P30670848,P1038090>If Orientation = "Portrait" @Outline 4@<:s><:#P30670848,P1038090>.page.layout.style.right.orientation = 0 @Outline 3@<:s><:#P30670848,P1038090>Endif @Outline 3@<:s><:#P30670848,P1038090>endChange(1) @Outline 2@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090> @Comments@<:s><:#P30670848,P802161>'Modify the page layout of the "untitled" file using parameters from INI file. @Outline 3@<:s><:#P30670848,P1038090>'singlestep(1) @Outline 2@<:s><:#P30670848,P1038090> @Comments@<:s><:#P30670848,P802161>'Adjust envelope @Outline 2@<:s><:#P30670848,P1038090>Adjust = GetProfileString$(ini_section, "AdjAmount", INI_FILE) @Outline 2@<:s><:#P30670848,P1038090>Hd(1) = Hd(1) + strfield$(Adjust, 2, "~") @Outline 2@<:s><:#P30670848,P1038090>Hd(2) = Hd(2) + strfield$(Adjust, 1, "~") @Outline 2@<:s><:#P30670848,P1038090>Pl(1) = Pl(1) + strfield$(Adjust, 4, "~") @Outline 2@<:s><:#P30670848,P1038090>Pl(2) = Pl(2) + strfield$(Adjust, 3, "~") @Outline 2@<:s><:#P30670848,P1038090> @Outline 2@<:s><:#P30670848,P1038090>BeginChange() @Outline 3@<:s><:#P30670848,P1038090>.Page.Layout.Style.Right.Stack() @Outline 4@<:s><:#P30670848,P1038090>.Height = TwipsToUnits(EnvPgSz(1)) @Outline 4@<:s><:#P30670848,P1038090>.Width = TwipsToUnits(EnvPgSz(2)) @Outline 4@<:s><:#P30670848,P1038090>.Left = TwipsToUnits(Pl(1)) @Outline 4@<:s><:#P30670848,P1038090>.Right =TwipsToUnits(Pl(3)) @Outline 4@<:s><:#P30670848,P1038090>.Top = TwipsToUnits(Pl(2)) @Outline 4@<:s><:#P30670848,P1038090>.Bottom = TwipsToUnits(Pl(4)) @Outline 3@<:s><:#P30670848,P1038090>unstack(1) @Outline 3@<:s><:#P30670848,P1038090>.header.stack() @Outline 4@<:s><:#P30670848,P1038090>.Left =TwipsToUnits(Hd(1)) @Outline 4@<:s><:#P30670848,P1038090>.Right =TwipsToUnits(Hd(3)) @Outline 4@<:s><:#P30670848,P1038090>.Top = TwipsToUnits(Hd(2)) @Outline 4@<:s><:#P30670848,P1038090>.Bottom = TwipsToUnits(Hd(4)) @Outline 3@<:s><:#P30670848,P1038090>unstack(1) @Outline 3@<:s><:#P30670848,P1038090>.footer.stack() @Outline 4@<:s><:#P30670848,P1038090>.Left =TwipsToUnits(Ft(1)) @Outline 4@<:s><:#P30670848,P1038090>.Right =TwipsToUnits(Ft(3)) @Outline 4@<:s><:#P30670848,P1038090>.Top = TwipsToUnits(Ft(2)) @Outline 4@<:s><:#P30670848,P1038090>.Bottom = TwipsToUnits(Ft(4)) @Outline 3@<:s><:#P30670848,P1038090>unstack(5) @Outline 2@<:s><:#P30670848,P1038090>EndChange(1) @Function@<:s><:#P30670848,P1918894>End Function @Function@<:s><:#P30670848,P1918894> @Function@<:s><:#P30670848,P1918894>Function CustomSize(Size) @Outline 2@<:s><:#P30670848,P1038090>IgnoreKeyboard(2) @Outline 2@<:s><:#P30670848,P1038090>CustomSize = (CUST_ENV_SIZE_PARM * Size) @Outline 2@<:s><:#P30670848,P1038090>Return (CustomSize) @Function@<:s><:#P30670848,P1918894>End Function @Function@<:s><:#P30670848,P1918894> @Function@<:s><:#P30670848,P1918894>Function AdjustSettings(hDlg, Id) @Comments@<:s><:#P30670848,P802161>'Fill the dialog box @Outline 2@<:s><:#P30670848,P1038090>'singlestep(1) @Outline 2@<:s><:#P30670848,P1038090>IgnoreKeyboard(2) @Outline 2@<:s><:#P30670848,P1038090>ini_section = GetGlobalVar$("ini_section") @Outline 2@<:s><:#P30670848,P1038090>MacPath = GetGlobalVar$("macpath") @Outline 2@<:s><:#P30670848,P1038090>Units = GetUnits(Units) @Outline 2@<:s><:#P30670848,P1038090>AdjAmount = GetProfileString$(ini_section, "AdjAmount", INI_FILE) @Outline 2@<:s><:#P30670848,P1038090>AdjSettings = GetProfileString$(ini_section, "AdjSettings", INI_FILE) @Outline 2@<:s><:#P30670848,P1038090>Num = 1 @Outline 2@<:s><:#P30670848,P1038090>For i = 8000 to 8004 @Outline 3@<:s><:#P30670848,P1038090>FillIt = strfield$(AdjAmount, Num, "~") @Outline 3@<:s><:#P30670848,P1038090>If FillIt << 0 @Outline 4@<:s><:#P30670848,P1038090>FillIt = FillIt * -1 @Outline 3@<:s><:#P30670848,P1038090>Endif @Outline 3@<:s><:#P30670848,P1038090>FillIt = ConvertToUnits(FillIt) @Outline 3@<:s><:#P30670848,P1038090>FillEdit(i, FillIt) @Outline 3@<:s><:#P30670848,P1038090>Num = Num + 1 @Outline 2@<:s><:#P30670848,P1038090>Next @Outline 2@<:s><:#P30670848,P1038090> @Outline 2@<:s><:#P30670848,P1038090>Num = 1 @Outline 2@<:s><:#P30670848,P1038090>For i = 23 to 30 @Outline 3@<:s><:#P30670848,P1038090>FillIt = strfield$(AdjSettings, Num, "~") @Outline 3@<:s><:#P30670848,P1038090>FillEdit(i, FillIt) @Outline 3@<:s><:#P30670848,P1038090>Num = Num + 1 @Outline 2@<:s><:#P30670848,P1038090>Next @Outline 2@<:s><:#P30670848,P1038090> @Outline 2@<:s><:#P30670848,P1038090>FillEdit(1001, Units) @Outline 2@<:s><:#P30670848,P1038090> @Comments@<:s><:#P30670848,P802161>'Get the changes and convert to twips @Outline 2@<:s><:#P30670848,P1038090>SetDlgCallback(20, "AdjCheck") @Outline 2@<:s><:#P30670848,P1038090>DlgSetHelpNumber(238) @Outline 2@<:s><:#P30670848,P1038090>Box = DialogBox("{MacPath}amienv.dlg", "adjust") @Outline 2@<:s><:#P30670848,P1038090>If Box = -1 @Outline 3@<:s><:#P30670848,P1038090>Exit Function @Outline 2@<:s><:#P30670848,P1038090>Endif @Function@<:s><:#P30670848,P1918894>End Function @Function@<:s><:#P30670848,P1918894> @Function@<:s><:#P30670848,P1918894>Function AdjCheck(hDlg, Id) @Outline 2@<:s><:#P30670848,P1038090>IgnoreKeyboard(2) @Outline 2@<:s><:#P30670848,P1038090>ini_section = GetGlobalVar$("ini_section") @Outline 2@<:s><:#P30670848,P1038090>Units = GetUnits(Units) @Outline 2@<:s><:#P30670848,P1038090>dim sign(8) @Outline 2@<:s><:#P30670848,P1038090>Num = 1 @Outline 2@<:s><:#P30670848,P1038090>For i = 23 to 30 @Outline 3@<:s><:#P30670848,P1038090>If i = 23 @Outline 4@<:s><:#P30670848,P1038090>AdjSettings = GetDlgItemText(hDlg, i) @Outline 4@<:s><:#P30670848,P1038090>sign(1) = AdjSettings @Outline 3@<:s><:#P30670848,P1038090>Else @Outline 4@<:s><:#P30670848,P1038090>NextNum = GetDlgItemText(hDlg, i) @Outline 4@<:s><:#P30670848,P1038090>AdjSettings = strcat$(AdjSettings, "~", NextNum) @Outline 4@<:s><:#P30670848,P1038090>sign(Num) = NextNum @Outline 3@<:s><:#P30670848,P1038090>Endif @Outline 3@<:s><:#P30670848,P1038090>Num = Num +1 @Outline 2@<:s><:#P30670848,P1038090>Next @Outline 2@<:s><:#P30670848,P1038090>RetY = ConvertToTwips(GetDlgItemText(hDlg, 8000)) @Outline 2@<:s><:#P30670848,P1038090>If RetY <;> 4320 or RetY << 0 @Outline 3@<:s><:#P30670848,P1038090>Message(strcat$(ADJERROR, chr$(13), ADJERROR2, ConvertToUnits(4320))) @Outline 3@<:s><:#P30670848,P1038090>DlgSetFocus(hDlg, 8000) @Outline 3@<:s><:#P30670848,P1038090>Exit Function @Outline 2@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>If sign(1) = 1 @Outline 3@<:s><:#P30670848,P1038090>RetY = RetY * -1 @Outline 2@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>RetX =ConvertToTwips(GetDlgItemText(hDlg,8001)) @Outline 2@<:s><:#P30670848,P1038090>If RetX <;> 4320 or RetX << 0 @Outline 3@<:s><:#P30670848,P1038090>Message(strcat$(ADJERROR, chr$(13), ADJERROR2, ConvertToUnits(4320))) @Outline 3@<:s><:#P30670848,P1038090>DlgSetFocus(hDlg, 8001) @Outline 3@<:s><:#P30670848,P1038090>Exit Function @Outline 2@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>If sign(3) = 1 @Outline 3@<:s><:#P30670848,P1038090>RetX = RetX * -1 @Outline 2@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>RecY = ConvertToTwips(GetDlgItemText(hDlg,8002)) @Outline 2@<:s><:#P30670848,P1038090>If RecY <;> 4320 or RecY << 0 @Outline 3@<:s><:#P30670848,P1038090>Message(strcat$(ADJERROR, chr$(13), ADJERROR2, ConvertToUnits(4320))) @Outline 3@<:s><:#P30670848,P1038090>DlgSetFocus(hDlg, 8002) @Outline 3@<:s><:#P30670848,P1038090>Exit Function @Outline 2@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>If sign(5) = 1 @Outline 3@<:s><:#P30670848,P1038090>RecY = RecY * -1 @Outline 2@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>RecX = ConvertToTwips(GetDlgItemText(hDlg,8003)) @Outline 2@<:s><:#P30670848,P1038090>If RecX <;> 4320 or RecX << 0 @Outline 3@<:s><:#P30670848,P1038090>Message(strcat$(ADJERROR, chr$(13), ADJERROR2, ConvertToUnits(4320))) @Outline 3@<:s><:#P30670848,P1038090>DlgSetFocus(hDlg, 8003) @Outline 3@<:s><:#P30670848,P1038090>Exit Function @Outline 2@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>If sign(7) = 1 @Outline 3@<:s><:#P30670848,P1038090>RecX = RecX * -1 @Outline 2@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090> @Comments@<:s><:#P30670848,P802161>'Write to the INI @Outline 2@<:s><:#P30670848,P1038090>AdjAmount = strcat$(RetY, "~", RetX, "~", RecY, "~", RecX) @Outline 2@<:s><:#P30670848,P1038090>WriteProfileString(ini_section, "AdjAmount", AdjAmount, INI_FILE) @Outline 2@<:s><:#P30670848,P1038090>WriteProfileString(ini_section, "AdjSettings", AdjSettings, INI_FILE) @Outline 2@<:s><:#P30670848,P1038090>DlgClose(hDlg) @Outline 2@<:s><:#P30670848,P1038090> @Function@<:s><:#P30670848,P1918894>End Function @Function@<:s><:#P30670848,P1918894> @Function@<:s><:#P30670848,P1918894>Function Printset(PrinterName) @Outline 2@<:s><:#P30670848,P1038090>IgnoreKeyboard(2) @Outline 2@<:s><:#P30670848,P1038090>if (.Document.Printer.Stack()) @Outline 3@<:s><:#P30670848,P1038090>dim prts(100) @Outline 3@<:s><:#P30670848,P1038090>dim streams(100) @Outline 3@<:s><:#P30670848,P1038090>pcnt = .Enumerate(Printer, 0, &prts) @Outline 3@<:s><:#P30670848,P1038090>if (pcnt <;> 0) @Outline 4@<:s><:#P30670848,P1038090>for i = 1 to pcnt @Outline 5@<:s><:#P30670848,P1038090>p = prts(i) @Outline 6@<:s><:#P30670848,P1038090>if (.Object(p).Stack()) @Outline7@<:s><:#P30670848,P1038090>scnt = .Enumerate(Stream, 0, &streams) @Outline7@<:s><:#P30670848,P1038090>if (scnt <;> 0) @Outline8@<:s><:#P30670848,P1038090>for j = 1 to scnt @Outline8@<:s><:#P30670848,P1038090>Str = streams(j) @Outline8@<:s><:#P30670848,P1038090>If Str = PrinterName @Outline9@<:s><:#P30670848,P1038090>'unstack(1) @Outline9@<:s><:#P30670848,P1038090>.Stream = PrinterName @Outline9@<:s><:#P30670848,P1038090>.Name = p @Outline9@<:s><:#P30670848,P1038090>unstack(2) @Outline9@<:s><:#P30670848,P1038090>Exit Function @Outline8@<:s><:#P30670848,P1038090>Endif @Outline8@<:s><:#P30670848,P1038090>next @Outline7@<:s><:#P30670848,P1038090>endif @Outline7@<:s><:#P30670848,P1038090>UnStack(1) @Outline 6@<:s><:#P30670848,P1038090>endif @Outline 5@<:s><:#P30670848,P1038090>next @Outline 4@<:s><:#P30670848,P1038090>endif @Outline 3@<:s><:#P30670848,P1038090>UnStack(2) @Outline 3@<:s><:#P30670848,P1038090>endif @Function@<:s><:#P30670848,P1918894>End Function @Function@<:s><:#P30670848,P1918894> @Function@<:s><:#P30670848,P1918894>Function NewPrintDef(PrinterName) @Outline 2@<:s><:#P30670848,P1038090>IgnoreKeyboard(2) @Outline 2@<:s><:#P30670848,P1038090>if (.Document.Printer.Stack()) @Outline 3@<:s><:#P30670848,P1038090>dim prts(100) @Outline 3@<:s><:#P30670848,P1038090>dim streams(100) @Outline 3@<:s><:#P30670848,P1038090>pcnt = .Enumerate(Printer, 0, &prts) @Outline 3@<:s><:#P30670848,P1038090>if (pcnt <;> 0) @Outline 4@<:s><:#P30670848,P1038090>for i = 1 to pcnt @Outline 5@<:s><:#P30670848,P1038090>p = prts(i) @Outline 6@<:s><:#P30670848,P1038090>if (.Object(p).Stack()) @Outline7@<:s><:#P30670848,P1038090>scnt = .Enumerate(Stream, 0, &streams) @Outline7@<:s><:#P30670848,P1038090>if (scnt <;> 0) @Outline8@<:s><:#P30670848,P1038090>for j = 1 to scnt @Outline8@<:s><:#P30670848,P1038090>Str = streams(j) @Outline8@<:s><:#P30670848,P1038090>If Str = PrinterName @Outline9@<:s><:#P30670848,P1038090>IsSection = NewPrintDefSet(p, Str) @Outline9@<:s><:#P30670848,P1038090>unstack(2) @Outline9@<:s><:#P30670848,P1038090>If IsSection = 1 @Outline9@<:s><:#P30670848,P1038090>Return(1) @Outline9@<:s><:#P30670848,P1038090>Else @Outline9@<:s><:#P30670848,P1038090>Return(0) @Outline9@<:s><:#P30670848,P1038090>Endif @Outline8@<:s><:#P30670848,P1038090>Endif @Outline8@<:s><:#P30670848,P1038090>next @Outline7@<:s><:#P30670848,P1038090>endif @Outline7@<:s><:#P30670848,P1038090>UnStack(1) @Outline 6@<:s><:#P30670848,P1038090>endif @Outline 5@<:s><:#P30670848,P1038090>next @Outline 4@<:s><:#P30670848,P1038090>endif @Outline 3@<:s><:#P30670848,P1038090>UnStack(2) @Outline 3@<:s><:#P30670848,P1038090>endif @Function@<:s><:#P30670848,P1918894>End Function @Function@<:s><:#P30670848,P1918894> @Modules@<:s><:#P30670848,P1918894>'Exit functions @Function@<:s><:#P30670848,P2894070>Function WriteDefs(RetName, Printer, EnvSize, PrintRet, EnvFeed, CustomWidth, CustomHeight) ' Write the last selected items to the INI file. @Outline 2@<:s><:#P30670848,P1038090>IgnoreKeyboard(2) @Outline 2@<:s><:#P30670848,P1038090>ini_section = GetGlobalVar$("ini_section") @Outline 2@<:s><:#P30670848,P1038090>WriteProfileString(INI_ENV_DEFAULTS, "Printer", Printer, INI_FILE) @Outline 2@<:s><:#P30670848,P1038090>WriteProfileString(ini_section, "EnvSize", EnvSize, INI_FILE) @Outline 2@<:s><:#P30670848,P1038090>WriteProfileString(INI_ENV_DEFAULTS, "RetName", RetName, INI_FILE) @Outline 2@<:s><:#P30670848,P1038090>WriteProfileString(ini_section, "PrintRetDef", PrintRet, INI_FILE) @Outline 2@<:s><:#P30670848,P1038090>WriteProfileString(ini_section, "EnvFeed", EnvFeed, INI_FILE) @Outline 2@<:s><:#P30670848,P1038090>WriteProfileString(ini_section, "CustomWidth", CustomWidth, INI_FILE) @Outline 2@<:s><:#P30670848,P1038090>WriteProfileString(ini_section, "CustomHeight", CustomHeight, INI_FILE) @Function@<:s><:#P30670848,P1918894>End Function @Function@<:s><:#P30670848,P1918894> @Modules@<:s><:#P30670848,P1918894>'Utility functions @Function@<:s><:#P30670848,P1918894>Function SetDefaults() ' If this is the first time running the macro @Outline 2@<:s><:#P30670848,P1038090>IgnoreKeyboard(2) @Outline 2@<:s><:#P30670848,P1038090>WriteProfileString(INI_ENV_DEFAULTS, "Printer", Printer, INI_FILE) @Outline 2@<:s><:#P30670848,P1038090>WriteProfileString(INI_ENV_DEFAULTS, "EnvSize", ENV_SIZE_DEF, INI_FILE) @Outline 2@<:s><:#P30670848,P1038090>WriteProfileString(INI_ENV_DEFAULTS, "PrintRetDef", 1, INI_FILE) @Outline 2@<:s><:#P30670848,P1038090>WriteProfileString(INI_ENV_DEFAULTS, "EnvFeed", 0, INI_FILE) @Outline 2@<:s><:#P30670848,P1038090>WriteProfileString(INI_ENV_DEFAULTS, "Position", 1, INI_FILE) @Outline 2@<:s><:#P30670848,P1038090>WriteProfileString(INI_ENV_DEFAULTS, "Orientation", "Landscape", INI_FILE) @Outline 2@<:s><:#P30670848,P1038090>WriteProfileString(INI_ADDRESS, "NumNames", 1, INI_FILE) @Outline 2@<:s><:#P30670848,P1038090>WriteProfileString(INI_ADDRESS, "Name1", "", INI_FILE) @Function@<:s><:#P30670848,P1918894>End Function @Function@<:s><:#P30670848,P1918894> @Function@<:s><:#P30670848,P1918894>Function Autoshade() ' Auto shade the recipient address in the doc. @Outline 2@<:s><:#P30670848,P1038090>'SingleStep(1) @Outline 2@<:s><:#P30670848,P1038090>'MarkBookMark("temp1", 4003) @Outline 2@<:s><:#P30670848,P1038090>defstr Compline @Outline 2@<:s><:#P30670848,P1038090>Type("<[>Esc]<[>Esc]<[>CtrlHome]<[>Esc]") @Outline 2@<:s><:#P30670848,P1038090>Startcheck: @Outline 2@<:s><:#P30670848,P1038090>Type("<[>CtrlDown]") @Outline 2@<:s><:#P30670848,P1038090>If .table.stack() @Outline 3@<:s><:#P30670848,P1038090>unstack(1) @Outline 3@<:s><:#P30670848,P1038090>Goto SkipThis @Outline 2@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>IF GetPageNo()<;>1 THEN @Outline 3@<:s><:#P30670848,P1038090>GOTO skipthis @Outline 2@<:s><:#P30670848,P1038090>ENDIF @Outline 2@<:s><:#P30670848,P1038090>curpar=GetTextBeforeCursor$() @Outline 2@<:s><:#P30670848,P1038090>IF AtEof() @Outline 3@<:s><:#P30670848,P1038090>Goto SkipThis @Outline 2@<:s><:#P30670848,P1038090>ElseIf Len(curpar)<;>60 OR curpar=Compline or Left$(curpar,1)=CHR$(9) @Outline 3@<:s><:#P30670848,P1038090>CompLine = curpar @Outline 3@<:s><:#P30670848,P1038090>GOTO startcheck @Outline 2@<:s><:#P30670848,P1038090>ENDIF @Outline 2@<:s><:#P30670848,P1038090>lincount=0 @Outline 2@<:s><:#P30670848,P1038090>compline = curpar @Outline 2@<:s><:#P30670848,P1038090>WHILE(1) @Outline 3@<:s><:#P30670848,P1038090>TYPE("<[>ctrldown]") @Outline 3@<:s><:#P30670848,P1038090>If .table.stack() @Outline 4@<:s><:#P30670848,P1038090>unstack(1) @Outline 4@<:s><:#P30670848,P1038090>Goto SkipThis @Outline 3@<:s><:#P30670848,P1038090>Endif @Outline 3@<:s><:#P30670848,P1038090>IF GetPageNo()<;>1 THEN @Outline 4@<:s><:#P30670848,P1038090>GOTO skipthis @Outline 3@<:s><:#P30670848,P1038090>ENDIF @Outline 3@<:s><:#P30670848,P1038090>curpar=GetTextBeforeCursor$() @Outline 3@<:s><:#P30670848,P1038090>IF Len(curpar)<;>65 OR curpar="" OR curpar = compline OR Left$(curpar,1)=CHR$(9) OR AtEof() @Outline 4@<:s><:#P30670848,P1038090>If AtEof() @Outline 5@<:s><:#P30670848,P1038090>lincount=lincount+2 @Outline 4@<:s><:#P30670848,P1038090>Else @Outline 5@<:s><:#P30670848,P1038090>lincount=lincount+1 @Outline 4@<:s><:#P30670848,P1038090>Endif @Outline 4@<:s><:#P30670848,P1038090>BREAK @Outline 3@<:s><:#P30670848,P1038090>ENDIF @Outline 3@<:s><:#P30670848,P1038090>lincount=lincount+1 @Outline 3@<:s><:#P30670848,P1038090>compline = curpar @Outline 2@<:s><:#P30670848,P1038090>WEND @Outline 2@<:s><:#P30670848,P1038090>If lincount <;>2 and lincount <<7 @Outline 3@<:s><:#P30670848,P1038090>For i = 1 to lincount @Outline 4@<:s><:#P30670848,P1038090>Type("<[>CtrlShiftUp]") @Outline 3@<:s><:#P30670848,P1038090>Next @Outline 2@<:s><:#P30670848,P1038090>Else @Outline 3@<:s><:#P30670848,P1038090>Goto StartCheck @Outline 2@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>Copy() @Outline 2@<:s><:#P30670848,P1038090>Exit Function @Outline 2@<:s><:#P30670848,P1038090>SkipThis: @Outline 2@<:s><:#P30670848,P1038090>NoText = 1 @Outline 2@<:s><:#P30670848,P1038090>Return(NoText) @Function@<:s><:#P30670848,P1918894>End Function @Function@<:s><:#P30670848,P1918894> @Function@<:s><:#P30670848,P1918894>Function TwipsToUnits(Value) @Outline 2@<:s><:#P30670848,P1038090>IgnoreKeyboard(2) @Outline 2@<:s><:#P30670848,P1038090>Value = Value * 3276.8 @Outline 2@<:s><:#P30670848,P1038090>Return(Value) @Function@<:s><:#P30670848,P1918894>End Function @Function@<:s><:#P30670848,P1918894> @Function@<:s><:#P30670848,P1918894>Function ConvertToTwips(Value) @Outline 2@<:s><:#P30670848,P1038090>IgnoreKeyboard(2) @Outline 2@<:s><:#P30670848,P1038090>Units = GetUnits(Units) @Outline 2@<:s><:#P30670848,P1038090>Switch Units @Outline 3@<:s><:#P30670848,P1038090>Case "Inches"; @Outline 4@<:s><:#P30670848,P1038090>Value = (Value) * 1440; @Outline 3@<:s><:#P30670848,P1038090>Case "CM"; @Outline 4@<:s><:#P30670848,P1038090>Value = (Value) * 566.9; @Outline 3@<:s><:#P30670848,P1038090>Case "Picas"; @Outline 4@<:s><:#P30670848,P1038090>Value = (Value) * 240; @Outline 3@<:s><:#P30670848,P1038090>Case "Points"; @Outline 4@<:s><:#P30670848,P1038090>Value = (Value) * 20; @Outline 2@<:s><:#P30670848,P1038090>EndSwitch @Outline 2@<:s><:#P30670848,P1038090>Return(Value) @Function@<:s><:#P30670848,P1918894>End Function @Function@<:s><:#P30670848,P1918894> @Function@<:s><:#P30670848,P1918894>Function ConvertToUnits(Value) @Outline 2@<:s><:#P30670848,P1038090>IgnoreKeyboard(2) @Outline 2@<:s><:#P30670848,P1038090>Units = GetUnits(Units) @Outline 2@<:s><:#P30670848,P1038090>Switch Units @Outline 3@<:s><:#P30670848,P1038090>Case "Inches"; @Outline 4@<:s><:#P30670848,P1038090>Value = (Value) / 1440; @Outline 3@<:s><:#P30670848,P1038090>Case "CM"; @Outline 4@<:s><:#P30670848,P1038090>Value = (Value) / 566.9; @Outline 3@<:s><:#P30670848,P1038090>Case "Picas"; @Outline 4@<:s><:#P30670848,P1038090>Value = (Value) / 240; @Outline 3@<:s><:#P30670848,P1038090>Case "Points"; @Outline 4@<:s><:#P30670848,P1038090>Value = (Value) / 20; @Outline 2@<:s><:#P30670848,P1038090>EndSwitch @Outline 2@<:s><:#P30670848,P1038090>Value = FormatNum$("", "", 2, Value) @Outline 2@<:s><:#P30670848,P1038090>Return(Value) @Function@<:s><:#P30670848,P1918894>End Function @Outline 2@<:s><:#P30670848,P1038090> @Function@<:s><:#P30670848,P1918894> @Function@<:s><:#P30670848,P1918894>Function SetPrinter(hDlg, Id) @Outline 2@<:s><:#P30670848,P1038090>IgnoreKeyboard(2) @Outline 2@<:s><:#P30670848,P1038090>NewPrinter = GetDlgItemText(hDlg, 9500) @Outline 2@<:s><:#P30670848,P1038090>SetGlobalVar("ini_section", NewPrinter) @Outline 2@<:s><:#P30670848,P1038090>SetGlobalVar("ChangePrinter", 1) @Outline 2@<:s><:#P30670848,P1038090>FillEnvelopeSizesBox(hDlg, Id) @Outline 2@<:s><:#P30670848,P1038090>IsSettings = GetProfileString$(NewPrinter, "EnvSize", INI_FILE) @Outline 2@<:s><:#P30670848,P1038090>If IsSettings = NULL @Outline 3@<:s><:#P30670848,P1038090>IsSection = NewPrintDef(NewPrinter) @Outline 3@<:s><:#P30670848,P1038090>WriteProfileString(NewPrinter, "EnvSize", "Size 10 (9 1/2 x 4 1/8 in)", INI_FILE) @Outline 3@<:s><:#P30670848,P1038090>WriteProfileString(NewPrinter, "PrintRetDef", 1, INI_FILE) @Outline 3@<:s><:#P30670848,P1038090>WriteProfileString(NewPrinter, "EnvFeed", 0, INI_FILE) @Outline 3@<:s><:#P30670848,P1038090>NewPrintDef(NewPrinter) @Outline 3@<:s><:#P30670848,P1038090>If IsSection = 1 @Outline 4@<:s><:#P30670848,P1038090>WriteProfileString(NewPrinter, "Position", 1, INI_FILE) @Outline 4@<:s><:#P30670848,P1038090>WriteProfileString(NewPrinter, "Orientation", "Landscape", INI_FILE) @Outline 4@<:s><:#P30670848,P1038090>WriteProfileString(NewPrinter, "AdjSettings", "1~0~1~0~1~0~1~0", INI_FILE) @Outline 3@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>SetDlgItemText(hDlg, 20, GetProfileString$(NewPrinter, "PrintRetDef", INI_FILE)*1) @Outline 2@<:s><:#P30670848,P1038090>SetDlgItemText(hDlg, 21, GetProfileString$(NewPrinter, "EnvFeed", INI_FILE)*1) @Function@<:s><:#P30670848,P1918894>End Function @Function@<:s><:#P30670848,P1918894> @Function@<:s><:#P30670848,P1918894>Function GetUnits(Units) @Outline 2@<:s><:#P30670848,P1038090>IgnoreKeyboard(2) @Outline 2@<:s><:#P30670848,P1038090>Units = .UserInterface.Preferences.Size @Outline 2@<:s><:#P30670848,P1038090>Switch Units @Outline 3@<:s><:#P30670848,P1038090>Case 1 @Outline 4@<:s><:#P30670848,P1038090>Units = "Inches" @Outline 3@<:s><:#P30670848,P1038090>Case 2 @Outline 4@<:s><:#P30670848,P1038090>Units = "CM" @Outline 3@<:s><:#P30670848,P1038090>Case 3 @Outline 4@<:s><:#P30670848,P1038090>Units = "Picas" @Outline 3@<:s><:#P30670848,P1038090>Case 4 @Outline 4@<:s><:#P30670848,P1038090>Units = "Points" @Outline 2@<:s><:#P30670848,P1038090>EndSwitch @Outline 2@<:s><:#P30670848,P1038090>Return (Units) @Function@<:s><:#P30670848,P1918894>End Function @Outline 3@<:s><:#P30670848,P1038090> @Function@<:s><:#P30670848,P1918894> @Function@<:s><:#P30670848,P1918894>Function NewPrintDefSet(PrinterName, Stream) @Outline 2@<:s><:#P30670848,P1038090>IgnoreKeyboard(2) @Outline 2@<:s><:#P30670848,P1038090>'singlestep(1) @Outline 2@<:s><:#P30670848,P1038090>AdjAmount = GetProfileString$(PrinterName, "AdjAmount", INI_SETUP) @Outline 2@<:s><:#P30670848,P1038090>If AdjAmount = NULL @Outline 3@<:s><:#P30670848,P1038090>Return(1) @Outline 2@<:s><:#P30670848,P1038090>Endif @Outline 2@<:s><:#P30670848,P1038090>AdjSettings = GetProfileString$(PrinterName,"AdjSettings", INI_SETUP) @Outline 2@<:s><:#P30670848,P1038090>Position = GetProfileString$(PrinterName, "Position", INI_SETUP) @Outline 2@<:s><:#P30670848,P1038090>Orientation = GetProfileString$(PrinterName,"Orientation", INI_SETUP) @Outline 2@<:s><:#P30670848,P1038090>WriteProfileString(Stream, "AdjAmount", AdjAmount, INI_FILE) @Outline 2@<:s><:#P30670848,P1038090>WriteProfileString(Stream, "AdjSettings", AdjSettings, INI_FILE) @Outline 2@<:s><:#P30670848,P1038090>WriteProfileString(Stream, "Position", Position, INI_FILE) @Outline 2@<:s><:#P30670848,P1038090>WriteProfileString(Stream, "Orientation", Orientation, INI_FILE) @Function@<:s><:#P30670848,P1918894>End Function @Outline 2@<:s><:#P30670848,P1211105> > [Embedded] 00076871 > [macsum4] 26 325 Main 0 0 29 47 FillRetAddBox 4318 2 9 188 FillRetTitleBox 5295 2 8 214 FillPrinterBox 6220 2 15 245 FillEnvelopeSizesBox 7562 2 17 291 SetCustomEnvSize 9877 2 9 351 EnvSettings 10664 2 9 373 AddAddress 12401 2 10 428 InsertAddress 13729 2 5 468 DeleteRetName 14315 3 7 485 GetAddrs 15171 1 3 513 ModEnvPage 15483 4 22 526 CustomSize 19802 1 1 647 AdjustSettings 19924 2 10 653 AdjCheck 21061 2 13 691 Printset 23346 1 9 753 NewPrintDef 24148 1 10 784 WriteDefs 25059 7 2 818 SetDefaults 25656 0 1 831 Autoshade 26188 0 6 843 TwipsToUnits 27627 1 1 901 ConvertToTwips 27756 1 2 907 ConvertToUnits 28205 1 2 923 SetPrinter 28690 2 4 941 GetUnits 29653 1 1 964 NewPrintDefSet 30023 2 5 981 [macse] 14 Main 29 0 Main 17 2 0 271 "ini_section" 1 17 3 0 271 "macpath" 1 17 4 0 271 "ChangePrinter" 1 17 5 0 271 "HasRunEnvSize" 1 17 6 0 271 "NoPrinterSect" 1 17 7 0 798 13 0 264 "macpath" [X] 17 8 19 00004108 17 9 0 296 1 17 10 29 1 StylePath 31 101 45 190 13 16 _$$5CatSlash [X] 13 8 1 17 11 29 2 macpath 0 265 "macpath" 13 8 2 17 12 29 3 rmac 0 802 13 8 3 17 13 29 4 LastMode 16 _$$4GetMode 13 8 4 17 14 29 5 Printer 0 286 "EnvDefaults" "Printer" "amipro2.ini" 13 8 5 17 15 29 6 PrintRetDef 0 286 "EnvDefaults" "PrintRetDef" "amipro2.ini" 13 8 6 17 16 6 6 7 "" 18 0 11 00000722 17 17 16 SetDefaults 17 18 0 286 "EnvDefaults" "PrintRetDef" "amipro2.ini" 13 8 6 17 20 29 7 EnvFeed 0 286 "{5}" "EnvFeed" "amipro2.ini" 13 8 7 17 21 0 264 "ini_section" "EnvDefaults" 17 22 29 8 ini_section 0 265 "ini_section" 13 8 8 17 23 6 7 5 0 18 5 11 00001137 17 24 0 264 "NoPrinterSect" 1 17 25 29 9 PrinterName 16 NewPrintDef "{9}" 13 8 9 17 26 0 286 "{8}" "EnvFeed" "amipro2.ini" 13 8 7 17 27 29 10 NoPrinterSect 0 265 "NoPrinterSect" 13 8 10 10 00001171 17 29 0 264 "ini_section" "{5}" 17 31 29 11 Units 16 GetUnits "{11}" 13 8 11 17 32 29 12 ShadedText 16 _$$3CurShade$ 13 8 12 17 33 29 13 NoText 6 12 8 13 17 34 32 0 42 17 35 6 12 7 "" 18 1 11 00001390 17 36 2 154 1 10 00001440 17 38 29 14 IsAutoShade 16 AutoShade 13 8 14 17 40 0 31 20 "{6}" 17 41 0 31 21 "{7}" 17 42 0 31 1006 "{11}" 17 43 0 41 0 "FillPrinterBox" 17 44 0 41 0 "FillEnvelopeSizesBox" 17 45 0 41 0 "FillRetTitleBox" 17 46 0 41 0 "FillRetAddBox" 17 47 0 41 25 "AddAddress" 17 48 0 41 26 "DeleteRetName" 17 49 0 41 27 "EnvSettings" 17 50 0 41 8003 "SetCustomEnvSize" 17 51 0 41 8004 "SetCustomEnvSize" 17 52 0 41 9500 "SetPrinter" 17 53 0 41 9501 "FillEnvelopeSizesBox" 17 54 0 41 9502 "FillRetAddBox" 17 55 0 73 237 17 56 0 296 0 17 57 29 15 Box 0 26 "{2}amienv.dlg" "Printenv" 13 8 15 17 58 5 -1 6 15 18 0 11 00002116 17 60 0 3 "Could not find dialog box - Exiting macro!" 10 00004108 5 0 6 15 18 0 11 00002179 17 62 10 00004108 10 00004108 5 1 6 15 18 0 11 00004108 17 64 29 16 RetAddress 0 27 8002 13 8 16 17 65 29 17 LastName 0 27 9502 13 8 17 17 66 29 18 LastPrinter 0 27 9500 13 8 18 17 67 29 19 LastEnvSize 0 27 9501 13 8 19 17 68 29 20 PrintRet 0 27 20 13 8 20 17 69 29 21 CustomWidth 0 27 8004 13 8 21 17 70 29 22 CustomHeight 0 27 8003 13 8 22 17 71 0 27 21 13 8 7 17 72 0 27 9500 13 8 9 17 73 29 23 GetEnvSize 0 27 9501 13 8 23 17 74 29 24 EnvSize 0 20 "{23}" 1 "~" 13 8 24 17 75 6 14 5 0 18 1 6 13 7 "" 18 0 1 1 11 00002864 17 76 29 25 AddrsText 17 77 7 "" 8 25 17 78 16 GetAddrs &25 17 79 6 25 7 "" 18 0 11 00002864 17 80 10 00004108 17 83 16 _$$1New "{1}~amienv.sty" 1 0 17 85 16 ConvertToTwips "{21}" 13 8 21 17 86 16 ConvertToTwips "{22}" 13 8 22 17 87 6 24 7 "Custom envelope" 18 0 11 00003336 17 88 29 26 CustWidth 16 CustomSize "{21}" 13 8 26 17 89 29 27 CustHeight 16 CustomSize "{22}" 13 8 27 17 90 29 28 IsSettings 16 ModEnvPage "{24}" "{7}" "{26}" "{27}" 13 8 28 17 91 6 28 5 -1 18 0 11 00003323 17 92 0 291 7 17 93 2 732 1 17 94 10 00004108 10 00003478 17 98 16 ModEnvPage "{24}" "{7}" 0 0 13 8 28 17 99 6 28 5 -1 18 0 11 00003478 17 100 0 291 7 17 101 2 732 1 17 102 10 00004108 17 105 6 20 5 1 18 0 11 00003579 17 106 16 _$$4MarkBookMark "Return" 4002 17 107 0 6 "{16}" 17 109 16 _$$4MarkBookMark "Recipient" 4002 17 110 6 13 7 "" 18 1 6 14 5 1 18 1 1 2 11 00003823 17 111 2 155 1 17 112 0 6 "[20516]" 17 113 16 _$$1SetStyle "Body Text" 17 114 16 _$$2NormalText 17 115 0 6 "[27]" 10 00003843 17 117 0 6 "{25}" 17 119 16 PrintSet "{9}" 17 121 16 _$$3FilePrint 1 1 9999 1537 17 122 0 291 7 17 123 2 732 1 17 124 6 10 5 1 18 0 11 00004018 17 125 0 264 "ini_section" "{18}" 17 127 16 WriteDefs "{17}" "{9}" "{19}" "{20}" "{7}" "{21}" "{22}" 17 128 10 00004108 17 131 0 266 "macpath" 17 132 0 266 "ini_section" 17 133 0 266 "NoPrinterSect" 17 134 0 266 "HasRunEnvSize" 17 135 0 266 "EnvSizes" 17 136 0 266 "ChangePrinter" 17 137 32 0 43 6 0 15 17 138 9 14 FillRetAddBox 29 0 hdlg 29 1 id 29 2 FillRetAddBox 17 1 0 32 2 17 2 29 3 NumNames 0 286 "AdrsBook" "NumNames" "amipro2.ini" 13 8 3 17 3 29 4 GetName 0 42 "{0}" 9502 13 8 4 29 5 i 5 1 8 5 17 4 6 3 6 5 18 2 12 00000290 10 00000927 5 1 6 5 3 0 8 5 10 00000209 17 5 29 6 RetNameAdd 0 286 "AdrsBook" "Name{5}" "amipro2.ini" 13 8 6 17 6 29 7 RetNameComp 0 20 "{6}" 1 "~" 13 8 7 17 7 6 7 6 4 18 0 11 00000914 17 8 5 5 29 8 Line 21 8 [X] 17 9 29 9 crlf 0 39 13 13 0 39 10 13 0 16 [X] [X] 13 8 9 5 1 8 5 17 10 5 5 6 5 18 2 12 00000640 10 00000914 5 1 6 5 3 0 8 5 10 00000558 17 11 6 5 0 20 "{6}" "{5}" "~" 13 23 8 17 12 6 5 5 1 18 0 11 00000774 17 13 29 10 TextToBox 6 5 22 8 8 10 10 00000901 17 14 6 5 22 8 5 -1 18 1 11 00000881 17 15 6 5 22 8 0 16 "{10}" "{9}" [X] 13 8 10 10 00000901 17 17 10 00000927 10 00000607 10 00000257 17 23 0 43 "{0}" 8002 "{10}" 6 2 15 17 24 9 14 FillRetTitleBox 29 0 hDlg 29 1 Id 29 2 FillRetTitleBox 17 1 0 32 2 17 2 29 3 Index 5 0 8 3 17 3 29 4 NumNames 0 286 "AdrsBook" "NumNames" "amipro2.ini" 13 8 4 17 4 29 5 GetDef 0 286 "EnvDefaults" "RetName" "amipro2.ini" 13 8 5 17 5 6 4 29 6 RetAddName 21 6 [X] 29 7 i 5 1 8 7 17 6 6 4 6 7 18 2 12 00000387 10 00000463 5 1 6 7 3 0 8 7 10 00000306 17 7 6 7 0 286 "AdrsBook" "Name{7}" "amipro2.ini" 13 23 6 10 00000354 17 9 0 1043 &6 5 1 8 7 17 10 6 4 6 7 18 2 12 00000572 10 00000822 5 1 6 7 3 0 8 7 10 00000490 17 11 29 8 RetName 6 7 22 6 8 8 17 12 0 20 "{8}" 1 "~" 13 8 8 17 13 6 8 7 "" 18 1 11 00000809 17 14 0 43 "{0}" 9502 "{8}" 17 17 6 5 6 8 18 0 11 00000782 17 18 29 9 RetNameIndex 6 3 8 9 17 20 6 3 5 1 3 0 8 3 10 00000539 17 24 6 9 7 "" 18 0 11 00000876 17 25 5 0 8 9 17 27 0 62 "{0}" 9502 "{9}" 6 2 15 17 28 9 14 FillPrinterBox 29 0 hDlg 29 1 id 29 2 FillPrinterBox 17 2 0 32 2 17 3 29 3 Index 5 0 8 3 17 4 29 4 ini_section 7 "EnvDefaults" 8 4 17 5 29 5 GetDef 0 286 "{4}" "Printer" "amipro2.ini" 13 8 5 17 7 33 2 91 13 11 00000988 17 8 5 100 29 6 prts 21 6 [X] 17 9 5 100 29 7 streams 21 7 [X] 17 10 29 8 pcnt 32 0 32 91 0 &6 13 8 8 17 11 6 8 5 0 18 3 11 00000973 29 9 i 5 1 8 9 17 12 6 8 6 9 18 2 12 00000497 10 00000973 5 1 6 9 3 0 8 9 10 00000415 17 13 29 10 p 6 9 22 6 8 10 17 14 33 10 ( "{10}" ) 13 11 00000960 17 15 29 11 scnt 32 0 32 34 0 &7 13 8 11 17 16 6 11 5 0 18 3 11 00000945 29 12 j 5 1 8 12 17 17 6 11 6 12 18 2 12 00000763 10 00000945 5 1 6 12 3 0 8 12 10 00000677 17 18 29 13 Str 6 12 22 7 8 13 17 19 0 43 "{0}" 9500 "{13}" 17 21 6 5 6 13 18 0 11 00000905 17 22 29 14 PrinterIndex 6 3 8 14 17 24 6 3 5 1 3 0 8 3 10 00000728 17 27 0 69 1 10 00000464 17 31 0 69 2 17 33 6 14 7 "" 18 0 11 00001044 17 34 5 0 8 14 17 36 0 62 "{0}" 9500 "{14}" 17 37 29 15 PrinterName 0 42 "{0}" 9500 13 8 15 17 38 29 16 NoPrinterSect 0 265 "NoPrinterSect" 13 8 16 17 39 6 16 5 1 18 0 11 00001323 17 40 16 NewPrintDef "{15}" 17 41 0 264 "NoPrinterSect" 0 17 42 0 264 "ini_section" "{15}" 6 2 15 17 44 9 14 FillEnvelopeSizesBox 29 0 hDlg 29 1 Id 29 2 FillEnvelopeSizesBox 17 1 0 32 2 17 2 29 3 MacPath 0 265 "macpath" 13 8 3 17 3 29 4 NumSizes 0 286 "EnvelopeSizes" "NumSizes" "amienv.ini" 13 8 4 17 4 0 271 "EnvSizes" "{4}" 17 5 29 5 ini_section 0 265 "ini_section" 13 8 5 17 6 29 6 Index 5 0 8 6 17 7 6 4 29 7 EnvSizes 21 7 [X] 17 8 29 8 HasRun 0 265 "HasRunEnvSize" 13 8 8 17 9 6 8 5 0 18 4 11 00000892 17 10 29 9 GetDef 0 286 "{5}" "EnvSize" "amipro2.ini" 13 8 9 17 11 6 9 7 "" 18 0 11 00000607 17 12 0 286 "EnvDefaults" "EnvSize" "amipro2.ini" 13 8 9 29 10 i 5 1 8 10 17 14 6 4 6 10 18 2 12 00000712 10 00000843 5 1 6 10 3 0 8 10 10 00000627 17 15 29 11 SetSize 0 286 "EnvelopeSizes" "Size{10}" "amienv.ini" 13 8 11 17 16 0 272 "EnvSizes" "{10}" "{11}" 10 00000677 17 18 0 264 "HasRunEnvSize" "{4}" 10 00001200 17 19 0 265 "ChangePrinter" 13 5 1 18 0 11 00001167 17 20 0 286 "{5}" "EnvSize" "amipro2.ini" 13 8 9 17 21 6 9 7 "" 18 0 11 00001122 17 22 7 "EnvDefaults" 8 5 17 23 0 286 "{5}" "EnvSize" "amipro2.ini" 13 8 9 17 25 0 264 "ChangePrinter" 0 10 00001200 17 27 0 42 "{0}" 9501 13 8 9 5 1 8 10 17 30 6 4 6 10 18 2 12 00001296 10 00001628 5 1 6 10 3 0 8 10 10 00001211 17 31 29 12 EnvSize 0 273 "EnvSizes" "{10}" 13 8 12 17 32 29 13 EnvSizeName 0 20 "{12}" 1 "~" 13 8 13 17 33 6 13 7 "" 18 1 11 00001615 17 34 6 8 5 0 18 4 11 00001513 17 35 0 43 "{0}" 9501 "{13}" 17 38 6 9 6 13 18 0 11 00001588 17 39 29 14 EnvSizeIndex 6 6 8 14 17 41 6 6 5 1 3 0 8 6 10 00001261 17 44 6 9 7 "Custom envelope" 18 0 11 00001897 17 45 29 15 EnvWidth 0 286 "{5}" "CustomWidth" "amipro2.ini" 13 16 ConvertToUnits [X] 13 8 15 17 46 29 16 EnvHeight 0 286 "{5}" "CustomHeight" "amipro2.ini" 13 16 ConvertToUnits [X] 13 8 16 10 00002203 17 48 29 17 EnvSect 6 14 5 1 3 0 0 273 "EnvSizes" [X] 13 8 17 17 49 0 20 "{17}" 2 "~" 13 8 17 17 50 29 18 EnvPgSize 0 286 "{17}" "EnvPgSize2" "amienv.ini" 13 8 18 17 51 0 20 "{18}" 2 "~" 13 16 ConvertToUnits [X] 13 8 15 17 52 0 20 "{18}" 1 "~" 13 16 ConvertToUnits [X] 13 8 16 17 54 0 43 "{0}" 8004 "{15}" 17 55 0 43 "{0}" 8003 "{16}" 17 56 0 62 "{0}" 9501 "{14}" 6 2 15 17 57 9 14 SetCustomEnvSize 29 0 hDlg 29 1 Id 29 2 SetCustomEnvSize 17 1 0 32 2 17 2 29 3 MacPath 0 265 "macpath" 13 8 3 17 3 29 4 GetCurrSize 0 42 "{0}" 9501 13 8 4 17 4 6 4 7 "Custom envelope" 18 0 11 00000237 6 2 15 9 17 7 29 5 NumSizes 0 286 "EnvelopeSizes" "NumSizes" "amienv.ini" 13 8 5 17 8 29 6 Index 5 0 8 6 29 7 i 5 1 8 7 17 9 6 5 6 7 18 2 12 00000441 10 00000737 5 1 6 7 3 0 8 7 10 00000360 17 10 29 8 EnvSizes 0 286 "EnvelopeSizes" "Size{7}" "amienv.ini" 13 8 8 17 11 29 9 EnvSizeName 0 20 "{8}" 1 "~" 13 8 9 17 12 6 9 7 "" 18 1 11 00000724 17 13 6 9 7 "Custom envelope" 18 0 11 00000697 17 14 29 10 EnvSizeIndex 6 6 8 10 17 16 6 6 5 1 3 0 8 6 10 00000408 17 19 0 62 "{0}" 9501 "{10}" 6 2 15 17 20 9 14 EnvSettings 29 0 hDlg 29 1 Id 29 2 EnvSettings 17 2 0 32 2 17 3 29 3 MacPath 0 265 "macpath" 13 8 3 17 4 29 4 ini_section 0 265 "ini_section" 13 8 4 17 5 29 5 Position 0 286 "{4}" "Position" "amipro2.ini" 13 8 5 17 6 6 5 7 "" 18 0 11 00000353 17 7 7 "EnvDefaults" 8 4 17 8 0 286 "{4}" "Position" "amipro2.ini" 13 8 5 17 10 29 6 Orientation 0 286 "{4}" "Orientation" "amipro2.ini" 13 8 6 17 11 5 1 6 5 18 0 11 00000495 17 13 0 31 22 1 10 00000602 5 2 6 5 18 0 11 00000555 17 15 0 31 23 1 10 00000602 5 3 6 5 18 0 11 00000602 17 17 0 31 24 1 17 19 7 "Portrait" 6 6 18 0 11 00000678 17 21 0 31 30 1 10 00000735 7 "Landscape" 6 6 18 0 11 00000735 17 23 0 31 31 1 17 25 0 41 40 "AdjustSettings" 17 26 0 73 238 17 27 29 7 Box 0 26 "{3}amienv.dlg" "EnvSettings" 13 8 7 17 28 0 265 "ini_section" 13 8 4 29 8 i 5 22 8 8 17 29 5 24 6 8 18 2 12 00000986 10 00001322 5 1 6 8 3 0 8 8 10 00000903 17 30 29 9 NewPosition 0 27 "{8}" 13 8 9 17 31 6 9 5 1 18 0 11 00001309 17 32 6 8 5 22 18 0 11 00001165 17 33 0 287 "{4}" "Position" 1 "amipro2.ini" 10 00001309 17 34 6 8 5 23 18 0 11 00001262 17 35 0 287 "{4}" "Position" 2 "amipro2.ini" 10 00001309 17 37 0 287 "{4}" "Position" 3 "amipro2.ini" 10 00000953 5 30 8 8 17 41 5 31 6 8 18 2 12 00001416 10 00001718 5 1 6 8 3 0 8 8 10 00001333 17 42 29 10 NewOrient 0 27 "{8}" 13 8 10 17 43 6 10 5 1 18 0 11 00001705 17 44 6 8 5 30 18 0 11 00001608 17 45 0 287 "{4}" "Orientation" "Portrait" "amipro2.ini" 10 00001705 17 46 6 8 5 31 18 0 11 00001705 17 47 0 287 "{4}" "Orientation" "Landscape" "amipro2.ini" 10 00001383 6 2 15 17 51 9 14 AddAddress 29 0 HDlg 29 1 Id 29 2 AddAddress 17 2 0 32 2 17 3 29 3 NewAddress 0 42 "{0}" 8002 13 8 3 17 4 29 4 crlf 0 39 13 13 0 39 10 13 0 16 [X] [X] 13 8 4 17 5 29 5 NewAddressTitle 0 20 "{3}" 1 "{4}" 13 8 5 17 6 29 6 NumNames 0 286 "AdrsBook" "NumNames" "amipro2.ini" 13 8 6 29 7 i 5 1 8 7 17 9 6 6 6 7 18 2 12 00000410 10 00000975 5 1 6 7 3 0 8 7 10 00000329 17 10 29 8 CompName 0 286 "AdrsBook" "Name{7}" "amipro2.ini" 13 8 8 17 11 0 20 "{8}" 1 "~" 13 8 8 17 12 6 8 7 "" 18 0 11 00000594 17 13 29 9 NewNameIndexNull 6 7 8 9 17 15 6 5 6 8 18 0 11 00000924 17 16 29 10 ReplaceIt 0 2 "Title already exists, do you want to replace it?" 13 8 10 17 17 6 10 5 1 18 0 11 00000875 17 18 16 InsertAddress "{7}" "{3}" 17 19 0 287 "AdrsBook" "NumNames" "{7}" "amipro2.ini" 6 2 15 9 10 00000924 17 21 6 10 5 1 18 1 11 00000924 6 2 15 9 17 25 29 11 NewNameIndex 6 7 8 11 10 00000377 17 27 6 8 7 "" 18 1 11 00001175 17 28 6 11 5 1 3 0 8 11 17 29 16 InsertAddress "{11}" "{3}" 17 30 6 6 5 1 3 0 8 6 17 31 0 287 "AdrsBook" "NumNames" "{6}" "amipro2.ini" 10 00001212 17 33 16 InsertAddress "{9}" "{3}" 17 35 6 11 5 1 3 1 8 11 17 36 0 66 "{0}" 9502 "{11}" "{5}" 17 37 0 62 "{0}" 9502 "{11}" 6 2 15 17 38 9 14 InsertAddress 29 0 NewNameNum 29 1 Address 29 2 InsertAddress 17 1 0 32 2 17 2 29 3 crlf 0 39 13 13 0 39 10 13 0 16 [X] [X] 13 8 3 29 4 i 5 1 8 4 17 3 5 5 6 4 18 2 12 00000248 10 00000512 5 1 6 4 3 0 8 4 10 00000167 17 4 29 5 GetAddress 0 20 "{1}" "{4}" "{3}" 13 8 5 17 5 6 5 5 -1 18 0 11 00000359 17 6 10 00000512 17 8 6 4 5 1 18 0 11 00000440 17 9 29 6 NewAddress 6 5 8 6 10 00000499 17 11 0 15 "{5}" 2 "45" 13 0 16 "{6}" "~" [X] 13 8 6 10 00000215 17 14 0 287 "AdrsBook" "Name{0}" "{6}" "amipro2.ini" 6 2 15 17 15 9 14 DeleteRetName 29 0 hDlg 29 1 ID 29 2 text 29 3 DeleteRetName 17 2 0 32 2 17 3 29 4 NumNames 0 286 "AdrsBook" "NumNames" "amipro2.ini" 13 8 4 17 4 29 5 NameToDelete 0 42 "{0}" 9502 13 8 5 17 5 29 6 USure 0 2 "Are you sure that you want to delete this return address?" 13 8 6 17 6 6 6 5 1 18 0 11 00000825 29 7 i 5 1 8 7 17 7 6 4 6 7 18 2 12 00000433 10 00000812 5 1 6 7 3 0 8 7 10 00000352 17 8 29 8 CompName 0 286 "AdrsBook" "Name{7}" "amipro2.ini" 13 8 8 17 9 0 20 "{8}" 1 "~" 13 8 8 17 10 6 8 6 5 18 0 11 00000799 17 11 0 287 "AdrsBook" "Name{7}" "" "amipro2.ini" 17 12 29 9 Index 0 61 "{0}" 9502 13 8 9 17 13 0 65 "{0}" 9502 "{9}" 17 14 0 62 "{0}" 9502 0 17 15 0 54 "{0}" 8002 17 18 16 FillRetAddBox "{0}" 9502 6 3 15 9 10 00000400 10 00000837 6 3 15 9 6 3 15 17 26 9 14 GetAddrs 29 0 AddrsText 29 1 GetAddrs 17 1 0 32 2 17 2 29 2 macpath 0 265 "macpath" 13 8 2 17 3 29 3 Box 0 26 "{2}amienv.dlg" "Adrs" 13 8 3 17 4 6 3 5 -1 18 0 11 00000219 6 1 15 9 10 00000266 17 6 6 3 5 0 18 0 11 00000266 6 1 15 9 17 9 0 27 8002 13 28 0 6 1 15 17 10 9 14 ModEnvPage 29 0 EnvSize 29 1 EnvFeed 29 2 Width 29 3 Height 29 4 ModEnvPage 17 2 0 32 2 17 3 29 5 ini_section 0 265 "ini_section" 13 8 5 17 4 29 6 MacPath 0 265 "macpath" 13 8 6 17 5 29 7 NumSizes 0 286 "EnvelopeSizes" "NumSizes" "amienv.ini" 13 8 7 17 6 29 8 Orientation 0 286 "{5}" "Orientation" "amipro2.ini" 13 8 8 17 7 29 9 Cnt 5 4 8 9 17 8 29 10 CntH 5 4 8 10 17 9 29 11 CntF 5 4 8 11 29 12 i 5 1 8 12 17 10 6 7 6 12 18 2 12 00000539 10 00000775 5 1 6 12 3 0 8 12 10 00000454 17 11 29 13 GetSize 0 286 "EnvelopeSizes" "Size{12}" "amienv.ini" 13 8 13 17 12 29 14 CompSize 0 20 "{13}" 1 "~" 13 8 14 17 13 6 0 6 14 18 0 11 00000762 17 14 0 20 "{13}" 2 "~" 13 8 0 17 15 10 00000775 10 00000504 17 18 29 15 IsSetting 0 20 "{13}" 2 "~" 13 8 15 17 19 6 15 5 -1 18 0 11 00000950 17 20 0 3 "No settings for envelope size - Exiting function!" 17 21 6 15 15 9 17 25 6 9 29 16 Pl 21 16 [X] 17 26 6 10 29 17 Hd 21 17 [X] 17 27 6 11 29 18 Ft 21 18 [X] 17 28 5 4 29 19 EnvPgSz 21 19 [X] 17 29 6 1 5 1 18 0 6 8 7 "Portrait" 18 0 1 2 11 00001454 17 30 29 20 EnvPg 0 286 "{0}" "EnvPgLayout2" "amienv.ini" 13 8 20 17 31 29 21 EnvHd 0 286 "{0}" "EnvHdLayout2" "amienv.ini" 13 8 21 17 32 29 22 EnvFt 0 286 "{0}" "EnvFtLayout2" "amienv.ini" 13 8 22 17 33 29 23 EnvPgSize 0 286 "{0}" "EnvPgSize2" "amienv.ini" 13 8 23 10 00001680 17 35 0 286 "{0}" "EnvPgLayout" "amienv.ini" 13 8 20 17 36 0 286 "{0}" "EnvHdLayout" "amienv.ini" 13 8 21 17 37 0 286 "{0}" "EnvFtLayout" "amienv.ini" 13 8 22 17 38 0 286 "{0}" "EnvPgSize" "amienv.ini" 13 8 23 5 1 8 12 17 40 5 4 6 12 18 2 12 00001776 10 00001981 5 1 6 12 3 0 8 12 10 00001691 17 41 6 12 0 20 "{23}" "{12}" "~" 13 23 19 17 42 6 12 0 20 "{20}" "{12}" "~" 13 23 16 17 43 6 12 0 20 "{21}" "{12}" "~" 13 23 17 17 44 6 12 0 20 "{22}" "{12}" "~" 13 23 18 10 00001741 17 48 6 0 7 "Custom" 18 0 11 00002183 17 49 5 1 6 2 5 15840 6 2 5 0.44 4 1 3 1 3 0 23 16 17 50 5 2 6 3 6 3 5 0.06 4 0 3 0 23 16 17 51 5 1 5 16340 6 2 5 0.44 4 1 3 1 23 17 17 55 6 8 7 "Portrait" 18 1 11 00002586 17 56 29 24 Position 0 286 "{5}" "Position" "amipro2.ini" 13 8 24 17 57 6 24 5 2 18 0 11 00002437 17 58 5 2 5 2 22 16 5 3240 3 0 23 16 17 59 5 2 5 2 22 17 5 3240 3 0 23 17 10 00002586 17 60 6 24 5 3 18 0 11 00002586 17 61 5 2 5 2 22 16 5 6264 3 0 23 16 17 62 5 2 5 2 22 17 5 6264 3 0 23 17 17 63 5 1 5 0 23 18 17 68 6 8 7 "Portrait" 18 0 6 0 7 "Custom" 18 1 1 1 11 00002728 17 69 0 49 17 70 0 50 1 17 71 5 0 30 7 6 9 16 40 10 00003134 17 72 6 8 7 "Portrait" 18 0 6 1 5 1 18 0 1 2 6 0 7 "Custom" 18 0 1 1 11 00003134 17 73 5 1 6 3 5 0.4 4 1 23 19 17 74 5 2 6 2 5 0.4 4 1 23 19 17 75 5 1 6 2 23 16 17 76 5 2 6 3 5 360 3 0 23 16 17 77 5 1 5 500 23 17 17 78 5 2 5 500 23 17 17 79 5 2 5 1440 23 18 17 80 0 49 17 81 6 8 7 "Portrait" 18 0 11 00003119 17 82 5 0 30 7 6 9 16 40 17 84 0 50 1 17 91 29 25 Adjust 0 286 "{5}" "AdjAmount" "amipro2.ini" 13 8 25 17 92 5 1 5 1 22 17 0 20 "{25}" 2 "~" 13 3 0 23 17 17 93 5 2 5 2 22 17 0 20 "{25}" 1 "~" 13 3 0 23 17 17 94 5 1 5 1 22 16 0 20 "{25}" 4 "~" 13 3 0 23 16 17 95 5 2 5 2 22 16 0 20 "{25}" 3 "~" 13 3 0 23 16 17 97 0 49 17 98 33 7 6 9 16 17 99 5 1 22 19 16 TwipsToUnits [X] 13 30 12 17 100 5 2 22 19 16 TwipsToUnits [X] 13 30 11 17 101 5 1 22 16 16 TwipsToUnits [X] 13 30 14 17 102 5 3 22 16 16 TwipsToUnits [X] 13 30 16 17 103 5 2 22 16 16 TwipsToUnits [X] 13 30 15 17 104 5 4 22 16 16 TwipsToUnits [X] 13 30 17 17 105 0 69 1 17 106 33 107 17 107 5 1 22 17 16 TwipsToUnits [X] 13 30 14 17 108 5 3 22 17 16 TwipsToUnits [X] 13 30 16 17 109 5 2 22 17 16 TwipsToUnits [X] 13 30 15 17 110 5 4 22 17 16 TwipsToUnits [X] 13 30 17 17 111 0 69 1 17 112 33 108 17 113 5 1 22 18 16 TwipsToUnits [X] 13 30 14 17 114 5 3 22 18 16 TwipsToUnits [X] 13 30 16 17 115 5 2 22 18 16 TwipsToUnits [X] 13 30 15 17 116 5 4 22 18 16 TwipsToUnits [X] 13 30 17 17 117 0 69 5 17 118 0 50 1 6 4 15 17 119 9 14 CustomSize 29 0 Size 29 1 CustomSize 17 1 0 32 2 17 2 5 0.44 6 0 4 0 8 1 17 3 6 1 15 9 6 1 15 17 4 9 14 AdjustSettings 29 0 hDlg 29 1 Id 29 2 AdjustSettings 17 3 0 32 2 17 4 29 3 ini_section 0 265 "ini_section" 13 8 3 17 5 29 4 MacPath 0 265 "macpath" 13 8 4 17 6 29 5 Units 16 GetUnits "{5}" 13 8 5 17 7 29 6 AdjAmount 0 286 "{3}" "AdjAmount" "amipro2.ini" 13 8 6 17 8 29 7 AdjSettings 0 286 "{3}" "AdjSettings" "amipro2.ini" 13 8 7 17 9 29 8 Num 5 1 8 8 29 9 i 5 8000 8 9 17 10 5 8004 6 9 18 2 12 00000496 10 00000725 5 1 6 9 3 0 8 9 10 00000411 17 11 29 10 FillIt 0 20 "{6}" "{8}" "~" 13 8 10 17 12 6 10 5 0 18 5 11 00000616 17 13 6 10 5 -1 4 0 8 10 17 15 16 ConvertToUnits "{10}" 13 8 10 17 16 0 31 "{9}" "{10}" 17 17 6 8 5 1 3 0 8 8 10 00000463 17 20 5 1 8 8 5 23 8 9 17 21 5 30 6 9 18 2 12 00000836 10 00000941 5 1 6 9 3 0 8 9 10 00000753 17 22 0 20 "{7}" "{8}" "~" 13 8 10 17 23 0 31 "{9}" "{10}" 17 24 6 8 5 1 3 0 8 8 10 00000803 17 27 0 31 1001 "{5}" 17 30 0 41 20 "AdjCheck" 17 31 0 73 238 17 32 29 11 Box 0 26 "{4}amienv.dlg" "adjust" 13 8 11 17 33 6 11 5 -1 18 0 11 00001118 6 2 15 9 6 2 15 17 36 9 14 AdjCheck 29 0 hDlg 29 1 Id 29 2 AdjCheck 17 1 0 32 2 17 2 29 3 ini_section 0 265 "ini_section" 13 8 3 17 3 29 4 Units 16 GetUnits "{4}" 13 8 4 17 4 5 8 29 5 sign 21 5 [X] 17 5 29 6 Num 5 1 8 6 29 7 i 5 23 8 7 17 6 5 30 6 7 18 2 12 00000321 10 00000592 5 1 6 7 3 0 8 7 10 00000239 17 7 6 7 5 23 18 0 11 00000443 17 8 29 8 AdjSettings 0 42 "{0}" "{7}" 13 8 8 17 9 5 1 6 8 23 5 10 00000552 17 11 29 9 NextNum 0 42 "{0}" "{7}" 13 8 9 17 12 0 16 "{8}" "~" "{9}" 13 8 8 17 13 6 6 6 9 23 5 17 15 6 6 5 1 3 0 8 6 10 00000288 17 17 29 10 RetY 0 42 "{0}" 8000 13 16 ConvertToTwips [X] 13 8 10 17 18 6 10 5 4320 18 3 6 10 5 0 18 5 1 2 11 00000887 17 19 0 39 13 13 16 ConvertToUnits 4320 13 0 16 "The number entered must" [X] "be between 0.00 and " [X] 13 0 3 [X] 17 20 0 55 "{0}" 8000 6 2 15 9 17 23 5 1 22 5 5 1 18 0 11 00000959 17 24 6 10 5 -1 4 0 8 10 17 26 29 11 RetX 0 42 "{0}" 8001 13 16 ConvertToTwips [X] 13 8 11 17 27 6 11 5 4320 18 3 6 11 5 0 18 5 1 2 11 00001254 17 28 0 39 13 13 16 ConvertToUnits 4320 13 0 16 "The number entered must" [X] "be between 0.00 and " [X] 13 0 3 [X] 17 29 0 55 "{0}" 8001 6 2 15 9 17 32 5 3 22 5 5 1 18 0 11 00001326 17 33 6 11 5 -1 4 0 8 11 17 35 29 12 RecY 0 42 "{0}" 8002 13 16 ConvertToTwips [X] 13 8 12 17 36 6 12 5 4320 18 3 6 12 5 0 18 5 1 2 11 00001621 17 37 0 39 13 13 16 ConvertToUnits 4320 13 0 16 "The number entered must" [X] "be between 0.00 and " [X] 13 0 3 [X] 17 38 0 55 "{0}" 8002 6 2 15 9 17 41 5 5 22 5 5 1 18 0 11 00001693 17 42 6 12 5 -1 4 0 8 12 17 44 29 13 RecX 0 42 "{0}" 8003 13 16 ConvertToTwips [X] 13 8 13 17 45 6 13 5 4320 18 3 6 13 5 0 18 5 1 2 11 00001988 17 46 0 39 13 13 16 ConvertToUnits 4320 13 0 16 "The number entered must" [X] "be between 0.00 and " [X] 13 0 3 [X] 17 47 0 55 "{0}" 8003 6 2 15 9 17 50 5 7 22 5 5 1 18 0 11 00002060 17 51 6 13 5 -1 4 0 8 13 17 55 29 14 AdjAmount 0 16 "{10}" "~" "{11}" "~" "{12}" "~" "{13}" 13 8 14 17 56 0 287 "{3}" "AdjAmount" "{14}" "amipro2.ini" 17 57 0 287 "{3}" "AdjSettings" "{8}" "amipro2.ini" 17 58 0 64 "{0}" 6 2 15 17 60 9 14 Printset 29 0 PrinterName 29 1 Printset 17 1 0 32 2 17 2 33 2 91 13 11 00000783 17 3 5 100 29 2 prts 21 2 [X] 17 4 5 100 29 3 streams 21 3 [X] 17 5 29 4 pcnt 32 0 32 91 0 &2 13 8 4 17 6 6 4 5 0 18 3 11 00000768 29 5 i 5 1 8 5 17 7 6 4 6 5 18 2 12 00000341 10 00000768 5 1 6 5 3 0 8 5 10 00000260 17 8 29 6 p 6 5 22 2 8 6 17 9 33 10 ( "{6}" ) 13 11 00000755 17 10 29 7 scnt 32 0 32 34 0 &3 13 8 7 17 11 6 7 5 0 18 3 11 00000740 29 8 j 5 1 8 8 17 12 6 7 6 8 18 2 12 00000593 10 00000740 5 1 6 8 3 0 8 8 10 00000511 17 13 29 9 Str 6 8 22 3 8 9 17 14 6 9 6 0 18 0 11 00000727 17 16 6 0 30 34 17 17 6 6 30 29 17 18 0 69 2 6 1 15 9 10 00000560 17 23 0 69 1 10 00000308 17 27 0 69 2 6 1 15 17 29 9 14 NewPrintDef 29 0 PrinterName 29 1 NewPrintDef 17 1 0 32 2 17 2 33 2 91 13 11 00000892 17 3 5 100 29 2 prts 21 2 [X] 17 4 5 100 29 3 streams 21 3 [X] 17 5 29 4 pcnt 32 0 32 91 0 &2 13 8 4 17 6 6 4 5 0 18 3 11 00000877 29 5 i 5 1 8 5 17 7 6 4 6 5 18 2 12 00000347 10 00000877 5 1 6 5 3 0 8 5 10 00000266 17 8 29 6 p 6 5 22 2 8 6 17 9 33 10 ( "{6}" ) 13 11 00000864 17 10 29 7 scnt 32 0 32 34 0 &3 13 8 7 17 11 6 7 5 0 18 3 11 00000849 29 8 j 5 1 8 8 17 12 6 7 6 8 18 2 12 00000599 10 00000849 5 1 6 8 3 0 8 8 10 00000517 17 13 29 9 Str 6 8 22 3 8 9 17 14 6 9 6 0 18 0 11 00000836 17 15 29 10 IsSection 16 NewPrintDefSet "{6}" "{9}" 13 8 10 17 16 0 69 2 17 17 6 10 5 1 18 0 11 00000817 17 18 5 1 15 9 10 00000836 17 20 5 0 15 9 10 00000566 17 25 0 69 1 10 00000314 17 29 0 69 2 6 1 15 17 31 9 14 WriteDefs 29 0 RetName 29 1 Printer 29 2 EnvSize 29 3 PrintRet 29 4 EnvFeed 29 5 CustomWidth 29 6 CustomHeight 29 7 WriteDefs 17 1 0 32 2 17 2 29 8 ini_section 0 265 "ini_section" 13 8 8 17 3 0 287 "EnvDefaults" "Printer" "{1}" "amipro2.ini" 17 4 0 287 "{8}" "EnvSize" "{2}" "amipro2.ini" 17 5 0 287 "EnvDefaults" "RetName" "{0}" "amipro2.ini" 17 6 0 287 "{8}" "PrintRetDef" "{3}" "amipro2.ini" 17 7 0 287 "{8}" "EnvFeed" "{4}" "amipro2.ini" 17 8 0 287 "{8}" "CustomWidth" "{5}" "amipro2.ini" 17 9 0 287 "{8}" "CustomHeight" "{6}" "amipro2.ini" 6 7 15 17 10 9 14 SetDefaults 29 0 SetDefaults 17 1 0 32 2 17 2 0 287 "EnvDefaults" "Printer" 91 "amipro2.ini" 17 3 0 287 "EnvDefaults" "EnvSize" "Size 10 (9 1/2 x 4 1/8 in)" "amipro2.ini" 17 4 0 287 "EnvDefaults" "PrintRetDef" 1 "amipro2.ini" 17 5 0 287 "EnvDefaults" "EnvFeed" 0 "amipro2.ini" 17 6 0 287 "EnvDefaults" "Position" 1 "amipro2.ini" 17 7 0 287 "EnvDefaults" "Orientation" "Landscape" "amipro2.ini" 17 8 0 287 "AdrsBook" "NumNames" 1 "amipro2.ini" 17 9 0 287 "AdrsBook" "Name1" "" "amipro2.ini" 6 0 15 17 10 9 14 Autoshade 29 0 Autoshade 17 3 29 1 Compline 17 4 0 6 "[27][27][16420][27]" 17 6 0 6 "[16424]" 17 7 33 23 13 11 00000169 17 8 0 69 1 17 9 10 00001371 17 11 31 7 42 13 5 1 18 3 11 00000233 17 12 10 00001371 17 14 29 2 curpar 16 _$$4GetTextBeforeCursor 13 8 2 17 15 16 _$$4AtEof 13 11 00000361 17 16 10 00001371 10 00000509 17 17 0 14 "{2}" 13 5 60 18 3 6 2 6 1 18 0 0 806 "{2}" 1 13 0 39 9 13 18 0 1 2 1 2 11 00000509 17 18 6 2 8 1 17 19 10 00000084 17 21 29 3 lincount 5 0 8 3 17 22 6 2 8 1 17 23 5 1 11 00001118 17 24 0 6 "[16424]" 17 25 33 23 13 11 00000672 17 26 0 69 1 17 27 10 00001371 17 29 31 7 42 13 5 1 18 3 11 00000736 17 30 10 00001371 17 32 16 _$$4GetTextBeforeCursor 13 8 2 17 33 0 14 "{2}" 13 5 65 18 3 6 2 7 "" 18 0 6 2 6 1 18 0 0 806 "{2}" 1 13 0 39 9 13 18 0 16 _$$4AtEof 13 1 2 1 2 1 2 1 2 11 00001061 17 34 16 _$$4AtEof 13 11 00001014 17 35 6 3 5 2 3 0 8 3 10 00001041 17 37 6 3 5 1 3 0 8 3 17 39 10 00001118 17 41 6 3 5 1 3 0 8 3 17 42 6 2 8 1 10 00000558 17 44 6 3 5 2 18 3 6 3 5 7 18 5 1 1 11 00001323 29 4 i 5 1 8 4 17 45 6 3 6 4 18 2 12 00001275 10 00001310 5 1 6 4 3 0 8 4 10 00001193 17 46 0 6 "[20518]" 10 00001242 10 00001343 17 49 10 00000084 17 51 2 154 1 6 0 15 9 17 54 29 5 NoText 5 1 8 5 17 55 6 5 15 9 6 0 15 17 56 9 14 TwipsToUnits 29 0 Value 29 1 TwipsToUnits 17 1 0 32 2 17 2 6 0 5 3276.8 4 0 8 0 17 3 6 0 15 9 6 1 15 17 4 9 14 ConvertToTwips 29 0 Value 29 1 ConvertToTwips 17 1 0 32 2 17 2 29 2 Units 16 GetUnits "{2}" 13 8 2 17 3 7 "Inches" 6 2 18 0 11 00000196 17 5 6 0 5 1440 4 0 8 0 10 00000411 7 "CM" 6 2 18 0 11 00000271 17 7 6 0 5 566.9 4 0 8 0 10 00000411 7 "Picas" 6 2 18 0 11 00000347 17 9 6 0 5 240 4 0 8 0 10 00000411 7 "Points" 6 2 18 0 11 00000411 17 11 6 0 5 20 4 0 8 0 17 13 6 0 15 9 6 1 15 17 14 9 14 ConvertToUnits 29 0 Value 29 1 ConvertToUnits 17 1 0 32 2 17 2 29 2 Units 16 GetUnits "{2}" 13 8 2 17 3 7 "Inches" 6 2 18 0 11 00000196 17 5 6 0 5 1440 4 1 8 0 10 00000411 7 "CM" 6 2 18 0 11 00000271 17 7 6 0 5 566.9 4 1 8 0 10 00000411 7 "Picas" 6 2 18 0 11 00000347 17 9 6 0 5 240 4 1 8 0 10 00000411 7 "Points" 6 2 18 0 11 00000411 17 11 6 0 5 20 4 1 8 0 17 13 0 19 "" "" 2 "{0}" 13 8 0 17 14 6 0 15 9 6 1 15 17 15 9 14 SetPrinter 29 0 hDlg 29 1 Id 29 2 SetPrinter 17 1 0 32 2 17 2 29 3 NewPrinter 0 42 "{0}" 9500 13 8 3 17 3 0 264 "ini_section" "{3}" 17 4 0 264 "ChangePrinter" 1 17 5 16 FillEnvelopeSizesBox "{0}" "{1}" 17 6 29 4 IsSettings 0 286 "{3}" "EnvSize" "amipro2.ini" 13 8 4 17 7 6 4 7 "" 18 0 11 00000786 17 8 29 5 IsSection 16 NewPrintDef "{3}" 13 8 5 17 9 0 287 "{3}" "EnvSize" "Size 10 (9 1/2 x 4 1/8 in)" "amipro2.ini" 17 10 0 287 "{3}" "PrintRetDef" 1 "amipro2.ini" 17 11 0 287 "{3}" "EnvFeed" 0 "amipro2.ini" 17 12 16 NewPrintDef "{3}" 17 13 6 5 5 1 18 0 11 00000786 17 14 0 287 "{3}" "Position" 1 "amipro2.ini" 17 15 0 287 "{3}" "Orientation" "Landscape" "amipro2.ini" 17 16 0 287 "{3}" "AdjSettings" "1~0~1~0~1~0~1~0" "amipro2.ini" 17 19 0 286 "{3}" "PrintRetDef" "amipro2.ini" 13 5 1 4 0 0 43 "{0}" 20 [X] 17 20 0 286 "{3}" "EnvFeed" "amipro2.ini" 13 5 1 4 0 0 43 "{0}" 21 [X] 6 2 15 17 21 9 14 GetUnits 29 0 Units 29 1 GetUnits 17 1 0 32 2 17 2 31 101 45 30 13 8 0 17 3 5 1 6 0 18 0 11 00000154 17 5 7 "Inches" 8 0 10 00000332 5 2 6 0 18 0 11 00000215 17 7 7 "CM" 8 0 10 00000332 5 3 6 0 18 0 11 00000279 17 9 7 "Picas" 8 0 10 00000332 5 4 6 0 18 0 11 00000332 17 11 7 "Points" 8 0 17 13 6 0 15 9 6 1 15 17 14 9 14 NewPrintDefSet 29 0 PrinterName 29 1 Stream 29 2 NewPrintDefSet 17 1 0 32 2 17 3 29 3 AdjAmount 0 286 "{0}" "AdjAmount" "amienv.ini" 13 8 3 17 4 6 3 7 "" 18 0 11 00000208 17 5 5 1 15 9 17 7 29 4 AdjSettings 0 286 "{0}" "AdjSettings" "amienv.ini" 13 8 4 17 8 29 5 Position 0 286 "{0}" "Position" "amienv.ini" 13 8 5 17 9 29 6 Orientation 0 286 "{0}" "Orientation" "amienv.ini" 13 8 6 17 10 0 287 "{1}" "AdjAmount" "{3}" "amipro2.ini" 17 11 0 287 "{1}" "AdjSettings" "{4}" "amipro2.ini" 17 12 0 287 "{1}" "Position" "{5}" "amipro2.ini" 17 13 0 287 "{1}" "Orientation" "{6}" "amipro2.ini" 6 2 15 17 14 9 00076896