Category : DeskTop Publishing in the 1990's
Archive   : ENVR30.ZIP
Filename : ENVR30.DOC

 
Output of file : ENVR30.DOC contained in archive : ENVR30.ZIP
›¥!Ÿ €û3^rÔ¦aaaaaaaofÕÕÕÕéùÕ#8H(pppppppvŒ…¾ÏíB/níaíí턆ENVELOPER 3.0
A Word for Windows 1.0/1.1 macro
To print envelopes on LaserJet-compatible printers

If you're new to Enveloper 3.0, skim over this document first, then:

To customize and install Enveloper, double-click macrobutton install >>HERE<<

----------------------------IMPORTANT!----ACHTUNG!----CUIDADO!---------------------------
The installer makes changes to global macros.
The next time you exit Word for Windows, you'll be asked if you want to
"Save global glossary and command changes?"
Be sure you click "YES", or you'll have to re-install Enveloper!

Why Enveloper?

Enveloper 3.0 is a "kitchen sink" macro to print envelopes on LaserJet-compatible printers. I wrote Enveloper specifically because the return address always came out smudged on my LJ III, sometimes beyond recognition; I was also tired of toggling between landscape and portrait orientation in WfW. I posted the original macro, Enveloper 1.0, on CompuServe – and it was downloaded more than 100 times in the first 3 days. Then came Enveloper 2.0, with its unique self-installing routine; it ran over 200 downloads in the first 10 days. To quote an expert in the field: "Cowabunga, dude!"

Dozens of people have helped make Enveloper what it is by contributing ideas, opinions, and comments. In particular, Guy Gallo's original PrintEnvelope 2.1 was my starting point. Though Enveloper has gone through a lot of twists and turns since its inception, Guy's pioneering work helped me through a bunch of tough spots. (And if you're looking for a quick, compact macro to print envelopes and don't like Enveloper's verbosity, by all means get a copy of Guy's PrintEnvelope!) Maurice Silberstein invented QwikPrint and several other improvements. Lee Zeis provided the manuals for the LJ II, IIP and IID, and lots of ideas and encouragement. Maurice, Lee, and dozens of others have sacrificed thousands of unsuspecting envelopes in pursuit of "The Cause". I would like to hear your ideas, too; my address is on Enveloper's opening screen. Don't be bashful!

This version of Enveloper has been tested on LJ II, IIP, IID, III, and IIID printers: it seems to work quite well on all of them. However, some "100%-compatibles" have problems at times. Please, if you encounter a problem – no matter how major or minor – let me know! Don't get discouraged, as a solution to your problem may only take a few seconds. When you get in touch, tell me exactly which printer you're using, and describe your problem as precisely as possible. That way, you'll not only get your problem solved, but you may solve many others' problems as well....

To help defray my CI$ costs, I've decided to "upgrade" Enveloper from Freeware to Shareware, effective with Version 3.0. If you use Enveloper a few times a week, just pass a copy along to a friend, smile, and don't worry about registering. If you use Enveloper a few times a day, I'd appreciate a $5 registration fee, along with your CompuServe i.d. number (if you have one), to keep you posted on updates. And I'm asking companies to register each site, with a blanket fee of $3 per user. It's all on the honor system; I'm not going to get rich printing envelopes, and I'll help anybody who asks, whether they're registered or not. But I would like to be able to pay for my support time on CompuServe. And the more time I can justify spending on Enveloper, the higher the chances I'll be able to add more interesting stuff. A nifty registration form is attached to the end of this document. Just use WfW to print page 7.

Enveloper 3.0 is Copyright © 1990 by Pinecliffe International. It is distributed as "Shareware", i.e., you are encouraged to disseminate Enveloper far and wide, providing it is distributed in its entirety and without charge, except for reimbursement of media and mailing costs, if applicable. There is a small registration fee for all but casual users; your fee will help defray my costs in developing and supporting Enveloper on the CompuServe "MSAPP" and "MSWIN" fora. I expressly reserve the right to change these distribution restrictions in future versions. Enveloper 3.0 is distributed without warranty, either expressed or implied, and without guarantee as to its suitability for a particular task. But I'm sure you're gonna like it....

What's new?

Version 3.0 expands Enveloper's scope from an LJ III-specific macro to one that can accommodate the original LaserJet, the LJ II, IIP, IID, III, and IIID, and all 100%-compatible laser printers. It adds support for the HP envelope feeder or tray – watch during installation for explanations that pertain to your printer. Version 3.0 also lets you print multiple copies of your envelope (thanks to Maurice Silberstein for that idea), turn QwikPrint on during installation (thanks to Lee Zeis for that'n), and change the name of the macro to something other than "Enveloper" (Lee at it again).

Ancient history: Version 2.1 corrected a bug in Version 2.0's Installation routine – Enveloper would not install correctly if you had checked the "Typing Replaces Selection" box . I also took one of Guy Gallo's comments to heart and allowed for the easy disabling of "SkipLines"; Guy thinks SkipLines is a kludge (he's probably right). But I, in my slovenly way, use it all the time. So Enveloper still provides for the use of "SkipLines", but only if you specifically request it during the Installation procedure.

Version 2.0 was a watershed improvement in Enveloper, with a new, easy-to-use customizing and installation routine. (Thanks to the hacks at Microsoft and "ISV.DOC".) Version 2.0 also introduced "QwikPrint", to print an envelope with just one click (thanks again to Maurice).

Version 1.0 was a "not ready for prime time" product that delighted those on the bleeding edge.

What duzzit do?

Enveloper starts by trying to "grab" an addressee from your document. (Normally, you'll run Enveloper after you've written a letter, while the letter is still showing on your screen.) Enveloper grabs in one of three ways:

1) If you've "selected" a block of text (by highlighting it or "turning it black"), Enveloper grabs the selected text and uses it as the addressee (the selection must be > 10 characters long, and if it's very long it will be truncated to 215 characters and eight lines); otherwise,

2) If you have a defined bookmark called "NameAddress" – which is a popular name in WfW templates – Enveloper will grab everything in that bookmark as the addressee (again, truncated to 215 characters and eight lines); otherwise,

3) If you enabled "SkipLines" during initial installation, Enveloper will start at the top of your letter, skip a set number of lines down (to jump over your logo, address, date, whatever – see "SkipLines" below), then gather the first bunch of non-blank lines that it finds and use that as an addressee (again, max eight lines, 215 characters).

Enveloper then presents your grabbed addressee for changes. You can accept the grabbed addressee or type in an entirely new addressee on-the-fly. And you can change the print font, bold, and/or italic. (If you're a Power User, familiar with Enveloper's requirements – and you're happy with all the defaults you've installed – you can click the "QwikPrint" box at this point, and you're done. )

Next, Enveloper asks you to specify a return address. You can select from three different return addresses – ones you typed in during the installation process – or you can enter a completely different return address on-the-fly. Again, you can choose fonts, bold, or italic, and you can make the first line different from the others.

Then Enveloper lets you choose from three different envelope sizes: Standard Business #10, Monarch, or the little Personal envelope #6. You can tack on a "Note" (e.g., "Foreign Airmail", "Interoffice Mail"), and specify its font. You also tell Enveloper if you want to feed your envelope manually, or use an envelope feeder, if your printer has one. Finally, you can choose to print more than one copy.

When Enveloper prints it writes directly to the printer, so it doesn't muck around with your WfW Portrait/Landscape setting, change your page format, etc.; it just non-chalantly takes complete control of the printer. To compensate for this rudeness, Enveloper returns your printer to you in something resembling a "normal" mode – what HP calls the "User Default Environment" – which is just the factory-set defaults, plus anything you've set on the printer's front panel. If it weren't for that crisp envelope in the output hopper, you'd hardly know Enveloper had been there at all. Work is under way to incorporate a suggestion from Dennis Williamson about making Enveloper less rude – a real spooler trooper, as it were. Keep your fingers crossed.

For those fortunate enough to have a printer that supports "reverse landscape" mode (i.e., LJ III and LJ IIID owners), Enveloper takes advantage of that mode to print the return address on the leading edge of your envelope. "Normal landscape" mode – which is the best you can coax out of LJ IIs – positions the return address on the trailing edge. In my experience, printing the return address on the leading edge of an envelope greatly reduces the chances of smudging. By the way, I don't have my envelopes engraved (in fact, I use the cheapest envelopes I can find) just because the LJ III, Enveloper and WfW do such a nice job. Keep that in mind when you're looking at new printers.

Customizing and Installing

You customize and install Enveloper by clicking up at the top of this document. (The routine works by running macros attached to this document, and then copying your customized macro into WfW as a global macro. If you don't understand this stuff, don't worry. Just click and stand back!) You can install and re-install Enveloper to your heart's content. Each time you re-install, though, you start over from scratch; unless you specifically change Enveloper's name during installation, your old version of Enveloper is wiped out. Each time Enveloper is updated, the Install routine cleans up everything from previous incarnations. Leave the "Enveloper" name alone and Enveloper will tidy up after itself.

Enveloper adds itself to the end of your "File" pull-down menu (the one you can see right now in the upper left corner of your screen), if it isn't already there. Once installation is complete, you can run Enveloper by simply clicking on "File", then "Enveloper" (or whatever new name you might give Enveloper). That's as complicated as it gets...

A few notes on customizing:

· Return Addresses: Enveloper can take up to three return addresses. Make your most-used return address the first one so you can use QwikPrint more often. You can leave one or more of the return addresses blank, if you like – when you run Enveloper, choosing a blank return address will (surprise!) result in no return address being printed on the envelope.

· SkipLines: Enveloper "straight out of the box" disables SkipLines (i.e., SkipLines is set OFF). You can turn SkipLines ON during installation by typing in a number between 0 and 20. If your letters always start about the same (e.g., logo, blank line, address, blank line, date), SkipLines can make your life much easier – you won't have to select the addressee before running Enveloper, plant a Bookmark, or worry about your mouse missing the last number of a ZIP code! Count the number of lines you usually have at the beginning of your letters, and use this as "SkipLines". Play around until you get it right – it'll save you gobs of time.

· QwikPrint: New with Version 3.0 is the option to set QwikPrint "ON" during installation. Please make sure you've played around with Enveloper for awhile before turning QwikPrint "ON"; its behavior can be a bit abrupt if you're not used to it. Setting QwikPrint "ON" during installation causes the first dialog box (the one that shows you an addressee) to have QwikPrint already checked when it comes up. You can then make sure the addressee is right, click "OK", and whistle a tune while Enveloper does everything else.

· Macro name: Also new with Version 3.0 is the ability to specify a macro name other than "Enveloper". If you're just a casual Enveloper user, don't mess around with the macro name. But if you're installing several versions of Enveloper (with, say, different sets of return addresses, different default fonts, or printers), this dialog box gives you the flexibility to name Enveloper anything you like. The new name will be appended to your "File" pull-down menu. Blanks are OK, but avoid punctuation marks.

I have encountered only one "run time error" to date (other than the Version 2.0 Install bug). When your return addresses (cumulatively) get too long for WfW 1.1's tastes, Enveloper will abruptly halt execution with Error 530, "Dialog Box Description Too Complex." If this should happen to you, re-install Enveloper with shorter return addresses. The error has nothing to do with the complexity of the Dialog Box – WfW 1.1 just can't handle too many characters at a time in any single macro dialog. (This is the same error that has forced me to limit addressees to 215 characters.)

I'm releasing Version 3.0 with a bit of fear and trepidation. Although I've managed to assemble a fine bunch of LJ and compatible users as beta testers, I haven't deluded myself into imagining that all eventualities have been encountered, much less handled, particularly with printers that are supposedly "100% HP compatible", but aren't. Many "compatible" printers have strange ways of handling envelope feeders and trays. So, please, if you hit a snag, let me know ASAP.

I'll try to incorporate all the inevitable fixes into a single big release – already called "Enveloper 3.1" – and post it on CompuServe in November, 1990. In the meantime, if you use an HP, or are fortunate enough to own a printer that really is HP compatible, Enveloper should work without a hitch. And if you register for Enveloper 3.0, I'll let you know the minute 3.1 is ready (either via CompuServe or the U.S. Mail). By the way, your $5 registration fee covers all "3.x" versions of Enveloper. Such a deal!

Advanced Topics

If you're just starting with Enveloper – or couldn't care less about macros and other esoterica – now is the time for you to go up to the beginning of this document and start customizing and installing. You don't need to know diddly-squat about macros to install Enveloper and make it jump through all sorts of hoops, so don't worry about the rest of this stuff.

Ahahhh. Now that I have the hackers' attention....

There are several parts of Enveloper that you can change, but they get a little hairy and you need to know more than a little bit about macros. This document/template (ENVR30.DOC) has two template macros attached to it. Install goes through the customization routines, then installs Enveloper as a global macro, and adds Enveloper to the "File" menu. Enveloper30 is the template macro that is modified by Install, and eventually copied out as a global macro, named Enveloper (or with a new name if one is specified). Enveloper was a pioneer in the install-modify-template-to-global-macro arena, so there are probably much better, faster, and/or easier ways to do all of this. As they say, necessity is a mother. I'd be very interested in any comments...

If you make changes to Enveloper, and later re-install Enveloper by clicking at the top of this document, you'll wipe out any changes you've made (which may be a good thing!), unless you specify a new global macro name during installation. If you want to make your changes very permanent (i.e., you want the changes to take effect every time you re-install Enveloper), make sure you change the template macro Enveloper30, not just the global macro Enveloper. (If you haven't already figured out the difference 'twixt template and global macros, Enveloper will probably show you more than you care to know – but be very careful when futzing about!)

I can think of five things a Power User might want to change, and I've tried to make them rather accessible. By all means, though, root around in the macros and change what you want, and let me know if you come up with something interesting.

Fonts: You can install as many "hard" fonts as you like; you only have to know the escape sequence your printer is looking for. Enveloper ships with 15 font choices for the LJ III and IIID: CG Times 6, 8, 10, 11, 12, 14; Univers 6, 8, 10, 11, 12, 14; Courier 10 and 12; and Line Printer 8.5: these are all fonts that come with the LJ III. Unfortunately, the Original LaserJet, LJ II, and IIP users only have two built-in fonts (I think) , Courier 12 point and Line Printer 8.5 point, and Enveloper only supports those two. The IID adds TmsRmn 8 and 12 and Helvetica 14 in the cart that ships with the printer (I think), so these are supported, too. But that's it. (If there's enough interest out there, though, I might add support for other fonts in Enveloper 4.0; the Microsoft "Z" cartridge and the Canon LBP-4 scalable fonts come to mind. Maybe soft fonts, too. Let me know what you'd like to see.)

To add your own "hard" fonts, go into "Macro"/"Edit" and click on the Install template macro. Look for your printer after the line that says "Select Case PrinterDlg.Printer". Change DimFonts to reflect how many fonts you want (N.B.: dimensioned variables start at zero!), then add your fonts – both description and escape sequence – to the end of the list. Re-install Enveloper by clicking at the top of this document, and you're done. Easy!

Notes: I've included all the "Notes" I could think of, but no doubt you'll eventually want some different ones. The procedure for changing them is similar to that for changing fonts, i.e., you should edit the Install template macro, change DimNotes, add your new notes to the end of the list, then re-install Enveloper. Since EnvelopeNotes$(0) is assumed to be the "Blank" Note, you should not change it. Any others may be changed however you like.

QwikerPrint: Real Power Users (gawd, ain't that macho...) can change Enveloper so it never shows you a screen. It's easy. Install Enveloper with QwikPrint "ON", then look in the Enveloper macro for "Dialog Addressee" and delete it (or change it into a comment). Personally, I've made this change in a new global macro I call "QwikEnveloper", and added it to my "File" menu. That way, if I'm absolutely sure the addressee grab is working right, I just load an envelope into my LJ III, click on "File" / "Qwik-Enveloper", and I'm done. My Comtrade 386/33 clone will run QwikEnveloper in less than five seconds, and print the envelope in less than ten seconds. That's Qwik! (By the way, I recommend Comtrade to all my clients... nice people, outstanding product, outrageous prices...)

Envelope registration: Enveloper's beta testers have spent days – no, weeks – with all sorts of envelopes, trying to get the registration (i.e., the precise location of print on the envelope) just right, placing the return address as far in the upper left corner as possible while minimizing "the smudgies." You might have a different idea of perfect registration, though, and I've made it fairly easy to adjust the appropriate variables. Keep in mind that the brand of envelope you use will affect smudging, as will humidity, temperature, etc., so your "perfect" setting today may not be perfect tomorrow. Sic transit gloria computeri.

To play with the registration, you can work with four variables near the beginning of the Enveloper global macro: TopMargin (number of "six-line-per-inch" lines to the top of the return address), LeftMarginCom10 (number of "Courier 12 pt characters" to the left of the return address on a Com-10 or Business/#10 size envelope), LeftMarginMonarch (characters to the return address on a Monarch size envelope), and LeftMarginPersonal (characters to the return address on a Personal/#6 envelope). I've been thinking about adding the ability to change margins during installation, but haven't yet decided if it will confuse more people than it will help.

If you're really serious about registration, you can search Enveloper for "Case Envelope.Size" and change two other variables: LinesToAddressee$ is the number of "six-lines-per-inch" lines from the top of the envelope to the addressee, and SecondLeftMargin$ is the number of "Courier 12 pt characters" to the left of the addressee. Don't change EnvelopeSize$, though. It's part of a command string that specifies the size of the envelope.

Six/eight lpi: I've hard-coded the return address and the addressee at six lines per inch, just because I think it looks better, but I left a variable in there so changing to eight lpi is easy. If you want your addressee in eight lpi, scan Enveloper for the line that starts "AddresseeFont$=", and change "SixLinesPerInch$" to "EightLinesPerInch$". To make the first line of the return address eight lpi, scan for "ReturnAddressFont1$=" and change "SixLinesPerInch$" to "EightLinesPerInch$"; to make the rest of the return address eight lpi, change the next line, which starts "ReturnAddressFont2$=", from "SixLinesPerInch$" to "EightLinesPerInch$".

If you find something else worth changing, or placing in the customizing routines, let me know!


European Envelopers Please Note: I am aware of a problem with printing umlauts and other "foreign" characters from Enveloper. In short, if you type in a "foreign" letter (like the "U with umlaut" to the right of the "P" on your keyboard), Word for Windows handles it just fine – but Enveloper does not. Tom King, reporting from Heidelberg, has had some luck in changing the Roman-8 symbol set to the Windows symbol set. It's easy to do: install Enveloper normally; then click on "Macro" then "Edit", then double-click on Enveloper; Edit Replace All "(8U" with "(9U"; and add Esc$ + "(8U" + to the right of the equals sign in StdCharSpacing$= (or change the left margins as described above). This seems like a perfectly reasonable approach, documented in the LaserJet III Technical Reference. Unfortunately, it isn't covered in the "official" PCL command list, and I didn't have time to beta test it on other printers – so I chickened out and left it for y'all on the other side of the little puddle to change. Let me know if it works for you.

If there's enough interest, I can put together a version of Enveloper specifically for you furriners, or I might be able to figure out a way to create a European version (with the Windows symbol set and metric envelope sizes) at installation time. And I'd love to have an excuse to do a Pacific-rim version.


Enveloper 3.0 ends here.
Copyright © 1990 Pinecliffe International
Post Office Drawer 7337
Coal Creek Canyon
Golden, Colorado USA 80403

Have fun!
A Nifty Registration Form


Woody Leonhard, President
Pinecliffe International (E30)
Post Office Drawer 7337
Coal Creek Canyon
Golden, Colorado USA 80403

Dear Woody:

Enclosed is my registration fee for Enveloper 3.0.

I would like to register as (check one):

[ ] An individual. Fee = $5.

[ ] A company. Fee = $3 per user. Number of Enveloper users: _______

Name and Address:






Contact Person (if appropriate):

CompuServe i.d. number (if available):

I have enclosed a check made payable to "Pinecliffe International" in the amount of: _______


Sincerely,





P.S. [ ] Yes, I used Enveloper to print an envelope for this letter......

P.P.S. Woody, when you finally decide to write another "kitchen sink" macro, I would most like to see:

[ ] a WfW macro to print labels;
[ ] a WfW address book so I can click and paste addresses into my letters;
[ ] a WfW macro to _________________

P.P.P.S. Things I would like to see in Enveloper 4.0:

ENVELOPER 3.0

Pinecliffe International Page page 7

Pinecliffe International Page page \* arabic1


MAIN+
)Woody Leonhard's Enveloper Version 3.0. Y6WA Word for Windows macro to print envelopes on LaserJets and compatible laser printers.ecCopyright © 1990 by Pinecliffe International, Post Office Drawer 7337, Golden, Colorado USA 80403. jöhEnveloper 3.0 is "Shareware" and may be copied at will, providing it is distributed in its entirety andhafwithout charge. I expressly reserve the right to change distribution restrictions on future versions.jÊhEnveloper 3.0 is distributed without warranty, either expressed or implied, and without guarantee as to %5#suitability for a particular task. c[aThis macro is part of a package embodied in a file called ENVR30.DOC, which includes an "install"Y¿Wroutine and detailed operating instructions. Read ENVR30.DOC before running Enveloper!O)Esc$ j: LineFeed$ j PPara$ j
j
mQuote$ j"`€^**Insert here 'The Install template macro uses this as a marker -- DON'T REMOVE THIS LINE!!!!!$áEightLinesPerInch$ Esc$&l8D"SixLinesPerInch$ Esc$&l6D'Italic$ Esc$(s1S@Bold$ Esc$(s3B!WStartUnderline$ Esc$&d0Dx
EndUnderline$ Esc$&d@R–PStandard character spacing ("horizontal motion") is based on the Courier 12 font2éStdCharSpacing$ Esc$(s0p10.00h12.0v0s0b3TA?Standard line spacing ("vertical motion") is six lines per inch!]StdLineSpacing$ Esc$&l6D~#i $TŽ ReturnAddress$i Swap$ReturnAddress$i LineFeed$Para$Ï&i×ÙGrab Addresseeê
Addressee$ ûVFC hh%%K r
$W 
Addressee$ lr× NameAddress¬ \ NameAddress$Å 
Addressee$ lr×&í SkipLines SkipLines \ \StartOfDocI6  SkipLinesCantDo < SkipLines CantDo € CantDo
– \\Line.ª !r 
r  ä <ñ \\Line " 
Addressee$ r+ <7 \\LineFKD Loop through non-blank lines and accumulate a maximum of 500 charsX’ !r

r
 
Addressee$r×,ý 
Addressee$ 
Addressee$ r)  <6  \\LineK  "S  \  Qb  
InputMessage$ ;Could not grab an addressee. =²  
InputMessage$ 
InputMessage$Please type a new one:í  ,-*Bye8
 
Addressee$ ƒ
InputMessage$
Enveloper 3.0 :
 ,-*)L
 
Addressee$ l
Addressee$×r
z
hVFC;Ž

Addressee$ Swap$
Addressee$ LineFeed$Para$2À
0Max eight lines, or the dialog box gets confused ó
index þ
#i $6  index /index
Addressee$Para$<  index *Exitloop^ &i/f 
Addressee$ l
Addressee$index ‘ Exitloopœ Mž KPresent the gathered Addressee for confirmation or changes, and font choiceì O?êð(  g Ó  ____________)3  gÓ 
Enveloper 3.0&Y  h†l
Addressee:&‚  g $`
Addressee$O¥  S „  Check here to type new addressee GetAddresseeô  e šA
 fš-A /
 g’Œ Font1N
 L È< FontChoices$!$€
 SܪF Bold$&«
 SÜÃF Italic%dÚ
 Sáà   g'¬¾ Pinecliffe International3? g'¸¾ Post Office Drawer 73376s g'ľ Golden, Colorado USA 804031ª g'о CompuServe 74730,1734Ü?èê/ Addressee4 Addressee QwikPrint Qwik&# Addressee! AddresseeDefaultFont&J Addressee$ AddresseeDefaultBold(q Addressee% AddresseeDefaultItalicœ Addressee GetAddressee  ¸,-*Bye
Ë? Addressee Ý,-*"î Addressee GetAddressee  ,-*Bye5& 
Addressee$ ƒ
Addressee:
Enveloper 3.0 ^ ,-*>p 
Addressee$ Swap$
Addressee$ LineFeed$Para$£#« QwikPrint  Addressee QwikPrintJÌAddresseeFont$ FontEscSequence$ Addressee!SixLinesPerInch$B Addressee$ AddresseeFont$ AddresseeFont$Bold$DV Addressee% AddresseeFont$ AddresseeFont$Italic$2žEditedAddressee$ AddresseeFont$
Addressee$Î$Ð"Present choices for Return AddressõO?þ#( g Ó  ____________)< gÓ 
Enveloper 3.0,b gÓ Return Address:  R AddressNo¦ i?
È i
ë iÝ
 h&,N5- g&,J ReturnAddress$X hv,N5x gv,J ReturnAddress$¤ hÄ,N1Ä gÄ,JReturnAddress$Mï S6 %None of these - Let Me Type a New One GetReturn? e T A[ f© A2z gE&¸ Font - First Line Only8¬ LE4¸P FontChoices$ FirstFont7ã SE¸ First Line Bold FirstBold; SEŒ¸ First Line Italic FirstItalicA_ SE™¸ First Line UnderlineFirstUnderline2¥ gE±¸ Font - All Other Lines7Ø LEÀ¸P FontChoices$RestFont7 SE ¸ Other Lines BoldRestBold;K SE¸ Other Lines Italic
RestItalic‹?—™/Return4³Return AddressNo )ÉReturn FirstFont ReturnFDefaultFont3ðReturnFirstUnderline ReturnFDefaultUnderline)!Return FirstBold ReturnFDefaultBold-HReturn FirstItalic ReturnFDefaultItalic(sReturnRestFont ReturnODefaultFont(™ReturnRestBold ReturnODefaultBold,¿Return
RestItalic ReturnODefaultItalicéReturn GetReturn ÿ QwikPrint  ,-*Bye
* ?Return : ,-*L Return GetReturn k ,-*Bye6€ Temp$ ƒReturn Address:
Enveloper 3.0
¹ ,-*EÌ ReturnAddress$ Swap$Temp$ LineFeed$Para$ Return AddressNo  #+?-=Strips off the first line, which may have separate formattingEmIndex /ReturnAddress$Return AddressNoPara$¨Index C» EditedReturnAddress1$ ReturnAddress$Return AddressNoö EditedReturnAddress2$  X EditedReturnAddress1$ lReturnAddress$Return AddressNoIndexˆf EditedReturnAddress2$ mReturnAddress$Return AddressNoReturnAddress$Return AddressNoIndexÜäTæReturnAddressFont1$ FontEscSequence$Return FirstFontSixLinesPerInch$S3ReturnAddressFont2$ FontEscSequence$ReturnRestFontSixLinesPerInch$QReturn FirstBold ReturnAddressFont1$ ReturnAddressFont1$Bold$UÏReturn FirstItalic ReturnAddressFont1$ ReturnAddressFont1$Italic$P#ReturnRestBold ReturnAddressFont2$ ReturnAddressFont2$Bold$TrReturn
RestItalic ReturnAddressFont2$ ReturnAddressFont2$Italic$!ÅReturnFirstUnderline Bè ReturnAddressFont1$ ReturnAddressFont1$StartUnderline$@& ReturnAddressFont2$ 
EndUnderline$ReturnAddressFont2$bjol
EditedReturn$ ReturnAddressFont1$EditedReturnAddress1$ReturnAddressFont2$EditedReturnAddress2$×2Ù0Request envelope size, Notes and fonts for Notes O? ô*/ gÈ Envelope Size: V RSizej i Œ i7 ® iT LÐ g^ 0Standard Business Envelope: 4 1/8 x 9 1/2 inches7  g#^ (Also called #10 or Com-10)GQ  g7^ +Intermediate Envelope: 3 7/8 x 7 1/2 inches1—  gC^ (Also called Monarch)CÇ  gT^ 'Personal Envelope: 3 3/4 x 6 1/2 inches, ! g`^ (Also called #6)4! eAO! f-A n! gqZ Note7Œ! L,PEnvelopeNotes$NoteNo)Á! g@q¯ 
Font for Note7ë! L@¯D FontChoices$NoteFont+"" STÃ2 BoldNoteBold/Q" SÃd Italic
NoteItalicP…" SÊê *None of the Above - Let Me Type a New NoteGetNote#Ø" g
æ< Copies:"ú" QPå#Copies$7# L‡Üh-FeederChoices$FeederU#?a#c#/Envelope4'#EnvelopeSize EnvelopeDefaultSize+¤#EnvelopeNoteNo EnvelopeDefaultNoteNo/Í#EnvelopeNoteFont EnvelopeDefaultNoteFont/ú#EnvelopeNoteBold EnvelopeDefaultNoteBold3'$Envelope
NoteItalic EnvelopeDefaultNoteItalic+X$EnvelopeFeeder EnvelopeFeederDefault$EnvelopeGetNote —$EnvelopeCopies$ 1¯$ QwikPrint Æ$ ,-*byeÚ$ ?Envelope ì$ ,-*þ$ EnvelopeGetNote % ,-*Bye<2% EnvelopeNotes$ ƒNote:
Enveloper 3.0
m% ,-*€% EnvelopeNoteNo —%  %"¨% FeederOption EnvelopeFeeder.È%Temp$  StripBlanks$EnvelopeCopies$Cð%IsNumberTemp$Temp$Temp$e1& Copies Temp$G& PM&   .Invalid Number of Copies. Aborting Enveloper.
Enveloper 3.0
& *Bye¨&&°&$Blank out the "Blank" Envelope Notes×&EnvelopeNotes$ ï&Kñ& NoteFont$ FontEscSequence$EnvelopeNoteFontSixLinesPerInch$>5'EnvelopeNoteBold  NoteFont$  NoteFont$Bold$Br'Envelope
NoteItalic  NoteFont$  NoteFont$Italic$K³'EditedEnvelopeNotes$  NoteFont$EnvelopeNotes$EnvelopeNoteNo÷'5ù'3Set Envelope spacing, depending on size of envelopeN/(LEnvelopeSize is a LJ control code -- it's probably best not to mess with it.~(13EnvelopeSize™(3Standard Business #10·( 
EnvelopeSize$ 81#Î( 
TopMargin$ k TopMargin/í( FirstLeftMargin$ kLeftMarginCom10) LinesToAddressee$ 1153) SecondLeftMargin$ kLeftMarginCom10(d)3Intermediate / Monarchƒ) 
EnvelopeSize$ 80#š) 
TopMargin$ k TopMargin1¹) FirstLeftMargin$ kLeftMarginMonarchæ) LinesToAddressee$ 107* SecondLeftMargin$ kLeftMarginMonarch4*3Small #6E* 
EnvelopeSize$ 80#\* 
TopMargin$ k TopMargin2{* FirstLeftMargin$ kLeftMarginPersonal©* LinesToAddressee$ 108Ä* SecondLeftMargin$ kLeftMarginPersonalø*1+;+ FeederOption  QwikPrint Manual operationC+ O?š˜)f+ g È  ____________*Œ+ gÈ 
Enveloper 3.0r³+ g 6Wait until nothing else is on the printer, then Click Quote$OKQuote$.#, g1 "When the printer prompts you with Quote$PrinterPromptMess$  ENVELOPEQuote$,Xœ, g= ;insert your (creased) envelope in the proper slot on top ofAò, gI the paper tray, OrientationMess$Z0- ga =For best print quality, consider adjusting the print density Oˆ- gm 2down to 1 or 2, and switch over to face-up output.Ö- e2‚dó- fÈ‚d. ?". /Warning4>. ,-*byeR. ?Warning c. ,-*u.}..=lpt1#;4.#i $Copies².ø´.6Esc$EEsc$&l Orientation$o
EnvelopeSize$aFeederEscSequence$ FeederOptionHStdLineSpacing$StdCharSpacing$Esc$&l
TopMargin$EEsc$&aFirstLeftMargin$L
EditedReturn$¨/†ª/6StdLineSpacing$ StdCharSpacing$Esc$&aLinesToAddressee$rSecondLeftMargin$LEditedAddressee$-0^/0\Reset margins (Esc 9), then send two carriage returns to move insertion point down and leftŽ06Esc$9j
j
StdCharSpacing$Esc$&aFirstLeftMargin$L EditedEnvelopeNotes$ 1_
1]Reset the printer to what HP calls the "User Default Environment" – the semicolon is requiredCm1Aby IBM LaserPrinters to keep the "Form Feed" light from coming on±16Esc$E( Ë1&iÓ1NÝ1(ß1&Th.th.th.th.at's all f.f.f.f.olks.....2Bye272Swap$ InputString$
OldString$
NewString$M2Temp$  InputString$*c2index /Temp$
OldString$ˆ2!index
yš2 Temp$ lTemp$index
NewString$mTemp$Temp$
OldString$index13 index /indexTemp$
OldString$-3"33Swap$ Temp$B3P3IsNumber InString$n3IsNumber ~3#i $ InString$f›3 n InString$i 0n InString$i 9IsNumber ñ3&iù34 StripBlanks$ InString$)4#i $ InString$-F4 NextChar n Instring$i9k4 NextChar
 Temp$ Temp$jNextChar£4&i«4 StripBlanks$ Temp$Á4
MAIN#
!ENVR30.DOC Template macro Install.Esc$ j? LineFeed$ j UPara$ j
j
rQuote$ j"… SingleQuote$ j'ž O?,ª1Â g È _____________________6ð gÈ Enveloper 3.0 Installation5# g(È Which printer do you use?V R/?m i<ú "Original HP LaserJet or compatible9² iKú HP LaserJet II or compatible;ñ iZú HP LaserJet II P or compatible;2 iiú IBM LaserPrinter 4019 or 4019E;t ixú HP LaserJet II D or compatible:¶ i‡ú HP LaserJet III or compatible<÷ i–ú HP LaserJet III D or compatible: eæAT fæAs?/
PrinterDlg4
PrinterDlg/  µ,-*ByeÈ?
PrinterDlg Û,-*ìî13
PrinterDlg/13 'Original HPLJ - envelope feeds on right? DimFonts !N / FontChoices$DimFonts%k /FontEscSequence$DimFonts+Œ  FontChoices$ Courier - 12 ptL² FontEscSequence$ Esc$(8UEsc$(s0p10.00h12.0v0s0b3T(ø  FontChoices$  Line PrinterK FontEscSequence$ Esc$(8UEsc$(s0p16.67h8.5v0s0b0T`  Orientation$ 1Au OrientationMess$ (right-side-up, and the flap on the LEFT.µ  DimFeeder $Å /FeederChoices$ DimFeeder(å /FeederEscSequence$ DimFeederE  FeederChoices$ 'Feed Envelopes Manually (one at a time)#I FeederEscSequence$ 3g EnvelopeFeederDefault "ƒ PrinterPromptMess$ PE FEED¤  TopMargin µ LeftMarginCom10 Ì LeftMarginMonarch %å LeftMarginPersonal /,ÿ3 "HPLJ II - envelope feeds in center+ DimFonts !: / FontChoices$DimFonts%W /FontEscSequence$DimFonts+x  FontChoices$ Courier - 12 ptLž FontEscSequence$ Esc$(8UEsc$(s0p10.00h12.0v0s0b3T(ä  FontChoices$  Line PrinterK FontEscSequence$ Esc$(8UEsc$(s0p16.67h8.5v0s0b0TL  Orientation$ 1Ba OrientationMess$ )right-side-up, with the flap on the LEFT.¢  DimFeeder $² /FeederChoices$ DimFeeder(Ò /FeederEscSequence$ DimFeederEö FeederChoices$ 'Feed Envelopes Manually (one at a time)#6  FeederEscSequence$ 3JT  FeederChoices$ ,Use Envelope Tray (holds about 15 envelopes)#™  FeederEscSequence$ 1L·  EnvMess$ ) Do you normally use an Envelope Tray?Para$Para$»
 EnvMess$ EnvMess$ Note: HP  SingleQuote$s Envelope Tray -- Part No. 92295F or 92297F, or similar -- replaces your paper tray and automatically feeds about 15 envelopes.A¹
  InstallMess$ ,Enveloper 3.0 -- HP LaserJet II Installation7ù
  EnvMess$ InstallMess$  0  EnvelopeFeederDefault M    T  EnvelopeFeederDefault q  "z  PrinterPromptMess$ PE FEED›   TopMargin «  LeftMarginCom10 Á  LeftMarginMonarch Ù  LeftMarginPersonal ^ò 3 THPLJ IIP - envelope feeds on right - top tray upside down, bottom tray rightside up!P  DimFonts !_  / FontChoices$DimFonts%|  /FontEscSequence$DimFonts+   FontChoices$ Courier - 10 ptLà  FontEscSequence$ Esc$(8UEsc$(s0p12.00h10.0v0s0b3T+
  FontChoices$ Courier - 12 ptL/
 FontEscSequence$ Esc$(8UEsc$(s0p10.00h12.0v0s0b3T(u
  FontChoices$  Line PrinterK˜
 FontEscSequence$ Esc$(8UEsc$(s0p16.67h8.5v0s0b0TÝ
  Orientation$ 1Aò
 OrientationMess$ (upside-down, with the flap on the RIGHT.2  DimFeeder $B /FeederChoices$ DimFeeder(b /FeederEscSequence$ DimFeederE† FeederChoices$ 'Feed Envelopes Manually (one at a time)#Æ FeederEscSequence$ 3Jä FeederChoices$ ,Use Envelope Tray (holds about 20 envelopes)#) FeederEscSequence$ 4IG EnvMess$ & Do you normally use an Envelope Tray?Para$Para$± EnvMess$ EnvMess$ Note: HP  SingleQuote$ws Envelope Tray -- Part No. 92275F or similar -- goes in the Lower Cassette and automatically feeds about 20 envelopes.C<  InstallMess$ .Enveloper 3.0 -- HP LaserJet II P Installation7~  EnvMess$ InstallMess$  µ EnvelopeFeederDefault Ò   Ù EnvelopeFeederDefault ö "ÿ PrinterPromptMess$ ME FEED   TopMargin 0 LeftMarginCom10 F LeftMarginMonarch ^ LeftMarginPersonal :w3 0IBM 4019 or 4019E - only handle PCL-mode for nowJ±  InstallMess$ 5Enveloper 3.0 -- LaserPrinter 4019/4019E Installationfú EnvMess$ CEnveloper 3.0 currently supports the LaserPrinter in PCL mode only.Para$Para$^] EnvMess$ EnvMess$AIf you are interested in PDDS support, or if you use an envelope Z¹ EnvMess$ EnvMess$=feeder not included in this version, please drop me a note. $  EnvMess$  InstallMess$2 DimFonts !A / FontChoices$DimFonts%^ /FontEscSequence$DimFonts+  FontChoices$ Courier - 12 ptL¥ FontEscSequence$ Esc$(8UEsc$(s0p10.00h12.0v0s0b3T(ë  FontChoices$  Line PrinterK FontEscSequence$ Esc$(8UEsc$(s0p16.67h8.5v0s0b0TS  Orientation$ 1Bh OrientationMess$ )right-side-up, with the flap on the LEFT.©  DimFeeder $¹ /FeederChoices$ DimFeeder(Ù /FeederEscSequence$ DimFeederEý FeederChoices$ 'Feed Envelopes Manually (one at a time)#= FeederEscSequence$ 3J[ FeederChoices$ ,Use Envelope Tray (holds about 15 envelopes)#  FeederEscSequence$ 1L¾ EnvMess$ ) Do you normally use an Envelope Tray?Para$Para$ EnvMess$ EnvMess$
Note: IBM  SingleQuote$Us Envelope Tray replaces your paper tray and automatically feeds about 15 envelopes.7•  EnvMess$ InstallMess$  Ì EnvelopeFeederDefault é   ð EnvelopeFeederDefault 
 " PrinterPromptMess$ PE FEED7  TopMargin G LeftMarginCom10 ] LeftMarginMonarch u LeftMarginPersonal 1Ž3 'HPLJ IID - envelope feeds in the centerC¿ EnvMess$  Do you use the S2 Cartridge?Para$Para$ƒÿ EnvMess$ EnvMess$fNote: The S2 Cartridge came with your printer. It includes TmsRmn 8 and 12 point fonts, plus Helv 14.C€  InstallMess$ .Enveloper 3.0 -- HP LaserJet II D Installation7Â  EnvMess$ InstallMess$ ù DimFonts "  / FontChoices$DimFonts&' /FontEscSequence$DimFonts+I  FontChoices$ Tms Rmn - 8 ptDo FontEscSequence$ Esc$(8UEsc$ (s1p8v0s2b5T,­  FontChoices$ Tms Rmn - 12 ptEÔ FontEscSequence$ Esc$(8UEsc$
(s1p12v0s0b5TgeI am fudging a bit here -- any use of Helv 14 will come up bold (as only bold is in the S2 cartridge)){  FontChoices$  Helv - 14 ptEŸ FontEscSequence$ Esc$(8UEsc$
(s1p14v0s3b4T,Þ  FontChoices$ Courier - 10 ptM FontEscSequence$ Esc$(8UEsc$(s0p12.00h10.0v0s0b3T,L  FontChoices$ Courier - 12 ptMs FontEscSequence$ Esc$(8UEsc$(s0p10.00h12.0v0s0b3T)º  FontChoices$  Line PrinterLÞ FontEscSequence$ Esc$(8UEsc$(s0p16.67h8.5v0s0b0T$  + DimFonts "; / FontChoices$DimFonts&Y /FontEscSequence$DimFonts,{  FontChoices$ Courier - 10 ptM¢ FontEscSequence$ Esc$(8UEsc$(s0p12.00h10.0v0s0b3T,é  FontChoices$ Courier - 12 ptM FontEscSequence$ Esc$(8UEsc$(s0p10.00h12.0v0s0b3T)W  FontChoices$  Line PrinterL{ FontEscSequence$ Esc$(8UEsc$(s0p16.67h8.5v0s0b0TÁ Ê  Orientation$ 1Bß OrientationMess$ )right-side-up, with the flap on the LEFT.   DimFeeder $0 /FeederChoices$ DimFeeder(P /FeederEscSequence$ DimFeederEt FeederChoices$ 'Feed Envelopes Manually (one at a time)#´ FeederEscSequence$ 3JÒ FeederChoices$ ,Use Envelope Tray (holds about 15 envelopes)# FeederEscSequence$ 1L5 FeederChoices$ .Use Envelope Feeder (holds about 50 envelopes)#| FeederEscSequence$ 6š O?´@½ g ^ #___________________________________Iú g^ ,Enveloper 3.0 -- LaserJet II D Installation-@  gÈ Do you normally: k  RFeedE€  i-† 'Feed envelopes manually, one at a time.4Ë  iE† Use the Envelope Tray.6! i† Use the Envelope Feeder.cB! gQr HP  SingleQuote$/s Envelope Tray -- Part No. 92295F or 92297F orU¤! g]r 8similar --replaces the upper paper tray. It holds about4ø! gir 15 envelopes at a time.f," gr HP  SingleQuote$2s Envelope Feeder -- Part No. 33457A or similar --Q’" g™r 4attaches above the upper paper tray. It holds about4ã" g¥r 50 envelopes at a time.# eJA3# ?@# /Install4\# InstallFeed o# ,-*Byeƒ# ?Install ”# ,-*+¦# EnvelopeFeederDefault InstallFeed"Í# PrinterPromptMess$ PE FEEDî#  TopMargin þ# LeftMarginCom10 $ LeftMarginMonarch ,$ LeftMarginPersonal 1E$3 'HPLJ III - envelope feeds in the centerv$ DimFonts !†$ / FontChoices$DimFonts%£$ /FontEscSequence$DimFonts+Ä$  FontChoices$ CG Times - 6 ptFê$ FontEscSequence$ Esc$(8UEsc$(s1p6v0s2b4101T+*%  FontChoices$ CG Times - 8 ptFP% FontEscSequence$ Esc$(8UEsc$(s1p8v0s2b4101T,%  FontChoices$ CG Times - 10 ptG·% FontEscSequence$ Esc$(8UEsc$(s1p10v0s0b4101T,ø%  FontChoices$ CG Times - 11 ptG& FontEscSequence$ Esc$(8UEsc$(s1p11v0s0b4101T,`&  FontChoices$ CG Times - 12 ptG‡& FontEscSequence$ Esc$(8UEsc$(s1p12v0s0b4101T,È&  FontChoices$ CG Times - 14 ptGï& FontEscSequence$ Esc$(8UEsc$(s1p14v0s0b4101T*0'  FontChoices$ Univers - 6 ptFU' FontEscSequence$ Esc$(8UEsc$(s1p6v0s0b4148T*•'  FontChoices$ Univers - 8 ptFº' FontEscSequence$ Esc$(8UEsc$(s1p8v0s0b4148T+ú'  FontChoices$ Univers - 10 ptG ( FontEscSequence$ Esc$(8UEsc$(s1p10v0s0b4148T+a(  FontChoices$  Univers - 11 ptG‡( FontEscSequence$  Esc$(8UEsc$(s1p11v0s0b4148T+È(  FontChoices$
 Univers - 12 ptGï( FontEscSequence$
 Esc$(8UEsc$(s1p12v0s0b4148T+1)  FontChoices$  Univers - 14 ptGX) FontEscSequence$  Esc$(8UEsc$(s1p14v0s0b4148T+š)  FontChoices$  Courier - 10 ptLÁ) FontEscSequence$  Esc$(8UEsc$(s0p12.00h10.0v0s0b3T+*  FontChoices$
 Courier - 12 ptL/* FontEscSequence$
 Esc$(8UEsc$(s0p10.00h12.0v0s0b3T(v*  FontChoices$  Line PrinterKš* FontEscSequence$ Esc$(8UEsc$(s0p16.67h8.5v0s0b0Tà*  Orientation$ 3Cõ* OrientationMess$ *right-side-up, with the flap on the RIGHT.7+  DimFeeder $G+ /FeederChoices$ DimFeeder(g+ /FeederEscSequence$ DimFeederE‹+ FeederChoices$ 'Feed Envelopes Manually (one at a time)#Ë+ FeederEscSequence$ 3Jé+ FeederChoices$ ,Use Envelope Tray (holds about 15 envelopes)#., FeederEscSequence$ 1LL, EnvMess$ ) Do you normally use an Envelope Tray?Para$Para$»•, EnvMess$ EnvMess$ Note: HP  SingleQuote$s Envelope Tray -- Part No. 92295F or 92297F, or similar -- replaces your paper tray and automatically feeds about 15 envelopes.BN-  InstallMess$ -Enveloper 3.0 -- HP LaserJet III Installation7-  EnvMess$ InstallMess$  Æ- EnvelopeFeederDefault ã-   ê- EnvelopeFeederDefault . ". PrinterPromptMess$ PE FEED1.  TopMargin A. LeftMarginCom10 W. LeftMarginMonarch o. LeftMarginPersonal ˆ.3  HPLJ IIID›. DimFonts !«. / FontChoices$DimFonts%È. /FontEscSequence$DimFonts+é.  FontChoices$ CG Times - 6 ptF/ FontEscSequence$ Esc$(8UEsc$(s1p6v0s2b4101T+O/  FontChoices$ CG Times - 8 ptFu/ FontEscSequence$ Esc$(8UEsc$(s1p8v0s2b4101T,µ/  FontChoices$ CG Times - 10 ptGÜ/ FontEscSequence$ Esc$(8UEsc$(s1p10v0s0b4101T,0  FontChoices$ CG Times - 11 ptGD0 FontEscSequence$ Esc$(8UEsc$(s1p11v0s0b4101T,…0  FontChoices$ CG Times - 12 ptG¬0 FontEscSequence$ Esc$(8UEsc$(s1p12v0s0b4101T,í0  FontChoices$ CG Times - 14 ptG1 FontEscSequence$ Esc$(8UEsc$(s1p14v0s0b4101T*U1  FontChoices$ Univers - 6 ptFz1 FontEscSequence$ Esc$(8UEsc$(s1p6v0s0b4148T*º1  FontChoices$ Univers - 8 ptFß1 FontEscSequence$ Esc$(8UEsc$(s1p8v0s0b4148T+2  FontChoices$ Univers - 10 ptGE2 FontEscSequence$ Esc$(8UEsc$(s1p10v0s0b4148T+†2  FontChoices$  Univers - 11 ptG¬2 FontEscSequence$  Esc$(8UEsc$(s1p11v0s0b4148T+í2  FontChoices$
 Univers - 12 ptG3 FontEscSequence$
 Esc$(8UEsc$(s1p12v0s0b4148T+V3  FontChoices$  Univers - 14 ptG}3 FontEscSequence$  Esc$(8UEsc$(s1p14v0s0b4148T+¿3  FontChoices$  Courier - 10 ptLæ3 FontEscSequence$  Esc$(8UEsc$(s0p12.00h10.0v0s0b3T+-4  FontChoices$
 Courier - 12 ptLT4 FontEscSequence$
 Esc$(8UEsc$(s0p10.00h12.0v0s0b3T(›4  FontChoices$  Line PrinterK¿4 FontEscSequence$ Esc$(8UEsc$(s0p16.67h8.5v0s0b0T5  Orientation$ 3C5 OrientationMess$ *right-side-up, with the flap on the RIGHT.\5  DimFeeder $l5 /FeederChoices$ DimFeeder(Œ5 /FeederEscSequence$ DimFeederE°5 FeederChoices$ 'Feed Envelopes Manually (one at a time)#ð5 FeederEscSequence$ 3J6 FeederChoices$ ,Use Envelope Tray (holds about 15 envelopes)#S6 FeederEscSequence$ 1Lq6 FeederChoices$ .Use Envelope Feeder (holds about 50 envelopes)#¸6 FeederEscSequence$ 6Ö6 O?´Aù6 g ^ $____________________________________J77 g^ -Enveloper 3.0 -- LaserJet III D Installation-~7 gÈ Do you normally: ©7 RFeedE¾7 i-† 'Feed envelopes manually, one at a time.4 8 iE† Use the Envelope Tray.6C8 i† Use the Envelope Feeder.c€8 gQr HP  SingleQuote$/s Envelope Tray -- Part No. 92295F or 92297F orUâ8 g]r 8similar --replaces the upper paper tray. It holds about469 gir 15 envelopes at a time.fj9 gr HP  SingleQuote$2s Envelope Feeder -- Part No. 33458A or similar --QÐ9 g™r 4attaches above the upper paper tray. It holds about4!: g¥r 50 envelopes at a time.U: eJAq:?}: /Install4™: InstallFeed ¬: ,-*ByeÀ: ?Install Ñ: ,-*+ã: EnvelopeFeederDefault InstallFeed"
; PrinterPromptMess$ PE FEED+;  TopMargin ;; LeftMarginCom10 Q; LeftMarginMonarch i; LeftMarginPersonal ‚;1Ž;;DimNotes  Ÿ;/EnvelopeNotes$DimNotes+½;)WARNING: Don't change EnvelopeNotes$(0) !é;EnvelopeNotes$ (None)!<EnvelopeNotes$ URGENT$%<EnvelopeNotes$  Certified5F<EnvelopeNotes$ Certified - Return Receipt%x<EnvelopeNotes$ 
Registered6š<EnvelopeNotes$ Registered - Return Receipt+Í<EnvelopeNotes$ Foreign Air Mail+õ<EnvelopeNotes$ Interoffice Mail4=EnvelopeNotes$ Personal and Confidential-N=EnvelopeNotes$  For Addressee Only'x=EnvelopeNotes$
  EXPRESS MAIL(=EnvelopeNotes$  
PRIORITY MAIL.Ã=EnvelopeNotes$  Send UPS Blue Label-ï=EnvelopeNotes$
 Send UPS Red Label/>EnvelopeNotes$ Send Federal Express#G>EnvelopeNotes$ PERSONAL'h>EnvelopeNotes$  CONFIDENTIAL>8>6ELine= Line being constructed to insert into EnveloperÈ>/ELine$Ø>Get Addressee Defaultsñ>O?,¥1? g È _____________________6A? gÈ Enveloper 3.0 Installation2t? gÈ Choices for Addressee: ¤? g2È Font1Â? LAÈP FontChoices$!ó? eæA@ fæ-A$-@ SÜdP Bold$&X@ SÜxP Italic%&‡@ g–F 
SkipLines:%«@ QP–2 
SkipLines$&Ò@ g‡–F 
QwikPrint: ø@ RQwik A iÏ–- OFF4A iÿ–' ON[A?gA/AddresseeDefaults4ŒADimFonts£A AddresseeDefaults! ÀA ÆA AddresseeDefaults! ãAëAAddresseeDefaults$ BAddresseeDefaults% &%BAddresseeDefaults
SkipLines$ OFFKBAddresseeDefaultsQwik  gB,-*ByezB?AddresseeDefaults ”B,-*¥BK§BELine$ AddresseeDefaultFont= kAddresseeDefaults!KìBELine$ AddresseeDefaultBold= kAddresseeDefaults$M1CELine$ AddresseeDefaultItalic= kAddresseeDefaults%RzCAddresseeDefaults
SkipLines$  StripBlanks$AddresseeDefaults
SkipLines$‹ÅCIsNumberAddresseeDefaults
SkipLines$AddresseeDefaults
SkipLines$AddresseeDefaults
SkipLines$ALD ELine$ 
SkipLines=AddresseeDefaults
SkipLines$†D #ŒD ELine$ 
SkipLines= -1ªD:²DELine$ Qwik=kAddresseeDefaultsQwikæDèDGet Return Address DefaultsE/ReturnAddress$QEBlankOK$ C (Leave blank if you wish) oE,-*Bye^‚EReturnAddress$ ƒFirst (Normal) Return Address:Enveloper 3.0 Installation áE,-*ByebôEReturnAddress$ ƒSecond Return Address:BlankOK$Enveloper 3.0 Installation VF,-*ByeaiFReturnAddress$ ƒThird Return Address:BlankOK$Enveloper 3.0 InstallationÊF(ÌFELine$ Dim ReturnAddress$(2)RñFELine$ ReturnAddress$(0)=Quote$ReturnAddress$Quote$V9GELine$ ReturnAddress$(1)=Quote$ ReturnAddress$Quote$V‚GELine$ ReturnAddress$(2)=Quote$ ReturnAddress$Quote$ËGÍGO?r‘1ïG g È _____________________6H gÈ Enveloper 3.0 InstallationDPH g" (Choices for Return Address - First Line: ’H g2È Font1°H LAÈP FontChoices$!áH e,
AüH f,#A)I SÜPd  Underline($PI SÜdP Bold$&{I SÜxP Italic%ªI?¶I/ReturnFDefaults4ÙIReturnFDefaults( øIDimFonts
J ReturnFDefaults! 
,J 2J ReturnFDefaults! MJUJReturnFDefaults$ oJReturnFDefaults%  ‹J,-*ByežJ?ReturnFDefaults ¶J,-*ÇJCÉJELine$  ReturnFDefaultFont=kReturnFDefaults!H KELine$
 ReturnFDefaultUnderline=kReturnFDefaults(CTKELine$  ReturnFDefaultBold=kReturnFDefaults$E•KELine$  ReturnFDefaultItalic=kReturnFDefaults%ÚKÜKO?r‘1þK g È _____________________6,L gÈ Enveloper 3.0 InstallationE_L g" )Choices for Return Address - Other Lines: ¢L g2È Font1ÀL LAÈP FontChoices$!ñL e,
A M f,#A$+M SÜdP Bold$&VM SÜxP Italic%…M?‘M/ReturnODefaults4´MDimFontsËM ReturnODefaults! æM ìM ReturnODefaults! NNReturnODefaults$ )NReturnODefaults%  EN,-*ByeXN?ReturnODefaults pN,-*NCƒNELine$
 ReturnODefaultFont=kReturnODefaults!CÄNELine$ ReturnODefaultBold=kReturnODefaults$EOELine$ ReturnODefaultItalic=kReturnODefaults%JO#LO!Get Envelope size, Notes defaultspOO? ôá1“O g È _____________________6ÁO gÈ Enveloper 3.0 Installation6ôO gÈ Choices for Envelope Size: (P RSize Font for Note7ÊR L@¯D FontChoices$NoteFont+S STÔ2 BoldNoteBold/0S SÔd Italic
NoteItalicdS?pSrS/EnvelopeDefaults4–SEnvelopeDefaultsSize ±SEnvelopeDefaultsNoteNo ÎSDimFonts$åS EnvelopeDefaultsNoteFont T $ T EnvelopeDefaultsNoteFont +T!3TEnvelopeDefaultsNoteBold  RT,-*ByeeT?EnvelopeDefaults ~T,-*TH‘TELine$ EnvelopeDefaultSize=kEnvelopeDefaultsSizeLÔTELine$ EnvelopeDefaultNoteNo=kEnvelopeDefaultsNoteNoPUELine$ EnvelopeDefaultNoteFont=kEnvelopeDefaultsNoteFontPfUELine$ EnvelopeDefaultNoteBold=kEnvelopeDefaultsNoteBoldT±UELine$ EnvelopeDefaultNoteItalic=kEnvelopeDefaults
NoteItalicIVELine$ EnvelopeFeederDefault=kEnvelopeFeederDefaultEV3GV1Allow for mods to macro name, pull-down menu name{VO?ú_1œV g È _____________________6ÊV gÈ Enveloper 3.0 Installation>ýV gð "Name for your new Enveloper macro:%9W QP2Z 
MacroName$_W e(FFyW fŒFF˜W?¤W/NameIt4!¾WNameIt
MacroName$  Enveloper ßW,-*Bye
òW?NameIt X,-*%XNameIt
MacroName$  Enveloper;X BoxName$ 
En&veloperUX #[X BoxName$ NameIt
MacroName$zX2‚XMacName$  StripBlanks$NameIt
MacroName$®XN°XLBuild Enveloper template macro, copy to clipboard, then close without savingÿX Enveloper30 &YZ'**Insert here DYž *
CrashnBurnsYÙ7~Y4Dim FontChoices$(kDimFonts)Para$;¹Y4Dim FontEscSequence$(kDimFonts)Para$øY#i $DimFonts[Z 4
FontChoices$(ki)=Quote$ FontChoices$iQuote$Para$ceZ 4FontEscSequence$(ki)=Quote$FontEscSequence$iQuote$Para$ÃZ&i:ËZ4Dim FeederChoices$(k DimFeeder)Para$> [4Dim FeederEscSequence$(k DimFeeder)Para$K[#i $ DimFeeder_c[ 4FeederChoices$(ki)=Quote$FeederChoices$iQuote$Para$g½[ 4FeederEscSequence$(ki)=Quote$FeederEscSequence$iQuote$Para$\&iD'\4EnvelopeFeederDefault=kEnvelopeFeederDefaultPara$?n\4
Orientation$=Quote$ Orientation$Quote$Para$9¯\4Dim EnvelopeNotes$(kDimNotes)Para$ì\#i $DimNotes_] 4EnvelopeNotes$(ki)=Quote$EnvelopeNotes$iQuote$Para$]]&i,e]4
TopMargin=k TopMarginPara$8”]4LeftMarginCom10=kLeftMarginCom10Para$<Ï]4LeftMarginMonarch=kLeftMarginMonarchPara$>^4LeftMarginPersonal=kLeftMarginPersonalPara$KO^4PrinterPromptMess$=Quote$PrinterPromptMess$Quote$Para$Gœ^4OrientationMess$=Quote$OrientationMess$Quote$Para$å^#i $ö^ 4ELine$iPara$_&i_
(_W2_ >_<@_:Zap out old global macro, insert clipboard, save and closeN}_MacName$ ý .Prints envelopes on LaserJets and compatibles.à_
ï_Ùú_X` `"` Assign global macro to File menu,6`MacName$&FileBoxName$ s`u`¡3{`BoxName$ 
En&veloperBoxName$  Enveloper‹³` GoodMess$ . Enveloper 3.0 installed successfully!Para$ #You have a new global macro called MacName$.Para$ Enveloper 3.0@ãa*Byeía
ïa
CrashnBurnüa¡b¡b¡[b BurnMess$ Enveloper has been garbled . Para$" Start over with a new ENVR30.DOC.$jb  BurnMess$
Enveloper 3.0‘b“bBye™b¢bIsNumber InString$ÀbIsNumber Ðb#i $ InString$fíb n InString$i 0n InString$i 9IsNumber Cc&iKcYc StripBlanks$ InString${c#i $ InString$-˜c NextChar n Instring$i9½c NextChar
 Temp$ Temp$jNextCharõc&iýc StripBlanks$ Temp$d


v€*erPromptMess$=Quote$PrinterPromptMess$Quote$Para$Gœ^4OrientationMess$=Quote$OrientationMess$Quote$Para$å^#i $ö^ 4ELine$iPara$_&i_
(_W2_ >_<@_:Zap out old global m€/`au}~€‚ÊÞ$E I chu‚ars|#,ä&'Q+R+¿,À,Á,Ê,M/N/O/X/^1_1…8‡8š9«9­9;1<8<µ<À<'=1=ÐAÕA×A¯E·E G"G'G)GýGHêHõHöHLLLeN‚N Q&QÓRàRâRÇUèU Xüú÷ô÷ïô÷úêçåãåãåáåÞåÞåãåãåÞåÜåÜåãåÜåãåÜåÚåÞåÕåãåãåãåÐãåËåãÐãåËåÐãåÐãåáåãåÐãåãå((  N XX;XKX[­[¯[º[Ö[±_³_Â_Ä_Ü_â_ã_è_é_ê_ë_ï_`
``````%`ùûûùûùôùôñùîëèæææèæææîã!  €±åç-/€‚ßYˆÊÌÜÞ.0— ™ Û Ý ‚„su‚„ØÚáãüþ_artUWsu]_»½KMŸ7!úôôôôïãï×ËËË×ÆÆÆÁï¼ïÁï·ï²ïÆïÁï­ï¨ïïïÆï¨ï’’‡’‚ï‚ï‚À!ð
À!ðÐ0ýh
À!ðÐ0ýh
À!ðÐ0ýhÀ!ðÀ!ðÀ!ð
À!ð À!ðÀ!ðÀ! À!ðII I!I À!.II I!I À!II I!IÀ!ðÀ!ðÀ!P37!9!-$/$â&ä&''Ë)Í)-+/+N+P+¼,¾,J/L/[1]1`3b3®5°57‘7˜9š9«9­9;;Q;S;K>M>Ø@Ú@ÎAÐA^E`E G"GèHêHLL„N†NQQÑRÓR`UbUÃUÅUÇUáYûöûñûìûñûçûûûÜÑÆѻѻû¶û±û±ûìû¥ûûûöûñû û›û±û±ûöûñûñû±ûñûûûû– À!ð À!ðÀ!ð ÿÀ!@@ @!@À!ðÀ!ð
À!ðÐ0ýh
À!ðÐ0ýh
À!ðÐ0ýh
À!ðÐ0ýhÀ!ðÀ!À!ðÀ!ðÀ!ð;áYãY[[[9[d[}[[­[¯[º[Ö[Ø[Ú[õ[\/\B\_\a\n\p\¦\¨\Ò\Ô\ô\ö\?]A]T]V]X]Z]\]^]`]‚]„]¬]®] ^^^^^ ^"^$^&^r^t^Ü^Þ^_O_w_y_±_³_Â_Ä_í_ï_!`#`%`ûöûûçØØØçûÉÃûûûûûûûûûûûûûûûûûûûûûûûûûûûûûûûûûûûûûûûûûûûûûûû¾¸³ª³ª³³òÀ!B@àóÀ!PÀ!À!mØ Ø II I!IÀ!ðØ Ø II I!IÀ!.Ø Ø II I!IÀ!ðÀ!ðC%`‹˜÷ùûûûûöÀ!ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòóõÿÿÿÿÿÿÿÿÞ{û§C/Z?SQ;Z{ÿÿLÿÿ˜ÿÿ˜ÿÿ“ÿÿÿÿÿÿ<pv€ X„…€7!áY%`û†‡ˆ‰#CG Times (WN)"Univers (WN)àý{3/57Zikv!ÿ!ÿf8Ҧئ!
!ÿÿ Enveloper30.Prints envelopes on LaserJets and compatibles.Install?Modifies Enveloper30 to produce a global macro called EnveloperHP LaserJet IIILPT1:HPPCL5AHP LaserJet III`FNþÿ€Ë¼ÿÿÿ Fw@ŠKw5m€›Y›Y €€›Yú`"
à=Ð/88Ðh%<ª`¼ªE‰»ªEPNMbn
Enveloper 3.0WfW LJ III Envelope Printer"WfW LJ III Envelope Print LaserJetþEnvelope printer; "grabs" addressee, choice of three return addresses, multiple fonts, etc., easy customizing, self-installing, more options, QwikPrint for power users. NEW: support for HP LaserJet I, II, IIP, and IBM 4019 (but not in reverse landscape!)Woody LeonhardWoody Leonhard

  3 Responses to “Category : DeskTop Publishing in the 1990's
Archive   : ENVR30.ZIP
Filename : ENVR30.DOC

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/