RECSIZE=256;BLOCKFACTOR=1;CODE=1029;EXTENTS=16;FILESIZE=17680;FORMAT=F z'Q IY8c\N`zflffbJ|EV\SE$cGtmK|Wusl.pub.sys w  T/ ru5a P ׀m:BJR-Z~Dw:e<ek t v " x   . < J X b j r z )<Obu ,Rx:*@i   PPPPPPPPPPPPPP////////0000000099999999::::::::*QUADTEXT PPP////////0000000099999999::::::::*QUADTEXT PPP////////0000000099999999::P*QUADTEXT PP) &ELSE CUST'NEXT'FUNC:=CF'PRINT'LINE'CNT1 .ELSE IF CUST'FUNCTION = CF'PRINT'LINE'CNT THEN BEGIN% "MOVE BUF1:=" blank lines deleted"; BUF1LEN:=20; END, )ELSE IF CUST'FUNCTION = CF'HELP'TEXT THEN BEGIN& #HT "This is Help text for the" EHT; HT "DEBLANK command" EHT; END; END;  END; END.:,CӉCC"2I @S$C( @S, ӉC2 s,CʥG$FӉC2W CӉCC23( %ELSE IF CUST'CMD'NAME = "RIGHT " THEN <> BEGIN' $IF CUST'FUNCTION = CF'BEGIN'CMD THEN# CUST'NEXT'FUNC:=CF'NEXT'IN'RANGE0 -ELSE IF CUST'FUNCTION = CF'NEXT'IN'RANGE THEN$ !IF CUST'FUNC'STATUS = CFS'OK THEN <> BEGIN= :IF BUF1LEN > CUST'REC'LEN -2 THEN BUF1LEN:=CUST'REC'LEN-2;4 1MOVE BUF1(BUF1LEN+1):=BUF1(BUF1LEN-1),(-BUF1LEN); BUF1'W:=" "; BUF1LEN:=BUF1LEN+2; CUST'LIST:=1; CUST'SAVE:=1;# CUST'LINE'CNT:=CUST'LINE'CNT+1D;$ !CUST'NEXT'FUNC:=CF'NEXT'IN'RANGE; END) &ELSE CUST'NEXT'FUNC:=CF'PRINT'LINE'CNT1 .ELSE IF CUST'FUNCTION = CF'PRINT'LINE'CNT THEN BEGIN% "MOVE BUF1:=" lines shifted right"; BUF1LEN:=20; END, )ELSE IF CUST'FUNCTION = CF'HELP'TEXT THEN BEGIN& #HT "This is Help text for the" EHT; HT "RIGHT command" EHT; END; END* 'ELSE IF CUST'CMD'NAME = "DEBLANK " THEN <> BEGIN' $IF CUST'FUNCTION = CF'BEGIN'CMD THEN# CUST'NEXT'FUNC:=CF'NEXT'IN'RANGE0 -ELSE IF CUST'FUNCTION = CF'NEXT'IN'RANGE THEN <>$ !IF CUST'FUNC'STATUS = CFS'OK THEN BEGIN SCAN BUF1 WHILE " ",1; STR'LEN:=TOS; STR'LEN:=STR'LEN-@BUF1; IF STR'LEN >= BUF1LEN THEN BEGIN CUST'DELETE:=1; CUST'LIST:=1;# CUST'LINE'CNT:=CUST'LINE'CNT+1D; END;$ !CUST'NEXT'FUNC:=CF'NEXT'IN'RANGE; END:,CӉCC"22L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 END; END1 .ELSE IF CUST'FUNCTION = CF'PRINT'LINE'CNT THEN BEGIN MOVE BUF1:=" lines copied"; BUF1LEN:=13; END, )ELSE IF CUST'FUNCTION = CF'HELP'TEXT THEN BEGIN& #HT "This is Help text for the" EHT; HT "MYCOPY command" EHT; END; END, )ELSE IF CUST'CMD'NAME = "DUPLICATE " THEN <> BEGIN' $IF CUST'FUNCTION = CF'BEGIN'CMD THEN# CUST'NEXT'FUNC:=CF'NEXT'IN'RANGE <>0 -ELSE IF CUST'FUNCTION = CF'NEXT'IN'RANGE THEN$ !IF CUST'FUNC'STATUS = CFS'OK THEN CUST'NEXT'FUNC:=CF'SET'DEST) &ELSE CUST'NEXT'FUNC:=CF'PRINT'LINE'CNT+ (ELSE IF CUST'FUNCTION = CF'SET'DEST THEN BEGIN0 -MOVE CUST'LINE'NUM:=BUF2,(CUST'LINE'NUM'LEN);" CUST'NEXT'FUNC:=CF'PUT'AT'DEST; END. +ELSE IF CUST'FUNCTION = CF'PUT'AT'DEST THEN& #<> BEGIN$ !IF CUST'FUNC'STATUS = CFS'OK THEN BEGIN CUST'SAVE:=1; CUST'LIST:=1;# CUST'LINE'CNT:=CUST'LINE'CNT+1D; END;$ !CUST'NEXT'FUNC:=CF'NEXT'IN'RANGE; END1 .ELSE IF CUST'FUNCTION = CF'PRINT'LINE'CNT THEN BEGIN" MOVE BUF1:=" lines duplicated"; BUF1LEN:=17; END, )ELSE IF CUST'FUNCTION = CF'HELP'TEXT THEN BEGIN& #HT "This is Help text for the" EHT; HT "DUPLICATE command" EHT; END; END:,CӉCC"22L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W 98CӉCC23: 7%55, <>9 %142, <>; %142) <> END!  ELSE IF COMMAND'FUNCTION THEN. +<>$ !IF CUST'CMD'NAME = "MYLIST " THEN <> BEGIN' $IF CUST'FUNCTION = CF'BEGIN'CMD THEN# CUST'NEXT'FUNC:=CF'NEXT'IN'RANGE0 -ELSE IF CUST'FUNCTION = CF'NEXT'IN'RANGE THEN BEGIN$ !IF CUST'FUNC'STATUS = CFS'OK THEN BEGIN CUST'LIST:=2;$ !CUST'NEXT'FUNC:=CF'NEXT'IN'RANGE; END; END, )ELSE IF CUST'FUNCTION = CF'HELP'TEXT THEN BEGIN& #HT "This is Help text for the" EHT; HT "MYLIST command" EHT; END; END) &ELSE IF CUST'CMD'NAME = "MYCOPY " THEN <> BEGIN' $IF CUST'FUNCTION = CF'BEGIN'CMD THEN# CUST'NEXT'FUNC:=CF'NEXT'IN'RANGE <>0 -ELSE IF CUST'FUNCTION = CF'NEXT'IN'RANGE THEN$ !IF CUST'FUNC'STATUS = CFS'OK THEN! CUST'NEXT'FUNC:=CF'PUT'AT'DEST) &ELSE CUST'NEXT'FUNC:=CF'PRINT'LINE'CNT. +ELSE IF CUST'FUNCTION = CF'PUT'AT'DEST THEN BEGIN$ !IF CUST'FUNC'STATUS = CFS'OK THEN BEGIN CUST'SAVE:=1; CUST'LIST:=1; CUST'DELETE:=1;$ !CUST'NEXT'FUNC:=CF'NEXT'IN'RANGE;# CUST'LINE'CNT:=CUST'LINE'CNT+1D; END ELSE BEGIN2 /MOVE MSG:=(" Out of line numbers for copy",0); MSG'OUT(CUST'QUADOUT);% "CUST'NEXT'FUNC:=CF'PRINT'LINE'CNT;:,CӉCC"22L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23  lRANGE FILE AND SHOW OPTIONS>>; %142) <> END!  CF'STRING= 25, CF'DEST'AND'INC= 26, CF'NEIGHBORS= 27, CF'NEXT'IN'RANGE= 28, CF'PRINT'LINE'CNT = 29, CF'PUT'AT'DEST= 30, CF'SET'DEST= 31, CF'SET'INC= 32, CF'RESET'RANGE= 33;  DEFINE COMMAND'FUNCTION =! (20 <= CUST'FUNCTION <= 100)#;  <>  EQUATE CUS'OK= 0, CUS'NO'USER'PROC= 1;% # <>  EQUATE CFS'OK= 0, CFS'END'OF'RANGE= 1, CFS'NO'SPACE'AT'DEST= 2;& $ <>  DEFINE HT = MOVE MSG:=(#,& #EHT = ,0); MSG'OUT(CUST'QUADLIST)#;  <>  BYTE ARRAY BUF1(*)=BUF1'W;  BYTE ARRAY BUF2(*)=BUF2'W;  ARRAY MSG'W(0:39);  BYTE ARRAY MSG(*)=MSG'W;  INTEGER STR'LEN;  INTRINSIC FWRITE;  <>  SUBROUTINE MSG'OUT(FILE); VALUE FILE; INTEGER FILE; BEGIN SCAN MSG UNTIL 0,1; STR'LEN:=TOS; STR'LEN:=STR'LEN-@MSG;$ !IF CONTROL'Y'HIT THEN GO TO STOP;! FWRITE(FILE,MSG'W,-STR'LEN,0); STOP: END;  <
>. , IF CUST'FUNCTION = CF'DEFINE'COMMANDS THEN <> BEGIN5 2MOVE BUF1'W:=(6,"MYLIST",6,"MYCOPY",9,"DUPLICATE", 5,"RIGHT",7,"DEBLANK",0); MOVE BUF2'W:=(: %142, <>; %145, <>:,CӉCC"32 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2 W CӉCC2 3 $CONTROL SUBPROGRAM' %$TITLE "Quad Customization Procedure" BEGIN $CONTROL SEGMENT=COMMANDF DProcedure QUAD'CUSTOM(CUST'CONTROL'W,BUF1'W,BUF1LEN,BUF2'W,BUF2LEN);@ > ARRAY CUST'CONTROL'W,BUF1'W,BUF2'W; INTEGER BUF1LEN,BUF2LEN;  BEGIN* ( <>3 1 INTEGER ARRAY CUST'CONTROL'I(*)=CUST'CONTROL'W;2 0 DOUBLE ARRAY CUST'CONTROL'D(*)=CUST'CONTROL'W;  DEFINE" CUST'STATUS=CUST'CONTROL'I(0)#, CUST'LIST=CUST'CONTROL'W(1)#, CUST'SAVE=CUST'CONTROL'W(2)#," CUST'DELETE=CUST'CONTROL'W(3)#,& #CUST'LINE'NUM'W=CUST'CONTROL'W(4)#,$ !CUST'LINE'CNT=CUST'CONTROL'D(4)#,& #CUST'NEXT'FUNC=CUST'CONTROL'I(10)#,( %CUST'FUNC'STATUS=CUST'CONTROL'W(11)#,% "CUST'FUNCTION=CUST'CONTROL'I(12)#,% "CONTROL'Y'HIT=CUST'CONTROL'W(13)#,' $CUST'CMD'NAME'W=CUST'CONTROL'W(14)#,' $CUST'FILE'RANGE=CUST'CONTROL'W(20)#,! CUST'SHOW=CUST'CONTROL'W(21)#," CUST'UNNUM=CUST'CONTROL'W(22)#," CUST'RESET=CUST'CONTROL'W(23)#,$ !CUST'OFFLINE=CUST'CONTROL'W(24)#,% "CUST'TRUNCATE=CUST'CONTROL'W(25)#,& #CUST'READ'VRSN=CUST'CONTROL'I(26)#,% "CUST'WRT'VRSN=CUST'CONTROL'I(27)#,# CUST'QUADIN=CUST'CONTROL'I(28)#,$ !CUST'QUADOUT=CUST'CONTROL'I(29)#,% "CUST'QUADLIST=CUST'CONTROL'W(30)#,' $CUST'UNNUM'FILE=CUST'CONTROL'W(31)#,$ !CUST'REC'LEN=CUST'CONTROL'I(32)#,) &CUST'LINE'NUM'LEN=CUST'CONTROL'I(33)#;0 . BYTE ARRAY CUST'CMD'NAME(*)=CUST'CMD'NAME'W;0 . BYTE ARRAY CUST'LINE'NUM(*)=CUST'LINE'NUM'W;  <>  EQUATE CF'DEFINE'COMMANDS = 1, CF'DEFINE'FINAL= 2, CF'ENTERED'CMD= 3, CF'ADDED'LINE= 4, CF'MODIFIED'LINE= 5, CF'BEGIN'CMD= 20, CF'END'CMD= 21, CF'NO'OP= 22, CF'HELP'TEXT= 23, CF'FILE'NAME= 24,:,CӉCC"22 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2 W ^]CӉCC2 3F DHere is a sample Quad'Custom, which implements five custom commands. = ; MYLIST -- Identical in function to Quad's LIST command. = ; MYCOPY -- Identical in function to Quad's COPY command. D B DUPLICATE -- Accepts a range of lines and a line increment fromC @the user. For each line of the range a copy of the line is madeE Band placed after the found line. For example if the file contains these lines:  1This is line 1 2This is line 2 B ?and the command "DUPLICATE 1/2 BY .05" is given, then the file will be:  1This is line 1 1.05 This is line 1 2This is line 2 2.05 This is line 2 F D RIGHT -- Accepts a range as an argument and shifts every line in> ;the range right by two spaces. The SHOW option is allowed. E C DEBLANK -- Accepts a range as an argument and removes all blank5 2lines from the range. The SHOW option is allowed. :,CӉCC"2 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2 W CӉCC2 3 Cust'Quadin G E This is an integer specifying the MPE file number of Quad's commandB @ input file. This file should be used in requesting additional  command input from the user.  Cust'Quadout G E This is an integer specifying the MPE file number of Quad's commandD B output file. This file should be used in prompting the user for< : additional command input and for issuing error messages.  Cust'Quadlist @ > This is the MPE file number which should be used for commandA ? listings (other than command prompts and error messages). IfA ? the user has specified OFFLINE on the command, it will be set= ; to Quad's QUADLIST file. Otherwise it will be set to the  QUADOUT file.  Cust'Unnum'File A ? This is a logical value which will be set to TRUE if the userA ? has specified :U on the file name in the current command, and  FALSE otherwise.  Cust'Rec'Len G E This is an integer set to the record length in bytes of the currentD B file being edited. The length does not include the line number.  Cust'Line'Num'Len B @ This is an integer specifying the length of line numbers being> < used for the current file: 6 for COBOL files, 8 otherwise. :,CӉCC"$2 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2 W `_CӉCC2 3 Cust'Show D B This is a logical value which will be set to TRUE if the current? = command has the SHOW option specified, and FALSE otherwise. Cust'Unnum D B This is a logical value which will be set to TRUE if the currentE C command has the UNNUMBERED option specified, and FALSE otherwise.> < If this option is TRUE, the SHOW option will also be TRUE. Cust'Reset D B This is a logical value which will be set to TRUE if the current@ > command has the RESET option specified, and FALSE otherwise.  Cust'Offline D B This is a logical value which will be set to TRUE if the currentB @ command has the OFFLINE option specified, and FALSE otherwise.> < If this option is TRUE, the SHOW option will also be TRUE.  Cust'Truncate D B This is a logical value which will be set to TRUE if the currentC A command has the TRUNCATE option specified, and FALSE otherwise.> < If this option is TRUE, the SHOW option will also be TRUE.  Cust'Read'Vrsn G E This is an integer value which will be set to the version which hasF D been specified in the current command's range. It is undefined if1 / the current command does not specify a range.  Cust'Wrt'Vrsn E C This is an integer value which will be set to the current version  being edited. :,CӉCC"'2 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2 W 65CӉCC2 3 Cust'Function > < This is an integer value set to indicate the function that  Quad'Custom is to perform. H F The possible values are documented above in the section specifically% # devoted to Quad'Custom functions.  Control'Y'Hit E C This is a logical value normally set to FALSE (0), but which willC A be set to TRUE (-1) if the user has attempted to stop a command  by typing control Y. E C If Quad'Custom is using the CF'Next'In'Range function, this valueE C will be checked by Quad and the command will be aborted. For any? = other lengthy functions, such as printing out documentationD B (CF'Help'Text), Quad'Custom should check this value and stop the  function if it is true.  Cust'Cmd'Name B @ This is a 12 byte value which provides the name of the currentG E command. It is filled on the right by blanks if the name has fewer  than 12 characters. D B Typically Quad'Custom will need to check this value to determineE C what to do for those functions which are executed during a custom command.  Cust'File'Range D B This is a logical value which will be set to TRUE if the currentB @ command has a range file specified in its range parameter, and  FALSE otherwise. :,CӉCC"$2 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2 W POCӉCC2 3 Cust'Line'Num E C This value is used by Quad'Custom to provide line numbers to QuadG E for various functions. It is never modified by the current version of Quad. C A When Quad'Custom is called with a Cust'Function of CF'Set'Dest,C A Quad'Custom should placed at this location the desired value of( & the current destination line number. B @ When Quad'Custom is called with a Cust'Function of CF'Set'Inc,C A Quad'Custom should placed at this location the desired value of  the line number increment. 9 7 These values are used by the function CF'Put'At'Dest.  Cust'Line'Cnt E C This double integer value is set to 0 by Quad at the beginning of8 6 every custom command. It is printed by the function  CF'Print'Line'Cnt. I G It should be incremented as appropriate by Quad'Custom. In a commandD B that modifies lines, for example, it would keep a count of linesI G modified. This count would then be printed at the end of the command  by CF'Print'Line'Cnt.  Cust'Next'Func F D This integer value is set to 0 prior to every call to Quad'Custom. F D It is this value which Quad'Custom uses to request being called byE C Quad to execute a specific function. For instance if Quad'Custom< : wished to receive the next line of a range, it would set' % Cust'Next'Func to CF'Next'In'Range.  Cust'Func'Status H F This is a status sent by Quad to Quad'Custom after various requested functions. F D For the CF'Next'In'Range function it will be set to 1 if there are  no more lines in the range. F D For the CF'Put'At'Dest function it will be set to 2 if there is no% # space at the desired destination. :,CӉCC"/2 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2 W poCӉCC2 3 Cust'Status 9 7 This integer value is set to 0 prior to every call toB @ Quad'Custom. Quad'Custom can cause the current custom commandB @ to be aborted by setting Cust'Status to a non-zero value (1 is< : suggested for best chances of compatilibilty with future  versions of Quad). Cust'List F D This integer value is set to 0 prior to every call to Quad'Custom. H F When Quad'Custom is called with a Cust'Function of CF'Next'In'Range,@ > Quad'Custom may set the value to 1 or 2 to cause printing ofC A the record in BUF1 with a line number corresponding to the line  of the range. F D When Quad'Custom is called with a Cust'Function of CF'Put'At'Dest,D B Quad'Custom may set the value to 1 or 2 to cause printing of the> < the record in BUF1 with a line number corresponding to theI G destination line. This will only occur however if a line is actuallyH F being saved (the value of Cust'Func'Status must be 0 indicating roomH F at the destination, and the value of Cust'Save must be 1, indicating, * Quad'Custom wants the line to be saved). D B For both of these cases a value of 1 causes printing if the userD B has specified the SHOW parameter on the current command, whereas, * a value of 2 causes printing regardless. Cust'Save F D This integer value is set to 0 prior to every call to Quad'Custom. H F When Quad'Custom is called with a Cust'Function of CF'Next'In'Range,H F Quad'Custom may set the value to 1 to cause the current line in BUF1G E to be saved at the line number corresponding to the current line ofG E the range. If the range is from a range file, that file is changed. , rather than the current file being edited. F D When Quad'Custom is called with a Cust'Function of CF'Put'At'Dest,H F Quad'Custom may set the value to 1 to cause the current line in BUF1H F to be saved at the line number corresponding to the current destina- tion line. Cust'Delete F D This integer value is set to 0 prior to every call to Quad'Custom. G E When Quad'Custom is called with a Cust'Function of CF'Next'In'RangeB @ or CF'Put'At'Dest, Quad'Custom may set the value to 1 to cause. , deletion of the current line of the range. :,CӉCC"42 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2 W cbCӉCC2 3  R -t F to be saved at the line number corresponding to the current destina- tion line. Cust'Delete F D This integer value is set # |------------------------------| 21 | Cust'File'Range|# |------------------------------| 22 | Cust'Show|# |------------------------------| 23 | Cust'Unnum|# |------------------------------| 24 | Cust'Reset|# |------------------------------| 25 | Cust'Offline|# |------------------------------| 26 | Cust'Truncate|# |------------------------------| 27 | Cust'Read'Vrsn|# |------------------------------| 28 | Cust'Wrt'Vrsn|# |------------------------------| 29 | Cust'Quadin|# |------------------------------| 30 | Cust'Quadout|# |------------------------------| 31 | Cust'Quadlist|# |------------------------------| 32 | Cust'Unnum'File|# |------------------------------| 33 | Cust'Rec'Len|# |------------------------------| 34 | Cust'Line'Num'Len|# |------------------------------|# 35 | Reserved for future use|# |------------------------------| . . .# |------------------------------|# 50 | Reserved for future use|# |------------------------------|" 51 | For use by Quad'Custom|# |------------------------------| . . .# |------------------------------|# 100 | For use by Quad'Custom|# |------------------------------|:,CӉCC"-2 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2 W +*CӉCC2 3 The Structure of Cust'Control  D BThe first parameter to Quad'Custom is an array named Cust'Control,: 8which contains values needed for Quad and Quad'Custom toA ?communicate. What follows is a description of Cust'Control and all its values.   # |------------------------------| 1 | Cust'Status|# |------------------------------| 2 | Cust'List|# |------------------------------| 3 | Cust'Save|# |------------------------------| 4 | Cust'Delete|# |------------------------------|! 5 | Cust'Line'Num (Word 1)|# |------------------------------|! 6 | Cust'Line'Num (Word 2)|# |------------------------------|! 7 | Cust'Line'Num (Word 3)|# |------------------------------|! 8 | Cust'Line'Num (Word 4)|# |------------------------------|! 9 | Cust'Line'Cnt (Word 1)|# |------------------------------|" 10 | Cust'Line'Cnt (Word 2)|# |------------------------------| 11 | Cust'Next'Func|# |------------------------------| 12 | Cust'Func'Status|# |------------------------------| 13 | Cust'Function|# |------------------------------| 14 | Control'Y'Hit|# |------------------------------|" 15 | Cust'Cmd'Name (Word 1)|# |------------------------------|" 16 | Cust'Cmd'Name (Word 2)|# |------------------------------|" 17 | Cust'Cmd'Name (Word 3)|# |------------------------------|" 18 | Cust'Cmd'Name (Word 4)|# |------------------------------|" 19 | Cust'Cmd'Name (Word 5)|# |------------------------------|" 20 | Cust'Cmd'Name (Word 6)|# |------------------------------|:,CӉCC"32 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2 W ~CӉCC2 3 CF'Reset'Range F D This function is called only by request of Quad'Custom. It allowsE C Quad'Custom to begin retrieving lines again starting at the firstE C line of the range specified by the user in the command. In otherH F words, following execution of this function, the next line retrievedH F by the function CF'Next'In'Range will be the first line of the range  specified by the user. G E This function need not be executed before passing through the range  the first time. :,CӉCC" 2 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2 W CӉCC2 3 CF'Set'Dest F D This function is called only by request of Quad'Custom. It allowsH F Quad'Custom to specify a starting destination for the next series ofF D puts to the file by the function CF'Put'At'Dest. This destinationB @ can either be set by this function or by the user as part of a command. H F This destination is only the starting destination. As lines are putI G to the file this destination will be incremented by a line increment.G E This line increment can either be set by the function CF'Set'Inc or% # by the user as part of a command. I G The destination will never be incremented beyond the line in the fileH F which follows the starting destination. Instead a smaller incrementE C will be used. If there is no more space at the destination, thisE C will be indicated by the function CF'Put'At'Dest. The process ofF D line number incrementing can be observed in the Quad commands ADD,  GATHER and COPY. G E If a line already exists at the supplied starting destination, thenH F the starting destination will be incremented. This occurs only whenB @ the first call is made to execute CF'Put'At'Dest following the( & setting of the starting destination. E C Quad'Custom must place the new destination in Cust'Line'Nums whenE C called to execute this function. The required length in bytes of< : the destination (either 6 or 8) is in Cust'Line'Num'Len. C A The parameters Buf1, Buf1len, Buf2 and Buf2len contain whateverF D values they contained on the prior call to Quad'Custom, and should  not be changed. CF'Set'Inc F D This function is called only by request of Quad'Custom. It allowsH F Quad'Custom to specify a line increment to be used in the process ofH F putting data to the file with the function CF'Put'At'Dest. For moreI G information refer to the discussions of the functions CF'Put'At'Dest,$ " CF'Dest'And'Inc and CF'Set'Dest. C A Quad'Custom must place the new increment in Cust'Line'Nums whenE C called to execute this function. The required length in bytes of: 8 the increment (either 6 or 8) is in Cust'Line'Num'Len. C A The parameters Buf1, Buf1len, Buf2 and Buf2len contain whateverF D values they contained on the prior call to Quad'Custom, and should  not be changed. :,CӉCC"12 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2 W <;CӉCC2 3 CF'Print'Line'Cnt F D This function is only called by request of Quad'Custom. It can beC A used to cause Quad to print a line count followed by a message,  such as "20 lines changed". G E The count is taken from the parameter Cust'Line'Cnt which is set toG E 0 by Quad at the beginning of a custom command, and which should be. , incremented as appropriate by Quad'Custom. E C The message must be supplied by Quad'Custom when this function isG E called. It should be placed in Buf1 and its length in bytes should  be placed in Buf1len. D B Buf2 and Buf2len contain whatever they contained on the previous  call to Quad'Custom.  CF'Put'At'Dest G E This function is called only by request of Quad'Custom. It is used$ " to put a new line into the file. G E The location of the put is determined by a starting destination andD B an increment. The first call to CF'Put'At'Dest puts data at theA ? starting destination. For succeeding puts the destination isD B incremented. This process is described in the discussion of the  function CF'Set'Dest. E C When Quad'Custom is called for function CF'Put'At'Dest, the valueF D Cust'Func'Status indicates whether there is room for a line at theH F current destination. A value of 0 indicates that there is room, andH F a value of 2 indicates no room. If there is room, Buf2 contains theA ? line number where the data will be put. The parameters Buf1,H F Buf1len and Buf2len contain whatever values they had on the previousH F call. Typically Buf1 will have a line retrieved by a prior functionC A of CF'Next'In'Range, and Buf1len will have its length in bytes. G E To put a line at the destination Quad'Custom should put the data toD B be saved in Buf1, its length in Buf1len, and set Cust'Save to 1. B @ To cause listing of this line and its destination line number,F D Cust'List should be set to 1 or 2. The value 1 will cause listingE C if the user has selected the SHOW option. The value 2 will cause  listing regardless. H F If Quad'Custom is obtaining data with the function CF'Next'In'Range,H F then Quad'Custom may set Cust'Delete to 1 to cause the most recentlyF D retrieved line to be deleted. The delete only occurs if Cust'Save+ ) is 1, indicating the put of a new line. G E The function CF'Next'In'Range also allows the deleting of the line.C A Quad'Custom should not specify a delete in both functions. The@ > purpose of allowing the delete in CF'Put'At'Dest is to allowC A Quad'Custom to see if there is room at the destination prior toH F making the delete. This logic can be observed in the command MYCOPYD B implemented in the sample Quad'Custom at the end of this manual. :,CӉCC"92 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2 W ZYCӉCC2 3 CF'Neighbors H F This function is called only by request of Quad'Custom. It supplies? = to Quad'Custom the line numbers adjacent to one supplied by  Quad'Custom. H F Quad'Custom must supply its line number in Cust'Line'Num at the same> < time it requests the function by setting Cust'Next'Func to  CF'Neighbors. D B When Quad calls Quad'Custom for function CF'Neighbors, Buf1 will@ > contain a line number less than or equal to that supplied byD B Quad'Custom, and Buf2 will contain a line number greater than orE C equal to that supplied by Quad'Custom. If there are line numbersC A in the file satisfying these criteria, then the ones closest inC A value to that supplied by Quad'Custom will be supplied, and theE C corresponding length parameters (Buf1len and Buf2len) will be set  to 1. E C If there is no line number in the file less than or equal to thatA ? supplied by Quad'Custom, then Buf1 will be set to "000000" orD B "00000000" depending on whether Cust'Line'Num'Len is 6 or 8, and  Buf1len will be set to 0. H F If there is no line number in the file greater than or equal to thatA ? supplied by Quad'Custom, then Buf2 will be set to "999999" orD B "99999999" depending on whether Cust'Line'Num'Len is 6 or 8, and  Buf2len will be set to 0.  CF'Next'In'Range H F This function is called only by request of Quad'Custom. It suppliesH F lines of the line range specified by the user as part of the currentG E custom command. The first time this function is called it suppliesE C the first line of the range, and on each succeeding call the next" line of the range is supplied. G E Buf1 will contain the line being supplied, and Buf1len contains itsH F length in bytes. These values may be modified by Quad'Custom if the& $ line is to be updated in the file. G E Buf2 contains the line number corresponding to the line in Buf1 andH F Buf2len is its length (6 or 8) in bytes. These values should not be changed. H F Quad may be made to list this line by setting parameter Cust'List toA ? 1 which will cause listing if the user has specified the SHOW8 6 option, or to 2 which will cause listing regardless. ? = Quad may be made to update this line in the file by settingI G Cust'Save to 1. Presumably in this case Quad'Custom has updated Buf1  and Buf1len. I G Quad may be made to delete this line by setting parameter Cust'DeleteF D to 1. This delete will not be done if the range of the command isI G from a range file, or if Quad'Custom has also requested saving of the  current line. :,CӉCC":2 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2 W CӉCC2 3 CF'Help'Text G E This function is called whenever the user executes the HELP command< : asking for information about the custom command named inB @ Cust'Cmd'Name. Quad'Custom should write information about the& $ command to the file Cust'Quadlist. D B The parameters Buf1, Buf1len, Buf2 and Buf2len are undefined and  should not be changed.  CF'File'Name G E This function is called only by request of Quad'Custom. For customC A commands which have a file name for an argument, this call will3 1 provide Quad'Custom with the entered file name. D B If the custom command has a file name for an argument, then Buf1H F contains the entered name and Buf2 is the file name length in bytes.- + Otherwise Buf1 and Buf1len are undefined. G E Buf2 and Buf2len contain whatever value they contained during their!  previous call to Quad'Custom. CF'String G E This function is called only by request of Quad'Custom. For custom@ > commands which have a string for an argument, this call will0 . provide Quad'Custom with the entered string. A ? If the custom command has a string for an argument, then Buf1G E contains the entered string and Buf2 is the string length in bytes.- + Otherwise Buf1 and Buf1len are undefined. G E Buf2 and Buf2len contain whatever value they contained during their!  previous call to Quad'Custom.  CF'Dest'And'Inc H F This function is called only by request of Quad'Custom. It suppliesG E Quad'Custom with the current values of the starting destination andI G line increment. These values are used by the function CF'Put'At'DestF D to select the line number of data being written to the file. TheyF D are set by user command input and by the functions CF'Set'Dest and? = CF'Set'Inc. For more information refer to these functions. D B Buf1 will contain the line number of the destination and Buf1lenH F will contain its length (either 6 or 8). Buf2 will contain the lineG E number of the increment and Buf2len will contain its length. These!  values should not be changed. :,CӉCC"22 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2 W CӉCC2 3 CF'Modified'Line G E This function is called whenever a user enters a modify string dur-H F ing a MODIFY or REDO command. The call is prior to the modification? = of the line so that Quad'Custom can alter either the modifyF D string or the line being modified. This call will occur for everyH F modify string entered, so that there may be multiple calls for every  line being modified. B @ Buf1 contains the current value of the line being modified andD B Buf1len is its length in bytes. Buf2 contains the current valueF D of the modify string and Buf2 is its length in bytes. Quad'CustomG E may make adjustments to any of these values. Following the call to< : Quad'Custom Quad will perform modifications to the line. H F It is possible for Quad'Custom to completely redefine the meaning ofE C the modify string by performing its own changes to the line beingI G modified and then setting the modify string to blanks to suppress any  changes by Quad.  CF'Begin'Cmd C A This function is the first call to Quad'Custom for every customG E command executed. It is the opportunity for Quad'Custom to request3 1 additional functions by setting Cust'Next'Func. D B The parameters Buf1, Buf1len, Buf2 and Buf2len are undefined and  should not be changed. CF'End'Cmd B @ This function is the last call to Quad'Custom for every customI G command executed. The call is made whenever (following CF'Begin'Cmd)D B Quad'Custom does not set Cust'Next'Func to request an additionalE C function. This call is an opportunity for Quad'Custom to performF D any final cleanup which execution of a custom command may require. D B The parameters Buf1, Buf1len, Buf2 and Buf2len are undefined and  should not be changed. CF'No'Op H F This function is called only by request of Quad'Custom. As its nameC A suggests, Quad performs no function other than making the call. C A The parameters Buf1, Buf1len, Buf2 and Buf2len contain whatever8 6 value they had during the prior call to Quad'Custom. :,CӉCC"02 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2 W CӉCC2 3 CF'Define'Final @ > This function is called when the user executes the CUSTOMIZEB @ command; the call is immediately after the CF'Define'CommandsF D function. It allows Quad'Custom to override the users termination3 1 commands as specified in the CUSTOMIZE command. C A Buf1 contains the final command line entered with the CUSTOMIZEE C command, and Buf1len is the length in bytes of Buf1. Quad'CustomE C can set the termination command line by setting these parameters. = ; Buf2 and Buf2len are undefined and should not be changed.  CF'Entered'Cmd C A This function is called whenever Quad begins execution of a newI G command line, and allows Quad'Custom to alter the command line. ThisE C command line may have been entered by the user or selected by the  XECUTE command. F D Buf1 contains the command line and Buf1len is its length in bytes.B @ Quad'Custom can substitute a new command line and command line# ! length to replace these values. = ; Buf2 and Buf2len are undefined and should not be changed.  CF'Added'Line E C This function is called whenever a user enters a new line of dataG E into the file during an ADD command. The call is prior to the lineE C being added into the file so that Quad'Custom can alter the added  line. C A Buf1 contains the line to be added and Buf1len is its length inD B bytes. Quad'Custom can substitute a new line and line length to  replace these values. = ; Buf2 and Buf2len are undefined and should not be changed. :,CӉCC"'2 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2 W CӉCC2 3  #[ V 9l5 C( @S, ӉC s,CʥG$FӉCW CӉCC3 CF'Define'Final @ > This function is called when the user executes the CUSTOMIZEB @ command; the call is immediat? 79The argument is a string as in Quad's QUOTE and CUSTOMIZE: 7commands. Quad'Custom can obtain the string value with the function CF'String. < %134The argument is a line number and an increment as in: 7Quad's ADD command. Quad'Custom can obtain both values% "with the function CF'Dest'And'Inc. > %156The argument is a range of lines and an increment. No: 7Quad command uses this argument. However it is used by9 6the custom command DUPLICATE implemented by the sample) &Quad'Custom at the end of this manual. D BThe Options part selects among the Quad command options, which areD BSHOW, OFFLINE, TRUNCATE, UNNUMBERED, and RESET. For each of theseA ?options there is a word of Cust'Control which is set to true ifA ?the option has been selected for the current command, and falseF Dotherwise. These words are: Cust'Show, Cust'Offline, Cust'Truncate,B @Cust'Unnum, and Cust'Reset. By convention, the SHOW option willA ?be considered to be selected if any of the OFFLINE, TRUNCATE or" UNNUMBERED options are selected. H FThere is one additional option: whether or not a range file is allowedA ?in a range parameter. For example Quad's LIST command allows a2 0range file, whereas the DELETE command does not. ? =The bits of the Options part select these options as follows:   Bit Meaning If Bit Is SetH F --------------------------------------------------------------------! 7The RESET option is allowed& 8 The UNNUMBERED option is allowed* 9$A range file is allowed in the rangeF  10>The SHOW, OFFLINE, TRUNCATE and UNNUMBERED options are allowed  C AAn SPL command which would set Buf2 appropriately for Quad's LIST and COPY commands is:  MOVE Buf2:=(: 7%142, <>: 7%145; <>:,CӉCC"-2 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2 W CӉCC2 3 CF'Define'Commands C A This function is called when the user executes Quad's CUSTOMIZE@ > command. Quad'Custom must be respond by specifying whateverH F custom commands which it is to implement, and their characteristics.D B Parameter Buf1 must be set with the command names, and Buf2 must0 . specify the form of the rest of the command. D B Each command name in Buf1 is preceded by an integer which is theF D length in bytes of the name. The names and the length values mustF D begin on word boundaries. The list is terminated by a zero length  value. E C The following SPL command sets Buf1 for two commands, ODDNAME and EVENNAME: + (MOVE BUF1:=(7,"ODDNAME",8,"EVENNAME",0); @ > Buf2 must be set with a list of numbers, one number for eachI G command, which specifies the allowed arguments for the commands. TheH F numbers must be ordered according to the command name order of Buf1. D B Each number consists of two parts, a Type part in bits 11 to 15,( & and an Options part in bits 7 to 10: B @ 0...1...2...3...4...5...6...7...8...9...10..11..12..13..14..15%  !Unused!Options!Type!B @ .............................................................. . , Type can take any of the following values:  Value DescriptionE B------------------------------------------------------------------$ 0The command takes no arguments < 16The argument is a file name as in Quad's TEXT command.: 7Quad'Custom can obtain this file name with the function CF'File'Name. 8 22The argument is a range of lines as in Quad's LIST8 5command. Quad'Custom obtains lines of the range with! the function CF'Next'In'Range. ? 49The argument is a single line specification, as in Quad's8 5FIND command. Quad'Custom can obtain the line number1 .of the line with the function CF'Dest'And'Inc. < 56The argument is a range of lines, a destination and an7 4optional line increment as in Quad's GATHER and COPY8 5commands. Quad'Custom obtains the lines of the range7 4with the function CF'Next'In'Range, and places lines7 4at the destination with the function CF'Put'At'Dest. :,CӉCC"52 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2 W CӉCC2 3 The Customization Functions  H FWhen Quad calls Quad'Custom, Quad specifies a function to be performedE Cby setting the integer parameter Cust'Function, which is a value in: 8the Cust'Control array which Quad passes to Quad'Custom. > the next line in the range and then to call Quad'Custom withC A Cust'Function set to CF'Next'In'Range and with Cust'Func'Status6 4 set to indicate success or failure in the attempt. E C If the attempt was successful (Cust'Func'Status = 0) then Buf1 isA ? the retrieved line and Buf2 is the corresponding line number.F D However Quad'Custom does not use these values but instead requestsG E Quad to print the line by setting Cust'List to 2. Quad'Custom then@ > asks Quad to find the next line by setting Cust'Next'Func to  CF'Next'In'Range. F D This loop ends finally when Quad'Custom requests the next line andH F Quad has already sent the last in the range. Quad calls Quad'CustomD B for function CF'Next'In'Range but has Cust'Func'Status set to 1,H F indicating end of range. Quad'Custom responds by doing nothing. InG E particular it does not request a next function. Quad then ends theA ? custom command by calling Quad'Custom to perform the function* ( CF'End'Cmd, which Quad'Custom ignores. A ? This is the only code required to perform a command fully theH F equivalent of Quad's LIST command. It will, for example, list range6 4 files ( LIST ) and do offline listings. :,CӉCC" 2 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2 W cbCӉCC2 3% "Quad'Custom -- Theory of Operation  < : Quad'Custom must be coded to check a function parameter,E C Cust'Function, provided in Cust'Control, and perform the requiredE C function. If a custom command is being executed Quad'Custom mustC A also check the command name Cust'Cmd'Name which is also part ofE C Cust'Control. The logic will look roughly as follows (the values/ - whose names begins with CF' are functions): - *IF CUST'FUNCTION = CF'DEFINE'COMMANDS THEN <> . .6 3ELSE IF CUST'FUNCTION = CF'DEFINE'DEFINE'FINAL THEN <> . .# ELSE IF CUST'FUNCTION >= 20 THEN> ;<>& #IF CUST'CMD'NAME = "CUSTCMD1 " THEN( %<> . .+ (ELSE IF CUST'CMD'NAME = "CUSTCMD2 " THEN( %<> . . etc.  @ > For Quad'Custom to execute a custom command, it must specify? = which functions are to be executed by setting the parameterF D Cust'Next'Func, which is also part of Cust'Control. Here is logicD B to execute a command MYLIST which is equivalent to Quad's "LIST" command: $ !IF CUST'CMD'NAME = "MYLIST " THEN <>' $IF CUST'FUNCTION = CF'BEGIN'CMD THEN# CUST'NEXT'FUNC:=CF'NEXT'IN'RANGE0 -ELSE IF CUST'FUNCTION = CF'NEXT'IN'RANGE THEN BEGIN IF CUST'FUNC'STATUS = 0 THEN) &<> BEGIN/ ,CUST'LIST:=2; <>$ !CUST'NEXT'FUNC:=CF'NEXT'IN'RANGE; END END, )ELSE IF CUST'FUNCTION = CF'HELP'TEXT THEN <> :,CӉCC"52 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2 W xwCӉCC2 3 Procedure Quad'Custom  C AQuad'Custom requires 5 parameters, all specified by word address: G E Cust'Control -- an array of miscellaneous information and workspace5 2for Quad'Custom. It is described in detail below. H F Buf1 -- an array which typically contains a line of information from the file being edited. C A Buf1len -- an integer which is typically the length in bytes of the line in Buf1. I G Buf2 -- an array which typically contains a line number corresponding to the line in Buf1. I G Buf1len -- an integer which is typically the length in bytes of Buf2. . ,An SPL procedure heading for Quad'Custom is: @ >Procedure QUAD'CUSTOM(CUST'CONTROL,BUF1,BUF1LEN,BUF2,BUF2LEN);: 8 Array CUST'CONTROL,BUF1,BUF2; Integer BUF1LEN,BUF2LEN; :,CӉCC"2 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2 W ?>CӉCC2 3 An Overview of Customizing  B @The CUSTOMIZE command instructs Quad that customization is to beA ?done. This command can be hidden from a user by building a UDCA ?which supplies this command to Quad in the INFO= parameter. AsC Adescribed in the "Running Quad" section of the Quad manual, QuadE Ctakes the INFO= parameter as the first command line to be executed. D BThe one parameter to the CUSTOMIZE command is a command line to beE Cexecuted when Quad is terminated by the user with the EXIT command.D BThis allows a final action such as the keeping of the texted file. The MPE command: 2 0 :RUN QUAD;INFO="CUST :K FILENAME:; T FILENAME" A ?will cause Quad to text the file FILENAME initially and keep it on termination. E CThe CUSTOMIZE command has another effect. Quad calls the procedureD BQuad'Custom to see if any custom commands are to be defined, or if? =the final command specified in CUSTOMIZE is to be overridden. H FThe procedure Quad'Custom can be supplied by the user in either of twoE Cways. It can be compiled into Quad's USL, or it can be put into an> used then there should be a Quad'Custom supplied to avoid this# !message, even if it does nothing. :,CӉCC"62 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2 W CӉCC2 3  Customizing Quad  4 2Quad can be customized in the following four ways: C A 1. Adding custom commands which look to the user like ordinary? first file, the text file, may be replaced with a Quad Range|  enclosed in parentheses.| |B =Any compilation may be terminated prematurely with Control-Y.| | Examples:| |% /SPLPREP textfile,prog,listfile| /SPLPREP (all),,$null|# /SPLPREP (Version 2),prog,*LP|:,CӉCC"2 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The SPLGO Command| -----------------| | |< 7The SPLGO command compiles, prepares and executes a SPL| program.| |? :The format is that of MPE's SPLGO command, except that the|C > first file, the text file, may be replaced with a Quad Range|  enclosed in parentheses.| |B =Any compilation may be terminated prematurely with Control-Y.| | Examples:| | /SPLGO textfile,listfile| /SPLGO (all),$null| /SPLGO (Version 2),*LP|:,CӉCC"2 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The SPL Command ---------------  + )The SPL command invokes the SPL compiler. ? =The format is identical to MPE's SPL command, except that the@ > first file, the text file, may be replaced with a Quad Range  enclosed in parentheses. ? =Any compilation may be terminated prematurely with Control-Y. Examples:  /SPL textfile,usl,$null /SPL (all),usl,$null /SPL (Version 1),usl,*LP:,CӉCC"2 I @S$C( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The RPGPREP Command| -------------------| | |= 8The RPGPREP command compiles and prepares a RPG program.| |A first file, the text file, may be replaced with a Quad Range|  enclosed in parentheses.| |B =Any compilation may be terminated prematurely with Control-Y.| | Examples:| |% /RPGPREP textfile,prog,listfile| /RPGPREP (all),,$null|# /RPGPREP (Version 2),prog,*LP|:,CӉCC"2 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The RPGGO Command| -----------------| | |< 7The RPGGO command compiles, prepares and executes a RPG| program.| |? :The format is that of MPE's RPGGO command, except that the|C > first file, the text file, may be replaced with a Quad Range|  enclosed in parentheses.| |B =Any compilation may be terminated prematurely with Control-Y.| | Examples:| | /RPGGO textfile,listfile| /RPGGO (all),$null| /RPGGO (Version 2),*LP|:,CӉCC"2 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The RPG Command ---------------  + )The RPG command invokes the RPG compiler. ? =The format is identical to MPE's RPG command, except that the@ > first file, the text file, may be replaced with a Quad Range  enclosed in parentheses. ? =Any compilation may be terminated prematurely with Control-Y. Examples:  /RPG textfile,usl,$null /RPG (all),usl,$null /RPG (Version 1),usl,*LP:,CӉCC"2 I @S$C( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The PASXLLK Command| -------------------| | |@ ;The PASXLLK command compiles and links a MPE/XL native mode|  HP PASCAL/XL program.| |D ?The format is that of MPE/XL's PASXLLK command, except that the|C > first file, the text file, may be replaced with a Quad Range|  enclosed in parentheses.| |B =Any compilation may be terminated prematurely with Control-Y.| | Examples:| |? 9/PASXLLK textfile,nmprog,listfile;INFO="compiler_command"| /PASXLLK (all),,$null|# /PASXLLK (Version 2),prog,*LP|:,CӉCC"2 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The PASXLGO Command| -------------------| | |E @The PASXLGO command compiles, links and executes a MPE/XL native|!  mode HP PASCAL/XL program.| |D ?The format is that of MPE/XL's PASXLGO command, except that the|C > first file, the text file, may be replaced with a Quad Range|  enclosed in parentheses.| |B =Any compilation may be terminated prematurely with Control-Y.| | Examples:| |8 2/PASXLGO textfile,listfile;INFO="compiler_command"| /PASXLGO (all),$null| /PASXLGO (Version 2),*LP|:,CӉCC"2 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The PASXL Command -----------------  C AThe PASXL command invokes the MPE/XL native mode Pascal compiler. ? =The format is that of MPE/XL's PASXL command, except that the@ > first file, the text file, may be replaced with a Quad Range  enclosed in parentheses. ? =Any compilation may be terminated prematurely with Control-Y. Examples: 4 1/PASXL textfile,usl,$null;INFO="compiler_command" /PASXL (all),usl,$null /PASXL (Version 2),usl,*LP:,CӉCC"2 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The PASCALPREP Command| ----------------------| | |C >The PASCALPREP command compiles and prepares a PASCAL program.| |D ?The format is that of MPE's PASCALPREP command, except that the|C > first file, the text file, may be replaced with a Quad Range|  enclosed in parentheses.| |B =Any compilation may be terminated prematurely with Control-Y.| | Examples:| |( "/PASCALPREP textfile,prog,listfile| /PASCALPREP (all),,$null|& /PASCALPREP (Version 2),prog,*LP|:,CӉCC"2 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The PASCALGO Command| --------------------| | |B =The PASCALGO command compiles, prepares and executes a PASCAL| program.| |B =The format is that of MPE's PASCALGO command, except that the|C > first file, the text file, may be replaced with a Quad Range|  enclosed in parentheses.| |B =Any compilation may be terminated prematurely with Control-Y.| | Examples:| |! /PASCALGO textfile,listfile| /PASCALGO (all),$null| /PASCALGO (Version 2),*LP|:,CӉCC"2 L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The Pascal Command ------------------  1 /The Pascal command invokes the Pascal compiler. B @The format is identical to MPE's Pascal command, except that the@ > first file, the text file, may be replaced with a Quad Range  enclosed in parentheses. ? =Any compilation may be terminated prematurely with Control-Y. Examples:  /Pascal textfile,usl,$null /Pascal (All),usl,$null /Pascal (Version 1),usl,*LP:,CӉCC"2 I @S$C( @S, ӉC2 s,CʥG$FӉC2W CӉCC23    YvB4  the Pascal compiler. B @The format is identical to MPE's P The Xecute Command ------------------  & $The Xecute command executes a Range.  The format is: F @Xecute [Range] [Show] [Offline] [Header] [Unnumbered] [Truncate]| [Case] [Nonlit] [Wild]| H CThe range of commands that are specified by the Xecute command will|H C start execution after the current command line is finished. This|J H will allow any commands following the Xecute command on the command |F A line to complete prior to the execution of the Xecute commands.| G BQuad loads the list of Xecute commands into the work file prior to|H C execution. Because of this, the Xecute commands will be lost any|G B time a new file is text up. Only the currently executing Xecute|, ' command line will be carried forward.| ? =The optional Show parameter shows the lines as they are beingB @ read into the work file prior to execution. They will also beA ? displayed during execution (unless display is suppressed with  the Quote command). B @Since a Range can be all or part of an external file, the XecuteF D facilitates execution of frequently used command sequences. Xecute( & commands can be nested to any level. E CThe Xecute command is terminated by an error in any of the commands  being executed. Examples:  /Xecute 1/10 /Xecute  /Xecute ^format|:,CӉCC"&2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The Whiten Command ------------------  H FThe Whiten commands adds a blank line after each line in the specified  range.  The syntax is: ; 9 Whiten Range [By Increment] [Show] [Offline] [Header] [Unnumbered] [Truncate] I GThe line number of each added line is calculated by adding an incrementI G to the line number of the preceding line. The rules for the value of6 4 the increment are the same as for the Add command. D BIf there is no available line number after one of the lines in theE C range, the Whiten command stops adding lines and issues a warningJ H message. The lines that have been added up to that point are retained1 / (but can be removed with the Cancel command). Examples:  /Whiten all /Whiten I:string::,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W EDCӉCC23 The Verify Command ------------------  D BThe Verify command displays the names of the current text and keep  files.  The format is Verify B @The number of records is the number of records in the originallyF D texted file. The keep file is the file to which a keep will occurB @ if no file name is specified on the Keep or Renumber commands.:,CӉCC"2I @S$C( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The Upshift Command -------------------  C AThe Upshift command converts all lower-case alphabetic characters) ' to upper-case in the specified range.  The format is E ?UPshift Range [Show] [Offline] [Header] [Unnumbered] [Truncate]| [Case] [Nonlit] [Wild]| ? =The optional Show parameter will display the upshifted lines. Examples:  /Upshift All /UP All I "<<":,CӉCC"2I @S$C( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The Undo Command ----------------  E CThe Undo command returns a range of lines to its state at the start# ! of editing the current version.  The format is Undo Range A ?If Range has the include or exclude option, only existing linesF D of the range will be affected (no deleted lines will be restored).? = Otherwise the entire range of lines will be restored to its, * original state, including deleted lines. H FImportant note -- undoing lines that have been added will delete them. Examples: /Undo 1/30 /Undo all /Undo all i:misspelled word::,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The Text Command ----------------  3 1The Text command specifies the file to be edited.  The format is  Text File Name G EFile Name may be a standard flat file as created by Edit/3000 or QuadB @ or a Quad save file. If it is a flat file, Quad automaticallyH F recognizes numbered and COBOL files, and handles them appropriately. G EA KSAM key or data file may be texted and edited. It will be treatedG E by Quad as an ordinary file, but Quad will allow a keep back to the> < original file only if no lines have been added or deleted. F DAny attempt to text RIO, message or circular files will fail with an  error message.:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The Tabs Command ----------------  D BThe Tabs command can be used for setting tabs on HP terminals, for/ - use with the Add, Modify and Redo commands.  The format is TAbs [Tablist] [Show] [Reset] C ATablist is a list of tab column positions, specified as a list ofG E positive integers, with the integers in the list separated from oneF D another by spaces or commas. Each tab position must be at least 2  and no larger than 80. E CWhen the Add, Modify or Redo command is given, Quad will cause theD B appropriate tab stops to be set at the terminal. Quad will makeG E proper allowances for the line number prompting that may or may not  occur in these commands. C AThe Reset option is used to remove all tabs. If the Reset optionE C is used together with a Tablist, the Reset option takes priority. F DThe Show option causes the current tab settings to be displayed. ItG E may be used in combination with a Tablist or with the Reset option. Examples: B @/Tabs 6,11,16,21,26 Show -- Set some tabs and show the settings /Tabs Reset-- Clear all tabs. /Tabs Show -- Show the current tab settings:,CӉCC" 2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The Stream Command ------------------  E @The Stream command can be used to spool batch jobs or data. The|I D format of the command has been extended to allow the specification|J H of a range of the current file as a source for the job stream. The |I D optional time related parameters of the Stream command may also be|J H used to schedule the jobs. The syntax for the time parameters is not |  verified by Quad.|  The format is| " STReam [ filename ] [,char]| [ ( range ) ]| | [;AT = timespec]| | {day-of-week}| [;DAY = {day-of-month}]| {day-until-month}| | [;DATE = datespec]|) &[;IN = [days[, [hours] [,minutes]]]] |  Examples:|  /STReam ajob| /STReam ,#| /STReam (all);AT=23:30| /STReam (Version 2),%| /STReam (i'*'(1/1)),*| :,CӉCC"!2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The Stats Command -----------------  G EThe Stats commands displays performance statistics for the previously  executed command.  The format is  STats F DThe display includes elapsed and CPU time, in milliseconds, and disc  accesses on the base file. D BIf there is an active work file, the display also includes variousE C performance statistics which pertain to it. These include blocks  read and blocks written. > other files and then return to your current version of QUAD.| |G BMPE is asked for the fully qualified name of the current QUAD that|J H is being run. Then a call to the CREATEPROCESS intrinsic is issued |E @ to run that program again. This will allow QUAD to be located|I D anywhere on the system and allow QUAD to run itself. The value of|J H PARM= option of the current QUAD will be passed on to the new QUAD. | | Example:| | /QUAD|:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W xwCӉCC23 The Pagesize Command --------------------  I GThe Pagesize command sets, for the Page command, the number of rows and  columns in a page.  The syntax is:  PAGESize rows, columns 5 3where the parameters ROWS and COLUMNS are integers. H FParameter ROWS is an integer between 12 and 50. The default when QuadF D starts is 24. The value is best selected to be the number of rowsI G that the terminal can actually display at one time, although a largerH F or smaller value can be used. However the Page command assumes that= ; the terminal can actually hold twice this number of rows. G EParameter COLUMNS is an integer between 80 and 150. The default whenJ H Quad starts is 80. The value used should be the number of columns thaF D the terminal can actually display. The Page command will not work; 9 satisfactorily if the value chosen is larger than this. Example:   /Pagesize 24, 132:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 C AThe "V" (View) subcommand redisplays the most recent page command1 / message temporarily at the top of the screen. C AThe "R" (Refresh) subcommand redisplays the current page of text. F DThe "L" (Label) subcommand allows a label -- a single digit -- to beE C associated with the current location in the file. You may return? = to this location at a later time by entering the digit as aJ H subcommand. If the label number is entered as a subcommand the page |J H cursor will be moved to that line. However, if no location has been |I D defined for that label number the cursor will be moved up or down,|J H based on the last cursor direction, a corresponding number of lines. | I DThe "+" (forward) and "-" (backward) subcommands are used to set the|F A last direction flag. These subcommands are used in conjunction|) $ 0 through 9 label number commands.| I DThe "Q" (Quad) subcommand will create and run another version of the|I D QUAD program. Once that QUAD has been exited the user will return|A < to page mode at the line that they entered the subcommand.| G EThe "H" (Help) subcommand enters Quad's help subsystem. Exiting from& $ help will return you to page mode. ? =The "?" (Short Help) subcommand will display a summary of the. , subcommands available in the Page command. H FWhen a message is displayed in the Page command, you may cut short theI G message display by typing a character. The character will be treatedD B as the next subcommand unless you are adding or modifying lines. A ?The Page command is exited by the E subcommand. After exiting,G E Quad's Cancel command can be used to cancel all changes made duringF D the Page command. Changes may also be undone by the Undo command.:,CӉCC"#2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W IHCӉCC23 J HThe O subcommand is used to set the search options globally. Once the |J H user has used the O subcommand it will remove the need to prompt the |8 3 user for the search options on each F subcommand.|   Option Description|J H---------------------------------------------------------------------- |5 N,Use NONLIT (non-literal) mode for searching.|; W2Allow use of wild card characters, (@, #, ? or ^).|= C4Enable case sensitive alphabetic character matching.| H FLines can be added AFTER the current line with the "A" subcommand. AsH F with Quad's Add command, lines are entered until a Control-Y or "//"  terminates adding. B @Lines can be added BEFORE the current line with the "I" (insert) subcommand. J HA sequence of lines may be modified with the "B" subcommand. As with |H F Quad's Modify command, the user is repeatedly prompted for a line ofI G modify specifications until he enters a carriage return to accept theG E modifications, or Control-Y or "//" to revert to the original line.H F When modifications to a line are ended (with a carriage return), theH F process continues for the next line, until the subcommand is stopped  with "//" or Control-Y. I DA single line may be modified with an "M" or " " (space) subcommand.|J H Only a single line is modified and then the user is prompted for the |  next subcommand.| G EThere is a hold file maintained by the Page command, which starts out8 6 empty. It is affected by the following subcommands:  Subcommand ActionH F----------------------------------------------------------------------8 C2Copy the current line to the end of the hold file.= D7Delete the current line and append it to the hold file.J H control-D Delete the current line without appending to the hold file.|B Z" are used toG E position the cursor. Rolling is done with the two keys "[" and "]"G E and their shifted values "{" and "}". The key "P" positions to theJ H previous page, and "N" positions to the next page. Here is a summary:  Subcommand ActionH F----------------------------------------------------------------------" ,Move the cursor up one line.$ .Move the cursor down one line./ <)Move the cursor up one quarter of a page.1 >+Move the cursor down one quarter of a page. [Roll text down one line. ]Roll text up one line.+ {%Roll text down one quarter of a page.) }#Roll text up one quarter of a page.. P(Move the cursor up to the previous page.7 2 control-P Move the cursor up two previous pages.|, N&Move the cursor down to the next page.0 + control-N Move the cursor down two pages.| F DThe Find subcommand is invoked with an "F". The user is prompted atF D the top of the page for what is to be found. Any of the following  may be entered.  Find Entry ActionH F----------------------------------------------------------------------6 F or f+Display starting at the first line of file.7 L or l,Display ending at the last line of the file.9 Line #.Display starting at the specified line number.9 string.(not quoted) - Find next occurrence of string./ ,\string Find previous occurrence of string.+ (/string Find next occurrence of string. H CAfter a string has been entered a prompt showing the current search|I D option will be displayed. The user can press return to accept the|I D the current setting or enter a space and return to have the search|G B options set to the default setting or enter a list of the search|J H options that are now desired. If the O subcommand has been used it |J H is assumed that the user has set the search option globally and will |; 6 not be prompted for the search option for each find.| H FOnce a string has been specified in the Find subcommand, the followingG E subcommands may be used to find the previous or next occurrences of the string:  Subcommand ActionH F----------------------------------------------------------------------6 \0Find previous occurrence of find string in file.2 /,Find next occurrence of find string in file. I GA forward find will wrap around to the top of the file if the string isF D not found before the end of file. Similarly, a backward find willD B wrap around to the bottom of the file if the string is not found  before beginning of file.:,CӉCC"72L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The Page Command ----------------  I GThe Page command displays one page of the file being edited, and allowsG E modifications to be made to the displayed lines. The appearance ofC A the page always reflects the current contents of the file being edited. I GThe number of lines and columns in a page is determined by the Pagesize command. F DThe Page command should work on any HP terminal, including the 2621.  The syntax is: ' " Page Line [Case] [Nonlit] [Wild]| I Gwhere Line is the first line of the page to be displayed. For example,  /Page First & $displays the first page of the file. E CThe page is displayed with each line beginning in column two of theJ H terminal screen. Column 1 contains a cursor to mark the current line.I G When the first lines of the file are being displayed, a dummy line isJ H displayed to mark the beginning of file. This permits the "A" and "J"J H subcommands (see below) to put lines in front of the first line of theJ H file. There is also a dummy line after the end of file for the use of  the "I" and "U" subcommands. I GEditing is done by entering single character subcommands. Either lower9 7 or upper case may be used for alphabetic subcommands. I DThe "+" (forward) and "-" (backward) subcommands are used to set the|F A last direction flag. These subcommands are used in conjunction|) $ 0 through 9 label number commands.| J HWhen entering page mode, Quad will issue a 'SETMSG OFF' command to MPE.|J H This will prevent TELL messages from interrupting your display. When |G B leaving page mode a corresponding 'SETMSG ON' command is issued.|:,CӉCC"*2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W xwCӉCC23 The New Command ---------------  . ,The New command is used to start a new file.  The format is  New ? =The command will prompt to determine if the new file is to beC A COBOL (file type 1052) or non-COBOL (file code 0). The default; 9 (if carriage return only is the response) is non-COBOL. H FIf the file is non-COBOL, Quad will also prompt for the record length.  The default is 72.:,CӉCC"2I @S$C( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 MPE Commands ------------  ? =Any MPE command which can be executed programmatically can beC A executed within Quad by prefacing the command with a colon (:). F AAn extension has been added so that any command listed in the MPE|I D Intrinsic manual as executable by the Command intrinsic can now be|H C entered without a leading colon (:). The MPE Help command is the|> 9 only exception as it conflicts with Quads Help command.| Examples:  /:File a;dev=lp /:Showtime /:Listf @,2 /Showjob| /Resumespool 6| ? =See the MPE Commands manual to determine whether a command is  programmatically executable. G BFor those user that are running on MPE/XL, Quad will route all MPE|I D command to the HPCICOMMAND intrinsic. This allows the user access|G B to UDC's and command files. Please refer to the MPE/XL commands|1 , manual and/or the MPE/XL intrinsic manual.|:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 B u 8current line. The u must be entered in the first column|2 ,and is the only subcommand in the edit line.| > 8The u subcommand only works while you are modifying that|> 8line. To undo any earlier changes, for this you can use| Quad's Undo command.| C // 8columns and is the only subcommand on the edit line will|? dddyoung men/ 5)That is the hour for all hearty young men Changes: c'hour'year/ 5)That is the year for all hearty young men Changes: :,CӉCC""2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W MLCӉCC23 A >d7Delete from the end of the current line, right-to-left.|= 7The >d allows you to easily delete the last x number of|? ddd'.| C >rr. The replacement is such that the last character of|> 8the text following >r will replace the last character of|? ren will replace the last two | character with 'en'.| B c[[]]| ? is a delimiter that can be any non-alphanumeric|? |? . All other non-alphanumeric |( "character will be treated as text.| ? is optional and if it is not specified, all |? will be deleted from the current | line.| ? is optional, Quad will assume that |? will be the last character specified in |? 8match the first occurrence of the it will not be|? . Therefore, Quad will not|> 8recognize the double slash (//) as a terminator of the c|> 8subcommand and if used it will be considered part of the| .|:,CӉCC"#2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The Modify Command ------------------  0 +The Modify command is used to modify lines.|  The format is: 6 0Modify Range [Unnumbered] [Case] [Nonlit] [Wild]| @ >The modify command can accept multiple subcommands on a single@ > change line. The R (replace) and I (insert) subcommands areC A terminated by //. Also, replacements need not be prefaced withB @ an R if the first letter of the replacement text is other than- + one of the subcommand letters R, D, or I. E CBy default the line to be modified will be listed numbered, but theH F line number can be suppressed with the Unnumbered option. In eitherE C case the cursor will be properly positioned for the user to enter changes. G EIf tabs have been specified with the Tabs command, the Modify commandB @ will cause the appropriate tab stops to be set at the terminalE C (assuming that it is an HP terminal). See the description of the, * Tabs command for additional information.  Subcommand Action|J H---------------------------------------------------------------------- |B i 8position of the r. If no text follows the r, then the r|: 4itself will replace a character in the current line.| A d8Delete the character from the current line that is above|? can be followed by any of the other editing |0 *subcommands without the double slash (//).| B > symbol is entered in the edit line beyond the end |? 8or it is the last character in the edit line, the > will|?  /Merge 1/20 Version 0 /Merge 40/50 Version 1:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23  :8o30_-+*&!e\k] k{se format The RPGXLLK Command| -------------------| | |@ ;The RPGXLLK command compiles and links a MPE/XL native mode|  HP RPG/XL program.| |D ?The format is that of MPE/XL's RPGXLLK command, except that the|C > first file, the text file, may be replaced with a Quad Range|  enclosed in parentheses.| |B =Any compilation may be terminated prematurely with Control-Y.| | Examples:| |? 9/RPGXLLK textfile,nmprog,listfile;INFO="compiler_command"| /RPGXLLK (all),,$null|# /RPGXLLK (Version 2),prog,*LP|:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2!W CӉCC2"3 The RPGXLGO Command| -------------------| | |E @The RPGXLGO command compiles, links and executes a MPE/XL native|  mode HP RPG/XL program.| |D ?The format is that of MPE/XL's RPGXLGO command, except that the|C > first file, the text file, may be replaced with a Quad Range|  enclosed in parentheses.| |B =Any compilation may be terminated prematurely with Control-Y.| | Examples:| |8 2/RPGXLGO textfile,listfile;INFO="compiler_command"| /RPGXLGO (all),$null| /RPGXLGO (Version 2),*LP|:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2!W CӉCC2"3 The RPGXL Command -----------------  C >The RPGXL command invokes the MPE/XL native mode RPG compiler.| |B =The format is that of MPE/XL's RPGXL command, except that the|C > first file, the text file, may be replaced with a Quad Range|  enclosed in parentheses.| |B =Any compilation may be terminated prematurely with Control-Y.| | Examples:| |7 1/RPGXL textfile,usl,$null;INFO="compiler_command"| /RPGXL (all),usl,$null| /RPGXL (Version 2),usl,*LP|:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2!W CӉCC2"3 The FTNXLLK Command| -------------------| | |@ ;The FTNXLLK command compiles and links a MPE/XL native mode|  HP FORTRAN 77/XL program.| |D ?The format is that of MPE/XL's FTNXLLK command, except that the|C > first file, the text file, may be replaced with a Quad Range|  enclosed in parentheses.| |B =Any compilation may be terminated prematurely with Control-Y.| | Examples:| |? 9/FTNXLLK textfile,nmprog,listfile;INFO="compiler_command"| /FTNXLLK (all),,$null|# /FTNXLLK (Version 2),prog,*LP|:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2!W CӉCC2"3 The FTNXLGO Command| -------------------| | |E @The FTNXLGO command compiles, links and executes a MPE/XL native|% mode HP FORTRAN 77/XL program.| |D ?The format is that of MPE/XL's FTNXLGO command, except that the|C > first file, the text file, may be replaced with a Quad Range|  enclosed in parentheses.| |B =Any compilation may be terminated prematurely with Control-Y.| | Examples:| |8 2/FTNXLGO textfile,listfile;INFO="compiler_command"| /FTNXLGO (all),$null| /FTNXLGO (Version 2),*LP|:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2!W CӉCC2"3 The FTNXL Command -----------------  D BThe FTNXL command invokes the MPE/XL native mode Fortran compiler. ? =The format is that of MPE/XL's FTNXL command, except that the@ > first file, the text file, may be replaced with a Quad Range  enclosed in parentheses. ? =Any compilation may be terminated prematurely with Control-Y. Examples: 4 1/FTNXL textfile,usl,$null;INFO="compiler_command" /FTNXL (all),usl,$null /FTNXL (Version 2),usl,*LP:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2!W CӉCC2"3 The FTNPREP Command| -------------------| | |D ?The FTNPREP command compiles and prepares a FORTRAN 77 program.| |A first file, the text file, may be replaced with a Quad Range|  enclosed in parentheses.| |B =Any compilation may be terminated prematurely with Control-Y.| | Examples:| |% /FTNPREP textfile,prog,listfile| /FTNPREP (all),,$null|# /FTNPREP (Version 2),prog,*LP|:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2!W CӉCC2"3 The FTNGO Command| -----------------| | |C >The FTNGO command compiles, prepares and executes a FORTRAN 77| program.| |? :The format is that of MPE's FTNGO command, except that the|C > first file, the text file, may be replaced with a Quad Range|  enclosed in parentheses.| |B =Any compilation may be terminated prematurely with Control-Y.| | Examples:| | /FTNGO textfile,listfile| /FTNGO (all),$null| /FTNGO (Version 2),*LP|:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2!W CӉCC2"3 The FTN Command ---------------  2 0The FTN command invokes the Fortran 77 compiler. ? =The format is identical to MPE's FTN command, except that the@ > first file, the text file, may be replaced with a Quad Range  enclosed in parentheses. ? =Any compilation may be terminated prematurely with Control-Y. Examples:  /FTN textfile,usl,$null /FTN (all),usl,$null /FTN (Version 1),usl,*LP:,CӉCC"2I @S$C( @S, ӉC2 s,CʥG$FӉC2!W CӉCC2"3 The Fortran Command -------------------  3 1The Fortran command invokes the Fortran compiler. C AThe format is identical to MPE's Fortran command, except that the@ > first file, the text file, may be replaced with a Quad Range  enclosed in parentheses. ? =Any compilation may be terminated prematurely with Control-Y. Examples:  /Fortran textfile,usl,$null /Fortran (all),usl,$null /Fortran (Version 1),usl,*LP:,CӉCC"2I @S$C( @S, ӉC2 s,CʥG$FӉC2!W CӉCC2"3 The FORTPREP Command| --------------------| | |B =The FORTPREP command compiles and prepares a FORTRAN program.| |B =The format is that of MPE's FORTPREP command, except that the|C > first file, the text file, may be replaced with a Quad Range|  enclosed in parentheses.| |B =Any compilation may be terminated prematurely with Control-Y.| | Examples:| |& /FORTPREP textfile,prog,listfile| /FORTPREP (all),,$null|$ /FORTPREP (Version 2),prog,*LP|:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2!W CӉCC2"3 The FORTGO Command| ------------------| | |A first file, the text file, may be replaced with a Quad Range|  enclosed in parentheses.| |B =Any compilation may be terminated prematurely with Control-Y.| | Examples:| | /FORTGO textfile,listfile| /FORTGO (all),$null| /FORTGO (Version 2),*LP|:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2!W CӉCC2"3 The COB85XLK Command| --------------------| | |A HP COBOL II/XL program using the 1985 ANSI standard compiler|  entry point.| |E @The format is that of MPE/XL's COB85XLK command, except that the|C > first file, the text file, may be replaced with a Quad Range|  enclosed in parentheses.| |B =Any compilation may be terminated prematurely with Control-Y.| | Examples:| |@ :/COB85XLK textfile,nmprog,listfile;INFO="compiler_command"| /COB85XLK (all),,$null|$ /COB85XLK (Version 2),prog,*LP|:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2!W CӉCC2"3 The COB85XLG Command| --------------------| | |F AThe COB85XLG command compiles, links and executes a MPE/XL native|H C mode HP COBOL II/XL program using the 1985 ANSI standard compiler|  entry point.| |E @The format is that of MPE/XL's COB85XLG command, except that the|C > first file, the text file, may be replaced with a Quad Range|  enclosed in parentheses.| |B =Any compilation may be terminated prematurely with Control-Y.| | Examples:| |9 3/COB85XLG textfile,listfile;INFO="compiler_command"| /COB85XLG (all),$null| /COB85XLG (Version 2),*LP|:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2!W CӉCC2"3 The COB85XL Command -------------------  C AThe COB85XL command invokes the MPE/XL native mode COBOL compiler- + using the 1985 ANSI standard entry point. A ?The format is that of MPE/XL's COB85XL command, except that the@ > first file, the text file, may be replaced with a Quad Range  enclosed in parentheses. ? =Any compilation may be terminated prematurely with Control-Y. Examples: 6 3/COB85XL textfile,usl,$null;INFO="compiler_command" /COB85XL (all),usl,$null /COB85XL (Version 2),usl,*LP:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2!W CӉCC2"3 The COB74XLK Command| --------------------| | |A HP COBOL II/XL program using the 1974 ANSI standard compiler|  entry point.| |E @The format is that of MPE/XL's COB74XLK command, except that the|C > first file, the text file, may be replaced with a Quad Range|  enclosed in parentheses.| |B =Any compilation may be terminated prematurely with Control-Y.| | Examples:| |@ :/COB74XLK textfile,nmprog,listfile;INFO="compiler_command"| /COB74XLK (all),,$null|$ /COB74XLK (Version 2),prog,*LP|:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2!W CӉCC2"3 The List Command ----------------  * (The List command lists a range of lines.  The format is 8 5List Range [Offline] [Header] [Unnumbered] [Truncate] [Case] [Nonlit] [Wild]| C AThe Offline option will cause the listing to go to a listing fileC A named QUADLIST which defaults to device "LP". This default can' % be overridden with a file equation. B @The Unnumbered option causes the range to be listed without line numbers. Examples: /List 1/4 /List @ I"string" /List All Offline /L O:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2!W CӉCC2"3 The Keep Command ----------------  C AThe Keep command is used to create a file from the file currently  being edited.  The format is  Keep [File Name] [(Range)] C AIf File Name is omitted, the keep will be to the same file as the= ; preceding keep or, if this is the first keep, to the file  originally texted. F DThe created file will be built with the same record length, and lineD B number length and position as the file being edited. However ifF D :U is appended to the file name, the file will be kept unnumbered. @ >If a range is supplied in parentheses following the file name,  only that range is kept. G EIf the currently texted file has user labels, these will be copied to+ ) any file created by the Keep operation. Examples:   /Keep filename  /Keep filename(All Mods)  /Keep filename(Version 2)& $ /Keep filename(All Mods Version 2)* ( /Keep filename(All Including :string:)0 . /Keep filename( Including :string:):,CӉCC"!2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2!W CӉCC2"3 The Index Command -----------------  B @The Index command display a list of all versions, along with theB @ date and time each version was frozen. Whatever comments were4 2 entered at the time of freezing are also listed.  The format is:  Index [Offline] @ >The Offline option will list the index to file QUADLIST, which  defaults to device class LP.:,CӉCC"2I @S$C( @S, ӉC2 s,CʥG$FӉC2!W CӉCC2"3 The Help Command ----------------  B @The Help command provides information about using Quad. GeneralD B information is available as well as information on each command.  The format is  Help [Screen] = ;where Screen is either a command name or one of the special9 7 information keywords shown on the Menu. These can be+ ) displayed with the command "Help Menu". A ?If the Help command is given without the Screen parameter, thenC A the Help subsystem is entered. The prompt in this subsystem isF D the dash "-". A Screen request may be entered in response without  preceding it with "Help". H FFor example, this command line displays information about the List and  Gather commands: # ! /Help ; List ; Gather ; Endhelp ( &Endhelp exits from the help subsystem.:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2!W 21CӉCC2"3 The Gather Command ------------------  , *The Gather command moves a range of lines.  The format is: @ =Gather Range To Line [By Increment] [Show] [Offline] [Header]4 .[Unnumbered] [Truncate] [Case] [Nonlit] [Wild]| A ?The specified range of lines is moved to the location specifiedB @ by Line. The rules for Line and Increment are the same as for  the Add command. D BThe keyword To must be used to separate the range and line number. B @The range can be all or part of an external file, thus providing- + the ability to combine two or more files. Examples:  /Gather 1/4 To 10 /Gather All I"edit" To 100 /Gather To Last:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2!W tsCӉCC2"3 The Freeze Command ------------------  I GThe Freeze command prohibits additional changes to the current version.  The format is FReeze 3 1Versions are numbered sequentially starting at 1. C AA frozen version can never be unfrozen or changed in any way. ItF D is always available, however, for listing, keeping or merging into  later versions. F DThe Freeze commands asks for a comment to describe the version beingF D frozen. Comments for all versions can be displayed with the Index command. C AQuad can accommodate at least 31 versions and in most cases, many  more.:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2!W CӉCC2"3 The Find Command ----------------  H FThe Find command positions the current record pointer at the specified  line, and prints the line.  The format is & Find Line [Case] [Nonlit] [Wild]| Examples: /Find 2 /Find :now::,CӉCC"2I @S$C( @S, ӉC2 s,CʥG$FӉC2!W CӉCC2"3 The Exit Command ----------------  # !The Exit command exits from Quad.  The format is  Exit - +The Exit command loses all editing changes. A ?If the file being edited has not been kept, or if there is moreD B than one version, Quad will ask for confirmation before exiting. B @Use the Save command to save your work if you desire to continue  editing later.:,CӉCC"2I @S$C( @S, ӉC2 s,CʥG$FӉC2!W CӉCC2"3 The Downshift Command ---------------------  E CThe Downshift command converts all upper-case alphabetic characters) ' to lower-case in the specified range.  The format is D ADOWnshift Range [Show] [Offline] [Header] [Unnumbered] [Truncate] Examples:  /Downshift All /DOW all I "<<":,CӉCC"2I @S$C( @S, ӉC2 s,CʥG$FӉC2!W CӉCC2"3 The Delete Command ------------------  H FThe Delete command is used to delete lines from the file being edited.  The format is: B @ Delete Range [Show] [Offline] [Header] [Unnumbered] [Truncate] F DAll lines in the specified range are deleted. If an earlier versionE C is used in the Range, the actual deletions will be in the current version. Examples:  /Delete 4/10! /Delete all Including :string: /D I:string::,CӉCC"2I @S$C( @S, ӉC2 s,CʥG$FӉC2!W CӉCC2"3 The Duplicate Command ---------------------  G EThe Duplicate command adds, after each line in the specified range, a  copy of that line.  The syntax is: = ; DUplicate Range [By Increment] [Show] [Offline] [Header]4 .[Unnumbered] [Truncate] [Case] [Nonlit] [Wild]| I GThe line number of each added line is calculated by adding an incrementI G to the line number of the preceding line. The rules for the value of6 4 the increment are the same as for the Add command. D BIf there is no available line number after one of the lines in theH F range, the Duplicate command stops adding lines and issues a warningG E message. The lines added up to that point are retained (but can be% # removed with the Cancel command). Examples:!  /Duplicate All Including:ABC: /Du 1/5:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2!W /.CӉCC2"3 The Debug Command -----------------  0 .The Debug command enters MPE's Debug facility.  The format is  DEBUg ? =To return from Debug back to Quad, use the Debug command "E". 0 .This command was very useful to Quad's author.:,CӉCC" 2I @S$C( @S, ӉC2 s,CʥG$FӉC2!W CӉCC2"3 The Deblank Command -------------------  G EThe Deblank command deletes all blank lines (lines which only contain? = spaces) in the specified range of the version being edited.  The syntax is: C A DEBlank Range [Show] [Offline] [Header] [Unnumbered] [Truncate] [Case] [Nonlit] [Wild]| Examples: /Deblank All /Deb 20/30:,CӉCC"2I @S$C( @S, ӉC2 s,CʥG$FӉC2!W CӉCC2"3 The CUSTOMIZE Command ---------------------  8 6The CUSTOMIZE command initiates customization of Quad.  The format is:  CUSTOMIZE string C AThe string is a command line which will be executed when the user  attempts to exit from Quad. G EThe CUSTOMIZE command also calls a procedure named Quad'Custom, whichF D may be supplied by the user. This begins further customization ofE C Quad. For further information, see the Quad customization manual8 6 (which is printed by the command "Help Custmanual").:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2!W CӉCC2"3  &$##(!P 0WY*8x R  Tp "G$FӉCW CӉCC3 Th The COB74XLG Command| --------------------| | |F AThe COB74XLG command compiles, links and executes a MPE/XL native|H C mode HP COBOL II/XL program using the 1974 ANSI standard compiler|  entry point.| |E @The format is that of MPE/XL's COB74XLG command, except that the|C > first file, the text file, may be replaced with a Quad Range|  enclosed in parentheses.| |B =Any compilation may be terminated prematurely with Control-Y.| | Examples:| |9 3/COB74XLG textfile,listfile;INFO="compiler_command"| /COB74XLG (all),$null| /COB74XLG (Version 2),*LP|:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The COB74XL Command -------------------  C AThe COB74XL command invokes the MPE/XL native mode COBOL compiler- + using the 1974 ANSI standard entry point. A ?The format is that of MPE/XL's COB74XL command, except that the@ > first file, the text file, may be replaced with a Quad Range  enclosed in parentheses. ? =Any compilation may be terminated prematurely with Control-Y. Examples: 6 3/COB74XL textfile,usl,$null;INFO="compiler_command" /COB74XL (all),usl,$null /COB74XL (Version 2),usl,*LP:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The COBOLIIXPREP Command| ------------------------| | |E @The COBOLIIXPREP command compiles and prepares a COBOLII program|0 + using the 1985 ANSI compiler entry point.| |F AThe format is that of MPE's COBOLIIXPREP command, except that the|C > first file, the text file, may be replaced with a Quad Range|  enclosed in parentheses.| |B =Any compilation may be terminated prematurely with Control-Y.| | Examples:| |* $/COBOLIIXPREP textfile,prog,listfile| /COBOLIIXPREP (all),,$null|( "/COBOLIIXPREP (Version 2),prog,*LP|:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The COBOLIIXGO Command| ----------------------| | |E @The COBOLIIXGO command compiles, prepares and executes a COBOLII|8 3 program using the 1985 ANSI compiler entry point.| |D ?The format is that of MPE's COBOLIIXGO command, except that the|C > first file, the text file, may be replaced with a Quad Range|  enclosed in parentheses.| |B =Any compilation may be terminated prematurely with Control-Y.| | Examples:| |# /COBOLIIXGO textfile,listfile| /COBOLIIXGO (all),$null|! /COBOLIIXGO (Version 2),*LP|:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The COBOLIIX Command --------------------  C AThe COBOLIIX command invokes the COBOLII compiler with the ANSI85  entry point. C AThe format is identical to MPE's COBOLII command, except that the@ > first file, the text file, may be replaced with a Quad Range  enclosed in parentheses. ? =Any compilation may be terminated prematurely with Control-Y. Examples:  /COBOLIIX textfile,usl,$null /COBOLIIX (all),usl,$null /COBOLIIX (Version 2),usl,*LP:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The COBOLIIPREP Command| -----------------------| | |E @The COBOLIIPREP command compiles and prepares a COBOLII program.| |E @The format is that of MPE's COBOLIIPREP command, except that the|C > first file, the text file, may be replaced with a Quad Range|  enclosed in parentheses.| |B =Any compilation may be terminated prematurely with Control-Y.| | Examples:| |) #/COBOLIIPREP textfile,prog,listfile| /COBOLIIPREP (all),,$null|' !/COBOLIIPREP (Version 2),prog,*LP|:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The COBOLIIGO Command| ---------------------| | |D ?The COBOLIIGO command compiles, prepares and executes a COBOLII| program.| |C >The format is that of MPE's COBOLIIGO command, except that the|C > first file, the text file, may be replaced with a Quad Range|  enclosed in parentheses.| |B =Any compilation may be terminated prematurely with Control-Y.| | Examples:| |" /COBOLIIGO textfile,listfile| /COBOLIIGO (all),$null| /COBOLIIGO (Version 2),*LP|:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The COBOLII Command -------------------  3 1The COBOLII command invokes the COBOLII compiler. C AThe format is identical to MPE's COBOLII command, except that the@ > first file, the text file, may be replaced with a Quad Range  enclosed in parentheses. ? =Any compilation may be terminated prematurely with Control-Y. Examples:  /COBOLII textfile,usl,$null /COBOLII (all),usl,$null /COBOLII (Version 2),usl,*LP:,CӉCC"2I @S$C( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The COBOLPREP Command| ---------------------| | |A The format is that of MPE's COBOLPREP command, except that the|C > first file, the text file, may be replaced with a Quad Range|  enclosed in parentheses.| |B =Any compilation may be terminated prematurely with Control-Y.| | Examples:| |' !/COBOLPREP textfile,prog,listfile| /COBOLPREP (all),,$null|% /COBOLPREP (Version 2),prog,*LP|:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The COBOLGO Command| -------------------| | |@ ;The COBOLGO command compiles, prepares and executes a COBOL| program.| |A first file, the text file, may be replaced with a Quad Range|  enclosed in parentheses.| |B =Any compilation may be terminated prematurely with Control-Y.| | Examples:| | /COBOLGO textfile,listfile| /COBOLGO (all),$null| /COBOLGO (Version 2),*LP|:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The COBOL Command -----------------  / -The COBOL command invokes the COBOL compiler. A ?The format is identical to MPE's COBOL command, except that the@ > first file, the text file, may be replaced with a Quad Range  enclosed in parentheses. ? =Any compilation may be terminated prematurely with Control-Y. Examples:  /COBOL textfile,usl,$null /COBOL (all),usl,$null /COBOL (Version 2),usl,*LP:,CӉCC"2I @S$C( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The CCXLLK Command| ------------------| | |? :The CCXLLK command compiles and links a MPE/XL native mode|  HP C/XL program.| |C >The format is that of MPE/XL's CCXLLK command, except that the|C > first file, the text file, may be replaced with a Quad Range|  enclosed in parentheses.| |B =Any compilation may be terminated prematurely with Control-Y.| |E @When the text file is a Quad Range enclosed in parentheses, Quad|E @ sends the lines to the compiler without line numbers. This is|G B because the C compiler will not now accept line numbers on lines|& ! being read from a message file.| | Examples:| |> 8/CCXLLK textfile,nmprog,listfile;INFO="compiler_command"| /CCXLLK (all),,$null|" /CCXLLK (Version 2),prog,*LP|:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W 65CӉCC23 The CCXLGO Command| ------------------| | |D ?The CCXLGO command compiles, links and executes a MPE/XL native|  mode HP C/XL program.| |C >The format is that of MPE/XL's CCXLGO command, except that the|C > first file, the text file, may be replaced with a Quad Range|  enclosed in parentheses.| |B =Any compilation may be terminated prematurely with Control-Y.| |E @When the text file is a Quad Range enclosed in parentheses, Quad|E @ sends the lines to the compiler without line numbers. This is|G B because the C compiler will not now accept line numbers on lines|& ! being read from a message file.| | Examples:| |7 1/CCXLGO textfile,listfile;INFO="compiler_command"| /CCXLGO (all),$null| /CCXLGO (Version 2),*LP|:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W 76CӉCC23 The CCXL Command ----------------  = ;The CCXL command invokes the MPE/XL native mode C compiler. > first file, the text file, may be replaced with a Quad Range  enclosed in parentheses. ? =Any compilation may be terminated prematurely with Control-Y. B @When the text file is a Quad Range enclosed in parentheses, QuadB @ sends the lines to the compiler without line numbers. This isD B because the C compiler will not now accept line numbers on lines# ! being read from a message file. Examples: 3 0/CCXL textfile,usl,$null;INFO="compiler_command" /CCXL (all),usl,$null /CCXL (Version 2),usl,*LP:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W jiCӉCC23 The Copy Command ----------------  + )The Copy command copies a range of lines. G EIts operation and syntax are identical to that of the Gather command,G E except that the Copy command copies rather than moves the specifiedG E range of lines. Thus the lines are not deleted from their original location.:,CӉCC" 2I @S$C( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The COLMove Command| -------------------| | |F AThe COLMove command moves characters from one position to another|H C within a line. The original characters are removed from the line|G B and can be moved to the right or to the left. The columns being|J H moved can be inserted before the destination column specified or can |, ' replace the destination column range.| | The syntax is:| |> 9 COLMove Scol1 [/Scol2] [To] Dcol1 [/Dcol2] Range [Show]|/ )[Offline] [Header] [Case] [Nonlit] [Wild]| |D ?The Scol1 and Scol2 are use to specify the source columns to be|E @ moved. If the Scol2 is not specified, it is assumed that only|/ * one column of characters is to be moved.| |G BThe Dcol1 and Dcol2 are used to specify the destination columns to|I D where the column of characters will be moved. If the Dcol2 is not|G B specified, it is assumed that the columns moved will be inserted|D ? before the data specified in Dcol1. However, if the Dcol2 is|> 9 specified the data between Dcol1 and Dcol2 is replaced.| |F AThe keyword To is optional. If the Show option is specified, the|$  changed lines will be listed.| | Examples:| | /COLMove 1/5 To 65/70 All|, &/COLMove 72 To 1/5 Excluding:keep1..5:|" /COLMove 9/10 To 9 |:,CӉCC"!2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W %$CӉCC23 The COLCopy Command| -------------------| | |G BThe COLCopy command copies characters from one position to another|J H within a line. The original characters remain as they were and can |J H be copied to the right or to the left. The columns being copied can |I D be inserted before the destination column specified or can replace|$  the destination column range.| | The syntax is:| |> 9 COLCopy Scol1 [/Scol2] [To] Dcol1 [/Dcol2] Range [Show]|/ )[Offline] [Header] [Case] [Nonlit] [Wild]| |D ?The Scol1 and Scol2 are use to specify the source columns to be|J H copied. If the Scol2 is not specified, it is assumed that only one |, ' column of characters is to be copied.| |G BThe Dcol1 and Dcol2 are used to specify the destination columns to|F A where the column of characters will be copied. If the Dcol2 is|C > not specified, it is assumed that the columns copied will be|D ? inserted before the data specified in Dcol1. However, if the|G B Dcol2 is specified the data between Dcol1 and Dcol2 is replaced.| |F AThe keyword To is optional. If the Show option is specified, the|$  changed lines will be listed.| | Examples:| | /COLCopy 1/5 To 65/70 All|, &/COLCopy 72 To 1/5 Excluding:keep1..5:|" /COLCopy 9/10 To 9 |:,CӉCC"!2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W %$CӉCC23 The Clear Command -----------------  E CThe Clear command clears all work and returns the file being editedA ? to its original state -- a file started with the Text command  or a new file.  The format is  CLear G EThe command will ask for confirmation that the file is to be cleared,5 3 unless the file is already in its original state. H FIt is important to realize that all versions are lost by clearing, andD B that the Clear command cannot be canceled by the Cancel command.:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The Change Command ------------------  G EThe Change command replaces or inserts text over a specified range of  lines.  The format is = ; Change String [To] String Range [Show] [Offline] [Header]4 .[Unnumbered] [Truncate] [Case] [Nonlit] [Wild]| orC A Change Col1 [/Col2] [To] String Range [Show] [Offline] [Header]4 .[Unnumbered] [Truncate] [Case] [Nonlit] [Wild]| D BIn the first format, the first String is the String to be replacedE C and the second String is the replacement String. All occurrencesG E of the first String within the range will be replaced by the second String. E CIn the second format, Col1 and Col2 are column positions, with Col1? = <= Col2. If Col2 is omitted, the string is inserted beforeF D Col1 for all lines in the range. If Col2 is specified, the string, * replaces the text between Col1 and Col2. C AThe keyword To is optional. If the Show option is specified, the!  changed lines will be listed. G EIf a column range is used with the search string in a change Command,  as in the following example, % "/Change "from"(20/40) To "to", All D B then the only occurrences of the search string ("from") that areG E changed are those that occur in their entirety within the specifiedE C column range. In order to be replaced they must have been withinD B the column range prior to execution of the command, and not haveF D moved there because of a prior replacement in the same line during  the current command. Examples: 0 -/Change :from: To :to:, All ; C :from: :to: A /Change 1 :: 1/20) &/Change 64/72 To :<>: 1 ./Change :Sub2: To :Sub3:, All Including :Call::,CӉCC".2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W ihCӉCC23 The Cancel Command ------------------  C AThe Cancel command cancels the effects of the most recent command  which altered the file. & $The format for the Cancel command is CAncel A ?Commands which do not alter the file, such as List, Find, Keep,@ > Stats, etc., do not affect the ability to cancel a preceding command. B @A Freeze command, since it freezes the current version, makes it5 3 impossible to cancel a command which preceded it. B @Two consecutive Cancels have no net effect -- the second cancels the first. F DThe ability to cancel a command is not lost by saving (with the Save0 . command) and later re-texting the work file. H FHowever please note that the Clear command cannot be canceled, because+ ) it clears the work file of all changes.:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W 65CӉCC23 The Blend Command -----------------  D BThe Blend command, like the Merge command, merges a range of linesC A into the version being edited. See the discussion of the MergeF D command. For the Blend command, however, if a line already existsC A with the same line number as a line being merged, the resultingD B line is a blending of the two, as follows: non-blank characters@ > from the original line are retained in the blended line, andD B non-blank characters from the line being merged appear where the  original line has blanks. E CThe command provides a way to duplicate a column of data. Suppose,F D for example, that the file FILE1 had data in columns 1 through 20.B @ The following sequence of commands will duplicate that data inC A columns 21 through 40, retaining the original data in columns 1 through 20: /Text FILE1 /Change 1 :: in all /Blend all V0 /Keep  The syntax is: A ? BLEnd Range [Show] [Offline] [Header] [Unnumbered] [Truncate] [Case] [Nonlit] [Wild]|:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The Blank Command -----------------  E CThe Blank command blanks out all lines (changes them to all spaces)  in the specified range.  The syntax is: A ? Blank Range [Show] [Offline] [Header] [Unnumbered] [Truncate] [Case] [Nonlit] [Wild]| Examples: /Blank All /Bl I":COMMENT":,CӉCC"2I @S$C( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 The Add Command ---------------  ? =The Add command is used for adding records to a file from the terminal. # !The format for the Add command is A ;Add Line [By Increment] [Unnumbered] [Case] [Nonlit] [Wild]| @ >Quad will begin accepting lines from the terminal ($STDIN) andC A placing them in the current version starting at the line numberD B specified by Line. Each new line number is determined by addingF D an increment to the previous one. This increment can be specified" explicitly with the By option. A ?If no increment is supplied, then a default is used, determinedB @ by the precision of Line. For example, if Line is 4, then theA ? increment is 1; if Line is 4.0 then the increment is .1, etc. = ;Line can specify an existing line. In this case Quad lists8 6 the line before prompting with a larger line number. = ;The Add command is terminated by a Control-Y or by entering5 3 a line which has "//" as its last two characters. = ;The Unnumbered option will suppress the line number prompt. E CIf tabs have been specified with the Tabs commands, the Add commandB @ will cause the appropriate tab stops to be set at the terminalE C (assuming that it is an HP terminal). See the description of the, * Tabs command for additional information. Examples:  /Add :string: /Add 4 By .003:,CӉCC"&2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23  &W#d" =jKy Y xHC-  ? =The Add command is used for adding records to a file from the terminal. # !The format for the Add command is A ;Add Line [By Increment] [Unnumber HPDeskmanager interface -----------------------   J HWhen Quad first starts up it determines the name of the father program |J H and if that program is HPMAIL, Quad will text up the file specified |J H in the info parameter. If there is no info parameter Quad will act | normally. J HTo use Quad as your editor for HPDesk messages you will need to enter |G B HPDesk and go to the administration area. Once there, enter the|J H command 'profile'. HPDesk will then display a formatted screen and |J H allow you to change your configuration. Press enter until you come |J H to the 'Edit and create options' screen (usually the second screen). |I D Place a '5' in the fields following the 'create message/comments',|I D 'create TEXT' and/or 'editing TEXT' that you wish to use Quad for.|I D Then in the field following 'External Editor:' enter the file name|J H 'QUAD.group.account' were Quad is stored on your system. Now press |/ * the function key labeled 'Save Profile'.| J HIf you have any problems, check with your HPDeskmanager administrator |  or your system manager.| J HIf Quad is executed via the execute command or as part of a script or |F A abbreviation it should react properly provided there is no data|$  passed in the info parameter.|:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W 21CӉCC23 File Recovery -------------  @ >If Quad terminates prematurely (job abort, system failure), inE C most cases it is possible to resume editing with no loss of work.F D Quad has been designed to recover completely from any such failureI G unless the failure occurred during a command which modifies the file.A ? Recovery performance in such cases has not been investigated. G EQuad creates a work file whose name is "Q" followed by 7 digits whichE C represent the day and time the file was created. The first threeF D are the day of the year, a number between 1 and 366. The next twoD B are the hour of the day, a number between 1 and 24, and the last# ! two are the minute of the hour. E CTo recover after a failure, just run Quad and text in the work file  using the Text command. Example:  /Text Q2760933:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 UDC's -----   Here are suggested UDC's:  QUAD COMMAND=" "& #RUN QUAD.GROUP.ACCT;INFO="!COMMAND" * QUADT QUADTEXT+ (RUN QUAD.GROUP.ACCT;INFO="Q;T !QUADTEXT" * QUADP QUADTEXT- *RUN QUAD.GROUP.ACCT;INFO="Q;T !QUADTEXT;P" *# LIST QUADTEXT,QUADLIST="UADLIST" SETJCW QUADLIST=0 SETJCW Q!QUADLIST=1 IF QUADLIST = 0 THEN FILE QUADLIST;DEV=!QUADLIST1 .RUN QUAD.GROUP.ACCT;INFO="Q;T !QUADTEXT;L@O;E" ELSE FILE QUADLIST;DEV=LP0 -RUN QUAD.GROUP.ACCT;INFO="Q;T !QUADTEXT;L@;E" ENDIF RESET QUADLIST:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 JCW's -----  H CThe following JCW's will be checked for by Quad. They are added to|/ * allow some areas of Quad to be modified.|  JCW Description|J H---------------- ---------------------------------------------------- | A QUADFILESIZE.This JCW is used to define the size (number of|9 6records) that the work file will be built with. If |8 2you are modifying very large files you may want to|7 1define a larger work file. Please note that Quad|5 /will put multiple changes in a single work file|8 2record. It is not necessary to have one work file|/ )record for line in the text file changed.|  Default: 2048|  ? QUADYES1This JCW is used to automatically specify a 'Yes'|8 2answer to some of Quad's questions. If the JCW is|8 2set to any non zero value, Quad will automatically|9 6answer 'Yes' for you. If the JCW is not defined or |8 2is set to zero, then you will be prompted to enter| 'Yes' or 'No'.|  Default: 0|:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 Running Quad ------------  F DQuad will accept input from the INFO= parameter as the first commandG E or set of commands. In conjunction with UDC's, this capability canC A be used to define commands which will text a file initially, or0 . list a file to the terminal or line printer.  For example: ? <:QUAD "T filename;M 11;K;E" -- Invokes Quad and executes the command line 9 :QUADT filename%-- Invokes Quad and texts in filename 7 :QUADP filename#-- Invokes Quad, texts in filename, and displays the first page 6 :LIST filename#-- Invokes Quad, texts in filename, and lists it to $STDLIST 9 :LIST filename,LP#-- Invokes Quad, texts in filename,# and lists it to the line printer < :UDC's to perform these functions are presented separately. B @Quad can be run with the option ";PARM = 1" to prevent Quad fromC A erasing a message or circular file which has been inadvertentlyG E specified in the Text command. Because this protection requires anI G extra FOPEN, and therefore slows down Text commands, it has been made optional. :,CӉCC"!2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 Options -------  , *There are six options allowed on commands:  Show Header Offline Unnumbered Truncate Reset E CNot all commands allow all options. The Reset option, for example,B @ is only permitted on the Tabs command. The other five optionsE C are permitted on many commands, such as List, Change, Merge, etc. F DTo specify an option, append it to the end of the command. A single0 . letter is sufficient, but more is permitted: ' $/Change :A: To :B:, All Show Offline D BThe Header, Offline, Unnumbered, and Truncate options always implyE C the Show option. Thus the above command, in its most abbreviated form, is:  /C:A::B:A O F DKeywords, when abbreviated, must be separated from other keywords by  at least one blank or comma. F DThe Header option will cause a header to be produced at the front ofF D an offline listing. The Offline option must also be specified forG E the Header option to have any effect. The header produced containsE C the names of the current text and keep files, and characteristics  of the text file. G EThe Show option causes Quad's work to be displayed. By default it isE C quiet. Thus to see the lines changed by a Change command, or theA ? lines moved by a Gather, or deleted by a Delete, use the Show option. F DThe Offline option causes the show to go a file named QUADLIST whichG E is by default device class LP. This may be redirected with a :FILE equation. H FThe Unnumbered option suppresses line numbers from the lines listed by  Show. D BThe Truncate option will cause a line of a file to be truncated ifC A necessary to assure that it uses at most one line on a listing.I G Without this option a line will wrap around to the next line as often: 8 as necessary to assure that the entire line is listed.:,CӉCC"52L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 Versions --------  B @A Version specifies which version of the file being edited is to3 1 be used as the source of lines for the command.  The format is:  [Mods] [Version n] ( &where n is an integer of 0 or greater. E CIf a version is specified, then the source of lines is that versionE C as it was at the time it was frozen (see the Freeze command). IfD B no version is specified, then the source of lines is the current version. I GVersion 0 is a special case; it specifies the file as it was before anyG E modifications were made. If editing started with the Text command,G E it is the texted file. If editing started with the New command, it7 5 is the null file (listing Version 0 shows nothing). E CIf Mods is specified, then only the modifications for the specifiedC A version are used. This does not include the modifications that@ > went into earlier versions. There is no way to list or keepB @ modifications for more than one version with a single command. A ?When lines have been deleted, the deleted range is converted toD B $EDIT format used by HP compilers. This format is also accepted  by the Merge command.  *** Important *** G EA frozen version may be specified as the source of lines for commandsE C that change lines (Change, Undo etc.). However the changed lines> < will be placed in the current version, not the frozen one. Examples:  /List 1/20 Base /List Last Mod( %/Change 64/72 to :<>: all mods /List Mods I:$EDIT: /List Mods Version 1% "/List Version 1 Including :string: /L V1 I:string: /Keep filename (Version 1)5 2/Keep filename (Mods Version 1 Including :string:):,CӉCC"12L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W edCӉCC23 File Names ----------  ' %A File Name has the following syntax:  filename [:U] E CFilename is an MPE file name which may be fully qualified with lockH F word, group and account. The option ":U" indicates that the file isD B is to be treated as an unnumbered file. This option may be usedI G whenever a File Name is called for: in a TEXT or KEEP command or in a  Range File specification. G EFilename may be a formal file designator preceded by an asterisk. InF D this case Quad will, in opening the file, obey a file equation for( & the file designator if there is one. Examples:  /Text filename( %/Text filename/lockword.group.account /Text *A$ /Gather ^filename 1/9 to 58.01| /List  /List  /Keep filename:U:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W 98CӉCC23 Range Files -----------  >  2 - or by prefixing the file name with a caret:| | ^file name| C AIf the command is a command which modifies its range, such as theD B Change or Modify command, then the changes are to the Range File) ' rather than to the file being edited. Examples:  /List % "/Change :now: To :then:,  /Modify ^extfile 20/21| B @It is important to realize that all changes are made directly toE C the file. The Cancel and Undo commands cannot be used to reverse  such changes. F DWhen a Range File is used, the entire file will be used unless there  is further qualification. Examples:  /List  /List 1/20% "/List Including :string: B @The first example lists the entire file; the second lists only aD B selected range; the third list all lines which contain "string". D BThe only options allowed in a Line Range when a Range File is usedF D are All or @ (both unnecessary) and a range of lines such as 1/20.? = The keywords First, Last, and *, and + or - offsets are not allowed. ? =A Version is not allowed either, since Versions only apply to  the file being edited. E CIf no Range File name is specified, for example /List <>, then Quad: 8 assumes the file name previously used as a Range File.:,CӉCC"42L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 Line Ranges -----------  F DA Line Range specifies a range of line numbers and can be any of the following:  [Line] [/ [Line]] All @ ? =The first line specifies the first line of the range, and the@ > second line specifies the last line of the range. If a lineE C is omitted the current line is assumed. If "All" or "@" is used,1 / then the Line Range is all lines of the file. B @If a Line Range is totally absent from a Range, then the defaultE C Line Range is the current line unless there is a Range qualifier:> < Including, Excluding, Mods or Version. In such cases, the  default is All. B @Thus the two commands in each command line below are equivalent:  /List ; List * /List Mods ; List All Mods0 -/List I:string: ; List All Including :string: A ?If a String is used for the first line in a range, it specifiesJ H the first line which contains the string and follows the current line.F D The search for such a line will wrap around to the top of the fileH F but will never search the current line. If a String is used for theC A second line in a range, the search for the String starts at the/ - line following the first line of the range.  For example,  /List :BEGIN:/:END: F Dlists from the first occurrence of "BEGIN" which follows the current= ; line to the first occurrence of "END" which follows that. E CIf a displacement only is given as the second line of a range, thatD B displacement is calculated from the first line of the range. For example,  /List -5/+10 E Clists eleven lines starting at the fifth line preceding the current  line.:,CӉCC"12L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W ~CӉCC23  > 9CASE - Matching upper and lower case letters as they are.| |H C The upper/lower case matching will be set so that a letter in the|G B search string will match only upper case to upper case and lower|A < case to lower case. This option turns off the shifting of|7 2 alphabetic character to upper case for matching.| | WILD - Wild card matching.| |J H Wild card matching allows you to specify a class of characters that |J H are to be matched. This form of matching has been modeled after the |#  method used by MPE commands.| |3 -! - will match any single special character.| |/ )# - will match any single numeric digit.| |H E^ - will match a single alphabetic character either lower or upper | case.| |F @? - will match any single character, alpha, numeric or special.| |H E@ - is used to match zero or more characters. The characters that |= 7are matched can be a letter, numeric digit or a special|+ %character. Be careful with this one.| |+ search string matchnomatch and why|C =------------- -------- ------------------------------------|' '?n'innno leading character|1 'ac##'ac01ac0bthe 'b' was not a digit|0 'ac^^'acksac0bthe '0' is not a alpha|' 'b@e'basebatno trailing 'e'|:,CӉCC""2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W &%CӉCC23 Matching Strings| ----------------| | |D ?QUAD has the ability to use several different methods of string|H C matching when searching through the text file. These methods are|G B controlled by the use of option words appended to the end of the| command.| | Nonlit| Case| Wild| |4 / They can be used in any combination or order.| |A < command, is taken to mean the last non-null String entered previously. Example:  /L "string" ; L "" E CThis pair of commands lists the next two occurrences of "string" in the file.:,CӉCC"'2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 Lines -----  ! A Line is one of the following:  # A line number -- As in EDIT/3000' First-- The first line of the file% Last-- The last line of the file% *-- The current line of the file. Null value-- The current line of the file= A String0-- A string of characters (discussed separately)  A ?The key words First and Last can be abbreviated to "F" and "L".  B @Any of these can be followed by +number or -number to indicate aD B displacement from the specified line. For example, /List Last-1, * lists the next to last line of the file. Examples:  /List 123.456 /List :string: /List :string:-5 /List -5 /List Last-5 ; L L-5:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W feCӉCC23  %$!a- %es:  /List 123.456 /List :string: /List :string:-5 /List -5 /List Last-5 ; L L-5:,CӉCC"L! @S$ŸC( @S, ӉC s,CʥG$FӉCW feCӉCC3 %$!a- % Ranges ------  C AMuch of Quad's power is in its flexibility for specifying a rangeD B of lines. A Range is required in such commands as List, Change,B @ Keep, etc. Wherever a Range is allowed, the full power of the  expression may be used. F DA Keep command, for example, allows a Range in parentheses following? = the keep file name. Thus all of the following are allowed:  /Keep filename(I:string:) /Keep filename(Mods) /Keep filename() F DThe first of these creates a file containing all lines which includeE C "string". The second creates a file containing all modificationsE C for the current version. The third copies filename2 to filename,A ? adjusting line number lengths and locations to match the file  currently being edited. > < The Version may actually follow the Including or Excluding string. Examples: Line Range only: /List 10/20; Including only:'/List Including :string: ; /L I:string:% Range File only:/List ; Version only:)/List Mods ; /L Version 1 ; /L V1 ; /L V0( Combinations:/List 1/1001 ./List 1/200 ; /L 1/100 Mods ; /L 1/100 V1 Mods* '/List Mods Version 1 Including :string: /L M V1 I:string::,CӉCC"-2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 A List of Commands ------------------  % #The editing commands available are: AddDEBlankHelpQUADUndo% BlankDEBUgIndexQuoteUPshift# BLEndDeleteKeepRedoVerify( CAncel DOwnshiftListRENumWhiten+ Change DUplicateMErgeREPlaceXecute CLearExitModifySave COLCopyFindNewSTats COLMoveFReezePageTAbs CopyGatherPAGESizeText   MPE commands: :STReam  & $The compiler commands available are: ( CCxlCOBOLIIXFOrtranPAScalRPGXl/ CCXLGo COBOLIIXGoFORTGoPASCALGoRPGXLGo5 CCXLLkCOBOLIIXPrep FORTPrep PASCALPrepRPGXLLk! COBolCOB74xlFTnPASXlSPl* COBOLGoCOB74XLGFTNGoPASXLGoSPLGo0 COBOLPrepCOB74XLKFTNPREPPASXLLKSPLPrep COBOLIiCOB85xlFTNxlRPg% COBOLIIGoCOB85XLGFTNXLGoRPGGo) COBOLIIPrepCOB85XLKFTNXLLkRPGPrep B @To specify a command, enough letters of the command name must beH F entered to distinguish it from all other commands which appear aheadH F of it in this list. Thus two letters, "CA", are required to specifyH F the Cancel command, because a "C" alone would be the Change command.G E Similarly the Cobol command requires three letters, because "CO" is  the Copy command.:,CӉCC"(2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W JICӉCC23 Entering Commands -----------------  D BQuad prompts for commands with a slash -- "/". The user may enter2 0 one or more commands, separated by semicolons: 6 3/Text filename ; List all ; Modify 11 ; Keep ; Exit E CCommand names may be abbreviated to as few letters as one, although9 7 some require more. See the command list for details. A ?Keywords such as To, Show, Unnumbered may be abbreviated alwaysA ? to a single character, and sometimes are not required at all. E CHere is an example of a command in both full and abbreviated forms: % "/Change "Now" To "Then", All, Show  /C"Now""Then"A S E CSpaces and commas may be used freely as separators between strings,E C numbers etc., but are only required to separate adjacent keywords  (command and option names).:,CӉCC"2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W 21CӉCC23  F DThe December, 1987, version added five commands to invoke the MPE/XLJ H compilers: CCXL, COB74XL, COB85XL, FTNXL and PASXL. Enhancements were5 3 made to the Page command, and Pagesize was fixed. E CThe October version included minor revisions and corrections to the> < September version, and introduced a new command, Pagesize. D BThe September version introduced seven new commands: Blank, Blend,J H Deblank, Duplicate, Page, Replace and Whiten. The most significant ofA ? these is Page, which gives Quad a limited full-screen editing capability. G EOther enhancements were introduced in the limited-distribution April,H F 1987, version: the ability to handle unnumbered files with more thanJ H 99,000,000 records, the FTN command to invoke the Fortran 77 compiler,D B and the COBOLIIX command to invoke the COBOLII compiler with the  ANSI 85 entry point. H FQuad now protects data better by always posting the end of file marker  to disc after a Keep. ? =Offline listings no longer have a heading unless the "HEADER"< : option is added to the command which causes the listing. E CRunning Quad with ;PARM = 1 will protect message and circular filesC A from being erased if inadvertently Texted by a Quad user. ThisH F protection has been made optional, because it slows down file opens. @ >The March 1986 version fixed one major bug, and numerous minorB @ ones. The major defect could cause loss of data if the source0 . range in a Gather or Copy command were null. E CThis version of Quad (and any other one dated later than May, 1983)I G cannot handle Save files created by versions of Quad dated May, 1983,H F or earlier. I have just been told of this incompatibility by a Quad8 6 user. My apologies for any inconvenience it causes. E CMy thanks to all who notified me of bugs or requested enhancements.I G All requests were carefully considered. Those enhancements that were= ; not implemented may still be included in future releases. C APlease direct comments, bug reports, and enhancement requests to:  Kenneth Stout" Summit Information System Corp. 850 SW 35th Street Post Office Box 3003 Corvallis, OR 97339  (503) 758-5888 E CP.S. Do not assume the bug you find has already been reported; it  probably hasn't.:,CӉCC"72L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W ,+CӉCC23# !This Version of Quad: June, 1991# !--------------------------------- J HFirst is the changes to the manual. The Quad manual has a new section |H C for all of the compiler commands. All changes to the manual have|E @ been marked with a vertical bar on the right side of the page.| J HWhen obtaining help, the display will stop after 23 lines and wait for |< 7 you to press return or a control-y to terminate help.| J HSeveral JCWs have been added to modify some parameter controlling some |  of Quad actions.| I DQuad will detect that it is being run by HPDeskmanager and will text|2 - any file name passed in the info parameter.| I DExternal files can now be specified with a prefix caret character in|( # addition to the angular brackets.| J HModify and Redo commands emulate MPE XL redo logic and yet still have |H C the double slash (//) to terminate the R (replace) and I (insert)|C > subcommands. See the Modify command for a full explanation.| ( #Changes to the string search logic:|J H o The default uppercase and lowercase checking has been modified so |G Dthat a string will match alphabetically whether it is in uppercase |G Dof lowercase. The CASE option will restore case sensitive string | matching.I D o TDPs nonlit string matching logic has been implemented. The new|> 8NONLIT option has been added for word or phase matching.|J H o The wild card searching that is available on the MPE LISTF command |D >has been extended and added as a new search feature. The WILD|# search option has been added.| E @Several of the Page subcommands operation have been modified and|J H enhanced. There are numerous new commands to extend the capabilities|J H of the user within Page mode. Quad will now issue a SETMSG OFF and a|= 8 SETMSG ON command when entering and leaving page mode.| H CAll of the standard MPE commands that are executable by the COMMAND|E @ intrinsic, except for HELP and STREAM, now no longer require a|J H leading colon. The HPCICOMMAND intrinsic is used for MPE XL systems.| J HThe tab setting logic has been replaced with cursor addressing in order|H C to increase the speed with which tabs are set. This is typically|A < most noticeable over a 1200 baud, or slower, dial up line.| C >The displacement value for line number has been increased from|$  -999..+999 to -32768..+32767.| H CThe PREP and GO features have been added for the following compiler|H C commands: COBOL, FORTRAN, PASCAL, RPG and SPL. And for the CCXL,|G B COB74XL, COB85XL, FTNXL, PASXL and RPGXL compilers, LINK and GO.| F AThe compiler commands will now accept the info parameter which is|  passed to the compilers.|:,CӉCC"82L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W QPCӉCC23 Message to Quad users ---------------------  J HSeveral years ago (time does fly) Jim Kramer decided to terminate his |J H involvement with Quad. I almost managed to spark his interest with |I D a large list of things to add to Quad and an offer to assist. But|I D I failed. After more than a decade of work on Quad, Jim called it|G B quits. I asked Jim if I could take over Quad for him. Jim gave|H C this some thought and allowed me ample time to reconsider my rash|J H words. I persisted, and Jim finally consented to allow me to carry |  on in his stead.| G BJim now works for Quest Software and is doing some fairly exciting|J H work for them. We should be seeing the fruits of that labor in the |  near future.| J HThis version of Quad is the first version that I have released to the |J H HP user community at large. I have distributed several versions on |I D a limited basis, mainly to Summit's client base, over the last few|J H years. Because of this, I have left all of the enhancements listed |E @ in 'Thisversion'. In the future, only the changes new to this|  version will be listed.| J HThe future holds some pretty exciting changes for Quad. Just to whet |J H your appetite, the following are high priority on the "to do" list. | !  o Variable length records|  o Command history|* % o Hold area access throughout Quad| J HThere are, of course, a few enhancements that I am not willing to talk |C > about just yet. But, I think they will be extremely useful.| J HI hope that you find the new features that I have added to be useful, |I D and that they are steps in the direction that you feel Quad should|H C be going. If you have any ideas for any enhancements please feel|2 - free to send me a letter or give me a call.| J HOne final note. I am not releasing source code to Quad at this time. |? : It will be available in the future. I apologize for any|!  inconvenience this causes.|:,CӉCC"*2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 Introduction to Quad --------------------  E CQuad is a versatile line editor whose main virtue is the ability toF D text in even the largest files instantaneously. As a result it isG E ideal for listing or searching files and for making simple changes.F D However it also has sufficient power to handle most editing needs. F DOne of Quad's most remarkable features is the ability to undo any or  all editing changes. ! Other features of Quad include: + (* Limited full-screen editing capability ? <* Maintenance of multiple versions of the file being edited. @ =* The ability to cancel the most recent command which altered the file. 5 2* Fast (sometimes instantaneous) keeping of files. = :* The ability to show and keep only the changes to a file. @ =* Recovery from system failures which occur between commands. > ;* The ability to compile programs and execute MPE commands. D A* A Modify command that allows multiple changes on a single line. * An extensive help facility.:,CӉCC" 2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 Menu of Help Information ------------------------  < :For information about a command, type in the command name.A ? Additional information about the Help command is available byE C typing Help. Below is a list of additional information availableH F by typing in the proper keyword. The upper-case part of the keyword, * is required. The remainder is optional. $ INTro-- An introduction to Quad" MEssage-- Message to users|) &THisversion -- Changes in this version CMdform-- commands in Quad" COMmands-- A list of commands( CUSTCom-- A list of custom commands RAnges-- Specifiying Ranges LINes-- Specifying Lines/ STRings#-- Using Character strings in Lines* MATching-- String matching options|, LINERange-- Using Line Ranges in Ranges, RANGEFile-- Using Range Files in Ranges FILes-- Using File Names( VERSions-- Using Versions in ranges Options-- Command options RUn-- Running Quad$ JCw-- Use of JCW's with Quad|! UDc-- Use of UDC's with Quad9 RECovery,-- Recovering work in case of system failure( HPDesk-- HPDeskmanager interface|9 MAnual.-- Prints entire help facility offline to file( %QUADLIST, which defaults to device LP> ;CUSTManual -- Prints a manual for customizing Quad to file( %QUADLIST, which defaults to device LP+ ENdhelp-- Exits from the Help facility:,CӉCC"#2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23" You are in Quad's Help facility ' $For a menu of information, type Menu  To exit Help, type Endhelp:,CӉCC"2IE @S$LC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 Table of Contents (cont.)   , #III. The Compiler Commands (cont.)Page  COBOLIIGO78| COBOLIIPREP79| COBOLIIX80 COBOLIIXGO81| COBOLIIXPREP82| COB74XL83 COB74XLG84| COB74XLK85| COB85XL86 COB84XLG87| COB85XLK88| FORTRAN89 FORTGO90| FORTPREP91| FTN92 FTNGO93| FTNPREP94| FTNXL95 FTNXLGO96| FTNXLLK97| PASCAL98 PASCALGO99| PASCALPREP100| PASXL101 PASXLGO102| PASXLLK103| RPG104 RPGGO105| RPGPREP106| RPGXL107| RPGXLGO108| RPGXLLK109| SPL110 SPLGO111| SPLPREP112|  V.Custom Commands113:,CӉCC"+2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W MLCӉCC23 Table of Contents (cont.)   " III. The Commands (cont.)Page Freeze39 Gather40 Help41 Index42 Keep43 List44 Merge45 Modify46 MPE commands (:)49 New50 Page51 Pagesize55 QUAD56| Quote57 Redo58 Renumber59 Replace60 Save61 STats62 Stream63| Tabs64 Text65 Undo66 Upshift67 Verify68 Whiten69 Xecute70 # III. The Compiler CommandsPage CCXL71 CCXLGO72| CCXLLK73| COBOL74 COBOLGO75| COBOLPREP76| COBOLII77:,CӉCC"+2L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W CӉCC23 Table of Contents    I.GeneralPage  Introduction1 Message to users2| This Version of Quad3  II. Using QuadPage  Entering Commands5 A List of Commands6 A List of Custom Commands7 Ranges8 Lines9 Strings10 Matching Strings11| Line ranges13 Range Files14 File Names15 Versions16 Options17 Running Quad18 JCW's19| UDC's20 File Recovery21! HPDeskmanager interface22|  III. The CommandsPage Add23 Blank24 Blend25 Cancel26 Change27 Clear28 Colcopy29| Colmove30| Copy31 Deblank32 Debug33 Delete34 Downshift35 Duplicate36 Exit37 Find38:,CӉCC"02L! @S$ŸC( @S, ӉC2 s,CʥG$FӉC2W ;:CӉCC23 Quad  The Quick Editor  June 1991 Version          Jim Kramer Quest Software  # Contributions by: Kenneth Stout Summit Information Systems May, 1991     , )( This manual is produced by running Quad) &and issuing the command "Help Manual".$ !The print file is QUADLIST, which" defaults to device class LP.):,CӉCC"2I @S$C( @S, ӉC2 s,CʥG$FӉC2W CӉCC23  "!~.ts H   June 1991 Version          Jim Kramer Quest Software  # Contrib::%S:CSB",EB"2# ^@%C*2 # ^@%*2B"2C33::S: # @^WC,K@%C23C"nˍ | 4@ %C*23A%C*2 A %C*2A'%C*2A/%C*2$A#8%C*2-A,A%C*26A5J%C*2?A>S%C*2HAG\%C*2QAPe%C*2ZAYn%C*2cAbw%C*2lAk%C*2uAt%C*2~A}%C*2ŇA%C*2ŐA%C*2 řA%C*2!ŢA%C*2"ūA%C*2#ŴA%C*2$ŽA%C*2%A%C*2&A%C*2'A%C*2(A%C*2)A%C*2*A%C*2+A%C*2,@3%C*2- 3A%C*2.lk@ %C*2/ 3A %C*20A %C*21A%C*22%A(%C*23.A%1%C*247A.:%C*25@A7C%C*26IA@L%C*27RAIU%C*28[AR^%C*29dA[g%C*2:mAdp%C*2;vAmy%C*2<Av%C*2=ňA%C*2>őA%C*2?ŚA%C*2@ţA%C*2AŬA%C*2BŵA%C*2CžA%C*2DA%C*2EA%C*2FA%C*2GA%C*2HA%C*2IA%C*2JA%C*2KdA%C*2L Z@ %C*2M3A%C*2NFE@ %C*2O 3A %C*2PA %C*2QA%C*2R%A(%C*2S.A%1%C*2T7A.:%C*2U@A7C%C*2VIA@L%C*2WRAIU%C*2X[AR^%C*2YdA[g%C*2ZmAdp%C*2[vAmy%C*2\Av%C*2]ňA%C*2^őA%C*2_ŚA%C*2`ţA%C*2aŬA%C*2bŵA%C*2cžA%C*2dA%C*2eA%C*2fA%C*2gA%C*2hA%C*2iA%C*2jA%C*2k>A%C*2l@ %C*2m,3A%C*2n!@ %C*2o 3@%C23A %C*2pA%C*2q%A%C*2r.A%%%C*2s7A..%C*2t@A77%C*2uIA@@%C*2vRAII%C*2w[ARR%C*2xdA[[%C*2ymAdd%C*2zv@m%2|3At%2Ń*WņA}}%C*2{A%C*2|ŗA%C*2}ŠA%C*2~ũA%C*2Ų "*2:BJRZbjrz "*2:BJRZbjrz (08@HPX`hpx %-5=EMU]chjz3":ӆC2ӆC2ӆC2ӆC2ӆC2ӆC2ӆC2ӆC2ӆC2ӆC2ӆC2ӆC2ӆC2ӆC2ӆC2ӆC2ӆC2ӆC2ӆC2ӆC2ӆC2ӆC2ӆC2ӆC2ӆC2ӆC2ӆC2ӆC2ӆC2ӆC2ӆC23:*:ӆC2ӆC2ӆC2ӆC2ӆC2ӆC2ӆC2kӆC2}ӆC2lӆC2mӆC2nӆC2oӆC2ӆC2pӆC2qӆC2rӆC2{ӆC2|ӆC2sӆC2tӆC2uӆC2vӆC2wӆC2xӆC2~ӆC2yӆC2zӆC2ӆC2ӆC2!ӆC2"ӆC2ӆC2ӆC22ӆC2cӆC2dӆC2ӆC2#ӆC2aӆC2ӆC2 ӆC2$ӆC27ӆC2ӆC2/ӆC2ӆC2-ӆC2.ӆC26ӆC2ӆC2ӆC2ӆC2ӆC2ӆC29ӆC23ӆC2%ӆC2&ӆC2'ӆC2(ӆC2)ӆC2bӆC2ӆC2ӆC24ӆC2*ӆC25ӆC28ӆC2hӆC21ӆC20ӆC2ӆC2ӆC2,ӆC2+ӆC2ӆC2RӆC2SӆC2TӆC2:ӆC2;ӆC2<ӆC2=ӆC2>ӆC2?ӆC2@ӆC2AӆC2BӆC2UӆC2VӆC2WӆC2XӆC2YӆC2ZӆC2CӆC2DӆC2EӆC2FӆC2GӆC2HӆC2[ӆC2\ӆC2]ӆC2IӆC2JӆC2KӆC2^ӆC2_ӆC2`ӆC2LӆC2MӆC2NӆC2eӆC2fӆC2gӆC2OӆC2PӆC2QSN–N" " SmC CsSӆC2ӆC23:ӇCC"2 F^There are no custom commands " #Bl2ӇCBl2 EThe custom commands are: " #Bl2ӇCBl2 + @^lVlӇCBl2 SN›NS"C 3Bl2ӇCBl2 C(sSӇCC23:ӇCC"72 # NӇC2 ӇC"2# NӇC2 ӇCC2# NӇC2 3:%S:R"+_W+_CC2ӇCC2 3B$ʙG$Vl+^lӇCBl"2 " #"$ 3#%Page " #G" #*2%*Bl2ӇCBl"2 3:*** Press any key to continue ***"" #Bl2ӆCBl"2 Bl*2S# NӆC2 3:B$–Vl+^lӈCBl"2 "7(SGӈCBl2 3:%S:*CS"P+_+_ " #C2CC2ӈCC*C2# NӈC2 3@%2ӆC2ӆC/S0`33 6((  #                                     ~ S  u.  :CS"#_# @_# @__# O" …" _3C2 O‚3# O2 Ž"_# O#:"2 "#_3:CS"#_# @_# @__# O" †" _3*# OG2 e8 # #O" ˜# O: # : 82Ž"_# O#:"2 " #_"_# O#:"2 "#_3:CS"#_CCCCCC*23:CS"#_CCCCCC23#'"O C #O S4SS#O" @SCCc Cs(S C##OC # ##O ÆC " @S C " S*S%C @SSC$Ä*SC#oD"S*SCS "S4:CSCSCSS:'CS# @_# @__G#O" IG#O G5#OSC 3#OC eSC" #C" @ 3# ߊ# ߊ#ߊ8 C# ߊ CC2#OH S *S#&O#O #ߊ# ߊ# ߊ#&O# O #ߊ*SC$R# ߊ90@ #&O# O #ߊ99#&O#O #ߊ # ߊ9HS#&O#O #ߊ #&O# O #ߊ9[S FG$  #ߊEߊ9r C 23C*S3CSC$D   @8 !y C 23C @SC$G# ߊ9@ # ߊ9CG$IC$†"_3 # O!xC @# G$DC$ÇG$JC$# ߊ9@G,DC$G,IC$Æ# ߊ9׉# G$Fߊ9@ G,I# ߊ8G$I# ߊ8@ G,F# ߊ9# ߊÕG$# ߊ# "_3"_3# ߊ# ߊWC#O" # ߊ# ߊPG$Éߊ99# # "_3# ߊ9F@# G$Ð# ߊߊ9S# "_3"_3# ߊ# O!y C 23# ߊ# O!yS C#O" W#O##OC  ##O …" _3#"OC #'O ##'O *#_ #"OC #'O ##'O #O" O##OC  ##O 3# ߊ3:CS*SCC2Ӆ#&O#O #߇JӅ#&O# O #߇G"_S3C#%O#O#O ##O C34#O#O ˦#$O#O ##$O#O " c#O#O @" #O" _#$O#O #O @_#_#O" _#&O# O #߇ӅӅ#&O#O #߇!x##߇38_##S"S#$O" #OS#&OC #߇ #$O" #OS#&OC #߇C" %S#O" o˂8  #$OC " #OS#&OC #߇  !x ##߇à ÐC#O ‹C#O" /…CS ?CC3,##C#O ˨#$OC #O#_#$OC ##$OC " ##OC @ #$O#O #O_+*#$OC #O#_#$OC ##$OC " c#OC @" #O" _#$O#O #O_#%O#O#O ##O 3#&O#O Ӆ 3::CS#OSC~UC" " SC#%O#O#O ##O C#%O#O# O ##O  @S)#OC #O" oIO#O F" S#OC _#$O#O #O#_#$O#O " #O# _)&ˡ#OC O" " S#OC @_#$O#O #O#_#$O#O " #O# _*S3:CS# ߆Ӆʋ#OC2 O„3X6# O#"O%#OӅ2ʬ# O#:"2 OV#"O%_#"O#"O%#O" @  "_"#_S3#߆8@Ӆ# #O" U#!OC##O#O ## ߆2S3# ߆# O!y# ߆# O!x# ߆D# O#_*S3:CS"#_# @_# @__C2 O‚33:CS#O# O#"O%#O#'O # ߄2"_# O#:"2 "#_3 #_#߄8@3s'2  S#OC @_#$O#O #O#_#$O#O " #O# _*S3:C:CӌCӉ2SOSC(S*SC#OCӌC2CӌC"ӉCCC2# ߍ8@LGCCӌCCCC2CӌCӉ2CӌCӉ2CӌC#O2 SG".WC#_K#_#"O$CӌC#O#"O2 CӌC2#"ߍ9@@# ߍ9E@S3 : C(SC$NCӌCӈ2CӌCӈ2CӌCCӈC2*SCCS CӌCC$FC#O2 SWG#"O.5WGWCGWC2C#O.SG #O.W #!OcDC#!OSCӌCCCCC2C @S$C(sSSC${GWGC.=WC#"S#"O @S$CӌC#OsC2 CӌC2#ߍ8@3 : S @SSC$C"S#*CSC?S# OS#S8ʓ#Oc_C$MӆI*S #OcLC *S #O-SC#O @S$OC*SCCӊC 2=;:9C#o˦C# ߋ94ʫCӊC# ߋ2S#ߋ8!@## 9H#CӊC2#ߋ8#OcBO$‚ S1CCӊC#%ߋ9 @2SC#o" # _ӊC/S0`3:SCӋCӈ2SG-$P#$ߌ8 @#OS#O#[*SCG-G-" # _ӋC/S0`G-! @SG-=G-5#'SCcE*SCSCsSCSCӋCCCCC2CC(sS#O#OG?SCCS#ߌ9M@3 :SCӈCӅ2SG-$[##߉8@#OS#O#[CӈC#O"2 CӈC2*SCG-G-" # _ӈC/S0`G-! @SG-=#"#"_ G-5#"_G?SCӈC#O#"O2 C#OC# @_#SCCӈC2#!߉9H@3:#OSG-$F#OS$G-! @S#OG-="G-5#sSC#OG?#SCCS3:C(S#OC#OC# O#OsC mCCC 3:C" S#O320C# O#Os#OCC mC#O## O#Oss" mCsS#OG-._# O#Oss#O#" m CCC CdzOO-._3:C#oHC(s#o"# _ӈC/S0`3:CӈCӅ2SG-G-G-$B3"# _ӈC/S0`3:OS#O#CSWG#O.WGC.5WC_#O#C#_3::OS#SC$B @S#OG? @S#S C$ŠCc CG -5sÅ*S6C SCC$I"# _ӇC/S0`CcB @SC#_OS#O#O#SG.WGG -5.5WG C.5W #CG?#_#O#O#SGG?.WC# @_SG.WG-5#"_O## _#O# #_# "#!_3#OCS2E2F3:G$F"WS3) S)SG$ÆG @WSWSCS2G+OG2EÇ"W2FS3#_C#_C#_*S3:C-#_C.SCӈCӅ2#O#O## @_S3: S :C S # OSӅEOS3#O-# O#_SӅ#%߉C#O @S$ŠӅBSG2C# OSSCOS#S8Yʲ#O-#8PW#O#oR# ߉## #߉8A@#߉8<@#O-CӈCC2#'O#O-CӈC2#O @S$ʂ%_#OS# O# @_SC# @_#_C#_C$‹C#_ gUC# _#_ @SSCӅ#%߉3#'OCӈC2#OC#O2HB!#߉9*@#&OC#(_#O*#' @_.#_CӈC2#OCC2"# _#O# :"2IӈC/S0`#%߉9Z@߉ƒ2JC2CӈC2C%##_3:OSW#C#O 8#" @S#_#OSC%SC$GC$C!" @S.5WCS#O#C#_C$GCs @S.W#CsS+3:# OS3:# OS#O_#O$’#O$Ž#O# o‰#OSCӆCC23CӆC2CӆC2CӆC23:CӆC2# OSC$”8Š#O-CӆCC2#OS#'OCӆC23:#O$X#O$ˆOSCӆCC2# OS#O-CӆCC23:CӇCC2#O$‹#߈#߈ÅCӇC23:#߇#߇˂4CӆC߇2CӆC2# OSCӆCC2#'OCӆC2#O"2K"# _#O# :"2IӆC/S0`#߇#3:S:CS#'OCӇC2#S#OC#Oׄ2L"# _#O# :"2IӇC/S0`#OC"C2#&OC#(_#O*#' @_.#_#O_C#oC_#߈8 @ׄ#߈ׄ3:#'OCӆC2#OC"Q:"2M"# _#O# :"2IӆC/S0`3:#(OS#S#OC:" 2N"# _#O# :"2IӆC/S0`#O#' @_.#_3:S:'CS@W#"' C$K READ" # WRITE " ##BLOCK " #C&Q#O%A#C*ׄ" #2OF2P3:׆CSGSCC2-# _C@) %2 C@"%CC2 C@% CC**2C@%2# OSC2 CW333 3:ׄCC2# _C@%2 C@ %2C@%2# OSC2 CW333:CSGSCC2'# _C@#%CC2 C@% CC*2C@%2# OSC2 CW333 3: ׇCSGSCC2(# _C@$%2 C@%CC2 C@ % CC*2S# OSC2 CWCW333 : CSCS GSGSCC2'C*2$#)OSCC@ % C CC"2%S# # OSC2 C @W$E CW33 : CSCS ׄGSCC2'C*2$#)OS#CC@ % C C"2%# OS C2 C @W$C33 : CSCSGSGS CC2'C*2$#)OSCC@ % CCC 2%S## OSC2 C @W$ECW33 :CSS# _#OC#)OSO*S"f# _*S"e# _3" ###"L 3-C-.S--" #2OCDEL " ʌ#O?S.CS *0123456789ABCDEF" #*S--C-c.Ú"-%"s--"-%"s-?C*O2P4CӊCC@ '2#OGET " #Cs4CӊCCCG-" 2 -#OPUT " #C-4CӊC2#ODEL " #C 4#O- S%O?" " " sS"%sSS-SC%S.SCC-c.C-s.(SCS.ÅCS-*SCC$CC-C.SC$ŠC%*SCS4CT"i# _ӊC/S0`C%%C%#C% 3C%S"%C(sS#+"("%@ ó#Oġ%C%. _GG-" C%? .W4C"j# _ӊC/S0`"sSC#"%"(@& C&SC%C% 3GG-" @C%? @.W#O£%C%. _4#OREP " #CvCӊCCG-" CB2C=ҳCS#+C C" cC +Ƴ "h# _ӊC/S0`CӊCC" cC G -'*24CS#C 3#OC._O. _CSC#GC.WGC" " " .W4CS#O?S*$#C* 3C$s*S$#OC$_ #O 4C $C*#ߋNC A3C $3C 1#OC 3=4#OO S$4#O ?S)O C)! @S'._ C)(C'(@S(G G -(.W C %C'(S#"s!C' 3Cs(SCC#O - '( "1C /#+C"$C C$s!C!*#ߋC $C!C 3C C$s!3@ C $C!*#ߋC +//C 1C 1#OC"$C 34C C @Sϳ1C 1iC 14SC$#O$ @S"#O1C 1G$,,$É,"CS*SC0#O$ @S##O1C 1$,,$,*p"*w4SSC5$C$GC5$ËC$Cs SHC5$KCc$YC$ÉC/ S "C S$CC$É"* C$C S C$É"*CCG - @SC$G"C S4#O$#O - $F1/"!k#O1C 1pC $MC 1#O/.4:6CSS:(CSS:@4S @1S C SC S#%SCS#S C S#S ##SCӊCCC C*2C#Oo #OO CS CCC S"C "S!S#C##oÈC!C#o C# C##_OO S$#O1C 1S5C5$OC$ @S$C $87(ɳ1C 1,#O ?SCcCCS #$C " Ã*C cÃ"S5S"C "S!C 1THC5$BCc$B SCC$LC5$EX~WC G -C$ICC@Â$qCC$TG W # -ߋ -C 1#O}G -# C$FG W  "d# _"d# _# O$KCӊCCCC$*2C$SC$D3 ӈCCC2)ӈCCC2*3ӊCCC2)ӊCCCӅ*2*3:CSS: CSS:S:S :C S CB2QӅQC2RSC#ncË #* 3@W 700C+01000000" ^ Line number too large" #ӊCBl2SӊC/S0` #" 3 C 3ӊCBC "CC 2,CC #Nc RӊC #N[N[20$ӊCC C 2*ӊCC*2@ӊCC C 2-ӊC26C C2;ӊCCCӅ2?#[8 @[R7ӊCӅ21ӊCC*2@ӊCӅ213:":S:#Nc 3ӈCCCC2-CC#Nc ӈC2/"S3:S: CSS:S:S:S:S:#Nc 3#Nc 3CC#Nc SCӋCBC"CC2,CC#Nc ӋC"#N[20S C n[BS CC SCӋC2<S SCC#Nc ÞCNc 3C#Nc2TӋCCCӋC25C 2+*S CSC#Nc 3C#Nc2TӋCCC*ӆ2+CSCC#Nc ÞCNc 3C#Nc2UӋCCCӋC25C 2+*S CS *SCS CCӋCӆ21ӋC2/C CCC 2:ӋCC 2>ӋCCC 2=CC C 2:ӋCCC 2?C#Nc 3C#Nc2U…ӋC2BCCӋCCC*ӆ2+3:S: S:CSCSӈEӍC26CӍCӈӅ21CCC2:ӍCCCӈ2?#[8-@[R6C6#Nc 3CC#Nc ӍCCC2-ӍCӈ#N[N[20$C#Nc2UCC#Nc ÊCNc2TӍCCC2*3 :S:CSCCC2:ӌCCCCC2. @S#Nc#Nc 3##Nc 33 :S:CSCC2;ӊC*CCCC2. @S##Nc 33::CSC#[C#[CBSBSS S 7S BSBSS S 6S G CCC C* @SCCC HC* @S*SC D$D*?S D$C*SC%"ˉ(x'4CC 7S&%CC CC 7 @SCC 5CC 5 SCC 7CC S CC 7SCCC,IC$CCC$Q ‚ @SCC 3CC$Ð ‚ @SCC 3SSCC 3ӋCCCC2>D*SS*W C$^CCC 3 C$FCCC 3"ׄ CCC Cׄ CCC 3CCC 3ׄ CCC Cׄ CSS3:ӈCӅ28ӈCC24ӈCCӅ27ӈCӅC2A3:ӋCӈ28#O-SGSC$GcƣC&S C$GcIGSCSS3:ӊCӇ28ӊCCӅ23ӊCCӇ27ӊCӇC2A3:#O-߄O_ӇCC23ӇCC243:ӉCC24#O-$E( Internal error, shouldn't happen: too many versions"6 #ӉCBl2SӉC/S0`G%WGSGS#N[WӅOO-._O-$D*# ^[+O%_3:GSGSSBE#O# N[ B SC#O-#O_*S߄‡ӇC߄2B#O-$G#n[N*SC…ӇC2B #O_#OO-._G&W+O&_3:ӈC26ӈCӅ28ӈC28+O( #O-'s"&W#_#O-SGSC$C&S BE#O# N[ FӈCC27ӈCC2A3:BZ"RZ"d%Z%XSW#C" "&sW"'d+_"'+_ӇCCC2@ׄZY3BE*RE#[# N[" ^[V[#O# N[ Œ#[#Ӆ#[# N[#_3*:C$ÇӆY‚ C$ @SC3BZ"RZ"d%Z%XWC"'d+G_+G_ӉCӆG2C#GO@-'G"&GWӆZY3:S""PYU3"D##Nc 3#Nc#Nc 3#"cW3"C##Nc 3#NcW3:%SB%:ӅDB+_W+_ӈCӅC*2CӈCC*2@Ӆ3:C2!C$˜DEL'WORK'KEY " #ӈCCBl2VӈC/S0`3:CCC2#C$B @SC$d˜GET'WORK'KEY " #ӊCCBl2VӊC/S0`3:B$FӊC2WC2"C$˜PUT'WORK'KEY " #ӊCCBl2VӊC/S0`3:%SB%:B$FӉC2WCB+_W+_CC" 2XCC2CC+2C$˜PUT'WORK'REC " #ӉCCBl2VӉC/S0`3:%SB%:CB+_W+_CC" 2XC2C+2C$˜REP'WORK'REC " #ӊCCBl2VӊC/S0`3:2C$˜DEL'WORK'REC " #ӈCCBl2VӈC/S0`3:%SB%:CB+_W+_C++2 C++2 C$GCCC2YGET'WORK'REC " #ӊCCBl2VӊC/S0`3ӆC2Z Work file statistics:" #ӆCBl2SӆC2Z2[3+,3(( y:zVI3%EkA)[BaTH Mt2 U@#w[&hL7+xD[0`3ӆC Work file statistics:" #ӆCBlӆC3:CSCSCS+CSCSCc˖-S?SCMCCC 3CsSCsS #CC 3CsS$CSC+_3: CSCS+CSC @SSCSS Sф*S ф фS C .S C VCC Q @SSC$ÉC$CsSSC$ CcB @S C$C$"-CS C CCC 3Cs SCs SC @S$zC$CsSC$"CS "s C @S$pS CC qF @cÃ*S CsSS*S C áC C C+_3:CSCSC2C2SC2SS @SSCcˎCcˌCcÊCOE ('ц[Cc×" OC2!SC#C 3CsS7C+_3: CSCSCS%S:%S:+%S:*CSCSCS +//" +P" +P" +OoÄCO2C2+O$O$U„$uICC2CC23(CC2+O$$ T" QS COCC 2CCC O2C2$D„$dV QS $>NCCC +O2C2L= CCC +O2CCC O2$I„$isC+OC2 @S $|C $ʝCOC"C 2COCC %2CCC %O2CCC %O2`#$ʛC+OC"O2C2$>O+O$#$ʉ#A//" ʙC2#$D…#$dP"S C $D†C $dE +O 2 S C $COCC 2CCC +O2C2C+OCO2CC"O2C2$R„$r]C+OC2 @S $TCO 2 C"C 2CCC %O2C+O2 C"O2C2/$I„$iC"S C+OC2 @S $PCOCC C 2CCC %O2 C+OCC O 2C2$C„$cX#˕##ʐ#$ʍ#$ ʊ# gfedcb//" ʤ## q#@S #C %O+O &#+O#D">@S CC"C *2CCC %C *2C2C+OC2 @S $VCOCC 2CCC O2COCO2C+OCO2C2$ʘ$ ʕ$Dʒ$dʏ$Iʌ$iʉ$R„$rE"J2S C+OC2 @S $lC $CS C+OCC C 2CCC %O2COCC C %2CCC %O2#$CS C+OCC O 2CCO O2C2CC23:CSCS+O @S$DS3SC+O2!SCc*S3 qSCc @SCC DCS3C*S3:CSCSCSCC2+OoCOCOO2S"+OO2!P$ CU3:CSS"+OP"A"Z*S% U CS3:CSS"+OP"a"z*S& U CS3CC2$‚S3CC2$S3CC2$BS3CC2$BS3CC2$S3CC2$ÂS3:CSCS+OSOSCCCC2! Ã* " CcÃ*"S3:CS+OcC+_ÆCCC23:SCC2 CCCCC23 CsS+OSC$CCC2W+_CCCCCCC2$V*SCcC+OCCC2CC2CsS"C+OCCO23 C$aG$z& $aG$z& BS4:CSCS+OWO @S$FC @WS3 CSCs+O2!SCCCSCc* @WS3 C$?Ca,$#KCcS$^KCcƒF$!KCcC9$@B5CPCc  !C"a"z qS?Cc ˆƒCcCCCͳCC „v@CW8CϳKC$C#CWC+CCCCCC2CCw#NCw+oÇCwCC @WS* @WSW3 C$aG$z& $aG$z& BS4:CgE*S\CⳈ݊$?™݊$^Eݍ‘݊$#Eݍ ݊$!YݍÕCCCCCCCCC2SGsW݊$@_CSCCgCCCCCCCCC2SCGsCW{,+*C$eCC糈݊B?߳ݍ‡݊ݍTCCCCCCCCC2SGsWO݊$ ZCٳݍ$ VCCCCCCCCC2SGsWCCCCCCCCC2SGsW݊ݍCCCCCCCCC2SGsWCS3 C2C23:CS" QSCCC+O*23:CS+OSC$C#$ C C+_3:CSCS+OS+OSCC2!O2!SC$гC 3CsCs+_3C+OCO23CC+O*23CCCC*23:CSCS+OSC+OSCC2!SC$" CC 3CsSCC2!+O2!SC$ͳC 3CCs2 SC+_3W+_3:CS q+_3+OS3+OS3CcCCS3CcÃCCS3:%SB%:#O$RB+_W+_CC2CC2CC2CC23:*SCB#O Æ8}CB#O 8rC#O2># O@V#O$[#O$8 #OS""P 8!xU 8d#O$U#O$9#OS""P9!xU8%ׄ!y@SC$„C$šׄ!y8!yC$‹C,„C$Eׄ9I@S3:CS%SB%:CSB+_W+_C$EDIT " B @SCC"C22C2CpIGVOID" fCC"C22C2$=B @SCC"C22C2 SC @S$ @S#Nc#C#C 3C#ncË"0##Nc 3'CSEQUENCE" ”CNOSEQ " ŠCINC " DS#Nc 3CS3:"SC$#Nc&s݅$0C C$H# Nc@C"S#Nc 3#Nc&s"13:CSCSCSS:CS#Nc 3CC#Nc20CCC#Nc *S#Nc 3CCC2' @SCC#Nc20CS3:CSCSCSS:CSS#Nc 3CC#Nc2-CSC#ncÈ$0D #C#ncßCNc&ÅNc&S C#Nc&Æ$5Â#Nc 3"1*S3:SS"CPC"0݆$0SU 3:SS"CPC"0݆݅SU 3:SS"CPC"0݅$0‚SU 3:S:CSS:CSCC2.C 3CCC20C#Nc 3C 33:S:CSS:CSCC2.C 3CCC2-CC 3C 33: CSCSS:S:CSCSCCC2/CCC20CC2.CCC20CC*W3:CS"0#C& 3C"13:CSCS"9%0S"CP@U3:CSCSSCSC$Y&0C$9& "SSC$BW3#Ncr&S$9IC$"0 $9 @S4:S:CB$#Nc 30CC#Nc *SC @S#Nc 33:*CSCS+OSC&SC 3CcÉ$0E"  000 " S " #CcFC"0!. " #C" 3C%SCcɳ$0E"  C%+_C%3C2ӈCCC243:BC+OC2?ʌB:"2@C$Xl, End of file on QUADOUT" Bl*2Al Write error on QUADOUT" Bl*2AB2B2C3:%SB%:B+_W+_CCC22CC2C2ӉCCB5263B$GӉCCC242BC+OC2?ʅ% Write error on QUADLIST" #@ %Bl23@%B2DӉC2EӉC/S0`433:%SB%:B+_W+_B$JB<CBBSBSC$C2SCCC2!SSCCCCs2rCsSCcn3:@4:CSCS%SB%:B+_W+_GW#Nc 3ӈCCC"#N[CC2;*SC#Nc2+6SӈCCBx"#N[CBs2;B#Nc2,#Nc 3CB#Nc SCCBrBsBt2&SC#Nc 3CBsBt2&SC @S#Nc 333:CSB9#NW#Nc 33:*:CSCSBVS GB9#O ncˇBFE(01000000" F" 3#" 3B01000000" F" 3#" 3B2" 3" 3##* 3@Vo##* 3@VpB9#O 00#NcSGC 3nmBC2+BCBB @WCC# NSBBC B9ӋCBVBqBpCBq2=B9ӋCBqBpBCB#@987"B#CBqBBBCC2;*SB$B @SCBBBiBIBJBK2SB$HC$B C$ @S*WCBC2+dC# N 7 @SB9GC 3C 3C+ @_+_# NӋC2F B9#Nc 3ӋC2GW3C&$JCC#Nc  CC#Nc BS4:7CSCSCSCSS:S:S:S:S :S :S :S :S :%S:CSCSCSCSC SC SC SC SC SCSCC#Nc "S&*S&C # Nc$‚ SC B$‚ SCB$‚ SS @SSS% @S$S##Nc 3#Nc 3# NV[QCCCCCCCC#$•C&$GCC#Nc LC&,}CC#Nc ,C&$GCC#Nc JC&,LCC#Nc #Nc 3ӏCBcC CCC2=*S"S#S*SC#Nc 3CC$$“C&$GCC#Nc JC&,zCC#Nc #Nc 3S# NCCCӏCCC&C+2HC CA@?>:8ӏC+CC32JS$CCC&$GCC#Nc JC&,ICC#Nc *SCC$$*S C&$FC#Nc2+C#Nc2,SWCCC&$GCC#Nc C&,ICC#Nc C*S*SCC$S!3/+'SS#Nc 3CC%$—C&$GCC#Nc NC&,BCC#Nc #Nc 3S# NCCCS ӏCBC"CC-2ICC#Nc ÊC&$C*S {zyC&,C*S C&$DS *S #Nc 3#Nc 3C ӏCCCC&$"*CC-2ISCCFBӏC-CC52JS%CCC&$GCC#Nc JC&,ICC#Nc *SCC%$*SC&$K#Nc 3C#Nc2+ #Nc 3C#Nc2,SCCC&$gCC#Nc C&,ICC#Nc C*S*SCC%S!5/-'SS#Nc 3B$ʜCCCCӏCBC"CC)2IӏC)C"IHGFEC!C12J$CC#Nc #Nc 3C&$HC#Nc2+*)C#Nc2,CC&$K#Nc 3C#Nc2+ #Nc 3C#Nc2,SSCSS#Nc+ @_+_#Nc# NSUCCC*S#Nc 3C@@CC/HC2CB21ӏC/C*2KCCCC2$ CC#Nc š$EDIT " "VOID= " "#Nc 2" 'S3 :%S:W+ @_+_ӊCCCCCC2=S3:CSCSCSCSS:S:S:CSCS CS # O$MC $Ã"""_CC#O "*S #O 3C2 @S# o @S#'OS:CS#O$JCC# CC2LlCCC 2#C# C2LO$R# O@^#O$OS ""P EC8!xU 8!xd#O$OS ""P9!xU8!x8 @" C 2MS 00000000" #O  C 3"_O$VC $GC C#O C ,JC C#O Ä"_O$]*S#O+ @_+_ #O 3#O# O#O$E#O<@SCcCSC$ÃSCCS#O$L#O$H#C 3CC 3#O$K#O$G#C 3C+_5O$‰O$…O$DS& Read error on text file QUADTEXT "# #ӋCBl23C2NӋC/S0`3( C 0 , -  (((f D 5 4 {  q H  Y ? % X+ ~U=*%GB|rh^? 6A=N$…O$DS& Read error on text file QUADTEXT "# #ӋCBlCӋC/S0`3 f D 5 4 {  q H  Y ? % X+ ~U=*%GB|rh^?:#[”ӆC2ӆCC2ӆCC2#3LINK FROM=$OLDPASS;TO=$NEWPASS " #ӆCBj2 ӆC/S0`3: " #ӆCBl2 $OLDPASS " #":B:@2 ʆ( Segmenter error in USL command. "" #C" # 2 % ӆCBl2 ӆC/S0`ԩ$ L$NEWPASS " #":@ :B:@2 ʇ") Segmenter error in PREP command. "# #C" ##2 %#ӆCBl2 ӆC/S0`": @2 ʆ) Segmenter error in EXIT command. "# #C" ##2 %#ӆCBl2 ӆC/S0` END OF PREPARE " #ӆCBl2 3C "2ʅ* Unable to save message file to compiler"* #ӉCBl2 ӉCC 2 C "2ӉC/S0`4B@:*P:":8 ":@ 2S ʉ4,' Unable to create message file to compiler", #ӉCBl2 ӉCC 2 ӉC/S0`s4C$KC TEXT " #HC$KC LIST " #;C$UCC OBJ " # C USL " #$C$VCC LIB " # C MAST " # C$IC NEW " #4$ C sS CC^ӉCCC2S*S4CC ‰CCrӉCC24"C"C"C"C"C!4 Error writing to message file" #ӉCBl2 ӉCC 2 C "2C 2ӉC/S0`4:*:8$:CS%SB%:CS%S:CS%S:CSS:C@COBOL " JCOB " "CFORTRAN " JFTN " "CFTN " JFTN " "qCPASCAL" JPAS " "^CRPG " JRPG " "LCSPL " JSPL " ":CFTNCOMP " JFTN " "&CPASCALXL" JPAS " "CCCOMXL" HCC" "S S BA QUADPIPE,OLDTEMP " #B"CB"CB"CB"CB"CCӉC/S0`BAJQUADPIPE " #B@@: @2S ʎ :"2C $5JA,) Cannot open message file to compiler "' #ӉCBl2 ӉCC 2 ӉC/S0`ӉCCCC BB2 2#Nc 3BAB+_W+_*SCӉCCC28 Â2CTPCCOMXL" …BcCC2+O"P "PS+OS"SC "2C CC2H8@'S C :"2C $„C $S# NS C 2E2:Se*SC# NBAIC 2ӉC2SC 2ƒSC22C2#Nc 3 END OF COMPILE" #ӉCBl2 C3::CSCSC# O#O$D#O@2#O$ECCC2#O$JCC#CC2 4CC2C#C2 $ Internal error in procedure PUT'REC"& #ӉCBl2 ӉC/S0`O$Ÿ Write error on file" #ӉCBl2 C2!ӉC/S0`3 #  ":3(A 2 8 J=!#CC4CCC#C$ Internal error in procedure PUT'REC"& #ӉCBlӉC/S0`O$Ÿ Write error on file" #ӉCBlCӉC/S0`:CC2C@%2 # _# OSC2!CW33#Nc$K00001000"  001000" 3::S:BSCC#Nc ÒNc 38@ӅÆCC2"ӅBSCR3:G$B3" @SSCgÎOC#o†O_CW3CSCSCs(OSOcÃCoÃCc OSO_C_CcCcÅCC.CcÅCC54:C<3:S: C, QӇ" C2# @SSC#C 3ӇCC2#S3:72$3*# @^ @RRF2%@C?0`33:%S:RCS+" C"S CSC"S" SCSC$C#Os$Pã G3 " ##SS"CPC&a00C1" #Os" %0#%0#C%SUC " #ӋCC"2&3:C2'C$CCCS3:%S:CSC2(+( " ӆ" #2#%+_CC2)ӉCC2*3::CSS:CS# ^B$FED=S"XSCB$#C" 3"S ӍCC "2+$X^*SӍCCC 2,ӍCC*2-ӍC2.+O @S#[8[C8CBCC2/Sʆ' Read error on QUADIN " #@5 %Bl2&@/%B2021C+ @_ @SCCB<BlC22Bl23ӍCBl2&# NCӍC2 ӊC/S0`3 33BFӆC2 ** Control Y **" #ӆCBl2&RF3Vl+^lӆCBl2*3ӆC"243:2C$™ WORK'FILE'POST " #ӆCCBl25ӆC/S0`3:2627# Nc$ŽNc: :828@3 B$„ӆC23::CSCS%SB%:CS%S:CSB+_W+_#Nc 3C#Nc29ӏCCBw"B#CCCC 2:C CC#Nc *S CCCCCCC2;$C*S C *S *S #Nc 3C C # NC @S#Nc 33 ::CSCS%SB%:CS%S:CSB+_W+_#Nc 3C#Nc2<ӏCCBx"B#CCCC 2:C CC#Nc D*S CCCCCCC2;$C*S C *S *S #Nc 3C C # NC @S#Nc 33 :*: %S B%:%S :C S B9BVS# GC# cF#["$ӇCBcBoBxC 2=# cӇCBcBpBwC 2=c8@#[@B+_ W +_ ӇCC C  2>9@3:%SB%:CSB+_W+_ӉCBxBw"B#CCCC2:C23:%SB%:CSB+_W+_ӉCBwBx"B#CCCC2:C23:%SB%:B+_W+_ӆCBuBx"#N[CBu2:ӆCBxBw"N[CBu2:Bu23:B$‡ӆC2ӆC23 XӆC B[2?RECOVERY" #ӆCBl" 2@ӆC B[2A3REDOLISTMODIFYADD DELETECHANGEXECUTEFINDGATHERCOPYMERGE QUOTE CANCELUNDOUPSHIFT DOWNSHIFT BLANK BLEND DEBLANK DUPLICATE PAGEPAGESIZEREPLACE WHITENVERIFYHELPINDEX FREEZETEXTTABSCLEAR NEW RENUM SAVEKEEPEXITSTATS : COBOL COBOLGO COBOLPREP COBOLII COBOLIIGO COBOLIIPREP COBOLIIX COBOLIIXGO COBOLIIXPREPFORTRAN FORTGOFORTPREPFTN FTNGO FTNPREP PASCALPASCALGO PASCALPREPRPG RPGGO RPGPREP SPL SPLGO SPLPREP CCXLCCXLGOCCXLLKCOB74XL COB74XLGCOB74XLKCOB85XL COB85XLGCOB85XLKFTNXL FTNXLGO FTNXLLK PASXL PASXLGO PASXLLK DEBUG QUADCOLCOPY COLMOVE RPGXL RPGXLGO RPGXLLK STREAM CUSTOMIZE MENUINTRO THISVERSION CMDFORM COMMANDS CUSTCOMMANDSRANGESLINES STRINGS LINERANGES RANGEFILESFILES VERSIONSOPTIONS RUN UDC RECOVERYMANUAL CUSTMANUALENDHELP MATCHINGMESSAGE JCW HPDESKb"cbeebbbbb"-- ,FF             qq ABORTIO ABORTJOBACCEPTALLOW ALTACCT ALTGROUPALTJOBALTLOGALTSEC ALTSPOOLFILEALTUSER ALTVSET ASSOCIATE BREAKJOBBUILD CASHECONTROLCOMMENT CONSOLE DEALLOCATEDELETESPOOLFILE DISALLOW DISASSOCIATEDICSRPS DOWNDOWNLOAD DSCONTROL DSLINEDSTAT FILEFOREIGN GETLOGGETRINGIVEHEADOFF HEADON IMLCONTROLJOBFENCEJOBPRI JOBSECURITY LDISMOUNT LIMIT LISTACCTLISTEQLISTF LISTFTEMP LISTGROUP LISTLOG LISTUSERLISTVSLMOUNTLOG MPLINE MRJECONTROL NEWACCT NEWGROUPNEWUSER NEWVSET OUTFENCEPREPPREPRUN PTAPE PURGE PURGEACCT PURGEGROUP PURGEUSER PURGEVSET RECALLREFUSERELEASE RELLOGREMOTERENAMEREPLY REPORTRESET RESETACCT RESETDUMP RESUMEJOB RESUMELOG RESUMESPOOL RUN SAVESECURESETDUMP SETJCWSETMSG SHOWALLOW SHOWCACHE SHOWCOM SHOWDEV SHOWINSHOWJCW SHOWJOB SHOWLOG SHOWMESHOWOUT SHOWQ SHOWTIMESPEED STARTCACHE STARTSESS STARTSPOOL STOPCACHE STOPSPOOL SUSPENDSPOOL SWITCHLOG TAKETELLTELLOPTUNEUPVMOUNTWARNWELCOME C&-" #&/" #ӉCC"2&4C>,GӉCBf2&&BS1CI$$…$$;h&C>~B> 3B>&C2(C2BӉCC2&C1RSA4CA6C" &#&&B> 3B>&^" #ӉCC2&%$†ӉCC2&4W @SISBc>Ӳ$$C*WGCG$$;E* @SIS4CICGCK$$ ¨CP$$,®B$E$$/µ5 %SCG"a$"z$& $4B$K$$ §CP$$,­SI4C1R\4Bf2C$BgBf22B<#[ @SACAӉCӉC*Bf"P2 Bf2BCBf22ӉC"C+C2DC2BR*R4SK @SG @SISPBB$M$$IFC2C$*SABS>4CS0C0B#Nc HӉCCCC2 C0B#Nc GӉCCCC24B+_W+_C$ʙC$C#Nc2<ӉCCBx"B#CCCC^2:ģSC#Nc29ӉCCBw"B#CCCC^2:áS64ӉCCCCCCCCCC2 @S# NӉC2 CS1% String not found " #*4 CCCC2C$CCCCCCCCCCGS4 CCCC*S4 S9SD @SEW*SCCCCE*SK$*W$$0FC9$CDCDC9cZ% B@ Too many digits" #*9SC.CDC98cF% Too many digits after decimal point"& #*SC$9*9O$$.J*WC$%< Decimal point not allowed" #*SC$CD% Two decimal points in number " #*SC*SDC9S8*SE(CC @SCDC9S8C98W"0#Cs 3Că8*C9 3SK4BS1C%"6LCLC%"2EWGc"S6 GcÄ"S6*S6CLS6"S6C6S4* @WWC"C5S6C6,Uв$$/ICGCHS6C6,F* @SW:C6$ESW3*WSC6$U% Column number too small" #% Column number too large" #* 4BS1S9*SC9$B @SE+9˲$9E*SK9$Š$CC9$C9$KC* @SCSEA*SESCCECCCC۲$$:—Ѳ$‡CȲ$SCCC?'CCS0C9$% 2 Did you mean " "C0 ?" #% Expected " "C0 C2(SK*kSKCCSC9$W4BS1Ͳ$ž$'/*!@+-., " #'$ rF*SCBWSCSCCCϲ$-*SGSES9CERfϲ$-BSECE$9'9SGCE @SCC9$GCCBh22C9+_ 9'CC 22C9$„BhC 22"C% Missing end of string delimiter"" #*T)C*SCW+_HC% A string is required " #*+CCS4CCCCC @SC @SJ̲$$(ICC@N'CN"WAWG,CGW*SCS]CCC]ji @SJG$$N[\'NONLIT " #C'*LC @WSCDG$$WY'WILD " #C'*L% @WSC&G$$CY'CASE " #C'*L @WSC$$,B*S]pCNG @G @G @%" Expected a column range, Nonlit, Wild or Case"0 #SC*LCJŲ$$)–% Expected ")" " #SC*1CNGGLJC2Cˇ%!  Column range too small for search string "+ #SC* CJ"W@'WCCS4 S:S5"S4"S?R> @SHSE*SCCCCE0/*SK$B @SB$C5$ˏCBC5$˲$:á:5 4% First character must be alpha" #**SC% Name too long" #*SCٲ$$.OC5$C4c?Ë4S5$:á:7% Too many parts to file name" #*SC% No characters in name" #*SC$$/RC5$CHC4$M*SHS5$:á:"V< % Lockword must be after file name "# #*SC% Cannot have two lockwords" #*zSC% No characters in name" #*aSC%$$*MC:$J"S:"*" @S?S4$$$OC:$L" @S:S5"$" @S?S4*SESKCCC4$CHC5$^% No characters in name" #*SCCExCC @S" :C96=*SK$$:E*&0 @SJȲ$$UD*R>CJM% Expected a U " #*S5C2FSK4W+_* @WWW @WWC)#Nc&"CC2 @SCG*Wyx @WƲ$/nC/$F['FIRST" #C'*Lr @SC)#Nc 3NC/$L['LAST " #C'*LS @SC)#Nc 3/C/$*L)#Nc 3CCCCC*CCC*SC*W)#Nc 3*SCWCCG)#Nc 3CFEWҲ$ @.$+„.$-JC("6L1- @SCC("2EWœ% Displacement too large." #*SC.$-DGW@CC @SCS0C0)#Nc 34 +BY " #C+NC#Nc&"NM2CNCB#Nc IS%9 An increment of 0 is not allowed "# #**SS% Line increment required" #*bS6CN% Did you mean BY? " #*CS*S*SWC$ÅCC2G #Nc 3#Nc&s"14R @S @SSRC @RB @RD @SSSR* @R2SO#Nc 3#Nc 34 *SCCײ$$<…$$^PB'-*R9$$ʇSC% Expected ">" to terminate file name"& #*B*3SC"% Range file not allowed for this command"* #SC*CCtDz$$A^k'ALL" #C'*L^* @SRSCSCQ$$@F* @SRSCHB9#Nc 3BN6B9BoC z @SCCNSS$sز$$/[*SSBN6B9BpC X SCCNSO}SQSFCCCF 7BCBB @B$‚ CQ 9Ⲳ$/BS2\/$ME'jMODS " #C'*L*RCSCB9%M The MODS option is not allowed with range files"2 #'BCBB % You may not use the MODS option on Version 0 "/ #*SCCCC2R*SCh/$IB/$EB @/$IN'iINCLUDING" # 'EXCLUDING" #C'*LDBi6**IJK;B$M*SC/$IE"R-*R)SC% You may only have one Including/Excluding option "3 #C2R*SC/$VE'VERSION" #C'*L##N[GS6C6,ISCCQ%R You may only specify one version "# #+&B#$cBC% The MODS option is not allowed for Version 0 "/ #* @SQSCCCB#$E"R#*RBC2R*hC6$ˎSCC6"ˉWxV4%WR A version number is required " #?% The smallest version number is 1 "# #&% The largest version number is " "#N[" C2HsS*SC*SF RCCBCBB @B$‚ @B##n[‚ @B9 @RDCRCS BDCQ @C w @SRCRBD 7R2CR#Nc 3#Nc 3SO CS#Nc 3#Nc 3B9CO#Nc 3 *SYCO#Nc 3CCBB#Nc % First line specified follows second"& #SCCCS4+TO " #,IN " #* @RRBj6 !*LMN@N'C+**LWBk6*I*SCSC)SCCN!% A string or column range is required "' #*"CCS4 @SC+1TO " #C+*LBT;BrC4* @SXBBC;$*SCCCS4 @SJɲ$$(F*65, ̲$$)H* @W @RASCSC% Expected ")" to terminate range"" #*SCCJ*SCWRAgCCS4B* @SC"$ 3B>R@NgSCCCS4SCSES6*WCCCEC$G6LC$E6L !C$D6N6L S,GG$ ‚R3qSC*W% No such command" #*eCCS4:b%S:+CS%S :+C S %S:+CS%SB%:%S:+%S:+%S:+%S :+%S!:%S":CS#CS$CS%CS&C S'C!S(C"S)S*:S+:S,:%S`:*C`Sa+ @^k @^j^iS @SSS @SSS @SSRK @RJRIRN @RMRL"P+ @_ @_ @_ @_ @__ "P_+ @_ @_ @_ @_ @_ @__ W @W @W @W @W @WW CBf22#N[R#lB3CAj*RӉC/S0`32I" B~: @2JB~|HPMAIL" BS4:@%2K@ %2LB$(31B"P&"P&R~T " "BB 3B%+^f B$P"PR~BB 3B+^fBf23Bf2C$BR*RRORPRQ*R*BCB+fSEXIT" "#RR*R@9%2BB$#SBB2C$*RBfB22R*R3B$$‚ @SAz%2A %2@%B2# N2MCSA%2]33:SӇC2WC"Wˈ|4ӇC2N[ӇC2OӇC2P ӇC2Q ӇC2RӇC2SӇC2TӇC2UӇC2V!ӇC2W%ӇC2X)ӇC2Y-ӇC2Z1ӇC2[5ӇC2\9ӇC2]=ӇC2^AӇC2_EӇC2`IӇC2aMӇC2bQӇC2cUӇC2dYӇC2e]ӇC2faӇC2geӇC2hiӇC2imӇC*2jrӇC2kvӇC2lzӇC2m~ӇC2nłӇC2oņӇC2pŊӇC2qŎӇC2rŒӇC2sŖӇC2tŚӇC2uŞӇC2vŢӇC2wŦӇC2xŪӇC2yŮӇC2zŲӇC2{ŶӇC2|źӇC2}žӇC2~ӇC2ӇC2ӇC2ӇC2ӇC2ӇC2ӇC2ӇC2ӇC2ӇC2ӇC2ӇC2ӇC2ӇC2ӇC2ӇC2ӇC2 ӇC2ӇC2ӇC2ӇC2ӇC2 ӇC2$ӇC2(ӇC2,ӇC20ӇC24ӇC28ӇC2<ӇC2@ӇC2DӇC2HӇC2LӇC2PӇC2TӇC2XӇC2\ӇC2` !$'*-0369@ 2#NW$HC+* Could not obtain write access to range file". #ӆCBl2&ӆCBV2ӆC/S0`# NW#NW$D#NW@RR# Nc#Nc$D#Nc@RB9B'-QBBRB9BBSBcBS"Pc"PS@c@SC(%R"RB9ӆCBV23 -& QRW! "$#%'&(*)+-,.0/132465798:;X()=*<> ,    PNE?FHIJL@TMUGOD.$(%(A ? @ :<+;,!B C = > 43(1   "< jnc6_YO3_R[0   : S:'CSCC2# OS# OSC2GS*S* * * * * * * * * * * * * * * * * * * * * * ", "SGCC2 "C"ˈ|4 Operation successful" " File system error " " Internal error -- Invalid record address"* " Invalid file designator " "} Internal error -- bad free space chain"( "a Invalid ticket" "Q User data buffer out of bounds" "9 Internal error -- GETDSEG failed"" "  Internal error -- SWITCHDB failed "# " Internal error -- DLSIZE failed "! " Internal error -- Invalid pointer "# " Internal error -- FREEDSEG failed "# " Record too large for file block size"& " Invalid Parameter " " Invalid open of old ticket file "! "y File inconsistent with software version ") "] File blocking factor is not 1 " "F File block length is too small" "/ File must have at least one user label"( "=Rc4Leu"d"jC&d"ˈx4 Record not found" "{ TRINIT has not been done" "g TRSET has not been done " "S Trie trace not allowed when using XDS "' "8 Internal error 1" "( Internal error 2" " Internal error 3" "| D Undefined error " "SGCC2 C$uC$x#2 IGCC&2  Invalid file system error code" "SGCC2 * * * * * * * * * * * * * * * * * * * * * * ", "SGCC2 3:CSS:'CS* * * * * * * * * * * * * * * * * * * * * * ", "SGCC2 "#O"OT No error in procedure " " Error in procedure " "#O" @"ˇGxF4HQKOPEN" "BQKPUTREC" "8QKGETREC" ".QKLOCK" "%QKUNLOCK" "QKPOST" "QKCLOSE " "SGCC2 O"O"ˈ|4rq Operation successful" "u Buffer too small" "d File system error on data file" "L Invalid line number " "9 Line numbers out of sequence on file"& " End of file " " Record not found" " Beginning of file " " " " Parameter error " " Invalid operation " " Invalid key update" " Access options not granted" " Invalid key file" " Data file/key file mismatch " "y File sytem error on key file" "c Unable to expand stack for file buffer"( "H File does not have fixed length records ") ", The file's blocks are too large "! "%4DThwփSGCC2 O" ˆO" B File system procedure " "#O" JFOPEN " "#O" KFREADDIR" "#O" LFWRITEDIR " "t#O" JFCLOSE" "f#O" KFGETINFO" "W#O" KFCONTROL" "H#O" JFLOCK " ":#O" KFUNLOCK " "+#O" LFREADLABEL" "#O@ MFFILEINFO " " unknown " "SGCC2 #2 IGCC&2  Invalid file system error code" "SGCC2 * * * * * * * * * * * * * * * * * * * * * * ", "SGCC2 3:l CATALOG.PUB.SYS " B@@: @2 SC"C:B:@ 2 C2 3:"HC:"2 File system error" #ӇCBl2#l2 O@ VlC%ӇCBl2  Error number " #C" #2ӇCBl23:%S:*CS"P+_W+_C2 Error in work file procedure " #C2CC2ӈCC223B2*R@%2# ^@%2B9@ %BV2333  3(&  =&er " #C" #BC# ^# @^# @^# @^#^^B$†B#^#^ӋCBCCCC2^3"^C$)E! Could not find user customization procedure Quad'Custom": #$ Error loading user customization procedure Quad'Custom "9 #ӋCBl2Z Loader error: " #C" #2YӋCBl2Z4CCCCCB(24:B($„ ,QUAD'CUSTOM " #B"(2[SD#C$„C$)NB"(2[SD33 Elapsed: , CPU: , Text accesses: "6 #* #2\* #2\* #42\ӆCBl2ZB$„ӆC2]3: *:%SB%:CS%S:CS%S:CSBA#Nc 3ӆC*2^:@"*P:":" " :@ 2_Sʇ.$ Unable to create job file to stream"& #ӆCBl2ZӆCC2cӆC/S0`B+_W+_*S C ӆC CC 2`8Â2e+O"P "PS ML+OS CCC 2aH8@;SC:"2bC$G# NS ' Error writing to job file" #ӆCBl2ZӆCC2cC"2dӆC/S0`eC"2dʅ' Unable to save job file to stream"$ #ӆCBl2ZӆCC2cC"2dӆC/S0`2e#Nc 3ӆCBj2fӆC/S0`3: *:%SB%:CS%SB%:%S:CSB+_W+_B+_W+_ B%$ӆCBnB%# Nc@WBB8*2gSClkӆC CC 2`ӆCB8 CC2hB8CBl2iӆCBl"2ZӆC@+K% *CB*2jC2lSCbK"#ӆCBl"2ZC2kC2l$SC2l&3 //" D*SC$ 8@ CCRBnB%2mB9ӆCBVCC2nl lines replaced" #ӆC Bl2o3:*:%SB%:CS%SB%:%SB%:%S:CSS:B+_W+_B+_W+_B+_W+_ӆC2pӆC CC 2`CCC2qӆC C*2rӆCCC 2s)8ӆCCC"#N[CC 2tCCC2uӆCCC 2wCC2v ӆCCC2w#[8@[ 8 @ B4ӆCB8 CC2hR lines blended " #ӆC Bl2oӆC2x3B,R38ӆCC"2ZS84C8s@8C 3C8sS84CSC+OC; OC;4H" #B"*4T" #B"64C$ÃSC$GC$D$%&a " #C" #2Y%S0"c0섡0C" 02Ys0S0"R0섡0BC0i4" B"p4J" #B"|4K" #B"4" B"4&d " ##B"4" B""@A"B"4Csc7C7SC$Csc7LC$C,\C"S//"CP M" #B"U "Cs'C7Ń' 3C7S74CCc7ÍL" #B""7%"7#C7* 3"#Nc 374"]-----------------------> End of File <-----------------------["B #4S.SC7$C7'ԐB4C7$ @S+"7&#Nc 3C#Nc2z#Nc 3Cs7+*S!# ^C.c˖C!ӆCCBy"#N[CCC2tS!C!Ct/.C2y#Nc 3C!# NCƒ.b+C7b+F"C7CC2kCP.C#Nc2zFC.S4"]--------------------> Beginning of File <--------------------["B #4S.SC7$CB#Nc B4C7$G#Nc 3 #Nc 3C#Nc2{B+Cs7+C7$ÃS7*S!C.cÃC!C7$W# ^ӆCCBv"#N[CCC2tS!C!Cs0C2y#Nc 3C!# NCƒ.b+C7b+HC7"_C(C2kC.C#Nc2{MC.S4C,c7DC7S,C,$ÃS,4C7b+ÉB+7CC7b+ÉB+7Cs,S,#4C,cKC,CS,C7cCC7 4C,s$ÍCBsSB>C,sc7QCCB@SB+7BC,sS,C7,*Sm4C$ÍCBs,S,Bp C,CBV@S,B}4"S33""PBU""'CCC"B"4"4FS,S74 #Nc 3C#Nc2{B+(CS,C",ԐB,4",B#Nc ",B#Nc Ã*S4# ^S*BCC2|S--C2yC-S:C:$C:#$ C: 4C2yC+OCS*B"?2}"1B>:"2bC>$BS*4Out of Line Numbers for Additional Lines ") #*<4x ",#Nc 3#Nc C 2yC Bl2i Line Number: " #C2yCBl2~iBOF/EOF markers have no line number "% #*4Cc7˕ "#Nc 3# ^C B#Nc IC1C2yC B#Nc HCC2yӆCC C "#N[CCC2tC2kC+4C4C*%KSLine cannot be inserted before BOF marker"* #*4",B#Nc GSLine cannot be added after EOF marker"& #*4C7$FBr2Bt2 ",#Nc 3C #Nc2zӆCC By"#N[CC C2tC #Nc2{ #Nc 3",B#Nc QBwC Bt24#Nc 3$",#Nc 3BrC Bt24:9#Nc 3BrBt#Nc 2CBNc2CC",%B#Nc Ü #Nc 3CBt#Nc 2CNc2zBCNc2CBNc Nc 3*S4*S(*S)C4Bc;ÃBC;S=CC,$E"CC,b+E*y*S$S"C)C"ӆC(C 2C7c Beginning of Hold File <-----------------["B #Bl2yBl+ " #B"H " #"S9ӆCC9"C2$HNC9$_ӆCCC*2uC2kC " #B","]---------------------> End of Hold File <--------------------["B #Bl2yBl " #B" *** Press any key to continue *** "2 #Bl2yBl+Nlv" 4"S9H " #ӆCC9"C2$HNC9$KӆCCC92ӆCC2R*ӆC24"C2 YES " #"":*CC C: B S4B*$TOK to Clear Hold File (NO/Yes)? "! #C2yC+O*Hw Hold File Cleared" #j Hold File Not Cleared" #Qr4B*$ Hold File Cleared" #4U4Please supply a label for the current position (0-9): "7 #C2yC+Ow""0$9&0'",#Nc 3 No label defined " #*4&0SA"A00000000" "A99999999" IC@A&0'}&0'B4C7By " #Bl2yBl+Nl*R"ӆC24V Here is a summary of subcommands for page mode: "3 #Bl2yBl+Nl " #Bl2yBl+Nl Cmd Action Cmd Action ". #Bl2yBl+Nl , Cursor up 1 line . Cursor down 1 line ": #Bl2yBl+NlX < Cursor up 1/4 page > Cursor down 1/4 page "< #Bl2yBl+Nl+ [ Roll text up 1 line ] Roll text down 1 line "= #Bl2yBl+Nl! { Roll text up 1/4 page } Roll text down 1/4 page "? #Bl2yBl+Nl P Previous page N Next page "2 #Bl2yBl+Nl Cursor down 1 line ": #Bl2yBl+Nlz F Find line " #Bl2yBl+Nlb \ Find previous occurrence / Find next occurrence "< #Bl2yBl+Nl5 I Insert text (before) A Add text (after) "8 #Bl2yBl+Nl  M Modify a line of text B Modify block of text "< #Bl2yBl+Nl " #Bl2yBl+Nl! C Copy line to hold file D Delete line, put in Hold "@ #Bl2yBl+Nl U Undo delete J Join hold file "6 #Bl2yBl+Nlr Z Clear (zap) hold file X Examine hold file "9 #Bl2yBl+NlF " #Bl2yBl+Nl4 # View line number V View last message "9 #Bl2yBl+Nl R Refresh display L Define label "4 #Bl2yBl+Nl H Quad help subsystem ? Show this screen "8 #Bl2yBl+Nl E Exit page command Q Run QUAD as a son "9 #Bl2yBl+Nl *** Press any key to continue *** "2 #Bl2yBl+Nl`"4BB+yC,C@$É"^"B"v"BC*C-$S"C-$L." #C2y"S-S*C,M"@"a"z& 4 oSETMSG ON " #ӆCBj2fӆC2WSETMSG OFF " #ӆCBj2fl4$,“$<$[$-Š${‡$P„$D*S@$.“$>$]$+Š$}‡$N„$C"S@"0 $9L$,I*8t$.I"-i$JB+(P$[G*=G$]G"4>${IB+()3$}HB+()$NIB+$JB+'$PJB+$KB+'$/F$\F$#F$AG2$IG*)$BF$M„$ D)""MBOF/EOF markers cannot be modified "# #*5$DG*$$G$CF{$ZFis$Fk$FCc$UE5\$JEU$VF*M$ED*S#G$RE@$LE9$HE82$?EV+$OG*SB"$+B$-B$QE%$XE $SE$B24:>""::%SB%:CS%SB%:CS%SB%:CS%SB%:CS%S B%:C S %S :C S %S :C S%S:CS%S:C S%S:+CS%S:+CS%S:+CS%S:SCSS:CSS:CSB<3B+_W+_B+_W+_B+_W+_B+_W+_B+_ W +_ "P+_W+_"P+_W+_"+ @_ @_ @_ _ #Nc+ @_ @_ @_ _ W @W @W W "P+_W+_SETMSG OFF " #ӆCBj2fB"2B,&S;S8"+S<S#S*JBQKC#",#Nc 3C7BB2SETMSG ON " #ӆCBj2fRF3:*:%SB%:%S:CSB+_W+_ӆC2pӆCCC2`C2k+OTӆCCC2sB4ӆCB8 CC2h8@# blank lines deleted " #ӆCBl2oӆC2ӆC2x3:*:%SB%:%S:CSB+_W+_ӆC2pӆCCC2`C2B4ӆCB8 CC2hB9ӆCBVCC2nӆCCC2w8@) lines blanked " #ӆCBl2oӆC2x3 blank lines added " #ӆCBl*2 3 duplicate lines added " #ӆCBl2 3::%SB%:%S:CSB+_W+_ӈC2p*S*SC}|AӈCCC 2`B4ӈCB8 CC2h*SBrC2vӈCC2CC2ӈCCC2w#[8@[B4ӈCB8 CC2hC28@<S No line number available for additional line "/ #ӈCBl2Z Command stopped" #ӈCBl2ZӈCC2oӈC2x3N$‰ӆC2xӆC/S0`4:*:**: %SB%:CS%SB%:CS%S:CS%S:CS%S :C S %S :C S B+_W+_B+_W+_"+_ W +_ "+_ W +_ ӆC2p#SӆC"2nC"# N"dS# ^# N&" ˇx4*S*S" qSCSC 3*SCBj2vC2lS*S#Nc 3#Nc 3#Nc @SS*SӆC#Bw"#N[CC2t"SS#Nc 3ӆC#Bx"#N[CC2t"SS#Nc 3#Nc 3#Nc 3*Sh92*SS C ӆCCC2`B9CCB#Nc GCB#Nc *S C C2vC2lSC2lS# ^*S "# ^2.*S+ӆCC2SCC C2v"# ^*S*S*S*S*S 58:GPaCӆC# NCC2# N&" ˅x4B4#N" †#N" HӆCB8 CC 2h#N" QB9ӆCBVCC 2nӆCCC 2w#N" IB9ӆCC C 2svC+_ӆC#޺C2oi@?>N$f#N" jC*SC2yӆCCC 2w#[8$@[B4#N" †#N" HӆCB8 CC 2h#N" IB9ӆCC C 2s(N$J#Nc 3*SSN$F#Nc 3 Z[[[[[[# ^S>ӆC"2ӆC2x3N$ˆRӆC/S0`4:*RVӆC"BB2BBj2vӆC"B+2(3 Type "E" to exit Debug " #ӆCBl2Z23$NEWPASS " #ӆC2ӆC23$NEWPASS " #ӆC2ӆC23:S: S:@W RPGXLC.PUB.SYS " ӆCCC*23$NEWPASS " #ӆC2ӆC23$NEWPASS " #ӆC2ӆC23:S: S:@W PASCALXL.PUB.SYS " ӆCCC*23$NEWPASS " #ӆC2ӆC23$NEWPASS " #ӆC2ӆC23:S: S:@W FTNCOMP.PUB.SYS " ӆCCC*23$NEWPASS " #ӆC2ӆC23$NEWPASS " #ӆC2ӆC23:S: S:ANSI85 " COBOL.PUB.SYS " ӆCCC*23$NEWPASS " #ӆC2ӆC23$NEWPASS " #ӆC2ӆC23:S: S:ANSI74 " COBOL.PUB.SYS " ӆCCC*23$NEWPASS " #ӆC2!ӆC23$NEWPASS " #ӆC2"ӆC23:S: S:@W CCOMXL.PUB.SYS " ӆCCC*23$NEWPASS " #ӆC2$ӆC23$NEWPASS " #ӆC2%ӆC23:S: S:@W SPL.PUB.SYS " ӆCCC23$NEWPASS " #ӆC2'ӆC23$NEWPASS " #ӆC2(ӆC23:S: S:@W RPG.PUB.SYS " ӆCCC23$NEWPASS " #ӆC2*ӆC23$NEWPASS " #ӆC2+ӆC23:S: S:@W PASCAL.PUB.SYS " ӆCCC23$NEWPASS " #ӆC2-ӆC23$NEWPASS " #ӆC2.ӆC23:S: S:@W FTN.PUB.SYS " ӆCCC23$NEWPASS " #ӆC20ӆC23$NEWPASS " #ӆC21ӆC23:S: S:@W FORTRAN.PUB.SYS " ӆCCC23$NEWPASS " #ӆC23ӆC23$NEWPASS " #ӆC24ӆC23:S: S:ANSI85 "  COBOLII.PUB.SYS " ӆCCC23$NEWPASS " #ӆC26ӆC23$NEWPASS " #ӆC27ӆC23:S: S:@W COBOLII.PUB.SYS " ӆCCC23$NEWPASS " #ӆC29ӆC23$NEWPASS " #ӆC2:ӆC23:S: S:@W COBOL.PUB.SYS " ӆCCC23ӆCBj2f3:S:%S:!CSB$E! No work file open -- freeze not done "' #ӆCBl2ZӆC/S0`# N[$ Sorry, there is no room for another version". #ӆCBl2ZӆC/S0` Comments on this version (45 characters) "+ #ӆCBl2Z :: " #ӆCBl"2ZӆCӆC*Bl"-*2j+NlS"B+_2 B:#_#C 3C%+_@W#N[_ӆCC*2rӆCC"2VV Version " "#N[" C2YsS frozen" #ӆCBl2Z#[#[3:BGR%ӆCBnB%2g B&$B&R%BnB%2Bn%2B4 = Tab locations are: " #ӆCBl2Z " #"SS"B%PNn" 2YSCsS" 섡UӆCBl2Z3: S:%S:!CSӆC2pVrsn Comments Date"8 #Bl2yӆCBl2)------------------------------------------------------------------------------ "O #Bl2yӆCBl2"S"#N[Pl@WC#_"SӆCC2VV Error getting version comments "! #ӆCBl2ӆC/S0`"@+_W+_ӆCC*2O" @S@+Vl#ll"' C* #2Y##C 3#O#32#PBl2yBl2kӆCBl2UjӆC2x3 ӆC23:*: %S:+%S:CSS :C S "P+_W+_ӆC2pBS"X # " 3SS ӆCCC 2`&C2kӆC C*2r# C " 3ӆCC " 2B4ӆCB8 CC2h#[8@[.C$CRӆC2x333:%S:+%S:CS"P+_W+_BfBg2vӆC*BgBg"P2VBg2Bg2l$BfBg2vӆC"Bg+gBgg2Bg2l$B @R*R3:%S:+%S:CS"P+_W+_BfBg2vӆC**BgBg"P2VC!Bg2Bg2l$BfBg2vӆC"Bg+gBgg2Bg2l$B @R*R # NӆC2ӆC/S0`3:*:%SB%:%S:CSB$B3BDB+_W+_ӆCCC2`ӆCCC2 ӆCBB2#Nc 3#[B#[B V[ӆC23Bj2l$ӆCBj2Z3:*:%SB%:%S:CSB+_W+_B%$ӆCBnB%# Nc@&BB82gӆCCC2`ӆC*CCB2VB9ӆCBVCC2nӆCCC2w%3:*:%SB%:CS%S:CSS:B+_W+_ӆC2pӆCCC 2`CCC2qӆC C*2rӆCCC 2s #[8@[ӆCCC 2w8 @B4ӆCB8 CC2h6 lines merged" #ӆCBl2oӆC2x3ӆC*2K3ӆC2K3::**:%SB%:%S:CS%S:CS%S:CSB+_W+_ӇCC2 @S #Nc 3#Nc+ @_+_C B9 7SӇC2pC ED=ӇCCC 2`B9CB#Nc CC#Nc ˸ӇCCC2wB4ӇCB8 CC2h8@CBDӇCCC2sӇCC2S B543#[@[CBDBC#Nc CC#Nc C#Nc2{ӇCBC2sBNc2zӇCBC2sӇCBC2sC lines copied" # lines moved " #ӇCBl2oC ӇCCC 2`*) Could not complete move due to lack of line numbers "7 #ӇCBl2ZӇC/S0`BuC2vӇC2ӇC2x3:%SB%:B+_W+_ӆCBrBr"#N[CBu2tӆCB8 CBu2h Line does not exist" #ӆCBl2ZӆC/S0`3:*:%SB%:%S:CSS:S:B+_W+_ӆC2pBDB4S5ӆCCC 2`CӆCCC2sCF#Nc 3#Nc 38 @B4ӆCB8 CC2h1ӆCCC2s lines deleted " #ӆCBl2o ӆCBB2s#Nc 3ӆC2ӆC2x3:*:%SB%:%S:CSB+_W+_ӆC2pӆCCC2`C2B4ӆCB8 CC2hB9ӆCBVCC2nӆCCC2w8@+ lines upshifted " #ӆCBl2oӆC2x3:*:%SB%:%S:CSB+_W+_ӆC2pӆCCC2`ӆCB8 CC2hӆC2x3:*:%SB%:%S:CSB+_W+_ӆC2pӆCCC2`C2B4ӆCB8 CC2hB9ӆCBVCC2nӆCCC2w8@+ lines downshifted " #ӆCBl2oӆC2x3ӆC"*2S3ӆC"2S3: *:%SB%:%SB%:%S:%S: CSCSB+_W+_B+_W+_ӈC2pӈC CC 2`C B-b/ˍB-$KCCB-&24C2CCCB-B.B/2-2B.b/ÈCCB.B/.2CCB-B.-2B0$B0B/S+OSCCCC2:B/$HCCB/&2C2CCB-B.-2B0$B0B/SB-SCCCC2CCB-2B.S+OSCCCC2C2kC2lb*S C+O2CC2S C Y Line " #Bl2yCC2iC2BlC2~ is too long " #C2yBlC2~ӈCBl2ZC$U Colcopy command stopped" # Colmove command stopped" #ӈCBl2ZC B4ӈCB8 CC2hB9ӈCBVCC2nӈCCC2w 8@  lines changed " #ӈC Bl2oӈC2xC ӈC/S0`3:*:%SB%:%SB%:%S:%S: CSCSB+_W+_B+_W+_"+_W+_ӆC2pB$IBbØBk2l$B$˂Bj2l$BjBk2BNӆC CC 2`C B$NB$LCCB&2(C2CBk2~B,DBRC+OCBO2C2kC2lb*S C+O2CC2S&CCB B! BjBkBLBMBN2C2kC2lb*S C+O2CC2SSC A Line " #Bl2yCC2iC2BlC2~ is too long " #C2yBlC2~ӆCBl2Z Change command stopped " #ӆCBl2ZC CB4ӆCB8 CC2hB9ӆCBVCC2nӆCCC 2w 8@  lines changed " #ӆC Bl2oӆC2xC ӆC/S0`3::*:%SB%:CS%SB%:CS%S:CSB+_W+_B+_W+_#Nc 3ӆCCC"#N[CC 2tӆCB8 CC2hB%$ӆCBnB%# Nc@SBB82g#Nc 3*SCnmiCӆC C2B8CBl2iӆCBl"2ZӆC@)m% *CB*2jC2lbK"#ӆCBl"2ZC2kC2l$SC2l&3 //" D*SCCRBnB%2mӆC"C+C2ӆCCC2wBuC2v#[8@[SpC  Out of line numbers " #ӆCBl2Z3CCRBnB%2mӌC"C+C2CCCC C2C2kCC2v4:%SB%:%SB%:%S:%SB%:%S B%:B+ @_ @_ @__+ @_ @_ @__W @W @WW+//" C2kCC2vC C2vC+NjCBj2vp+^jCCB8ӌCC2zӌC*CC2h# NCB8C2l$P \Changes: " # Changes: " #ӌCBl"2ZӌC@<% CB*2jSCC2 @SC$B @S3 ! C2lc*** Warning -- line too long" #ӌCBl2ZCC# NC# N @WGCC2CC2v*SjS3 :" :S:S:CSCC: @2ʆ|9Error getting QUAD's program name. "# " PROCINFO error #" "SC" 2YsSӆCBl2ZӆC/S0`@WӆCCCB$*B2ӆC/S0` QUAD " #ӆCBl2Z2e3ӆC23 4 !& 6& 9 B = C > ?  7(-)0',+( ;' @ $"  25 :D 3(,,+*)I''''r'B&&T&$$$$s$#$##}#<#;#:""!! p ^ @ . vdR4"r`N+~_M; B\FX       ,,+*)I''''r'B&&T&$$$$s$#$##}#<#;#:""!! p ^ @ . :CC26*#L_C@%2# _# OS#O#OSC22C2…" S3S2#OSC2C2„" SSCW3CC23:CS"#_# @_# @__# O$ʋ#OC2Oƒ3# OGG2"_# O#:"2 " #_3# _#,O) SC#.oH#-O2#._3:S:S:S:"$ 3CC2"$ 3CC2CC"$ BS3"*Cϳ݄$ DS݄$.BC$WՄ$ ”Մ$$‘Մ$*Ž".턡T SCSC$PՄ$*".턡U SCS" 턡C#"$ 33:" #" 3#$"/ qSCS݅$/B&C @SCS" qSCSC 2SCSC#"$ 33#0000000 " #B:-y* #2!B -* #2!B ?* #2!3B " R B ?"< YB .R B B -" .R B -" IB .R B:" R:32#R:2" B:2# j3ӇC2 BC2RӇC2$3:CSBC2%D*S1B:"2 C$dJӇCC2&S  Error renaming work file " #ӇCBl2'ӇCB2(S3:B$B32C$–TERM'WORK" #ӆCCBl2)ӆC/S0`R3C2O$B @S Error closing source file" #ӇCBl2'C2*ӇC/S0`3B$ʉB2ʆ'$ Error closing QUADLIST " #@ %Bl2'@%B2(RӆC/S0`R333B2œ Error closing QUADIN " #ӆCBl2'ӆCB2(B2˜l Error closing QUADOUT " Bl*2+B2,3:*:%S:+S:CS"P+_W+_"X"SB$#[8#Od& There may be a delay to clear commands from the work file"< #ӆCBl2'CӆCC"2-$XTӆCCC2.ӆCC*2/ӆC20"SS#R#[3:%S:CS%SB%:B+_W+_#Nc+ @_+_#Nc 3ӇCC"C21#ӇC"#N[22$ӇCC*2/ӇCBcCC23ׄ8@C#Nc24*3ӆC25R EXIT command aborted " #ӆCBl2'ӆC/S0`ӆC"2 ӆCBc2 ӆC226273ӆC*23ӆC23ӇCBl2'C2*4ӇCBl2'ӇCC2(4C Renumber aborted " # Keep aborted " #ӇCBl2'ӇC/S0`4CӇC28"SSC2O$— Error purging keep file" #CeT4B? Unnumbered" "  Numbered" " keep to " "Ctext file " "a"$ 3CC 2"$ 2Bl29Bl2:ӇCBl2'4#N[$% *** Warning *** All versions but the last will be lost "9 #ӇCBl2'C Post back to old text file? " # Purge old text file? " #ӇCӇCBl2;S4S *SCC cˌCC"C "2<SOON˅ Error reading user label " #ӇCBl2'C*CC"C "2=ʅ Error writing user label " #ӇCBl2'C ]4BaBe2SCBaBe"$ BSS4:":*:S:%SB%:CSS:%S:CSS:CSS :S :C S S :B+_W+_ԣ$ ˆa"$ 3B@R?%a$ ^ No file name specified " #ӇCBl2'ӇC/S0`B@*R?xCB?#Nc$B /B SCB2C#[N#[K#Nc$H [ZYXWVT*ӇC"2ӇC2$*V[ > lines posted " #ӇC"Bl2>C# NcBa2%ʆ! Error during rename to change lock word"* ## Nc3#/Nc-#SC" GCGF Quad disallows keeps back to KSAM files"* #ӇCBl2' when line additions or deletions have been made"2 #ӇCBl2'ӇC/S0`C SӇC*2?"# c"c"*SB?#Ncr# _Ba@#/Nc-" :# O:#2Nc# Nc:"#1Nc:# Nc@ 2ASʇm Unable to create keep file " #ӇC/S0`a$*VCBa:82@#a " #D6CB2! Warning -- keeping only subset of texted file"0 #ӇCBl2'CNC"2J2 C" #" 3"TC2a". qS C " qS!#C C!  3CC2%ʅ$ Error trying to rename file created for Keep "/ #CZӇC/S0`C"2ʍC:"2 C$dFC2X Purge old? " #ӇC@%Bl2;a"$ 3CC 2C@ "@: @ 2ASʉ3M Error opening file for purge " #C"2ӇC/S0`C"2ʅ Unable to purge file " #CC"2C2ӇC/S0`C"2! Error closing keep file" #CC"2ӇC/S0`*#,_#_# _"#_# _@ #H_CCC2BCB`2BO$ʅ Error reopening file created for keep"( #CVӇC/S0`# NcC#2NcY"SCC 2C# Nc@D"R #Nc 3# N*j]"ӇCCC&2DC #Nc 3C C 2ECB2FB?BcCC2GC# #cC# 2HO$ʅ Error writing to keep file " #C# O"2ӇC/S0`"8@"W# NC2ISCC2IO$ʆ|# Failure in writing to keep file"" #C"SC2ӇC/S0`S"SBc2Nc$‚ @S Unable to purge original text file "% #BceC# OBa2%ʐ*SO:"2 C$dGg File " "d" #"+_C2:C2J 2 is opened by others and could not be purged "- #ӇCBl2'# ** Warning -- this file may be purged when closed by all users **"D #ӇCBl2' Error renaming keep file " ## OC@ Your keep is to file " "" #"+_C2:C2J 2, which will be texted for editing "# #ӇCBl2'd" "SC2@ %2$@%2 2# ^ce"$ 3ӇC2K-3 Failure reopening keep file, but keep was successful "7 #BcCӇC/S0`*V[0C"SC2O$ž Unable to save keep file " #CӇC/S0`F[B2 @V[ lines kept " #ӇC"Bl2>3Ԡ$ Hԡ$ F +* No save name has been specified -- SAVE command aborted": #ӆCBl2'ӆC/S0`Ԡ$ E"$ 3B$IӆC2LӆC2Mԡ$ ‰Ԡ$ ʐBB"$ ʌӆCB2  SAVE command aborted " #ӆCBl2'ӆC/S0`ӆC2 ӆC"2 ӆCBc2 ӆC2N3.*  "1:  +0 - B C = > ((3(    $] Y${Y7C?N:CӇCC#"%'*2/# _3:G::: ::8 20Œ"WG# :"213 $WC C$„"W3C @Å"W3C$D"W3GSGSGSC %SC%QS C wS C$22 23Æ"W273,C WSC 26Å"W273C#_C@%2C_*#_# % -# _C #_#3) S C 2W„" W3GSC#_CA%2C_#_C #_#NSCTICKET" DS*SC#Oc …"# _#MO" …"# _C#LO8# C#SW#C" #NF8TICKET" C #_#_#O(#_#*_#_#O&%(#_O$Ã"_#O&#O#_9-#% # #"#M_ 8E#% # ##_C-A#&_#'_C#_Cs #)_#L_#_C%Q @S# _SSCcÞ9i#O_C#_CcÍCS#C# @_S#_C# _CA%24C@%25# _# OS#O2627CWG$ƒW33:# OS#S8##O_#O @S$n8#% # #8# #CӆC253:#'OCӆC28#OC"Q:"29D*SS"# _#O# :"21ӆC/S0`3C*" #2:F2;4:S:S:'CSCC2 Blocks in file " # 8@. Blocks written " D Blocks read " #X Free space writes " #l Free space reads " # Free space blocks " # Puts " # Gets " # Replaces " # Deletes " # Replace splits " #  Delete splits " #  Get splits " # 3:CC2<#C2=W3:CC2<ׄ#C2=W3:CSCC2<# _C@%C2# OSC2=CW33:GSGSSCC2<C"ˉLxK4C#_NQLC#_HC#_D"d C#O 8!y#*_d" S0"d C#O 9!y#_" S*#_#_#SW#C"  C2=CW3:CC2<C@%2# _# OSC2=CW33CCCCC23:GSGSCC2<C2>#)OS"%C"Õx4#O"g# _*#_#_" # _# OSC2=CW3:CSׄCC2<C2>#)OS#_#_##*_# OSC2=CW3: CSCC2<3&C2>#)OS@*SW#C" G".WC@ % C"'2?# OSC2=C @W$C33 :@(CSCCCCC2G$ZCC2<# _*#_#)OSW#C@ C2=3NCC 2@4C# O2@_4# O#3#/#0:# :# # : :#1#2:8 20•# O#:"212,"_" #_S4#3S# " C$ÆC# _ F@# _"# _C $ÇC (#_C #_# O" " #'_#O#'O # _# ߆߆8 # O!y8@## O@ V# ߆8"'# ߆8"<"# ߆8"# ߆8" B6# ߆8""#_*S4:: CSS:CS"#_# @_# @__" #OD@@ SC# O" D" # O" C""@ SSS# O$B @SC@C: @2A_“"_#:"21"#_3*S3OC# O@\# OS _*SS#O@ K#'O@ F#2O" ‹," _3ASCSS:C C""29‘"_C #:"21"#_3C" FC#0O?C? ˆu" _3#/O-ˆ"_f3C# O#O M#O#O G#߆# ˆN"_3#O#HO A"_3AC#_#_8&# ###,O) #-_OP#O82’"_#-O23"_3) #._S#OSGC%IÅ"_3#,O#C#-#"_"I#"_#"O##_8'# C#O#_#O#_"#_#O" U_S # O@ L#_"#_[# O" @#_"#_#'OSCSS:# O#O C C2B"#_O‹O" †"#_3(ON##O2CD"#_# @_# @__# OANI# O"P D"#_*#O" R#O#O # O ?" _3# OArH#_"#_# O#_"#_#O" QG"Is@SC#O" " É"_3C" @" #O" 3#_"Is#$_O#O " #%_O#O#O " " #&_#_#$O_#%O#Op#%O#Op" ##%O#Op#O" @ 3#&O#$O" "_#%O#O" "#%O#O" " ##%O#O" ##O" @ 3#&O" #߆ "#_#_#_"# _C8 # #߆C2D3#߆8 C߆82D3|#!_##CA '#O S*S #O#O ˂Z#߆˞C S C c C C@C P2E“"_C #:"21"#_73C S C#OC!yrc2F3#O#O Ù#߆8#O#O F!yC8@^*#!_3:CSS:S: " CWC#_"#_C"#_C$C#_C#_" #_" #_CCCCC"2GG$*SS Unable to create son process " #ӎCBl2HG"˅|4u_^r Quad not prepped with PH capability"& #W Required parameter omitted " #@ Parameter addresss out of bounds "# #& Out of system resources (PCB's, DST's etc) "- # Invalid item number in CREATEPROCESS call", # Program does not exist " # Entry name is invalid" # Program name is invalid" # Configured system stack limit too small"* # 'Hard' load error -- possible disc problem "- #o Illegal priority class requested "# #V $STDIN could not be opened " #@ $STDLIST could not be opened " #) Invalid INFO= string " # &9K^^^^^^^yӎCBl2H3 :S:S:%S: " #ӆCBl2H2J$OLDPASS "  " ӆCCC*C22I$Ü PROGRAM TERMINATED IN AN ERROR STATE. "' # END OF PROGRAM" #ӆCBl2H2J2K3:S:CSRESET " "  " #ӇCC23" qSCS4:S:'CSFILE " #CS#C 3C%"=C*SC%C 3Cs%" ӈCC2SCS3::CSS: S:B"Äx4HPSWTONMNAME " #B2LS„"R"RB"Ämxl4C2M2KC$D*SSC$ÄCSӇCCC2NOW"W#_"_C#_"_#_"_#_"_"#_ HPCICOMMAND NL.PUB.SYS " #B" # " "CCB22KC$D*SSC$ÄCSӇCCC2NCS3v:) SCc @SGSC2OS)SCC-b.bSCCW3:CS Purge old (Y/N)? " #ӇCӇCBl2C@"@: @2ASLC"2@H*S%G" Unable to purge file " #ӇCBl2HӇCC2PC2@S" Error opening file for purge " #ӇCBl2HӇC2PSS3#N[$ OK to clear all versions (Y/N)? "# #ӆCӆCBl2S&F[ OK to clear all changes (Y/N)? "" #ӆCӆCBl2S*S3:%S:*CS"P+_W+_CXӌCC"2HӌCӉC*C"*2QC2R+OSCC2SSGCC* @S Number out of range" #ӌCC2H A Number is required " #ӌCC2HZCS3 :%S:+CSS:S:"P+_W+_QUADYES " #C2T$ӊCC"2H Automatic 'Yes' " #ӊCC2H*SdNO" #YES " #SCӊCC"2HӊCӇC*C"*2QC2R+OSC2U"" 2CCC F* @SS C$CCC C*SC Requires YES or NO answer" #ӊCC2HQ3B$WӆC2 ӆC2ӆC"2!ӆC""2!ӆC2 ӆC2ӆC2ӆC2V3:2WRE# ^[* @R7 @R6V[" @# [# [    # [# [#[# @^[ @RR*"#^[B$ʑB$DӆC22 C$š CLEAR'WORK'FILE" #ӆCCBl2XӆC/S0`ӆC2ӆC2V3:2C$E2 C$˜RESTART'WORK " #ӆCCBl2XӆC/S0`3:"2C$–INIT'WORK" #ӆCCBl2XӆC/S0`3:2C$E2 C$E2C$–SET'WORK " #ӆCCBl2XӆC/S0`3:S:S:2Y"QC2[QUADFILESIZE " #C@2TPC@@@:":" "@ @ 2ARʋ O Unable to build work file" #ӆCBl2HӆC2PӆC/S0`B"2@ʐB:"21C$dJ2ZC2[BC2\$# Unable to save work file " #ӆCBl2HӆCB2PӆC/S0`C@ @ : @ 2ARʈ Unable to re-open work file" #ӆCBl2HӆC2PӆC/S0`3:2 C$˜SET'WORK'MODE" #ӈCCBl2XӈC/S0`3B1ӆC2#BHB2]"+^lӆCBl2_^lӆCBl2_87 User: " "S" 2 Account: " "U" 2Bl2^ӆCBl2_+^lӆCBl2_ӆC2,^lӆCBl"12_3:S:QUADLIST " #LP " #B@"A*C: @ 2ARʉR Error opening QUADLIST " #ӆCBl2HӆC2PӆC/S0`ӆCB2%R3lQUADOUT " B@ "A: @ 2ARʇ  Error opening command list file QUADOUT ") #Bl*)2;2`2aӆCB2%RlQUADIN " B","@: A62ARʅ$ Error opening command input file QUADIN"* #ӆCBl2H@%2P2a43:2K~# ^c" "#^cӆC2RR*#[R%&QUAD -- JHK, Quest Software, KWS, Summit Information Systems, June, 1991 "I #ӆCBl2HӆC2b<:BSBTBU:"2cB<-BR<3:C:::820ʇ  Error on FGETINFO" #ӇCBl2HӇCC2PӇC/S0`C$"SCSC-q" BCS3::*#,_C#H_C"#_C"# _#_ 65# _"#_CSCB2# O$q# O@!ʵO$ ”O$B#O$ZBO$]B w#_"# _O$ʌO$]#O$4Y 3 File does not exist" #ӋCBl2H Error opening file " #ӋCBl2HC2dӋC/S0`W#/O-#SC"  H Cannot handle " "C" Ncircular files" " C" Nmessage files " " this type of file " "ӋCBl2HӋC/S0`*SC39CR$CRCR2e2f:ӆC2 NEW command aborted" #ӆCBl2HӆC/S0`ӆC2. COBOL file (Y/N)? " #ӆCӆCBl2@S"SS"SC$EP Record length (excluding line number)? "* #ӆCӆCBl@ 2%# ^cNc$F A default value of 72 will be used "% #ӆCBl2H"P# ^c# Nc&#^c#^c"P# ^cC# ^cC#^c# Nc(#'^c@# Nc# ^cNc$Ã"^c# Nc$"^cBu2g3ӆC2ӆC2ӆC2h CLEAR command aborted" #ӆCBl2HӆC/S0`3:Ԡ$ ^ Must specify file name " #ӇCBl2HӇC/S0`ӇC2 TEXT command aborted " #ӇCBl2HӇC/S0`ӇC2.B$$BSӇCBc@CB>@2&CSӇCBc2i#(C# Nc@S*SӇC2+"$ 3e$ ‡e"$ 3,CӇC2ӇC2,Ԡ$*…e"$ 3ae"$ 3#Nc$B R?CӇCBc2-ӇCBu*2je$ ʉ#Nc$ʆ  Warning -- you may be sharing the text file". #ӇCBl2H3: Re-opening save file " #ӆCBl2H# NcR^cӆCBc2iӆC2 @R7R6RECOVERY" #"SӆCBl 2kӆC B[2l0 Can't find recovery record -- work file may be empty "7 #ӆCBl2HӆC2.ӆC/S0`ӆC2m# ^c3:S:S:e$ N New file " #)e"$ 3CC2n Text file name: " #Bl2^Bl2o"$ 3Bl2o%$Bl2^Bl2pӆCBl2_ Keep file name: " #Bl2^a$ —a"$ 3CC2nBl2o"$ 3Bl2o%$Bl2^Bl2pӆCBl2_Vl+^lӆCBl2_ӆCBc2-B$ʍVl^lӆCBl2_  Versions: " ##N[" # 2qBl2^ӆCBl2_3:#O$P File numbered" # File unnumbered" #Bl2^ӇCBl2_ Record length: bytes " ## O" #2qBl2^ӇCBl2_ Number of records: " ## ߄" #2:Bl2^Bl2pӇCBl2_ File code: " ## O" # 2qBl2^Bl2pӇCBl2_#/O-#SC" J# Nc@]88 Warning -- this is a KSAM key file "% # Warning -- this is a KSAM data file"& #Bl2^ӇCBl2_# O@N#O$K#O$876 ** Notice: line increment is " ##O$M#.01 ** " # #.001 **" #Bl2^ӇCBl2_X# OA;ʍ#O$J#O$FED ** Notice: line increment is " ##O$L#.1 **" ##O$M#.01 ** " # #.001 **" #Bl2^ӇCBl2_3ӆC2ӆC2mӆCBc2i# ^c"#^c"#^c"P# ^c"(#'^c"H#^c"# ^c"#1^c# c# c#2^c" @a @eR?Bu2g"#/^c"0#"' 3"9#(#)#("' 33( C >  ((6& 9  ( 3  (  $  ((    jq{ T@ u  D ' M & x>L0!.q 3"9#(#)#("' 33   TERMINATE'fWHOc DATE'LINE]DLSIZEOCOMMANDMGETJCWhI CREATEPROCESSGGETDSEG3 FREADLABEL<9SETJCWh6JFRENAME%\CALENDAR#CLOCK"FREEDSEGFMTDATEDEBUGLOADPROC[LFSETMODE GENMESSAGE  FERRMSG PROCINFO JFATHERIBINARYESTIMER7PROCTIME6FREAD/|FINDJCW' RESETCONTROL%XCONTRAP$PAUSE GETPROCINFOKILLFOPEN _AAFCLOSE d@ SEGMENTER  TERMINATEC 17aPRINT'FILE'INFOB ,`FWRITE?  aDBINARY> CPRINTP A +;DASCIIO M #:IOWAITN FWRITELABELM =FCONTROLK }QUITJ GETPRIVMODEG 2 GETUSERMODEF 7SWITCHDBE 6 FWRITEDIR L FREADDIR H EFGETINFO 8@0FLOCK FCHECK I @ b 1FUNLOCK READ ASCII HY!qELM =FCONTROLK }QUITJ GETPRIVMODEG 2 GETUSEROB''7SWITCHDBE 6 FWRITEDIR L FREADDIR H EFGETINFO 8@0FLOCK FCHECK I @ b 1FUNLOCK READ ASCII HY!qELM =FCONTROLK }QUITJ GETPRIVMODEG 2 GETUSERffP.#&j O$% CUSTMANUAL4 CUST'MANUAL29CUST'MANUAL28CUST'MANUAL27lCUST'MANUAL26! CUSTMANUAL3 8CUST'MANUAL25CUST'MANUAL24tCUST'MANUAL23CUST'MANUAL22 -CUST'MANUAL21 `CUST'MANUAL203CUST'MANUAL19RCUST'MANUAL18 CUSTMANUAL2#CUST'MANUAL17CUST'MANUAL165CUST'MANUAL15h7lCUST'MANUAL14 9CUST'MANUAL13 lCUST'MANUAL12nVCUST'MANUAL11cCUST'MANUAL10U CUST'MANUAL9E AM#[ CUSTMANUAL1 CUST'MANUAL8ECUST'MANUAL7EsCUST'MANUAL6EI CUST'MANUAL5E bCUST'MANUAL4ECUST'MANUAL3E&CUST'MANUAL2ECUST'MANUAL1A HELPSCREEN2B`SPLPREP'SCR6SPLGO'SCR614SPL'SCRg BRPGPREP'SCRs6vRPGGO'SCR1RPG'SCR PASXLLK'SCRTPASXLGO'SCR:R YPASXL'SCR + PASCALPREP'SCRN A PASCALGO'SCRE ? PASCAL'SCRC 7 HELPSCREEN3:XEQ'SCRWHITEN'SCRCVERIFY'SCRCsUPSHIFT'SCR{UNDO'SCREjTEXT'SCRE kTABS'SCRE  STREAM'SCRC ' STATS'SCRw]SAVE'SCRE kREPLACE'SCRRENUM'SCR\REDO'SCRE+QUOTE'SCRwQUAD'SCRE/PAGESIZE'SCREPAGE4'SCRePAGE3'SCR!PAGE2'SCR!r&PAGE1'SCR'%*NEW'SCR* +MPE'SCR+-MODIFY3'SCR-0_MODIFY2'SCR0o3MODIFY1'SCR48oMERGE'SCR88: HELPSCREEN2A#&lRPGXLLK'SCRS RPGXLGO'SCRSPpRPGXL'SCR:FTNXLLK'SCRVFTNXLGO'SCR3TTFTNXL'SCR+FTNPREP'SCR9FTNGO'SCR5 FTN'SCR  FORTRAN'SCR / FORTPREP'SCRE K: RFORTGO'SCRC 9COB85XLK'SCREwCOB85XLG'SCRE5vxCOB85XL'SCRICOB74XLK'SCREw8LIST'SCREkUKEEP'SCRE;INDEX'SCRHELP'SCREGATHER'SCRC*FREEZE'SCRC]tFIND'SCREYEXIT'SCREWDOWNSHIFT'SCR 0DELETE'SCRC a !PDUPLICATE'SCR!#(DEBUG'SCR#[#DEBLANK'SCR$$CUSTOMIZE'SCR$I& HELPSCREEN2&COB74XLG'SCREvCCOB74XL'SCRvICOBOLIIXPREP'SCaCOBOLIIXGO'SCRN [HCOBOLIIX'SCRE{0xCOBOLIIPREP'SCRFCOBOLIIGO'SCRACOBOLII'SCR 2 COBOLPREP'SCR N> YCOBOLGO'SCR 9 COBOL'SCR  CCXLLK'SCRC yCCXLGO'SCRCKCCXL'SCRE~COPY'SCRECOLMOVE'SCRCOLCOPY'SCRCLEAR'SCR>CHANGE'SCRCjCANCEL'SCRC =BLEND'SCR pM"BLANK'SCR"#dADD'SCR#&W HELPSCREEN1B&HPDESK'SCRCRECOVERY'SCREUDC'SCRYJCW'SCR?%RUN'SCRXo OPTION'SCRC VERSION'SCR-FILESPEC'SCRE`RANGE'FILE'SCRN0daLINE'RANGE'SCRNMATCH2'SCRCMATCH1'SCRC!STRING'SCRC"C$LINE'NUM'SCRE$K% HELPSCREEN1A " RANGE'SCR{HCMD'SCR{CMD'FORM'SCRE:NEWS'SCR2 NEWS'SCRE sMESSAGE'SCRFINTRO'SCRKMENU'SCRE7GREET'SCR8mtTABLE'CONTENTS3.TABLE'CONTENTS2aTABLE'CONTENTSN!~COVER'PAGEE!"HELP | HELP'CMDE.PRINT'SCREENA..PRINT'CUST'MANUPRINT'MANUAL'CUST'CMD'SCR'uouPRINT'CUSTOM'SC%WRITE'TO'SCREEN  END'PAGEE 5 PAUSE'PAGEO S+ SBEGIN'PAGEO ~ ~HELP'OUTE ) HELP'CONTROL'YN  QKUTILITY  QKUNLOCKE2QKLOCKU2Q2QKPUTRECEQKGETRECEQKGETPUTEQK'ADD'TO'TABLE'L'QK'POS'IN'TABLEssQK'GET'BLOCKPQKPOSTUQKPOST'1 WORKUTILITY\ \ TIREPLACE'ExTIPUT'UxxTIFINDSPACETIGET'UmTIDEL'U+s+TIDATLENE5TITOFILEETIFROMFILESJCHECKBOUNDS77CHECKLOCELLTIGIVEFREEUh!hTITAKEFREEUTIRESET TISETBUFE&5&TILOCATEE[[TISETTOBLOCKSw wTIINITBLOCKHTICURBLOCKUTISETDIRTYUTIPOST' TIPOSTALLBUFS&TIFINALPOST##TIPOSTBLOCK@@TIPOSTEOFU=UTIWRITEBLOCKBWTIPOSTTOLABEL TIIOWAITE ) TITRACEBLOCKL2B2TIREPLACERECSt?tTIDELRECE*TIPUTRECE7TIGETRECE9TRDELKEYEM:MTRPUTKEYE:TRGETKEYE:TRCHECK"TRPOSITIONM + UNDO'RANGEEH HDEL'WORKET TCHGaaUNCHANGEE#SET'UP'DELETESEBBMAKE'DEL'INTG[g[GET'ANY'DRANGEE'GET'ANY'CHGGET'ANY'KEY"DEL'VRSNE))GET'VRSNEA*APUT'VRSNEkkCANCEL'VRECPUT'TO'VRECWDELETE'FROM'VRESCOPY'VRECEKEMAKE'VREC+LINK'VREC LOCATE'VRECJINIT'VRECSG%%BUILD'DRANGE'KE33BUILD'CHG'KEYI ICOPY'RECEV$VDEL'WORK'KEYIz$zGET'WORK'KEYI+PUT'WORK'KEYI*PUT'WORK'RECIGREP'WORK'RECI:?:DEL'WORK'RECIy yGET'WORK'RECIEPRINT'WORK'STAT UTILITYO  DECOMPACT'STRACOMPACT'STRAADETAB'STRUMODIFY'STRS66MATCH'STR<BLEND'STR-DOWNSHIFT'STR  UPSHIFT'STR??NE'STRU^ ^GT'STRUh hGE'STRUr rEQ'STRU| |LE'STRU LT'STRU COMP'STRE$SET'SIZE'STRNREP'STRSFIND'STRE'BWILDMATCH,GDEB'STR%%DEB'L'STR**DEB'R'STR==APPEND'STROU)UCAT'STR~ ~MOVE'STRE SUB'STR INJ'STRHINIT'STRESET'STR LENP'LENMAXMINASSEMBLE'RECE ! LINE'TO'REC++IDENTIFY'DELETEDEFAULT'INC X( XINCR'DEST'LINEI < SELECT'INCN O MAKE'NICE'NUM2I  MAKE'NICE'NUM % %TRUNC'LINE'NUMI ? ?INCR'LINE'NUM Y& YDECR'LINE'NUM % SUBT'LINE'NUMSI - GET'SMALLEST'LI  COMPL'LINE'NUM'  ADD'LINE'NUMS . NEXT'LINE'NUM *G HCONVERT'NUM qd qMSG'OUT  WRITE'QUADOUT A LIST'LINE  LIST'OUTE >z {NEXT'DEST | NEIGHBOR'LINESI 4 4SET'CURRENT 5 5GET'NEXT'RECN D DGET'RECP[fGET'SRC'NUMGET'SRC'RECuHEAVYUSEATTIMES"$CANCEL'ALLCLINK "PREP'USLE==COMPILEcJPUT'REC GETCOMMANDN#TIPOSTUSET'TO'1ESPACE'AT'DEST0+0DELETE'DUP'INTS[[SORT'INTSw>MYDASCIIESET'CONTROL'YHANDLE'CONTROL'SET'TABSEjGET'JCW'VALUER RLINE'CNT'MSGG_&_READ'QUADINCONTROL'Y'MSG33BLANK'OUTO OINIT'WORK'STATSYYWORK'FILE'POSTN_ _MARK'STATSIINIT'STATSI FIND'STR'BACKsFIND'STR'IN'FILsLINES'IN'RANGEI`GET'LASTE#GET'FIRST#SET'CUR'REC6-6POST'WORKc cPOST'RECOVMn!nGET'CMDMAIN CALL'CMDE j jSET'VARSE"<"<ERRORtTIEXPLAIN&QKEXPLAIN&l&MPE'CMD'ERR(PRINT'FILE'ERREMWORK'FILE'ERR6HANDLE'ERRR==COMMAND-CALL'QUAD'CUSTOYQUAD'CUSTOMYPRINT'STATS@STREAM'CMDDFFREPLACE'CMD\\BLEND'CMDPAGESIZE'CMDDPAGE'CMDEDEBLANK'CMD^BLANK'CMDB^BWHITEN'CMDCDUPLICATE'CMDDUPLICATECUSTOM'CMDCuACUSTOMIZE'CMD*DEBUG'CMDRPGXLGO'CMDRPGXLLK'CMD  RPGXL'CMDPASXLGO'CMD;;PASXLLK'CMDMMPASXL'CMD__FTNXLGO'CMD~~FTNXLLK'CMDFTNXL'CMDCOB85XLG'CMDMCOB85XLK'CMDMCOB85XL'CMD#COB74XLG'CMDMCOB74XLK'CMDMCOB74XL'CMD+#+CCXLGO'CMDDNNCCXLLK'CMDD``CCXL'CMDErrSPLGO'CMDSPLPREP'CMDSPL'CMDRPGGO'CMDRPGPREP'CMDRPG'CMDPASCALGO'CMDMPASCALPREP'CMDM""PASCAL'CMDD44FTNGO'CMDRRFTNPREP'CMDddFTN'CMDvvFORTGO'CMDMFORTPREP'CMDMFORTRAN'CMDCOBOLIIXGO'CMDMCOBOLIIXPREP'CMCOBOLIIX'CMDD$COBOLIIGO'CMD  COBOLIIPREP'CMD . .COBOLII'CMD @ @COBOLGO'CMD ^ ^COBOLPREP'CMD p pCOBOL'CMD  MPE'CMD  FREEZE'CMDM TABS'CMDE!]!INDEX'CMD!!CANCEL'CMDM""XEQ'CMD"h"REDOSIZE'CMDD#:#:LISTREDO'CMDD#;#;DO'CMDU#<A#<REDO'CMDE#}Q#}UNDO'CMDE#J#QUOTE'CMD$ $MODIFY'CMDC$#P$#MERGE'CMD$sq$sCOPY'CMDE$$GATHER'CMDC$$GATHER'PROC$%$FIND'CMDE&A&DELETE'CMDD&T&TUPSHIFT'CMD&a&LIST'CMDE'B0'BDOWNSHIFT'CMD'rb'rCOLMOVE'CMD''COLCOPY'CMD''COLUMN'PROC'i'CHANGE'CMD')ID)IADD'CMD**MODIFY'LINE+w+QUAD'CMDE,x,STATS'CMD,, TERMINATIONO |TITERM'?TITERMU??QKCLOSECGCFILE'NAMES'EQUA$NORMALIZE'FILE'KREMOVE'LOCK'WOR>MAKE'FILE'NAMES7"7ADD'MINUTE'Y"YGET'TIMEE{ {CLOSE'WORKW RENAME'WORK<TERM'WORK#CLOSE'FILEI1CLOSE'LISTI$5$CLOSE'QUADIN'ANY;YCLEAR'XEQwPOST'CHANGESW R EXIT'CMDE]6]RENUM'CMDKEEP'CMDEKEEP'PROC$SAVE'CMDE INITIALIZATIONrTISTAT'TIINIT'TICLEAR'E,TIREADFROMLABEL'TIPRINTSTAT$TIGETTICKETTIPUTTICKET!!TISTATU00TICONTROLLjLTICLEARTIINITU TRCONTROL>TRSET(TRSTART>A>TRINITU*QKOPENU*xSTART'PROCESSRUN'OLDPASS o ISSUE'RESET & &ISSUE'FILE'EQ EB MXEQ'MPE'CMD MYDLSIZEE ' 'PURGE'OLD Dw DCONFIRM'CLEAR L GET'NUMBERL n YES u uOPEN'WORK#CLEAR'WORK'FILE@e@RESTART'WORKT'INIT'WORK"SET'WORKE,CREATE'WORKSET'WORK'MODE!START'LISTINGUOPEN'LISTTQTINIT  GET'REC'LEN{>{OPEN'FILEOB'NEW'CMDCLEAR'CMDq)qTEXT'CMDERECOVER'WORKAj|jVERIFY'CMDEVERIFY'FILEINIT'FILEJ GET'REC'LEN{>{OPEN'FILEOB'NEW'CMDCLEAR'CMDq)qTEXT'CMDERECOVER'WORKAj|jVER @3pL$#P " 4I"80  SG$0 Έǔ SG$ 0 $MF SG$ 00 4(4 SG$ X0 Dd SG$ 0 Tp SG$ 0 d$D SG$ 0 t   SG$ 0 x SG$! 0 \ SG$!H0 d YT SG$!p0 SG$!0 G /| SG$!0 H SG$!0 ߤ SG$"0 ;% SG$0 @ SG$"`0 & SG$"0 $P$ SG$"0 4>, SG$ h $S0$CSEG$ $S1$CSEG$ $S2$CSEG$ $S3$CSEG$ $S4$CSEG$ $S5$CSEG$ $S6$CSEG$ $S7$CSEG$ $S8$CSEG$ $S9$CSEG$ $Sa$CSEG$ $Sb$CSEG$ $Sc$CSEG$ $Sd$CSEG$ $Se$CSEG$ $Sf$CSEG$ $S10$CSEG$ $S11$CSEG$ $S12$CSEG$ $S13$CSEG$@ 1@HxP4jpQ|G:r$ttuu HP30315 A.05.083 81$Header: xl0.s,v 1.6 86/06/26 17:28:03 cary Exp $X 66XX FǔtX ŬFX q4040X d^xd^xX ]7h7hX DDX ݤ ݤX b¸ ¸8X %\ \TX Tw YTwpX O^ ^nX |r /|r^X  > >*^X  ^FߤFX  %X  8@T@TZ X  x<<4dX $p$pPbX Hd,Hdlz0X 8tHX HtX IuX Xu>(@>(@@>(H@4Y 7Y FǔY ŬFY q404Y d^xdY ]7hY DDY ݤ Y b¸ Y %\ \Y Tw YTY O^ Y |r /|Y > Y ^FߤY %Y 8@TY x<Y $p$Y Hd,Y t@ X_ K?K?8 @ K?'d''($(4(())\))**X**++$+`+,,l,dt,|,,-l--..p.x . / /@ /P / / 0 0x 0   .p,)'\'4 h ' 'h6t'\'l'''(()()T)l)t)|)))***8++8+++++, ,,$,\,`,-d--. .$.,.4.h.p....//0D0p00000 z %@*4+ a( U` 2"䲴dDl? jDl?Dm?Dn?Do?4G d d d d d4dIz?1IIw? !L d d 0ldl 0lц#0G C ь )  &-ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4Iz?)DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц]Dn?Dl?Dm?G d d d4Iz?! d 0lDa?! AAd,@uDl? bDo?Dl?Dm?Dn?G d d d d4Iz?@dݴdDl? jDl?Dm?Dn?Do?4dG d d d d d4HIz?1IIw? !L d d 0ldl 0lц#0G C ь )  &-ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4nIz?)DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц]Dn?Dl?Dm?G d d d4Iz?! d 0lDa?! AAd,@uDl? bDo?Dl?Dm?Dn?G d d d d4Iz?@dݴdDl? jDl?Dm?Dn?Do?4dG d d d d d4 Iz?1IIw? !L d d 0ldl 0lц#0G C ь )  &-ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4 Iz?)DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц]Dn?Dl?Dm?G d d d4 &Iz?! d 0lDa?! AAd,@uDl? bDo?Dl?Dm?Dn?G d d d d4 <Iz?@dݴdDl? jDl?Dm?Dn?Do?4dG d d d d d4*Iz?1IIw? ) 4! >L d d 0ldl 0lц#8G C ь )  &) 4- >ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4PIz?)DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4hIz?! d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4~Iz?@d42@ _ K?K?8 @ K?ee\eeefdfxfg ghgptg|hh0h@hhiihiijjhjjk$k8ktkl(l0 -lx 5l =l @m Am Hm Jm Mn0 Tn _nno0o\olopp< p'p2pq@qqqrPrdrrsTs\RsZsbt$et4ftmtouru\yuuvv\v v ww,whwx*  usTpnl(ighe  d8'( ' '(~e eeTeXef\ffggg$g,g`ghgxggghhi4i`ixiiiiij jjHkkLkkkkkl l(l8lpltlmmmn(n@nHnPnnnnnoopp`ppppppqq8q<qtrHrxrrssssLsTsdsssttu(uTulutu|uuuvvv<ww@wwwwwxx z %@*42p+ a( U` 2"䲴dDl? jDl?Dm?Dn?Do?4fG d d d d d4Iz?IIw? !L d d 0ldl 0lц#0G C ь )  &-ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4Iz? DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц]Dn?Dl?Dm?G d d d4Iz? d 0lDa?! AAd,@uDl? bDo?Dl?Dm?Dn?G d d d d4Iz>@dݴdDl? jDl?Dm?Dn?Do?4dG d d d d d4 Iz?IIw? !L d d 0ldl 0lц#0G C ь )  &-ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4 Iz? DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц]Dn?Dl?Dm?G d d d4 6Iz? d 0lDa?! AAd,@uDl? bDo?Dl?Dm?Dn?G d d d d4 LIz>@dݴdDl? jDl?Dm?Dn?Do?48G d d d d d4Iz?IIw? ) 4! NL d d 0ldl 0lц#8G C ь )  &) 4- NddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4>Iz? DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4VIz? d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4lIz>@dݴdDl? jDl?Dm?Dn?Do?4HG d d d d d4jIz?IIw? ) 4!nL d d 0ldl 0lц#8G C ь )  &) 4-nddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4Iz? DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4Iz? d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4Iz>@dݴdDl? jDl?Dm?Dn?Do?4NG d d d d d4Iz?IIw? ) 4!L d d 0ldl 0lц#8G C ь )  &) 4-ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d46Iz? DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4NIz? d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4dIz>@dݴdDl? jDl?Dm?Dn?Do?4HG d d d d d4!Iz?IIw? ) 4! fL d d 0ldl 0lц#8G C ь )  &) 4- fddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4!Iz? DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4!Iz? d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4!Iz>@dݴdDl? jDl?Dm?Dn?Do?4^G d d d d d4(Iz?IIw? ) 4!L d d 0ldl 0lц#8G C ь )  &) 4-ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4(Iz? DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4(Iz? d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4)Iz>@dݴdDl? jDl?Dm?Dn?Do?4hG d d d d d42Iz?IIw? ) 4! L d d 0ldl 0lц#8G C ь )  &) 4- ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d42&Iz? DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d42>Iz? d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d42TIz>@d42p2@x_ K?K?8 @ K?@hx H5L=EHITPhRU\Xg`lt|(8` 9 A` I L M T0 Vl Y ` k(p(V^(fTidjqs4v}8H\LT    !0 " ) + .` 5 @#[#ch#k#n#o(#v<#xx#{#4#  L X t#Z ' 'd l DH|L| PXh,Xpx@D 0hlx 8@H| X04l@pDL\(Xpx H P,4 z %@2"68+ a( U` 2"䲴dDl? jDl?Dm?Dn?Do?4ZG d d d d d4fIz? IIw? !L d d 0ldl 0lц#0G C ь )  &-ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4Iz?DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц]Dn?Dl?Dm?G d d d4Iz> d 0lDa?! AAd,@uDl? bDo?Dl?Dm?Dn?G d d d d4Iz>@dݴdDl? jDl?Dm?Dn?Do?4fG d d d d d4 zIz? IIw? !L d d 0ldl 0lц#0G C ь )  &-ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4 Iz?DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц]Dn?Dl?Dm?G d d d4 Iz> d 0lDa?! AAd,@uDl? bDo?Dl?Dm?Dn?G d d d d4 Iz>@dݴdDl? jDl?Dm?Dn?Do?4G d d d d d4Iz? IIw? ) 4! L d d 0ldl 0lц#8G C ь )  &) 4- ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4Iz?DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4&Iz> d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4<Iz>@dݴdDl? jDl?Dm?Dn?Do?4bG d d d d d4Iz? IIw? ) 4!>L d d 0ldl 0lц#8G C ь )  &) 4->ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4Iz?DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4Iz> d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4Iz>@dݴdDl? jDl?Dm?Dn?Do?4rG d d d d d4#Iz? IIw? ) 4!L d d 0ldl 0lц#8G C ь )  &) 4-ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4$Iz?DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4$Iz> d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4$4Iz>@dݴdDl? jDl?Dm?Dn?Do?4tG d d d d d4.Iz? IIw? ) 4!6L d d 0ldl 0lц#8G C ь )  &) 4-6ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4.Iz?DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4.Iz> d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4/Iz>@dݴdDl? jDl?Dm?Dn?Do?4dG d d d d d47Iz? IIw? ) 4!L d d 0ldl 0lц#8G C ь )  &) 4-ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d47Iz?DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d47Iz> d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d47Iz>@dݴdDl? rDl?Dm?Dn?Do?4`G d d d d d#!79,Iz? IIw? ) 04!L d d 0ldl 0lц#HG C ь )  &) 04-ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d#!79RIz?DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d#!79jIz> d 0lDa?! AAd,@UDl? jDo?Dl?Dm?Dn?G d d d d#!79Iz>@dݴdDl? rDl?Dm?Dn?Do?4NG d d d d d#!79Iz? IIw? )!4!L d d 0ldl 0lц#HG C ь )  &)!4-ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d#!79Iz?DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d#!79Iz> d 0lDa?! AAd,@UDl? jDo?Dl?Dm?Dn?G d d d d#!79Iz>@d#A7Z82@ _ K?K?8 @ K?t$tltttutuu vvxvsv{wwHwXwwx(xxx y, y y y z< zP z z {@ {Hb{j{r|u| v|}||}H}}}~H~t~T%Xh|lt<Lt t0D4  l}{@xvxt s( ' '(tt,tdthtuluuvv,v4v<vpvxvvvvwxxLxxxxxxxxy$y(y`z4zdzzzz{{8{@{P{{{||}}@}X}`}h}}}}}~(~,xPT` (0dl|@lT(X,4 z %@*49+ a( U` 2"䲴dDl? jDl?Dm?Dn?Do?4ZG d d d d d4Iz?IIw? !L d d 0ldl 0lц#0G C ь )  &-ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4 Iz? DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц]Dn?Dl?Dm?G d d d4$Iz? d 0lDa?! AAd,@uDl? bDo?Dl?Dm?Dn?G d d d d4:Iz>@dݴdDl? jDl?Dm?Dn?Do?4jG d d d d d4Iz?IIw? ) 4!<L d d 0ldl 0lц#8G C ь )  &) 4-@dݴdDl? jDl?Dm?Dn?Do?4^G d d d d d4Iz?IIw? ) 4!LL d d 0ldl 0lц#8G C ь )  &) 4-LddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4Iz? DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4Iz? d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4Iz>@dݴdDl? jDl?Dm?Dn?Do?4@G d d d d d4Iz?IIw? ) 4!L d d 0ldl 0lц#8G C ь )  &) 4-ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4Iz? DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4Iz? d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4(Iz>@dݴdDl? jDl?Dm?Dn?Do?4jG d d d d d4%Iz?IIw? ) 4!*L d d 0ldl 0lц#8G C ь )  &) 4-*ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4&Iz? DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4&4Iz? d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4&JIz>@dݴdDl? jDl?Dm?Dn?Do?40G d d d d d4)Iz?IIw? ) 4!LL d d 0ldl 0lц#8G C ь )  &) 4-LddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4)Iz? DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4)Iz? d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4)Iz>@dݴdDl? jDl?Dm?Dn?Do?4lG d d d d d43^Iz?IIw? ) 4! L d d 0ldl 0lц#8G C ь )  &) 4- ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d43Iz? DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d43Iz? d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d43Iz>@dݴdDl? jDl?Dm?Dn?Do?4FG d d d d d49Iz?IIw? ) 04!L d d 0ldl 0lц#8G C ь )  &) 04-ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d49Iz? DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d49Iz? d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d49Iz>@d492@X_ K?K?8 @ K?99 :L:t:;; ;T#;*<5<4[>df>lB>J?R?,U?<V?]?_@ b@di@r@vA~A`AABB,BhBCC$ClCCCD|DDE$EEEF$FPF`FFG0GGGH4HHHID"IX$I'I.JH9JP YJ aJ iK lK( mK tK vK yLP L L L MP M| M N N N\ N O O O` O O O Pp P P Q Qt Q| Q R RD RT R R !S$ $S| +S 6ST($T|,T/T0U87UL9U<UCV<L  SQtOLJHGEC@>d<9 9` ' '^\9999:,:;,;x;;;;<<<>> >(>\>d>t>>>??@0@\@t@|@@@@AA A@BB@BBBBBCCC,CdChCDtDDEE4E<EDExEEEEFFGGTGGGGGGGH,H0HhI<IlIIIJJ J@JHJXJJJKKLLHL`LhLpLLLLLM0NN4NNNNNOOO OXO\OPhPPQQ(Q0Q8QlQtQQQQRRSHStSSSSSST T$T\U0U`UUUUVV4V< z %@*4+ a( U` 2"䲴dDl? jDl?Dm?Dn?Do?4"G d d d d d4Iz>IIw? !L d d 0ldl 0lц#0G C ь )  &-ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4<Iz>DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц]Dn?Dl?Dm?G d d d4TIz> d 0lDa?! AAd,@uDl? bDo?Dl?Dm?Dn?G d d d d4jIz>@dݴdDl? jDl?Dm?Dn?Do?4$G d d d d d4xIz>IIw? !lL d d 0ldl 0lц#0G C ь )  &-lddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4Iz>DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц]Dn?Dl?Dm?G d d d4Iz> d 0lDa?! AAd,@uDl? bDo?Dl?Dm?Dn?G d d d d4Iz>@dݴdDl? jDl?Dm?Dn?Do?4"G d d d d d4Iz>IIw? !L d d 0ldl 0lц#0G C ь )  &-ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4Iz>DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц]Dn?Dl?Dm?G d d d4Iz> d 0lDa?! AAd,@uDl? bDo?Dl?Dm?Dn?G d d d d4Iz>@dݴdDl? jDl?Dm?Dn?Do?4"G d d d d d4Iz>IIw? !L d d 0ldl 0lц#0G C ь )  &-ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4 "Iz>DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц]Dn?Dl?Dm?G d d d4 :Iz> d 0lDa?! AAd,@uDl? bDo?Dl?Dm?Dn?G d d d d4 PIz>@dݴdDl? jDl?Dm?Dn?Do?4$G d d d d d4 ^Iz>IIw? ) 4! RL d d 0ldl 0lц#8G C ь )  &) 4- RddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4 Iz>DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4 Iz> d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4 Iz>@dݴdDl? jDl?Dm?Dn?Do?4"G d d d d d4 zIz>IIw? ) 4! L d d 0ldl 0lц#8G C ь )  &) 4- ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4 Iz>DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4 Iz> d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4 Iz>@dݴdDl? jDl?Dm?Dn?Do?4$G d d d d d4Iz>IIw? ) 4! L d d 0ldl 0lц#8G C ь )  &) 4- ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4DIz>DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4\Iz> d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4rIz>@dݴdDl? jDl?Dm?Dn?Do?4$G d d d d d4Iz>IIw? ) 4!tL d d 0ldl 0lц#8G C ь )  &) 4-tddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4Iz>DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4Iz> d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4Iz>@dݴdDl? jDl?Dm?Dn?Do?4"G d d d d d4Iz>IIw? ) 4!L d d 0ldl 0lц#8G C ь )  &) 4-ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4>Iz>DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4VIz> d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4lIz>@dݴdDl? jDl?Dm?Dn?Do?4"G d d d d d4Iz>IIw? ) 4!nL d d 0ldl 0lц#8G C ь )  &) 4-nddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4Iz>DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4Iz> d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4Iz>@dݴdDl? jDl?Dm?Dn?Do?4$G d d d d d4Iz>IIw? ) 4!L d d 0ldl 0lц#8G C ь )  &) 4-ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4>Iz>DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4VIz> d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4lIz>@dݴdDl? jDl?Dm?Dn?Do?4"G d d d d d4HIz>IIw? ) 4! nL d d 0ldl 0lц#8G C ь )  &) 4- nddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4nIz>DuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4Iz> d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4Iz>@d42@_ K?K?8 @ K?(px |DT$|s({|8L<D{ DDpP  kT s { ~ d x   h p 8 H    p  &  p   ,@| 08]empqxz}8ks8{d~tDHXl\d\dl,o<pwy |d  d    4 p  $ , t        ,# .  ,Xh8<L`PXemu x0yX!!\!!!!0!l!!(!0&|&'' '' ''<''$**D*p****T***+d++++x+++$++--,-X-h-- - <- - -!0_!L0g!0o!0r!0s"`0z"t0|"0# 0#l0#t3#3$3$@3$P3$3$3%$3%3%4%8o&48w&8&8&8'H8'\8'8'8(T8(\:(:(:)(:)8:):):* :*h:*:  (T%#l (P  $\0h<| : ' '7H 0hlp08@t|Ht $\0`4<L<T\d$(tLP\$,`hx<hP$T(0@x|0HPXh@D|P T\l0\t|   D  H       $ 4 l p  |   $ < D L      \48pDt HP`$Phpx<D (8tx4LT\$,x \`p4<D|   `      !!D!H!"X""###$#,#d#l#|###$$%H%x%%%%%%&,&0&h'@'p''(( ((L(T(d((())*0*`*x**** z %@2"06+ a( U` 2"䲴dDl? jDl?Dm?Dn?Do?4LG d d d d d4Iz>IIw? !L d d 0ldl 0lц#0G C ь )  &-ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4Iz>yDuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц]Dn?Dl?Dm?G d d d4Iz>q d 0lDa?! AAd,@uDl? bDo?Dl?Dm?Dn?G d d d d4Iz>i@dݴdDl? jDl?Dm?Dn?Do?42G d d d d d4 Iz>IIw? !L d d 0ldl 0lц#0G C ь )  &-ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4 4Iz>yDuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц]Dn?Dl?Dm?G d d d4 LIz>q d 0lDa?! AAd,@uDl? bDo?Dl?Dm?Dn?G d d d d4 bIz>i@dݴdDl? jDl?Dm?Dn?Do?4G d d d d d4 Iz>IIw? ) 4! dL d d 0ldl 0lц#8G C ь )  &) 4- dddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4 Iz>yDuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4 4Iz>q d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4 FIz>i@dݴdDl? jDl?Dm?Dn?Do?4$G d d d d d4 Iz>IIw? ) 4! HL d d 0ldl 0lц#8G C ь )  &) 4- HddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4 ,Iz>yDuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4 DIz>q d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4 VIz>i@dݴdDl? jDl?Dm?Dn?Do?4.G d d d d d4Iz>IIw? ) 4! XL d d 0ldl 0lц#8G C ь )  &) 4- XddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4Iz>yDuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4Iz>q d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4*Iz>i@dݴdDl? jDl?Dm?Dn?Do?4(G d d d d d4Iz>IIw? ) 4!,L d d 0ldl 0lц#8G C ь )  &) 4-,ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4 Iz>yDuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4$Iz>q d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4:Iz>i@dݴdDl? jDl?Dm?Dn?Do?4@G d d d d d4Iz>IIw? ) 4!<L d d 0ldl 0lц#8G C ь )  &) 4-yDuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d46Iz>q d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4LIz>i@dݴdDl? jDl?Dm?Dn?Do?4BG d d d d d4Iz>IIw? ) 4!NL d d 0ldl 0lц#8G C ь )  &) 4-NddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4Iz>yDuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4Iz>q d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d40Iz>i@dݴdDl? jDl?Dm?Dn?Do?4*G d d d d d4Iz>IIw? ) 4! 2L d d 0ldl 0lц#8G C ь )  &) 4- 2ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4Iz>yDuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4Iz>q d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4Iz>i@dݴdDl? jDl?Dm?Dn?Do?4 G d d d d d4 Iz>IIw? ) 4! L d d 0ldl 0lц#8G C ь )  &) 4- ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4! Iz>yDuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4!$Iz>q d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4!6Iz>i@dݴdDl? jDl?Dm?Dn?Do?4"G d d d d d4#Iz>IIw? ) 4!8L d d 0ldl 0lц#8G C ь )  &) 4-8ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4#6Iz>yDuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4#NIz>q d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4#`Iz>i@dݴdDl? jDl?Dm?Dn?Do?4G d d d d d4$Iz>IIw? ) 4!bL d d 0ldl 0lц#8G C ь )  &) 4-bddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4$Iz>yDuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4%Iz>q d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4%Iz>i@dݴdDl? jDl?Dm?Dn?Do?4"G d d d d d4'Iz>IIw? ) 4!L d d 0ldl 0lц#8G C ь )  &) 4-ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4'@Iz>yDuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4'XIz>q d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4'nIz>i@dݴdDl? jDl?Dm?Dn?Do?4&G d d d d d4*Iz>IIw? ) 4!pL d d 0ldl 0lц#8G C ь )  &) 4-pddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4*.Iz>yDuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4*FIz>q d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4*\Iz>i@dݴdDl? jDl?Dm?Dn?Do?4"G d d d d d4-*Iz>IIw? ) 4! ^L d d 0ldl 0lц#8G C ь )  &) 4- ^ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d4-PIz>yDuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d4-hIz>q d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d4-~Iz>i@dݴdDl? jDl?Dm?Dn?Do?46G d d d d d41ZIz>IIw? ) 4! L d d 0ldl 0lц#8G C ь )  &) 4- ddDn Ԡ 4 d d d d 0ldl 0lDDIu? @јDn?Dl?Dm?G C d d d d41Iz>yDuՉ  Ԡ щDl? Da? ! A`U AAֵ Ԡ d5@Da?4.! A`Lц\Dn?Dl?Dm?G d d d41Iz>q d 0lDa?! AAd,@eDl? bDo?Dl?Dm?Dn?G d d d d41Iz>i@dݴdDl? jDl?Dm?Dn?Do?4FG d d d d d48Iz>IIw? ) 04!L d d 0ldl 0lц#8G C ь )  &) 04-ddDn Ԡ 4