ADDRESS "ISREDIT";"MACRO (BETWEEN SLANT VERT LETTERX)" /*REXX*/ /*********************************************************************/ /* OBTAINED FROM CBT TAPE 95 TAPE #9102 MADE UP AFTER LOOKING AT*/ /* BIG AND BIGS (COMBINED) AND ST CHARACTERS FOR WIDTH OF 5 */ /* RELATED MACRO BLOCK5 WAS CREATED LATER FROM BIGS */ /*********************************************************************/ /* REVISED BY D.MCRITCHIE, "THE REXX MACROS TOOLBOX", 1991/04/29 */ /* NOT COMPATIBLE WITH THE ORIGINAL HAS BEEN CHANGED TO HANDLE */ /* 1. MULTIPLE LETTERS */ /* 2. PROVIDE A VARIETY OF SLANTS, TILTS, */ /* 3. PROVIDE ADDITIONAL CHARACTERS BEYOND A-Z, 0-9 */ /* 4. ADDS LINES AS NEEDED -- ADDING COLUMNS IS YOUR PROBLEM */ /* 5. THE FIRST CHARACTER OF THE GROUP WILL BE PLACED AT THE CURSOR */ /* LOCATION SUCH THAT IT ALIGNS VERTICALLY ON THE TOPMOST */ /* POSITION OF THE LETTER AND HORIZONTALLY ON THE LEFTMOST */ /* POSITION OF THE LETTER WHETHER VISIBLE OR NOT. FOR TESTING */ /* AN M WILL OCCUPY LEFT MOST, RIGHT MOST, TOP MOST, AND BOTTOM */ /* A "B" IS BETTER FOR MOST TESTING PURPOSES, BUT THE "M" IS */ /* WIDER. */ /* 6. VISIBLE LABELS, NOTABLY */ /* .SSS STARTING POSITION, OR .ERRSS IF ERROR FOUND */ /* .NCUR NEXT PRESUMED STARTING POINT FOR CURSOR PLACEMENT */ /* 7. CONVERTED TO REXX 1993/06/12 DAVID MCRITCHIE */ /* EXAMPLE: ENTER AFTER PLACING CURSOR ON 1ST POS OF 1ST LINE. */ /* ===> BLOCK5 4 0 0 BLOCK; BLOCK5 2 0 0 LETTERS */ /* ===> BLOCK5 4 1 0 TILT; BLOCK5 4 1 1 SKEW */ /* ===> BIGS 4 0 0 BLOCK; BIGS 2 0 0 LETTERS */ /* ===> BIGS 4 1 0 TILT; BIGS 4 1 1 SKEW */ /* MOST LETTERS ARE NO LONGER THAN 12 CHARACTERS WIDE; HOWEVER, */ /* THE CHARACTER M IS ACTUALLY 13 CHARACTERS WIDE; WHICH IS THE */ /* DIFFERENCE BETWEEN LEFT SIDES, SO MM WILL SHOW WITH NO SPACE */ /* BETWEEN CHARACTERS -- THIS IS NOT A FAULT, YOU ARE EXPECTED TO */ /* USE A 4 AS THE 1ST PARAMETER, FOR PRETTIEST RESULTS. */ /* IF LETTER = "?" THEN */ /* THIS PANEL I THINK WOULD BE MEANINGLESS TO OUR USE */ /* DO */ /* ISPEXEC DISPLAY PANEL(BLOCK5) */ /* EXIT CODE(1) */ /* END */ /* */ /* THE FOLLOWING CHANGES WERE MADE 1997/05/23 FOR SPF/PC 4.0.A D.MCR */ /* MATCHING PREV CHANGES TO BIGS 1997/04/12 FOR SPF/PC 4.0.A D.MCR */ /* 1. SIGNAL XAE, CHANGED DID NOT EXIST, RESULTED IN ERROR #16 */ /* SIGNAL A5E DID NOT EXIST USED CSIGNAL.SPF TO FIND */ /* 2. "CURSOR = ," COL -- IS NOT VALID IN SPF/PC */ /* 3. "LINE_AFTER ..." MOVES THE CURSOR HAD TO CHANGE CODE */ /* 4. &ROW IS NOT VALID IN SPF/PC HAD TO MOVE OUTSIDE QUOTES */ /* DAVID MCRITCHIE 04/12/1997 */ /*********************************************************************/ /*********************************************************************/ /* BLOCK5 1 0 0 BL -- CURSOR PLACED AT POSITION + UPPER LEFT OF B */ /* BLOCK5 1 -1 0 OC -- CURSOR PLACED AT POSITION _ UPPER LEFT OF O */ /* BLOCK5 1 0 0 K -- CURSOR PLACED AT POSITION * UPPER LEFT OF K */ /* CLISTBOX -- LINE COMMAND CC CC TO INDICATE LIMITS */ /*********************************************************************/ /*********************************************************************/ /* BBBB L OOOOO CCC K K */ /* B B L O O C K K */ /* BBBB L O O C KKK */ /* B B L O O C K K */ /* BBBB LLLLL OOOOO CCC K K */ /* */ /*********************************************************************/ /* EXCEPT FOR THE CHARACTERS THEMSELVES BIGS AND BLOCK5 ARE ALMOST */ /* THE SAME. DIFFERENCE IN MACRO NAME, OF COURSE, AND ROW AND COL. */ /*********************************************************************/ ROW=0; COL=0; I=0; CC1=0; CC2=0 "(ROW,COL) = CURSOR" IF BETWEEN = DEBUG THEN DO BETWEEN = 4 END "(LNUM2) = LINENUM .NCUR" IF RC <> 0 THEN DO MAXCC = 0 NOTES = 1 END "LINE_BEFORE .ZF = NOTELINE """LETTERX "BEGIN ROW" ROW "COL" COL"""" "CURSOR = " ROW COL /* FIXUP FOR SPF/PC */ /*********************************************************************/ /* FIX UP FOR LAZY ENTRY -- ONLY GOOD IF CONTAINS LETTERS */ /*********************************************************************/ IF VERT = '' /* | DATATYPE(BETWEEN,"CHAR") = 1 */ THEN DO "(CC1,CC2) = CURSOR" "LINE_AFTER .ZCSR = NOTELINE ""GUESSING YOU WANTED --", "BLOCK5 2 0 0" BETWEEN """" "(CC1,CC2) = CURSOR" CC1 CC2 """" "CURSOR =" CC1 CC2 LETTERX = BETWEEN BETWEEN = 1 /*BIGS-- 2 / 1 --BLOCK5*/ SLANT = 0 VERT = 0 END /*********************************************************************/ /* ALLOW USE OF AN EMPTY MEMBER IN EDIT WITH UNPLACED CURSOR */ /*********************************************************************/ "(ROW) = LINENUM .ZLAST" IF ROW = 0 THEN DO "LINE_AFTER 0 = DATALINE "" """ "CURSOR = 1 1" END /*********************************************************************/ /* MAKE SURE ENOUGH SPACE EXISTS ABOVE STARTING POSITION */ /* MAY CAUSE STARTING POINT (.SSSS) TO SHIFT DOWNWARD */ /*********************************************************************/ "(ROW,COL) = CURSOR" IF COL = 0 THEN "CURSOR = "ROW "1" /* FIXUP FOR SPFPC DOES NOT RECOGNIZE "CURSOR = ,1" */ "RESET" VALUE(ROW - 1) ROW LM1 = LENGTH(LETTERX) - 1 IF VERT < 0 THEN DO NEEDUP = -LM1 * VERT + 1 DO WHILE NEEDUP > ROW "LINE_BEFORE" ROW " = DATALINE "" """ /* FIXUP FOR SPFPC DOES NOT RECOGNIZE &ROW */ ROW = ROW + 1 "CURSOR =" ROW COL END END "LABEL" ROW "= .SSSS 0" /*********************************************************************/ /* MAKE SURE ENOUGH SPACE EXISTS BELOW STARTING POSITION */ /* 4 EXTRA LINES BELOW NEXT EXPECTED STARTED POINT ALSO ADDED */ /*********************************************************************/ "(LROW) = LINENUM .ZLAST" NEEDDN = 9 + ROW /* ABOUT 4 LINES AFTER .NCUR*/ IF VERT > 0 THEN NEEDDN = LM1 * VERT + NEEDDN DO WHILE NEEDDN > LROW "LINE_AFTER .ZLAST = "" """ LROW = LROW + 1 END /*********************************************************************/ /* MSG1 AND MAKE SPECIAL TESTING ALLOWANCES IF MEMBER IS Z */ /*********************************************************************/ MSG1 = "ROW="ROW",COL="COL "--", "AT START -- BLOCK5" BETWEEN","SLANT","VERT","LETTERX /* HOLD CURSOR FOR SPF/PC WHICH MOVES CURSOR */ "(CC1,CC2) = CURSOR" "LINE_BEFORE .ZCSR = MSGLINE (MSG1)" "CURSOR =" CC1 CC2 /* MORE FIXUP FOR SPF/PC*/ "(MEMBERX) = MEMBER" TMASK = TMASK IF Z <> MEMBERX THEN TMASK = "" IF TMASK = "TMASK" THEN DO /* TWO LINES LOOK SIMILAR*/ /* "LINE" ROW " = LINE", < 60 (MSG1)> */ "LINE" ROW " = LINE + <" COL "'_'>" END MAXCC = 0 /*********************************************************************/ /* STARTING ON LETTER -- LOOPS BACK BELOW IF MORE THAN ONE LETTER */ /*********************************************************************/ ROWN = ROW + 7 COLN = COL IF SLANT < 0 THEN COL = -SLANT * 5 + COLN ROWX = ROW COLX = COL MORE: ROW = ROWX COL = COLX LETTER = TRANSLATE(SUBSTR(LETTERX,1,1)) IF LETTERX = "" THEN SIGNAL PROCESS LETTERX = SUBSTR(LETTERX,2) ROWX = ROWX + VERT COLX = COLX + 6 + BETWEEN /* + &SPL.*/ /* ATTEMPT TO ADJUST SPACING */ IF LETTER = "" THEN SIGNAL MORE ROW0 = ROW + 00 ROW1 = ROW + 01 ROW2 = ROW + 02 ROW3 = ROW + 03 ROW4 = ROW + 04 COL0 = 04 * SLANT + COL COL1 = 03 * SLANT + COL COL2 = 02 * SLANT + COL COL3 = 01 * SLANT + COL COL4 = 00 * SLANT + COL /*ISPEXEC CONTROL ERRORS RETURN*/ LETTER = TRANSLATE(LETTER) I = POS(LETTER,'ABCDEFGHIJKLMNOPQRSTUVWXYZ') IF I <> 0 THEN INTERPRET "SIGNAL" LETTER IF LETTER = 1 THEN SIGNAL N1 IF LETTER = 2 THEN SIGNAL N2 IF LETTER = 3 THEN SIGNAL N3 IF LETTER = 4 THEN SIGNAL N4 IF LETTER = 5 THEN SIGNAL N5 IF LETTER = 6 THEN SIGNAL N6 IF LETTER = 7 THEN SIGNAL N7 IF LETTER = 8 THEN SIGNAL N8 IF LETTER = 9 THEN SIGNAL N9 IF LETTER = 0 THEN SIGNAL N0 /* EBCDIC OR ASCII -- EBCDIC ASSIGNMENTS BUT WORKS FOR EITHER*/ IF LETTER = "›" THEN SIGNAL X4A IF LETTER = "." THEN SIGNAL X4B IF LETTER = "<" THEN SIGNAL X4C IF LETTER = "(" THEN SIGNAL X4D IF LETTER = "+" THEN SIGNAL X4E IF LETTER = "|" THEN SIGNAL X4F IF LETTER = "&" THEN SIGNAL X50 IF LETTER = "!" THEN SIGNAL X5A IF LETTER = "$" THEN SIGNAL X5B IF LETTER = "*" THEN SIGNAL X5C IF LETTER = ")" THEN SIGNAL X5D IF LETTER = ";" THEN SIGNAL X5E IF LETTER = "Ş" THEN SIGNAL X5F IF LETTER = "^" THEN SIGNAL A5E /* ASCII */ IF LETTER = "-" THEN SIGNAL XA0 IF LETTER = "/" THEN SIGNAL X61 IF LETTER = "³" THEN SIGNAL X6A IF LETTER = "," THEN SIGNAL X6B IF LETTER = "%" THEN SIGNAL X6C IF LETTER = "_" THEN SIGNAL X6D IF LETTER = ">" THEN SIGNAL X6E IF LETTER = "?" THEN SIGNAL X6F IF LETTER = "`" THEN SIGNAL X79 IF LETTER = ":" THEN SIGNAL X7A IF LETTER = "#" THEN SIGNAL X7B IF LETTER = "@" THEN SIGNAL X7C IF LETTER = "'" THEN SIGNAL X7D /*'*/ IF LETTER = "=" THEN SIGNAL X7E IF LETTER = """" THEN SIGNAL X7F IF LETTER = "~" THEN SIGNAL XA1 IF LETTER = ":" THEN SIGNAL XAE IF LETTER = "{" THEN SIGNAL XC0 IF LETTER = "}" THEN SIGNAL XD0 IF LETTER = "\" THEN SIGNAL XE0 "LINE_BEFORE .ZCSR = NOTELINE ""CHAR" LETTER "N/F, SUBSTITUTING #""" SIGNAL X7A A: "LINE" ROW0 " = LINE + <" COL0 " ' AAA'>" "LINE" ROW1 " = LINE + <" COL1 " 'A A'>" "LINE" ROW2 " = LINE + <" COL2 " 'AAAAA'>" "LINE" ROW3 " = LINE + <" COL3 " 'A A'>" "LINE" ROW4 " = LINE + <" COL4 " 'A A'>" SIGNAL PROCESS B: "LINE" ROW0 " = LINE + <" COL0 " 'BBBB'>" "LINE" ROW1 " = LINE + <" COL1 " 'B B'>" "LINE" ROW2 " = LINE + <" COL2 " 'BBBB'>" "LINE" ROW3 " = LINE + <" COL3 " 'B B'>" "LINE" ROW4 " = LINE + <" COL4 " 'BBBB'>" SIGNAL PROCESS C: "LINE" ROW0 " = LINE + <" COL0 " ' CCC'>" "LINE" ROW1 " = LINE + <" COL1 " 'C'>" "LINE" ROW2 " = LINE + <" COL2 " 'C'>" "LINE" ROW3 " = LINE + <" COL3 " 'C'>" "LINE" ROW4 " = LINE + <" COL4 " ' CCC'>" SIGNAL PROCESS D: "LINE" ROW0 " = LINE + <" COL0 " 'DDD'>" "LINE" ROW1 " = LINE + <" COL1 " 'D D'>" "LINE" ROW2 " = LINE + <" COL2 " 'D D'>" "LINE" ROW3 " = LINE + <" COL3 " 'D D'>" "LINE" ROW4 " = LINE + <" COL4 " 'DDD'>" SIGNAL PROCESS E: "LINE" ROW0 " = LINE + <" COL0 " 'EEEEE'>" "LINE" ROW1 " = LINE + <" COL1 " 'E'>" "LINE" ROW2 " = LINE + <" COL2 " 'EEE'>" "LINE" ROW3 " = LINE + <" COL3 " 'E'>" "LINE" ROW4 " = LINE + <" COL4 " 'EEEEE'>" SIGNAL PROCESS F: "LINE" ROW0 " = LINE + <" COL0 " 'FFFFF'>" "LINE" ROW1 " = LINE + <" COL1 " 'F'>" "LINE" ROW2 " = LINE + <" COL2 " 'FFFF'>" "LINE" ROW3 " = LINE + <" COL3 " 'F'>" "LINE" ROW4 " = LINE + <" COL4 " 'F'>" SIGNAL PROCESS G: "LINE" ROW0 " = LINE + <" COL0 " ' GGG'>" "LINE" ROW1 " = LINE + <" COL1 " 'G'>" "LINE" ROW2 " = LINE + <" COL2 " 'G'>" "LINE" ROW3 " = LINE + <" COL3 " 'G GG'>" "LINE" ROW4 " = LINE + <" COL4 " ' GGG'>" SIGNAL PROCESS H: "LINE" ROW0 " = LINE + <" COL0 " 'H H'>" "LINE" ROW1 " = LINE + <" COL1 " 'H H'>" "LINE" ROW2 " = LINE + <" COL2 " 'HHHHH'>" "LINE" ROW3 " = LINE + <" COL3 " 'H H'>" "LINE" ROW4 " = LINE + <" COL4 " 'H H'>" SIGNAL PROCESS I: "LINE" ROW0 " = LINE + <" COL0 " ' III'>" "LINE" ROW1 " = LINE + <" COL1 " ' I'>" "LINE" ROW2 " = LINE + <" COL2 " ' I'>" "LINE" ROW3 " = LINE + <" COL3 " ' I'>" "LINE" ROW4 " = LINE + <" COL4 " ' III'>" SIGNAL PROCESS J: "LINE" ROW0 " = LINE + <" COL0 " ' JJJJ'>" "LINE" ROW1 " = LINE + <" COL1 " ' J'>" "LINE" ROW2 " = LINE + <" COL2 " ' J'>" "LINE" ROW3 " = LINE + <" COL3 " 'J J'>" "LINE" ROW4 " = LINE + <" COL4 " ' JJ'>" SIGNAL PROCESS K: "LINE" ROW0 " = LINE + <" COL0 " 'K K'>" "LINE" ROW1 " = LINE + <" COL1 " 'K K'>" "LINE" ROW2 " = LINE + <" COL2 " 'KKK'>" "LINE" ROW3 " = LINE + <" COL3 " 'K K'>" "LINE" ROW4 " = LINE + <" COL4 " 'K K'>" SIGNAL PROCESS L: "LINE" ROW0 " = LINE + <" COL0 " 'L'>" "LINE" ROW1 " = LINE + <" COL1 " 'L'>" "LINE" ROW2 " = LINE + <" COL2 " 'L'>" "LINE" ROW3 " = LINE + <" COL3 " 'L'>" "LINE" ROW4 " = LINE + <" COL4 " 'LLLLL'>" SIGNAL PROCESS M: "LINE" ROW0 " = LINE + <" COL0 " 'M M'>" "LINE" ROW1 " = LINE + <" COL1 " 'MM MM'>" "LINE" ROW2 " = LINE + <" COL2 " 'M M M'>" "LINE" ROW3 " = LINE + <" COL3 " 'M M'>" "LINE" ROW4 " = LINE + <" COL4 " 'M M'>" SIGNAL PROCESS N: "LINE" ROW0 " = LINE + <" COL0 " 'N N'>" "LINE" ROW1 " = LINE + <" COL1 " 'NN N'>" "LINE" ROW2 " = LINE + <" COL2 " 'N N N'>" "LINE" ROW3 " = LINE + <" COL3 " 'N NN'>" "LINE" ROW4 " = LINE + <" COL4 " 'N N'>" SIGNAL PROCESS O: "LINE" ROW0 " = LINE + <" COL0 " 'OOOOO'>" "LINE" ROW1 " = LINE + <" COL1 " 'O O'>" "LINE" ROW2 " = LINE + <" COL2 " 'O O'>" "LINE" ROW3 " = LINE + <" COL3 " 'O O'>" "LINE" ROW4 " = LINE + <" COL4 " 'OOOOO'>" SIGNAL PROCESS P: "LINE" ROW0 " = LINE + <" COL0 " 'PPPP'>" "LINE" ROW1 " = LINE + <" COL1 " 'P P'>" "LINE" ROW2 " = LINE + <" COL2 " 'PPPPP'>" "LINE" ROW3 " = LINE + <" COL3 " 'P'>" "LINE" ROW4 " = LINE + <" COL4 " 'P'>" SIGNAL PROCESS Q: "LINE" ROW0 " = LINE + <" COL0 " ' QQQ'>" "LINE" ROW1 " = LINE + <" COL1 " 'Q Q'>" "LINE" ROW2 " = LINE + <" COL2 " 'Q Q'>" "LINE" ROW3 " = LINE + <" COL3 " 'Q ››Q'>" "LINE" ROW4 " = LINE + <" COL4 " ' QQ››'>" SIGNAL PROCESS R: "LINE" ROW0 " = LINE + <" COL0 " 'RRRR'>" "LINE" ROW1 " = LINE + <" COL1 " 'R R'>" "LINE" ROW2 " = LINE + <" COL2 " 'RRRR'>" "LINE" ROW3 " = LINE + <" COL3 " 'R R'>" "LINE" ROW4 " = LINE + <" COL4 " 'R R'>" SIGNAL PROCESS S: "LINE" ROW0 " = LINE + <" COL0 " ' SSSS'>" "LINE" ROW1 " = LINE + <" COL1 " 'S'>" "LINE" ROW2 " = LINE + <" COL2 " ' SSSS'>" "LINE" ROW3 " = LINE + <" COL3 " ' S'>" "LINE" ROW4 " = LINE + <" COL4 " ' SSSS'>" SIGNAL PROCESS T: "LINE" ROW0 " = LINE + <" COL0 " 'TTTTT'>" "LINE" ROW1 " = LINE + <" COL1 " ' T'>" "LINE" ROW2 " = LINE + <" COL2 " ' T'>" "LINE" ROW3 " = LINE + <" COL3 " ' T'>" "LINE" ROW4 " = LINE + <" COL4 " ' T'>" SIGNAL PROCESS U: "LINE" ROW0 " = LINE + <" COL0 " 'U U'>" "LINE" ROW1 " = LINE + <" COL1 " 'U U'>" "LINE" ROW2 " = LINE + <" COL2 " 'U U'>" "LINE" ROW3 " = LINE + <" COL3 " 'U U'>" "LINE" ROW4 " = LINE + <" COL4 " ' UUU'>" SIGNAL PROCESS V: "LINE" ROW0 " = LINE + <" COL0 " 'V V'>" "LINE" ROW1 " = LINE + <" COL1 " 'V V'>" "LINE" ROW2 " = LINE + <" COL2 " 'V V'>" "LINE" ROW3 " = LINE + <" COL3 " ' V V'>" "LINE" ROW4 " = LINE + <" COL4 " ' V'>" SIGNAL PROCESS W: "LINE" ROW0 " = LINE + <" COL0 " 'W W'>" "LINE" ROW1 " = LINE + <" COL1 " 'W W'>" "LINE" ROW2 " = LINE + <" COL2 " 'W W W'>" "LINE" ROW3 " = LINE + <" COL3 " 'WW WW'>" "LINE" ROW4 " = LINE + <" COL4 " 'W W'>" SIGNAL PROCESS X: "LINE" ROW0 " = LINE + <" COL0 " 'X X'>" "LINE" ROW1 " = LINE + <" COL1 " ' X X'>" "LINE" ROW2 " = LINE + <" COL2 " ' X'>" "LINE" ROW3 " = LINE + <" COL3 " ' X X'>" "LINE" ROW4 " = LINE + <" COL4 " 'X X'>" SIGNAL PROCESS Y: "LINE" ROW0 " = LINE + <" COL0 " 'Y Y'>" "LINE" ROW1 " = LINE + <" COL1 " ' Y Y'>" "LINE" ROW2 " = LINE + <" COL2 " ' Y'>" "LINE" ROW3 " = LINE + <" COL3 " ' Y'>" "LINE" ROW4 " = LINE + <" COL4 " ' Y'>" SIGNAL PROCESS Z: "LINE" ROW0 " = LINE + <" COL0 " 'ZZZZZ'>" "LINE" ROW1 " = LINE + <" COL1 " ' Z'>" "LINE" ROW2 " = LINE + <" COL2 " ' Z'>" "LINE" ROW3 " = LINE + <" COL3 " ' Z'>" "LINE" ROW4 " = LINE + <" COL4 " 'ZZZZZ'>" SIGNAL PROCESS N1: "LINE" ROW0 " = LINE + <" COL0 " ' 1'>" "LINE" ROW1 " = LINE + <" COL1 " ' 11'>" "LINE" ROW2 " = LINE + <" COL2 " ' 1'>" "LINE" ROW3 " = LINE + <" COL3 " ' 1'>" "LINE" ROW4 " = LINE + <" COL4 " ' 111'>" SIGNAL PROCESS N2: "LINE" ROW0 " = LINE + <" COL0 " '2222'>" "LINE" ROW1 " = LINE + <" COL1 " ' 2'>" "LINE" ROW2 " = LINE + <" COL2 " ' 2'>" "LINE" ROW3 " = LINE + <" COL3 " ' 2'>" "LINE" ROW4 " = LINE + <" COL4 " '22222'>" SIGNAL PROCESS N3: "LINE" ROW0 " = LINE + <" COL0 " '3333'>" "LINE" ROW1 " = LINE + <" COL1 " ' 3'>" "LINE" ROW2 " = LINE + <" COL2 " ' 333'>" "LINE" ROW3 " = LINE + <" COL3 " ' 3'>" "LINE" ROW4 " = LINE + <" COL4 " '3333'>" SIGNAL PROCESS N4: "LINE" ROW0 " = LINE + <" COL0 " '4 4'>" "LINE" ROW1 " = LINE + <" COL1 " '4 4'>" "LINE" ROW2 " = LINE + <" COL2 " '44444'>" "LINE" ROW3 " = LINE + <" COL3 " ' 4'>" "LINE" ROW4 " = LINE + <" COL4 " ' 4'>" SIGNAL PROCESS N5: "LINE" ROW0 " = LINE + <" COL0 " '55555'>" "LINE" ROW1 " = LINE + <" COL1 " '5'>" "LINE" ROW2 " = LINE + <" COL2 " '5555'>" "LINE" ROW3 " = LINE + <" COL3 " ' 5'>" "LINE" ROW4 " = LINE + <" COL4 " '5555'>" SIGNAL PROCESS N6: "LINE" ROW0 " = LINE + <" COL0 " ' 666'>" "LINE" ROW1 " = LINE + <" COL1 " '6'>" "LINE" ROW2 " = LINE + <" COL2 " '6666'>" "LINE" ROW3 " = LINE + <" COL3 " '6 6'>" "LINE" ROW4 " = LINE + <" COL4 " ' 666'>" SIGNAL PROCESS N7: "LINE" ROW0 " = LINE + <" COL0 " '77777'>" "LINE" ROW1 " = LINE + <" COL1 " ' 7'>" "LINE" ROW2 " = LINE + <" COL2 " ' 7'>" "LINE" ROW3 " = LINE + <" COL3 " ' 7'>" "LINE" ROW4 " = LINE + <" COL4 " ' 7'>" SIGNAL PROCESS N8: "LINE" ROW0 " = LINE + <" COL0 " ' 888'>" "LINE" ROW1 " = LINE + <" COL1 " '8 8'>" "LINE" ROW2 " = LINE + <" COL2 " ' 888'>" "LINE" ROW3 " = LINE + <" COL3 " '8 8'>" "LINE" ROW4 " = LINE + <" COL4 " ' 888'>" SIGNAL PROCESS N9: "LINE" ROW0 " = LINE + <" COL0 " ' 999'>" "LINE" ROW1 " = LINE + <" COL1 " '9 9'>" "LINE" ROW2 " = LINE + <" COL2 " ' 9999'>" "LINE" ROW3 " = LINE + <" COL3 " ' 9'>" "LINE" ROW4 " = LINE + <" COL4 " ' 999'>" SIGNAL PROCESS N0: "LINE" ROW0 " = LINE + <" COL0 " ' 000'>" "LINE" ROW1 " = LINE + <" COL1 " '0 0'>" "LINE" ROW2 " = LINE + <" COL2 " '0 0'>" "LINE" ROW3 " = LINE + <" COL3 " '0 0'>" "LINE" ROW4 " = LINE + <" COL4 " ' 000'>" SIGNAL PROCESS XA0: "LINE" ROW0 " = LINE + <" COL0 " ' '>" "LINE" ROW1 " = LINE + <" COL1 " ' '>" "LINE" ROW2 " = LINE + <" COL2 " ' --- '>" "LINE" ROW3 " = LINE + <" COL3 " ' '>" "LINE" ROW4 " = LINE + <" COL4 " ' '>" SIGNAL PROCESS XA1: "LINE" ROW0 " = LINE + <" COL0 " ' ~~ '>" "LINE" ROW1 " = LINE + <" COL1 " ' '>" "LINE" ROW2 " = LINE + <" COL2 " ' '>" "LINE" ROW3 " = LINE + <" COL3 " ' '>" "LINE" ROW4 " = LINE + <" COL4 " ' '>" SIGNAL PROCESS XC0: "LINE" ROW0 " = LINE + <" COL0 " ' { '>" "LINE" ROW1 " = LINE + <" COL1 " ' { '>" "LINE" ROW2 " = LINE + <" COL2 " ' < '>" "LINE" ROW3 " = LINE + <" COL3 " ' { '>" "LINE" ROW4 " = LINE + <" COL4 " ' { '>" SIGNAL PROCESS XD0: "LINE" ROW0 " = LINE + <" COL0 " ' } '>" "LINE" ROW1 " = LINE + <" COL1 " ' } '>" "LINE" ROW2 " = LINE + <" COL2 " ' > '>" "LINE" ROW3 " = LINE + <" COL3 " ' } '>" "LINE" ROW4 " = LINE + <" COL4 " ' } '>" SIGNAL PROCESS XE0: "LINE" ROW0 " = LINE + <" COL0 " '\ '>" "LINE" ROW1 " = LINE + <" COL1 " ' \ '>" "LINE" ROW2 " = LINE + <" COL2 " ' \ '>" "LINE" ROW3 " = LINE + <" COL3 " ' \ '>" "LINE" ROW4 " = LINE + <" COL4 " ' \'>" SIGNAL PROCESS X4A: "LINE" ROW0 " = LINE + <" COL0 " ' * '>" "LINE" ROW1 " = LINE + <" COL1 " ' C*C '>" "LINE" ROW2 " = LINE + <" COL2 " 'C * '>" "LINE" ROW3 " = LINE + <" COL3 " ' C*C '>" "LINE" ROW4 " = LINE + <" COL4 " ' * '>" SIGNAL PROCESS X4C: "LINE" ROW0 " = LINE + <" COL0 " ' <'>" "LINE" ROW1 " = LINE + <" COL1 " ' < '>" "LINE" ROW2 " = LINE + <" COL2 " '< '>" "LINE" ROW3 " = LINE + <" COL3 " ' < '>" "LINE" ROW4 " = LINE + <" COL4 " ' <'>" SIGNAL PROCESS X4D: "LINE" ROW0 " = LINE + <" COL0 " ' ( '>" "LINE" ROW1 " = LINE + <" COL1 " ' ( '>" "LINE" ROW2 " = LINE + <" COL2 " ' ( '>" "LINE" ROW3 " = LINE + <" COL3 " ' ( '>" "LINE" ROW4 " = LINE + <" COL4 " ' ( '>" SIGNAL PROCESS X4E: "LINE" ROW0 " = LINE + <" COL0 " ' + '>" "LINE" ROW1 " = LINE + <" COL1 " ' + '>" "LINE" ROW2 " = LINE + <" COL2 " '+++++'>" "LINE" ROW3 " = LINE + <" COL3 " ' + '>" "LINE" ROW4 " = LINE + <" COL4 " ' + '>" SIGNAL PROCESS X4F: "LINE" ROW0 " = LINE + <" COL0 " ' | '>" "LINE" ROW1 " = LINE + <" COL1 " ' | '>" "LINE" ROW2 " = LINE + <" COL2 " ' | '>" "LINE" ROW3 " = LINE + <" COL3 " ' | '>" "LINE" ROW4 " = LINE + <" COL4 " ' | '>" SIGNAL PROCESS X5A: "LINE" ROW0 " = LINE + <" COL0 " ' || '>" /* ! */ "LINE" ROW1 " = LINE + <" COL1 " ' || '>" "LINE" ROW2 " = LINE + <" COL2 " ' || '>" "LINE" ROW3 " = LINE + <" COL3 " ' '>" "LINE" ROW4 " = LINE + <" COL4 " ' ** '>" SIGNAL PROCESS X5B: "LINE" ROW0 " = LINE + <" COL0 " '$$||$'>" "LINE" ROW1 " = LINE + <" COL1 " '$$|| '>" "LINE" ROW2 " = LINE + <" COL2 " '$$||$'>" "LINE" ROW3 " = LINE + <" COL3 " ' ||$'>" "LINE" ROW4 " = LINE + <" COL4 " '$$||$'>" SIGNAL PROCESS X5C: "LINE" ROW0 " = LINE + <" COL0 " '\ | /'>" "LINE" ROW1 " = LINE + <" COL1 " ' \:/ '>" "LINE" ROW2 " = LINE + <" COL2 " '*-X-*'>" "LINE" ROW3 " = LINE + <" COL3 " ' /:\ '>" "LINE" ROW4 " = LINE + <" COL4 " '/ | \'>" SIGNAL PROCESS X5D: "LINE" ROW0 " = LINE + <" COL0 " ') '>" "LINE" ROW1 " = LINE + <" COL1 " ' ) '>" "LINE" ROW2 " = LINE + <" COL2 " ' ) '>" "LINE" ROW3 " = LINE + <" COL3 " ' ) '>" "LINE" ROW4 " = LINE + <" COL4 " ') '>" SIGNAL PROCESS X5E: "LINE" ROW0 " = LINE + <" COL0 " ' ;; '>" "LINE" ROW1 " = LINE + <" COL1 " ' ;; '>" "LINE" ROW2 " = LINE + <" COL2 " ' '>" "LINE" ROW3 " = LINE + <" COL3 " ' ;; '>" "LINE" ROW4 " = LINE + <" COL4 " ' ;; '>" SIGNAL PROCESS X5F: "LINE" ROW0 " = LINE + <" COL0 " ' '>" "LINE" ROW1 " = LINE + <" COL1 " ' '>" "LINE" ROW2 " = LINE + <" COL2 " '^^^^^'>" "LINE" ROW3 " = LINE + <" COL3 " ' ^'>" "LINE" ROW4 " = LINE + <" COL4 " ' '>" SIGNAL PROCESS A5E: "LINE" ROW0 " = LINE + <" COL0 " ' '>" "LINE" ROW1 " = LINE + <" COL1 " ' ^ '>" "LINE" ROW2 " = LINE + <" COL2 " ' ^ ^ '>" "LINE" ROW3 " = LINE + <" COL3 " '^ ^'>" "LINE" ROW4 " = LINE + <" COL4 " ' '>" SIGNAL PROCESS X50: "LINE" ROW0 " = LINE + <" COL0 " ' '>" /* & */ "LINE" ROW1 " = LINE + <" COL1 " ' A '>" "LINE" ROW2 " = LINE + <" COL2 " ' N '>" "LINE" ROW3 " = LINE + <" COL3 " ' D '>" "LINE" ROW4 " = LINE + <" COL4 " ' '>" SIGNAL PROCESS X6A: "LINE" ROW0 " = LINE + <" COL0 " ' || '>" "LINE" ROW1 " = LINE + <" COL1 " ' || '>" "LINE" ROW2 " = LINE + <" COL2 " ' '>" "LINE" ROW3 " = LINE + <" COL3 " ' || '>" "LINE" ROW4 " = LINE + <" COL4 " ' || '>" SIGNAL PROCESS X6B: "LINE" ROW0 " = LINE + <" COL0 " ' '>" "LINE" ROW1 " = LINE + <" COL1 " ' '>" "LINE" ROW2 " = LINE + <" COL2 " ' ,, '>" "LINE" ROW3 " = LINE + <" COL3 " ' ,, '>" "LINE" ROW4 " = LINE + <" COL4 " ' , '>" SIGNAL PROCESS X6C: "LINE" ROW0 " = LINE + <" COL0 " '%%--%'>" "LINE" ROW1 " = LINE + <" COL1 " '% % '>" "LINE" ROW2 " = LINE + <" COL2 " ' % '>" "LINE" ROW3 " = LINE + <" COL3 " ' % %'>" "LINE" ROW4 " = LINE + <" COL4 " '%%-%%'>" SIGNAL PROCESS X6D: "LINE" ROW0 " = LINE + <" COL0 " ' '>" "LINE" ROW1 " = LINE + <" COL1 " ' '>" "LINE" ROW2 " = LINE + <" COL2 " ' '>" "LINE" ROW3 " = LINE + <" COL3 " ' '>" "LINE" ROW4 " = LINE + <" COL4 " '_____'>" SIGNAL PROCESS X6E: /******* "LINE" ROW0 " = LINE + <" COL0 " '> '>" "LINE" ROW1 " = LINE + <" COL1 " ' > '>" "LINE" ROW2 " = LINE + <" COL2 " ' > '>" "LINE" ROW3 " = LINE + <" COL3 " ' > '>" "LINE" ROW4 " = LINE", <" COL4 " '> '>" ****/ SIGNAL PROCESS X6F: "LINE" ROW0 " = LINE + <" COL0 " ' ??? '>" "LINE" ROW1 " = LINE + <" COL1 " '? ?'>" "LINE" ROW2 " = LINE + <" COL2 " ' ? '>" "LINE" ROW3 " = LINE + <" COL3 " ' ? '>" "LINE" ROW4 " = LINE + <" COL4 " ' ? '>" SIGNAL PROCESS X61: "LINE" ROW0 " = LINE + <" COL0 " ' /'>" "LINE" ROW1 " = LINE + <" COL1 " ' / '>" "LINE" ROW2 " = LINE + <" COL2 " ' / '>" "LINE" ROW3 " = LINE + <" COL3 " ' / '>" "LINE" ROW4 " = LINE + <" COL4 " '/ '>" SIGNAL PROCESS X7A: "LINE" ROW0 " = LINE + <" COL0 " ' :: '>" "LINE" ROW1 " = LINE + <" COL1 " ' :: '>" "LINE" ROW2 " = LINE + <" COL2 " ' '>" "LINE" ROW3 " = LINE + <" COL3 " ' :: '>" "LINE" ROW4 " = LINE + <" COL4 " ' :: '>" SIGNAL PROCESS X7B: "LINE" ROW0 " = LINE + <" COL0 " ' # # '>" "LINE" ROW1 " = LINE + <" COL1 " '#####'>" "LINE" ROW2 " = LINE + <" COL2 " ' # # '>" "LINE" ROW3 " = LINE + <" COL3 " '#####'>" "LINE" ROW4 " = LINE + <" COL4 " ' # # '>" SIGNAL PROCESS X7C: "LINE" ROW0 " = LINE + <" COL0 " '@@@@@'>" "LINE" ROW1 " = LINE + <" COL1 " ' @'>" "LINE" ROW2 " = LINE + <" COL2 " '@@@@@'>" "LINE" ROW3 " = LINE + <" COL3 " '@ @ @'>" "LINE" ROW4 " = LINE + <" COL4 " '@@@@@'>" SIGNAL PROCESS X7D: /***** "LINE" ROW0 "= LINE + <" COL0 " "" '' "">" "LINE" ROW1 "= LINE + <" COL1 " "" ' "">" /*'*/ "LINE" ROW2 "= LINE + <" COL2 " ' '>" "LINE" ROW3 "= LINE + <" COL3 " ' '>" "LINE" ROW4 "= LINE + <" COL4 " ' '>" ******/ SIGNAL PROCESS X7E: "LINE" ROW0 " = LINE + <" COL0 " ' '>" "LINE" ROW1 " = LINE + <" COL1 " ' '>" "LINE" ROW2 " = LINE + <" COL2 " ' === '>" "LINE" ROW3 " = LINE + <" COL3 " ' === '>" "LINE" ROW4 " = LINE + <" COL4 " ' '>" SIGNAL PROCESS X7F: "LINE" ROW0 " = LINE + <" COL0 " ' "" "" '>" "LINE" ROW1 " = LINE + <" COL1 " ' "" "" '>" "LINE" ROW2 " = LINE + <" COL2 " ' '>" "LINE" ROW3 " = LINE + <" COL3 " ' '>" "LINE" ROW4 " = LINE + <" COL4 " ' '>" SIGNAL PROCESS X4B: "LINE" ROW0 " = LINE + <" COL0 " ' '>" "LINE" ROW1 " = LINE + <" COL1 " ' '>" "LINE" ROW2 " = LINE + <" COL2 " ' '>" "LINE" ROW3 " = LINE + <" COL3 " ' .. '>" "LINE" ROW4 " = LINE + <" COL4 " ' .. '>" SIGNAL PROCESS X79: "LINE" ROW0 " = LINE + <" COL0 " ' `` '>" "LINE" ROW1 " = LINE + <" COL1 " ' `` '>" "LINE" ROW2 " = LINE + <" COL2 " ' '>" "LINE" ROW3 " = LINE + <" COL3 " ' '>" "LINE" ROW4 " = LINE + <" COL4 " ' '>" SIGNAL PROCESS XAE: "LINE" ROW0 " = LINE + <" COL0 " ' :: '>" "LINE" ROW1 " = LINE + <" COL1 " ' :: '>" "LINE" ROW2 " = LINE + <" COL2 " ' '>" "LINE" ROW3 " = LINE + <" COL3 " ' :: '>" "LINE" ROW4 " = LINE + <" COL4 " ' :: '>" /**SIGNAL PROCESS */ /*********************************************************************/ /* P R O C E S S : SETTING UP FOR THE NEXT LETTER IF ANY */ /*********************************************************************/ PROCESS: IF MAXCC > 0 THEN DO ZEDSMSG = "INCOMPLETE BOX" ZEDLMSG = "NOT ENOUGH LINES/COLUMNS", "TO DRAW COMPLETE BOX MAX="MAXCC /*ADDRESS*/ "ISPEXEC" "SETMSG MSG(ISRZ001)" "(ERRSS) = LINENUM .ERRSS" IF ERRSS <> 0 THEN "LABEL .SSS = .ERRSS 0" END ROW = ROW + VERT /*********************************************************************/ /* ADJUSTING THE END PLACEMENT OF THE CURSOR, NOT A VERY PRECISE */ /* MECHANISM BUT IT SHOULD WORK WELL TO KEEP LINES REASONABLY */ /* SPREAD APART WITH THE SAME FEATURES. */ /*********************************************************************/ IF LETTERX /= "" THEN SIGNAL MORE /*LOGIC SPF/PC*/ IF VERT < 0 THEN AVERT = - VERT IF SLANT > 0 THEN DO IF VERT > 0 THEN ROWN = ROWN + VERT IF VERT < 0 THEN ROWN = ROWN - VERT END IF SLANT < 0 THEN DO IF VERT > 0 THEN ROWN = ROWN + VERT IF VERT < 0 THEN ROWN = ROWN - VERT END IF 1 = NOTES THEN DO "LINE_BEFORE .ZFIRST = NOTELINE """||, "------ SAMPLE USAGE OF -- BLOCK5 -- CLIST""" "LINE_BEFORE .ZFIRST = NOTELINE """||, "CURSOR MUST BE PLACED ON A LINE, UNLESS MEMBER IS EMPTY""" "LINE_BEFORE .ZFIRST = NOTELINE ""BLOCK5 LETTERS""" "LINE_BEFORE .ZFIRST = NOTELINE "" E.G. BLOCK5 1 0 0 HELLO""" "LINE_BEFORE .ZFIRST = NOTELINE """||, " E.G. BLOCK5 1 1 1 DEMO""" "LINE_BEFORE .ZFIRST = NOTELINE """||, " E.G. BLOCK5 1 -1 1 A B C""" END "(CC1,CC2) = CURSOR" "LABEL" ROWN "= .NCUR 0" "CURSOR =" CC1 CC2 /* FIXUP SPF/PC */ "LOC" ROWN "UP 9" ROWN=ROWN+0;COLN=COLN+0 "CURSOR =" ROWN COLN /********************** END OF 1991/04/29 ADDITIONS */ EXIT