7 22FL ...#LIS  K0UMMENDS 
   9 22_= ... SEG  UMMENDS,,,,G170   
   7 23DW ...#OPT G170 = 0   
   6 23YG ...#SKI G170&1 
  16 24D6 ...#  FOR UGUG MEND M170 (VARIABLE REMOTE *LP WIDTHS)  
  12 24XQ ...      SEGENTRY K2UMMENDS,(GEOERR)   
  12 25CB ...      SEGENTRY K11UMMENDS,(GEOERR)  
  12 25X2 ...      SEGENTRY K12UMMENDS,(GEOERR)  
  11 26BL ...      SEGENTRY K13UMMENDS,UM8022
  13 26W= ...[     UM8022, VARYING REMOTE LP WIDTHS  
   5 27*W ...UM8022  
  17 27TG ...[     THIS MEND PERMITS VARIOUS LINE WIDTHS ON REMOTE   
  18 28*6 ...[     LINE PRINTERS RUN THROUGH AN IPB. THE PRINTER'S WIDTH 
  18 28SQ ...[     IS DEFINED BY ITS WIDTHN PROPERTY WHERE N IS THE NO OF
  15 29#B ...[     PRINT POSITIONS & WIDTHN IS (PERM,INCL).  
  20 29S2 ...[     THE LENGTH OF THE ACTLF/GREMOTE BLOCK IS INCREASED AFTER BEING
  18 2=?L ...[     SET UP, BY 1 WORD, IWIDTH, TO HOLD THE PRINTER WIDTH. 
  18 2=R= ...[     IF THE PRINTER DOESN'T HAVE A WIDTHN PROPERTY IWIDTH  
  18 2?=W ...[     IS SET TO A7021WIDTH SO ANY WIDTH7020 MACRO MUST COME 
   9 2?QG ...[     BEFORE THIS MEND. 
  17 2#=6 ...[     SAT 1S REQUIRE A MOD FROM CTL FOR WIDTHS > 132.   
  16 2#PQ ...[     ROUTINE FOR LENGTHENING ACTLF FOR IWIDTH WORD 
  15 2*9B ...[     AND SETTING THIS WORD TO LENGTH REQUIRED  
  17 2*P2 ...      LDX   6  FX2                 [INC ACTLF LEN BY 1  
  15 2B8L ...      ALTLENGD 6,ACTLFLEN+GREMOTELEN+1,/  [77   
  10 2BN= ...      LDN   6  A7021WIDTH   
   9 2C7W ...      STO   6  IWIDTH(2)
  10 2CMG ...      MHUNTW 1,GOUT,GPROPNOS
  18 2D76 ...      BNG   1  XITT                [PROPS BLOCK NOT PRESENT 
  18 2DLQ ...      LDX   6  GPROPNUM+1(1)       [PROPNUM FOLLOWING C PROP
  16 2F6B ...      BZE   6  XITT                [NO OTHER PROPS  
  11 2FL2 ...      SETNCORE 10,3,FILE,FABSNB 
   9 2G5L ...      CALL  7  SYSPROP  
   6 2GK= ...      +10   
   7 2H4W ...      12HSYSTEM 
   8 2HJG ...      12HPROPERTY   
   5 2J46 ...      +1
   5 2JHQ ...      +1
   6 2K3B ...      4HB1  
   5 2KH2 ...SYSPROP 
   8 2L2L ...      LDN   0  A1(3)
   8 2LG= ...      MOVE  7  10   
  10 2L_W ...      OPEN     XBRKIN,READ  
  10 2MFG ...      MFREE    FILE,FABSNB  
  21 2M_6 ...      LDN   3  1                   [1ST CONS PROP OFFSET 1 FROM C PROP  
  10 2NDQ ...XTRY  APROPNAME 6,0,XNOTWID 
   9 2NYB ...      LDX   7  ACOM1(2) 
  13 2PD2 ...      BXU   7  WIDTH(1),XNOTWID    [WIDT
   9 2PXL ...      LDCH  7  ACOM2(2) 
  13 2QC= ...      ERN   7  #50                 [H   
  17 2QWW ...      BNZ   7  XNOTWID             [LOOK AT NEXT PROPNUM
   7 2RBG ...      CLOSETOP  
   7 2RW6 ...      BCHX  2  /
   7 2S*Q ...      STOZ     4
   7 2STB ...      STOZ     5
   7 2T*2 ...      LDN   0  7
   9 2TSL ...XCONV CDB   4  ACOM2(2) 
   7 2W#= ...      BCHX  2  /
   8 2WRW ...      BCT   0  XCONV
  18 2X?G ...      BXGE  5  AUMAXW(1),XITT         [MAX LENGTH OF LINE +1
   8 2XR6 ...      BZE   5  XITT 
   8 2Y=Q ...      SMO      FX2  
   9 2YQB ...      STO   5  IWIDTH   
   5 2_=2 ...XITT  UP
   5 2_PL ...XNOTWID 
  17 329= ...      ADN   3  1                   [STEP TO NEXT PROPNUM
   9 32NW ...      SBN   3  ATTMAX   
  15 338G ...      BZE   3  XNOWPROP            [NO MORE LEFT
   9 33N6 ...      ADN   3  ATTMAX   
  10 347Q ...      MHUNTW 1,GOUT,GPROPNOS
  16 34MB ...      SMO      3                   [X3=1 TO ATTMAX-1
  10 3572 ...      LDX   6  GPROPNUM(1)  
  16 35LL ...      BNZ   6  XTRY                [TRY NEXT PROPNUM
   5 366= ...XNOWPROP
   7 36KW ...      CLOSETOP  
   8 375G ...      BRN      XITT 
   5 37K6 ...XBRKIN  
  20 384Q ...      MFREE    FILE,FABSNB         [BREAKIN WHILE OPENING SYSPROP   
  14 38JB ...      BRN      XITT                [GIVE UP 
   6 3942 ...WIDTH 4HWIDT
   9 39HL ...      SEGENTRY AUMAXW   
  18 3=3= ...      161                          [MAX WIDTH OF LINES + 1  
   4 3=GW ...#END
   2 ####
   3 ##RY ...
   6 ____ ...260260240012