GLB LM0RM255TS10 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) I53396 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 required; modify the code for multi-character names -- see "Multi-character Name Modification", below). STYLUS inserts a AEUSAAF, AEUSBAF, 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 AESV396AF 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,1AF], a LaBel is inserted in text, before the "US" command, for easy visual verification of Style Names in text [AELBAAF, 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,juAF AESV00,AESSA,lm=8,rm=78,juAFAF Style "B" AESSB,lm=0,rm=65,njAF AESV01,AESSB,lm=0,rm=65,njAF 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 [AESV00AF through AESV78AF]. Write a dummy LaBel "AELB1BAF" following each style.  Write LIBRARY here : Toggle MD198EXPANDED TEXT MODEMDNM LBB SV00,LB SV01,LB SV02,LB SV03,LB SV04,LB GLC Multi-character Name Modification: --------------- ---- ------------ Insert the following code BETWEEN AELBGAF and AELBHAF (six deltas; do NOT copy the terminal carriage return on the line): IFIS90IS86<0SX85,IS85+IS90PV90GLFEISX90,IS85 USER VARIABLE (1): ----------------- Set in AESx79AF 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 MD198EXPANDED TEXT MODEMDNM to set Save/Get AESx79AF LBCSX79,1GLD LBDSV84, (ٳ`Esc')SV85,SV87,0SV91,0XS91,87,92,93,94SV90,PRLast Style: SV91,SV93,EXSX80,VA$EHSX81,VA$EBSX82,VA$HNAd eh=0 d eb=0,0 d hn=128 LBEmd SU89,SX96,IS92+IS90+IS396+IS84+IS94+IS93+IS91PV89SX89,VA$ERIFPV89==19SV396,[not set]GLEEId hn=PV82 SV83,,SV86, SV88,SSSV93,ISSV95,SX97,0SV98,Sx99,Use Style: ?LBFPV96SX90,@UPR(RC)IFIS90==IS95d eh=PV80 d eb=PV81 GLJEILBGLBHd hn=128 md d eb=PV81LBISX95,IS97IFPV97<10SX95,IS87+IS95EISX96,IS92+IS98+IS92+IS93+IS95+IS94+IS94+IS91PV96SX96,VA$ERIFPV96==19d hn=PV82 d eh=PV80  Style "PV90" not found in STYLUS libraryLBJ}PR AbortEXEISX89,IS92+IS88+IS90+IS83IFIS89IS99<0SX97,PV97+1GLIEId hn=PV82 SX89,CPSX93,VA$TWIFPV93>0 EISX92,VA$DTes 1 seb AESSPV90 IF@NOT(ER)GLKEIIFPV92>0EIPV99IFPV92>0EISX89,@SIZ(IS99)+PV89LBKjmp PV89 IFPV93>0jmp PV89 EIIFPV79>0LB ήPV90 EIUS PV90 d eh=PV80 es 0 SX396,IS90}