home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CP/M
/
CPM_CDROM.iso
/
cpm
/
database
/
addres11.lbr
/
ADDR.DZC
/
ADDR.DOC
Wrap
Text File
|
1990-03-18
|
4KB
|
100 lines
ADR.DOC Address Reader 1-10-90
Program to print address onto an envelop. Opens the file where
letter is stored, extracts address, and sends to printer.
Options allows various styles of return address.
Printer escape codes may be customized by user.
The letter must be written with the mailing address flush left.
Nothing else may be flush left prior to address. Address must
end with a carriage return. Wordstar dot commands are ignored.
WHY BOTHER?
Blame the Hewlett Packard DESKJET+. One of its many many good
features is the availability to load and print letter envelopes.
For the first time (for me) printing addresses on an envelope is
a pleasure and a delight. Together with the DESKJET Times Roman
font option, these addresses can really look extraordinarily nice.
This program makes printing these nice envelopes a little easier.
USER CUSTOMIZATION.
The program is useable for any printer, with or without escape codes.
Start by putting your return address (or addresses) in the program.
The default return address goes into location "1". Printer escape
codes may be added as desired. The "S" or "Simple" mode uses no
escape codes. The "E" or "Exotic" mode uses "Escape" codes at
locations 0130h and 0160h. The program as released uses simple
mode with no escape codes, but the DeskJet codes are available
for use by specifying "E" mode, 0 indent, 0 roll-down.
Addresses available to modify are shown below.
0100 C38704 JP STRT
0103 20414452 AAA: DB ' ADR v 1.1 1-10-90 ',0ffh
011A 53 APT: DB 'S' ; printer type S (simple)
011B 22 API: DB 34 ; printer indent for mailing addr (34 spaces)
011C 05 APR: DB 5 ; printer roll-down for mailing addr (5 lines)
011D 01 ARTYP: DB 1 ; start-up default for retn addr
011E 03 ARNUM: DB 3 ; total retn addresses avail for use
011F 00 ARSEL: DB 0 ; which addr selected (prog use only)
0130 APR4D: ; PRINTER ESCAPE CODES FOR RETURN ADDRESS
0130 1B287331 DB 1BH,'(s1p5T' ; proportional print, Times Roman
0137 1B287331 DB 1BH,'(s12V' ; 12 point char height
013D 1B287330 DB 1BH,'(s0B' ; normal (not bold)
0142 1B266C35 DB 1BH,'&l5D' ; 5 lines/inch
0147 1B266130 DB 1BH,'&a0L' ; 0 left margin
014C 1B266C30 DB 1BH,'&l0E' ; 0 top margin
0151 1B26612D DB 1BH,'&a-1R' ; move row UP 1 line
0157 0D DB 0DH ; CR after new left margin
0158 00 DB 0 ; must end in "0"
0159 DS 7 ; extra space
0160 APR6D: ; PRINTER ESCAPE CODES FOR MAIN MAILING ADDRESS
0160 1B287331 DB 1BH,'(s14V' ; 14 point char height
0166 1B266C34 DB 1BH,'&l4D' ; 4 lines/inch
016B 1B266136 DB 1BH,'&a66L' ; left margin 66
0171 1B26612B DB 1BH,'&a+5R' ; move row down 5 lines
0177 1B287333 DB 1BH,'(s3B' ; bold
017C 00 DB 0 ; must end in "0"
017D DS 19 ; extra storage space
0190 52657475 AR1: DB 'Return addr - name ',0dh,0ah
01A5 52657475 DB 'Return addr - addr ',0dh,0ah
01BA 52657475 DB 'Return addr - city ',0dh,0ah
01CF 00 DB 0 ; marks end of data
01D0 DS 16 ; extra storage space
01E0 206E616D AR2: DB ' name - style 2 ',0dh,0ah
01F5 20616464 DB ' addr - style 2 ',0dh,0ah
020A 20636974 DB ' city - style 2 ',0dh,0ah
021F 00 DB 0
0220 DS 16
0230 00 AR3: DB 0
0231 DS 79
0280 00 AR4: DB 0
0281 DS 79
02D0 00 AR5: DB 0
02D1 DS 79
RESTRICTIONS:
- User numbers are not supported. The program will open a filename
in the form B:XYZ but not the form B3:XYZ.
- When saving new info to disk, the data always goes to the current
logged disk, with the current filename (taken from the CCP).
- A maximum of 5 storage locations are reserved for return address
style variations. For a very, very long return address, the only
method is to use two of these locations. Just end in "0".
- If using escape codes ("E" mode) the first character (at locations
0130h and 0160h must be the escape character (1Bh).
Send bug reports and comments to:
Russell A. Gaspari
6656 W. 87th Place
Los Angeles 90045