home *** CD-ROM | disk | FTP | other *** search
Wrap
INI File | 1993-12-15 | 12.3 KB | 763 lines
[ver] 4 [sty] [files] [charset] 82 ANSI (Windows, IBM CP 1252) [revisions] 0 [prn] HP LaserJet IIISi [port] LPT3: [lang] 1 [desc] DAZzle Macros for Ami Pro Envelope Manager Software DAZzle to Ami Pro Macros Autorun 745204010 10 744344902 340 3 0 0 0 0 DAZzle Dial-A-ZIP Envelope Printing 1 [fopts] 0 1 0 0 [lnopts] 2 Body Text 1 [docopts] 5 2 [GramStyle] [ParaNum] 1 [tag] Body Text 2 [fnt] Arial 240 0 16384 [algn] 1 1 216 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 16 0 0 [nfmt] 272 1 3 . , $ Body Text 0 0 [tag] Body Single 3 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Single 0 0 [tag] Function 4 [fnt] Arial 240 0 16385 [algn] 1 1 0 0 0 [spc] 33 244 1 0 0 1 100 [brk] 68 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 3 . , $ 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 [hrght] [lyfrm] 1 11200 0 0 12240 1440 0 1 3 1 0 0 0 0 0 0 0 0 1 [frmlay] 1440 12240 1 1440 72 1 792 1440 0 1 0 1 1 0 1 1440 10800 1 3 9360 [txt] > [frght] [lyfrm] 1 13248 0 14400 12240 15840 0 1 3 1 0 0 0 0 0 0 0 0 2 [frmlay] 15840 12240 1 1440 792 1 14472 1440 0 1 0 1 1 0 1 1440 10800 2 2 4680 3 9360 [txt] > [elay] [l1] 0 [pg] 3 50 0 33 0 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 103 0 75 0 0 1 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 121 0 8 1025 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 [edoc] <:#231,9360><:f200,,>FUNCTION AddDAZzleMacros() <:#231,9360><:f200,,>'SingleStep(1)<:f> <:#231,9360><:f200,,> <:#462,9360><:f200,,>'IF MultiDecide("Do you want to install the DAZzle-Ami Pro Macros now?", 'YesNoButton+QuestionIcon, "Install DAZzle Macros") = 7 <:#231,9360><:f200,,>' EXIT FUNCTION <:#231,9360><:f200,,>'ENDIF <:#231,9360><:f200,,> <:#231,9360><:f200,,>StatusBarMsg("Adding ""DAZzle"" to the <:f><:f200,,>Ami Pro menu bar.") <:#231,9360><:f200,,>' get the name of this macro file <:#231,9360><:f200,,>MacFile = GetRunningMacroFile$() <:#231,9360><:f200,,> <:#231,9360><:f200,,>' Add the new DAZzle Menu <:#231,9360><:f200,,>AddMenu(1,"&DAZzle") <:f200,,>AddMenuItem(1,"&DAZzle","&Print Envelope/Label","{MacFile}!DAZzlePrint()","Print an Envelope or label using DAZzle.") <:#462,9360><:f200,,>AddMenuItem(1,"&DAZzle","&Dial-A-ZIP","{MacFile}!DAZzleDialAZIP()","Run DAZzle's Dial-A-ZIP to <:f200,,>verify and correct an address.") <:#462,9360><:f200,,>AddMenuItem(1,"&DAZzle","&Insert POSTNET bar code","{MacFile}!DAZzleBarcode()","Insert a POSTNET bar code above selected address.") <:#231,9360><:f200,,>AddMenuItem(1, "&DAZzle", "-", "", "") <:#462,9360><:f200,,>AddMenuItem(1, "&DAZzle", "&Remove DAZzle Menu", "{MacFile}!RemoveDAZzle()", "Remove the DAZzle menu.") <:#231,9360><:f200,,> <:#231,9360><:f200,,><:f><:f200,,>'Change the Print Envelope Button <:#462,9360><:f200,,>ChangeMenuAction(1, "&File", "Print En&velope...",,"{MacFile}!DAZzlePrint()","Print an envelope using DAZzle.") <:f200,,><:f><:f200,,><:f200,,> <:f200,,>StatusBarMsg(" ""DAZzle"" added to the <:f><:f200,,>Ami Pro menu bar.")<:f> <:f200,,> <:#231,9360><:f200,,>END FUNCTION <+@><:S+-1><:#231,9360><:f200,,> <+@><:S+-1><:#231,9360><:f200,,> <+@><:S+-1><:#231,9360><:f200,,>FUNCTION DAZzlePrint() <:#231,9360><:f200,,>'SingleStep(1)<:f> <:S+-1><:#231,9360><:f200,,> <+@><:S+-1><:#231,9360><:f200,,>ChanNum = DDEInitiate("DAZzle", "DDEPrint") <:S+-1><:#231,9360><:f200,,>IF ChanNum = 0 <:#235,9360><:f200,QCourier,0,0,255> ' not running<:f> <+@><:S+-1><:#231,9360><:f200,,> Message ("DAZzle must running to print an envelope.", "DAZzle Printing") <:#231,9360><:f200,,> EXIT FUNCTION <:#231,9360><:f200,,>ENDIF <:#231,9360><:f200,,> <+@><:S+-1><:#231,9360><:f200,,>Text = CurShade$() <+@><:S+-1><:#231,9360><:f200,,>'Position = CursorPosition$() <+@><:S+-1><:#231,9360><:f200,,>IF LEN(Text) << 20 <+@><:S+-1><:#231,9360><:f200,,> Message ("You must select the address before <:f><:f200,,>printing an envelope.", "DAZzle Printing") <:#231,9360><:f200,,> EXIT FUNCTION<:f> <+@><:S+-1><:#231,9360><:f200,,>ENDIF <+@><:S+-1><:#231,9360><:f200,,>DDEPoke(ChanNum, "DDEPrint", Text) <+@><:S+-1><:#231,9360><:f200,,>DDETerminate (ChanNum) <+@><:S+-1><:#231,9360><:f200,,> <+@><:S+-1><:#231,9360><:f200,,>End FUNCTION <+@><:S+-1><:#231,9360><:f200,,> <+@><:S+-1><:#231,9360><:f200,,> <+@><:S+-1><:#231,9360><:f200,,>FUNCTION DAZzleDialAZIP() <:#231,9360><:f200,,>'SingleStep(1) <:S+-1><:#231,9360><:f200,,> <+@><:S+-1><:#231,9360><:f200,,>ChanNum = DDEInitiate("DAZzle", "DDEDialAZIP") <:S+-1><:#231,9360><:f200,,>IF ChanNum = 0 <:#235,9360><:f200,QCourier,0,0,255> ' not running<:f> <+@><:S+-1><:#231,9360><:f200,,> Message ("DAZzle must running to use Dial-A-ZIP.", "DAZzle & Dial-A-ZIP") <:#231,9360><:f200,,> EXIT FUNCTION <:#231,9360><:f200,,>ENDIF <:#231,9360><:f200,,> <+@><:S+-1><:#231,9360><:f200,,>Text = CurShade$() <+@><:S+-1><:#231,9360><:f200,,>'Position = CursorPosition$() <+@><:S+-1><:#231,9360><:f200,,>IF LEN(Text) << 20 <+@><:S+-1><:#231,9360><:f200,,> Message ("You must select the address before <:f><:f200,,>using Dial-A-ZIP<:f><:f200,,>.", "<:f><:f200,,>DAZzle & Dial-A-ZIP<:f><:f200,,>") <:#231,9360><:f200,,> EXIT FUNCTION<:f> <+@><:S+-1><:#231,9360><:f200,,>ENDIF <+@><:S+-1><:#231,9360><:f200,,>DDEPoke(ChanNum, <:f><:f200,,>"DDEDialAZIP"<:f><:f200,,>, Text) <+@><:S+-1><:#231,9360><:f200,,>DDETerminate (ChanNum) <+@><:S+-1><:#231,9360><:f200,,> <+@><:S+-1><:#231,9360><:f200,,>End FUNCTION <+@><:S+-1><:#284,9360> <+@><:S+-1><:#231,9360><:f200,,> <+@><:S+-1><:#231,9360><:f200,,>FUNCTION DAZzleBarCode() <:S+-1><:#231,9360><:f200,,> <+@><:S+-1><:#231,9360><:f200,,>ChanNum = DDEInitiate("DAZzle", "<:f><:f200,,>DDEBarCode<:><:f><:f200,,>") <:S+-1><:#231,9360><:f200,,>IF ChanNum = 0 <:#235,9360><:f200,QCourier,0,0,255> ' not running<:f> <+@><:S+-1><:#231,9360><:f200,,> Message ("DAZzle must running to insert a POSTNET bar code<:f><:f200,,>.", "DAZzle Barcoding<:f><:f200,,>") <:#231,9360><:f200,,> EXIT FUNCTION <:#231,9360><:f200,,>ENDIF @Subhead@<:S+-1><:#231,9360><:f200,,> <:S+-1><:#231,9360><:f200,,>Pos = CursorPosition$() <:S+-1><:#462,9360><:f200,,>Type( "<[>SHIFTDown]<[>SHIFTDown]<[>SHIFTDown]<[>SHIFTDown]<[>SHIFTDown]<[>SHIFTDown]<[>SHIFTDown]" ) <+@><:S+-1><:#231,9360><:f200,,>Text = CurShade$() <+@><:S+-1><:#231,9360><:f200,,>IF LEN(Text) << 20 <+@><:S+-1><:#462,9360><:f200,,> Message ("You must position your cursor at the beginning of the address before inserting a POSTNET bar code.", "DAZzle Barcoding") <:#231,9360><:f200,,> EXIT FUNCTION <+@><:S+-1><:#231,9360><:f200,,>ENDIF @Subhead@<:S+-1><:#231,9360><:f200,,> @Subhead@<:S+-1><:#231,9360><:f200,,>ClipboardA = ClipboardRead(1) <:f> <+@><:S+-1><:#231,9360><:f200,,>DDEPoke(ChanNum, "DDEBarCode<:>", Text) <+@><:S+-1><:#231,9360><:f200,,>DDETerminate (ChanNum) <:S+-1><:#231,9360><:f200,,> <:S+-1><:#231,9360><:f200,,>TYPE("<[>UP]<:f><:f200,,><[>Up]<:f><:f200,,><[>Up]<:f><:f200,,><[>Up]<[>Up]<[>Up]<[>Up]")<:f> @Subhead@<:S+-1><:#231,9360><:f200,,> @Subhead@<:S+-1><:#231,9360><:f200,,>if ClipboardRead(1) != ClipboardA <+@><:S+-1><:#231,9360><:f200,,> 'Bar code is in clipboard, just paste it in front of address <+@><:S+-1><:#231,9360><:f200,,> Paste() <:#231,9360><:f200,,> IF IsFrameSelected() <:#231,9360><:f200,,> x = strfield$(Pos, 1, ",") <:#231,9360><:f200,,> y = strfield$(Pos, 2, ",") <:S+-1><:#231,9360><:f200,,> FrameModInit() 'set up for changes <:#231,9360><:f200,,> FrameModBorders( (3.5*1440), (0.20*1440), x, y, 0, 0, 0, 0, 1) <:#231,9360><:f200,,> FrameModLines(0, 3, 1, 16777215, 16777215, 16777215, 0, 0, 0, 0) <:#231,9360><:f200,,> FrameModType(TextFrame+Opaque+NoWrapBeside+AnchorFrame<:f><:f200,,>, 0, "") <:#231,9360><:f200,,> FrameModFinish() 'apply changes <:S+-1><:#231,9360><:f200,,> ENDIF <+@><:S+-1><:#231,9360><:f200,,> <:S+-1><:#231,9360><:f200,,>ENDIF @Subhead@<:S+-1><:#231,9360><:f200,,> @Subhead@<:S+-1><:#231,9360><:f200,,>ClipboardWrite("",0)<:f> <:#231,9360><:f200,,> <+@><:S+-1><:#231,9360><:f200,,>End FUNCTION <+@><:S+-1><:#231,9360><:f200,,> @Function@<:S+-1><:#293,9360>FUNCTION RemoveDAZzle() <:#231,9360><:f200,,>DeleteMenu(1, "&DAZzle") <:#231,9360><:f200,,> <:#231,9360><:f200,,>'Change the Print Envelope Button <:#231,9360><:f200,,>ChangeMenuAction(1, "&File", "Print En&velope...",PrintEnvelope<:f><:f200,,>,"Print an address on an envelope.")<:f> <:#284,9360> @Function@<:#240,9360><:f200,,>END FUNCTION <+@><:S+-1><:#231,9360><:f200,,> > [Embedded] 00009989 > [macsum] 5 AddDAZzleMacros 0 0 2 0 DAZzlePrint 722 0 3 27 DAZzleDialAZIP 1082 0 3 49 DAZzleBarCode 1452 0 7 71 RemoveDAZzle 2343 0 1 113 [macse] 14 AddDAZzleMacros 0 789 "Adding ""DAZzle"" to the Ami Pro menu bar." 0 802 13 8 1 0 515 1 "&DAZzle" 0 516 1 "&DAZzle" "&Print Envelope/Label" "{1}!DAZzlePrint()" "Print an Envelope or label using DAZzle." 0 516 1 "&DAZzle" "&Dial-A-ZIP" "{1}!DAZzleDialAZIP()" "Run DAZzle's Dial-A-ZIP to verify and correct an address." 0 516 1 "&DAZzle" "&Insert POSTNET bar code" "{1}!DAZzleBarcode()" "Insert a POSTNET bar code above selected address." 0 516 1 "&DAZzle" "-" "" "" 0 516 1 "&DAZzle" "&Remove DAZzle Menu" "{1}!RemoveDAZzle()" "Remove the DAZzle menu." 0 523 1 "&File" "Print En&velope..." "{1}!DAZzlePrint()" "Print an envelope using DAZzle." 0 789 " ""DAZzle"" added to the Ami Pro menu bar." 6 0 15 9 14 DAZzlePrint 0 8 "DAZzle" "DDEPrint" 13 8 1 6 1 5 0 18 0 11 00000158 0 3 "DAZzle must running to print an envelope." "DAZzle Printing" 6 0 15 9 0 24 13 8 2 0 14 "{2}" 13 5 20 18 5 11 00000308 0 3 "You must select the address before printing an envelope." "DAZzle Printing" 6 0 15 9 0 35 "{1}" "DDEPrint" "{2}" 0 9 "{1}" 6 0 15 9 14 DAZzleDialAZIP 0 8 "DAZzle" "DDEDialAZIP" 13 8 1 6 1 5 0 18 0 11 00000165 0 3 "DAZzle must running to use Dial-A-ZIP." "DAZzle & Dial-A-ZIP" 6 0 15 9 0 24 13 8 2 0 14 "{2}" 13 5 20 18 5 11 00000315 0 3 "You must select the address before using Dial-A-ZIP." "DAZzle & Dial-A-ZIP" 6 0 15 9 0 35 "{1}" "DDEDialAZIP" "{2}" 0 9 "{1}" 6 0 15 9 14 DAZzleBarCode 0 8 "DAZzle" "DDEBarCode" 13 8 1 6 1 5 0 18 0 11 00000171 0 3 "DAZzle must running to insert a POSTNET bar code." "DAZzle Barcoding" 6 0 15 9 0 293 13 8 2 0 6 "[4136][4136][4136][4136][4136][4136][4136]" 0 24 13 8 3 0 14 "{3}" 13 5 20 18 5 11 00000430 0 3 "You must position your cursor at the beginning of the address before inserting a POSTNET bar code." "DAZzle Barcoding" 6 0 15 9 0 1037 1 13 8 4 0 35 "{1}" "DDEBarCode" "{3}" 0 9 "{1}" 0 6 "[38][38][38][38][38][38][38]" 0 1037 1 13 6 4 18 1 11 00000866 2 155 1 0 800 13 11 00000866 0 20 "{2}" 1 "," 13 8 5 0 20 "{2}" 2 "," 13 8 6 2 421 1 5 3.5 5 1440 4 0 5 0.20 5 1440 4 0 2 418 1 [X] [X] "{5}" "{6}" 0 0 0 0 1 2 416 1 0 3 1 16777215 16777215 16777215 0 0 0 0 5 512 5 64 3 0 5 131072 3 0 5 524288 3 0 2 417 1 [X] 0 "" 2 420 1 0 1038 "" 0 6 0 15 9 14 RemoveDAZzle 0 521 1 "&DAZzle" 0 523 1 "&File" "Print En&velope..." 237 "Print an address on an envelope." 6 0 15 9 00010014