®GLB
¯®LM0¯®RM255¯®TS10¯
STYLUS.PM v1.0f For XyWrite III+ v3.54+.  R.J. Holmgren 10/28/89

Purpose:  STYLUS doubles as a Style LIBRARY, & a PROGRAM to Set and Use Styles

 ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
 ³ FREEZE STRINGS:   For Use by RELOCATE.PM ³
 ³ ÍÍÍÍÍÍ ÍÍÍÍÍÍÍ    (Lowest S/G number=79) ³
 ³ Iÿ53396             CASE IS SIGNIFICANT!!  ³
 ³ ÿ53V396                                    ³
 ³ ÿ53X396                                    ³
 ³ all "ÿ53V00"-"ÿ53V##" strings in the Library ³
 ³                                          ³
 ³ SPECIAL RELOCATE STRINGS:                ³
 ³ ÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍ                 ³
 ³ ÿ72=                                       ³
 ³ ÿ53v                                       ³
 ³ ÿ53x                                       ³
 ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
INSTRUCTIONS:
This program requires HARD-CODING by the user, both of the Style Library, and
possibly of an option described in "Multi-character Name Modification", below.
The off-the-shelf library is empty!

Position the cursor, and RUN STYLUS.PM (from the .KeyBoarD file).  Input the
NAME of the Style ("A", "B", etc) you wish to insert at the cursor position.
Default is a SINGLE-CHARACTER NAME (no <cr> required; modify the code for
multi-character names -- see "Multi-character Name Modification", below).
STYLUS inserts a ÿAEUSAÿAF, ÿAEUSBÿAF, etc. instruction in text; if the Set
Style format does not yet exist in the document, it also is inserted, at
the top of the text.  Extended Save/Get ÿAESV396ÿAF is reserved, to hold the
name of the LAST Style inserted by STYLUS (but N.B., this is not
necessarily the CURRENT Style).  If USER VARIABLE Save/Get 79, below, is
set to "1" [ÿAESX79,1ÿAF], a LaBel is inserted in text, before the "US"
command, for easy visual verification of Style Names in text
[ÿAELBÎAÿAF, which appears as ®LBA¯].


Style Library:
----- -------
    The following are sample Styles:

"Set Style" [SS] commands in text:     "Set Style" [SS] commands in STYLUS.PM:
        
Style "A" ÿAESSA,lm=8,rm=78,juÿAF                      ÿAESV00,ÿAESSA,lm=8,rm=78,juÿAFÿAF
Style "B" ÿAESSB,lm=0,rm=65,njÿAF                      ÿAESV01,ÿAESSB,lm=0,rm=65,njÿAF¯
Style "CAT" ÿAESSCAT,lm=4,ip=0,5¯                    ÿAESV02,ÿAESSCAT,lm=4,ip=0,5¯¯
[Style "CAT" (multi-character Style-Name) requires "Multi-char Mod", below]

     Five empty style templates are provided [ÿAESV00,ÿAF to ÿAESV04,ÿAF];
simply INSERT an "SS" format after the comma.  Add additional Styles to a
maximum of 79 Styles [ÿAESV00ÿAF through ÿAESV78ÿAF].  Write a dummy LaBel
"ÿAELBÿ1BÿAF" following each style.

 Write LIBRARY here : ÄÄ Toggle ®MD198¯EXPANDED TEXT MODE®MDNM¯
®LBB
¯®SV00,¯®LB
¯®SV01,¯®LB
¯®SV02,¯®LB
¯®SV03,¯®LB
¯®SV04,¯®LB
¯®GLC¯


Multi-character Name Modification:
--------------- ---- ------------
Insert the following code BETWEEN ÿAELBGÿAF and ÿAELBHÿAF (six deltas; do NOT
  copy the terminal carriage return on the line):

®IF®IS90¯î®IS86¯<0¯®SX85,®IS85¯+®IS90¯¯®PV90¯®GLF¯®EI¯®SX90,®IS85¯¯


USER VARIABLE (1):
-----------------
Set in ÿAESx79ÿAF permission to place in text a LaBel with the Style-Name that
  accompanies each "US" instruction  (DEFAULT 1=write the label; 0=skip the
  label):
 Set below:  ÄÄ Toggle ®MD198¯EXPANDED TEXT MODE®MDNM¯ to set Save/Get ÿAESx79ÿAF
	®LBC¯®SX79,1¯®GLD¯



®LBD¯®SV84,  (Ù³`Esc')¯®SV85,¯®SV87,0¯®SV91,®0¯¯®XS91,87,92,93,94¯®SV90,PRLast Style: ¯®SV91,ÿ£¯®SV93,®EX¯¯®SX80,®VA$EH¯¯®SX81,®VA$EB¯¯®SX82,®VA$HN¯¯ÿAÿd eh=0ÿ	ÿd eb=0,0ÿ	ÿd hn=128ÿ	®LBE¯ÿmdÿ	®SU89,®SX96,®IS92¯+®IS90¯+®IS396¯+®IS84¯+®IS94¯+®IS93¯+®IS91¯¯ÿ£¯®PV89¯®SX89,®VA$ER¯¯®IF®PV89¯==19¯®SV396,[not set]¯®GLE¯®EI¯ÿd hn=®PV82¯ÿ	®SV83,,¯®SV86,ÿ	
¯®SV88,SS¯®SV93,IS¯®SV95,¯®SX97,0¯®SV98,Sx99,¯ÿUse Style:  ÿ?®LBF¯®PV96¯®SX90,@UPR(®RC¯)¯®IF®IS90¯==®IS95¯¯ÿd eh=®PV80¯ÿ	ÿd eb=®PV81¯ÿ	ÿ®GLJ¯®EI¯®LBG¯®LBH¯ÿd hn=128ÿ	ÿmdÿ	ÿd eb=®PV81¯®LBI¯®SX95,®IS97¯¯®IF®PV97¯<10¯®SX95,®IS87¯+®IS95¯¯®EI¯®SX96,®IS92¯+®IS98¯+®IS92¯+®IS93¯+®IS95¯+®IS94¯+®IS94¯+®IS91¯¯®PV96¯®SX96,®VA$ER¯¯®IF®PV96¯==19¯ÿd hn=®PV82¯ÿ	ÿd eh=®PV80¯ÿ	ÿ Style "®PV90¯" not found in STYLUS library®LBJ¯ÿ€}®PR Abort¯®EX¯®EI¯®SX89,®IS92¯+®IS88¯+®IS90¯+®IS83¯¯®IF®IS89¯î®IS99¯<0¯®SX97,®PV97¯+1¯®GLI¯®EI¯ÿd hn=®PV82¯ÿ	®SX89,®CP¯¯®SX93,®VA$TW¯¯®IF®PV93¯>0¯ÿ®EI¯®SX92,®VA$DT¯¯ÿ€ãÿes 1ÿ	ÿseb  ÿAESS®PV90¯ÿ	®IF@NOT(®ER¯)¯®GLK¯®EI¯ÿ€ñ®IF®PV92¯>0¯ÿ­®EI¯®PV99¯®IF®PV92¯>0¯ÿ¯®EI¯®SX89,@SIZ(®IS99¯)+®PV89¯¯®LBK¯ÿjmp ®PV89¯ÿ	®IF®PV93¯>0¯ÿŸÿjmp ®PV89¯ÿ	®EI¯®IF®PV79¯>0¯ÿLB Î®PV90¯ÿ	®EI¯ÿUS ®PV90¯ÿ	ÿd eh=®PV80¯ÿ	ÿes 0ÿ	®SX396,®IS90¯¯ÿÿ€}