APPLICATION NOTE  #215

Formatting Lists of PT Numbers in XyWrite

This application note describes two programsÄPTLIST.PGM and
PTPICK.PGM.  These programs enable you to display a list of available
typefaces, and then easily incorporate the typeface you want into a
document.  PTLIST.PGM and PTPICK.PGM can both be used in XyWrite III
Plus, Version 3.54 and later.

PTLIST.PGM is a program that searches through a printer file and
builds a list of PT numbers and their corresponding font names.  This
list can then be accessed by running PTPICK.PGM which brings up a
typeface menu.  From this menu you can choose a typeface.  The program
embeds the corresponding PT number in the document.  If you choose a
landscape typeface, a prompt reminds you to embed your PC or PB code.
 PTLIST.PGM must be run prior to executing PTPICK.PGM.

INSTALLATION
After you have obtained a copy of both PTLIST.PGM and PTPICK.PGM
(which are available through XYQUEST's Technical Services Department),
copy each from disk to the directory in which you have installed
XyWrite.

RUNNING PTLIST.PGM
When you run PTLIST.PGM, you must specify the name of the printer file
you are using.  The form of the command is:

	CM°run ptlist.pgm,d:\path\printerfile°°

Each time you execute the command, the program creates a new list of
PT numbers and stores it in a programming Save/Get (see Note #2).
When the list is complete, the message ``List successfully built''
displays on the prompt line.  You may then run PTPICK.PGM to store the
list on a Save/Get key.

If you use the same printer file regularly, you can include the
command to run PTLIST.PGM in STARTUP.INT.  We recommend putting it at
the end of STARTUP.INT, immediately before the ending BC.

RUNNING PTPICK.PGM
Once you have run PTLIST.PGM to create the list of PT numbers and
associated typeface names, you use PTPICK.PGM to display a menu of
typefaces.

The first step in using PTPICK.PGM is to load it onto a Save/Get key.
 For example:

	Type:  F5°ldpm ptpick.pgm,p°°

This loads the program onto Save/Get P.  You can use any available
Save/Get key (A-Z, 0-9).  When you press Alt°P (or the key you
assigned), the program displays a typeface menu from which you can
select the typeface you want to use.

To use the typeface menu to enter PT commands in your file:

1.	Be sure window 9 is available.  (The program uses
	this window to display the menu.)

2.	Call the file you want to format.

3.	Move the cursor to where you want to enter a PT
	(Print Type) command.

4.	Press the Save/Get key that contains PTPICK.PGM.
	For example:

	Type:  Alt°P

	Result:  A list of available typefaces appears.

5.	Highlight the typeface you want and press °.

	Result:  The PT command associated with the typeface
	you selected is entered at the current location in the
	file.  The menu is cleared from the screen.

6.	Repeat steps 4 and 5 at each point in the file where
	you want to enter a PT command.

Note #1	Printer Files.  Before you print, be sure to load whichever
printer file has been identified in conjunction with PTLIST.PGM.

Note #2	Save/Gets.  Typeface lists are saved to user programming
Save/Get 101.  If one of your programs already accesses 101, you may
change all references in one or both programs to a Save/Get of your
choice.

PROGRAM CONTENT
PTLIST.PGM and PTPICK.PGM are reproduced below.  Remember, if you plan
to recreate these programs yourself, you must follow the rules for
creating a XyWrite program file.  For more information, refer to
Chapter 5 of the XyWrite III Plus Reference Guide.

PTLIST.PGM:
ÿAElb-STARTÿAFÿAEsx01,ÿAEis00ÿAFÿAFÿAESV02,ÿAEMDBOÿAFAvailable
fontsÿAEMDNMÿAFÿAFÿAESV03,ÿAEMDBOÿAFforÿAEMDNMÿAFÿAF
ÿAEsv04,ÿAEMDBOÿAF----------------------------
ÿAEMDNMÿAFÿAFÿAEsx05,ÿAEva$nwÿAFÿAFÿAEsx06,ÿAEva$wnÿAFÿAFÿAEsx07
,
ÿAEvaepÿAFÿAFBC d nw=1XC BC d ep=0XC ÿAEgl-BLDLSTÿAF

ÿAElb-BLDLSTÿAFÿAEsv100,ÿAFÿAEPRBuilding PT list..ÿAFDX
BC ES 1XC BC re ÿAEPV01ÿAFXC ÿAEifÿAEerÿAFÿAFÿAEgl-NOPRNÿAF
ÿAEeiÿAFÿAEsx01,ÿAEva$fiÿAFÿAFBC SE /ÿ08PT=WW ÿ08MD NM+/XC
ÿAEifÿAEerÿAFÿAFÿAEgl-NOPTÿAFÿAEeiÿAFEL CU DL DL ÿAEsv100ÿAFXD
ÿAEsx101,ÿAEis100ÿAFÿAFÿAElb-LP1ÿAFXC ÿAEIFÿAEERÿAF==TRUEÿAF
ÿAEgl-FORMATÿAFÿAEEIÿAFCU EL DL DL ÿAEsv100ÿAFXD
ÿAEsx101,ÿAEis101ÿAF+ÿAEis100ÿAFÿAFÿAEgl-LP1ÿAF

ÿAElb-FORMATÿAFBC ABXC BC NE FONTLISTXC
ÿAEGT02ÿAF
ÿAEGT03ÿAF ÿAEGT01ÿAF              
ÿAEgt04ÿAF
ÿAEgt101ÿAFTF BC CI /ÿ08MD NM+/ÿ09/XC BC CI /=/ /XC BC
CC TF DF BF DF ÿAEsv101ÿAFXD ÿAEgl-ENDÿAF

ÿAElb-NOPRNÿAFBC d nw=ÿAEpv05ÿAFXC BC d ep=ÿAEpv07ÿAFXC BC ES 0XC DO
BC window ÿAEpv06ÿAFXC BC ÿAEPRPrinter file not foundÿAFÿAEexÿAF

ÿAElb-NOPTÿAFBC abXC BC d nw=ÿAEpv05ÿAFXC BC d
ep=ÿAEpv07ÿAFXC BC ES 0XC DO BC window ÿAEpv06ÿAFXC
BC ÿAEPRNo PT tables foundÿAFÿAEexÿAF

ÿAElb-ENDÿAFBC abXC BC d nw=ÿAEpv05ÿAFXC BC d
ep=ÿAEpv07ÿAFXC BC ES 0XC DO BC window ÿAEpv06ÿAFXC
BC ÿAEPRList successfully builtÿAFÿAEexÿAF

PTPICK.PGM:
ÿAElb-PTSELÿAFÿAEsx07,ÿAEva$nWÿAFÿAFÿAEsx08,ÿAEva$wsÿAFÿAF

ÿAEifÿAEpv08ÿAF==0ÿAFÿAEgl-nofileÿAFÿAEeiÿAFÿAESV01,Put cursor on
desired PT and press return.ÿAFÿAEsx58,ÿAEvaepÿAFÿAFBC D
NW=1XC BC D ep=0XC BC WINDOW 9XC
ÿAEsx06,ÿAEva$wsÿAFÿAFÿAEifÿAEpv06ÿAF==1ÿAF
ÿAEgl-NOWINÿAFÿAEeiÿAFBC WINDOW 9,50,1,27,20XC
BC NE FONTLISTXC ÿAEGT101ÿAFBC ÿAEPV01ÿAFTF CD CD
CD ÿAElb-LP1ÿAFÿAESV02,
ÿAFÿAEsv03,ÿAFÿAESX04,ÿAERCÿAFÿAFÿAEIFÿAEIS04ÿAFîÿAEIS02ÿAF==0ÿAF
ÿAEgl-endÿAFÿAEEIÿAFÿAEifÿAEis04ÿAFîÿAEis03ÿAF==0ÿAF
ÿAEgl-ABORTÿAFÿAEeiÿAFÿAEPV04ÿAFÿAEgl-LP1ÿAF

ÿAElb-endÿAFLB DF NW NW CL DF ÿAESV05ÿAFXD DL
ÿAEsv11ÿAFXD BC window 9,0,0,80,22XC BC AB XC
BC ÿAEPV05ÿAFXC ÿAEsv10,L-ÿAFBC D NW=ÿAEPV07ÿAFXC
BC D ep=ÿAEpv58ÿAFXC BC GT ÿAEifÿAEis10ÿAFîÿAEis11ÿAF=>0ÿAF
ÿAEPRRemember the landscape PC or PB
codeÿAFÿAEEXÿAFÿAEeiÿAFÿAEexÿAF

ÿAElb-NOWINÿAFAS BC D NW=ÿAEPV07ÿAFXC BC D ep=ÿAEpv58ÿAFXC BC GT
ÿAEPRWindow 9 in useÿAFÿAEexÿAF

ÿAElb-nofileÿAFBC ÿAEPRNo open file in this windowÿAFÿAEexÿAF

ÿAElb-ABORTÿAFBC ABXC BC D NW=ÿAEPV07ÿAFXC BC D
ep=ÿAEpv58ÿAFXC BC GT ÿAEPRAbortedÿAFÿAEexÿAF