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