(George Source)
Macros used: COMERRX, ENDCOM, GEOERR, GEOPACK, HUNT, HUNT2OPT, INFORM, MENDAREA, MHUNT, MHUNTW, MONOUT, OUTBLOCK, OUTBLOCN, OUTNUM, OUTPACK, OUTPARAM, SEGENTRY, ZERRORX
22FL #SEG ATTJOUNL [JOHN BAILEY. 22^= #LIS K0ATTACH>K0COMMAND>K0ALLGEO>K0GREATGEO 23DW 8HATTJOUNL 23YG # 24D6 # 24XQ # JOURNAL MESSAGES FOR ATTACH AND DETACH COMMANDS 25CB # 25X2 SEGENTRY K1ATTJOUNL,X1ATTJOUNL 26BL X1ATTJOUNL 26W= SMO 6 27*W BRN START 27TG START BRN OMES 28*6 BRN RMESS 28SQ BRN TECH 29#B BRN TACH 29S2 BRN TOOL 2=?L BRN NOLIN 2=*T ... BRN ZOLREL 2=BY ... BRN RMESS1 2=D4 ...ZOLREL 2=G? ... MHUNTW 3,IDF,COINF 2=JG ... LDEX 4 ANUM(3) 2=LP ... OUTPARAM 4,APARA,IDF,COINF 2=NY ... ZERRORX JCONLREL 2=R= UNCAL LDX 2 FX2 [RELEASE PROFLAG FOR MPX 2?=W LDX 6 AWORK4(2) 2?QG ANDX 6 HALFTOP 2#=6 SRL 6 10 2#PQ LDX 2 AWORK1(2) 2*9B HUNT2OPT 2,AMXOR,ALINES 2*P2 BPZ 2 MBLK 2B8L BRN RMESS 2BN= MBLK ADX 2 6 2C7W LDCT 0 #400 2CMG ANDX 0 A1+FOURTHWD(2) 2D76 ERS 0 A1+FOURTHWD(2) 2DLQ MZERR COMERRX 0(1) 2F6B OMES OUTBLOCN 10 2FL2 GEOPACK 6,AWORK4(2),1 2G5L OUTPACK 6,1,GEOPER 2GK= LDX 6 AWORK4(2) [LINE/IDE NO 2H4W SRL 6 12 2HJG BZE 6 UJUM 2J46 OUTNUM 6,0 2JHQ UJUM HUNT 3,IDF,COINF 2K3B BPZ 3 SRFY 2KH2 GEOERR 1,NOIDFCO 2L2L SRFY LDX 4 ANUM(3) [NO OF CHARS IN CONCEP NAME 2LG= ANDN 4 #7777 2L^W LDX 5 A1(3) [CONCEPTUAL LINE/IDE 2MFG SRL 5 12 2M^6 OUTPARAM 4,APARA,IDF,COINF 2NDQ OUTNUM 5,0 2NYB LDX 0 AWORK3(2) 2PD2 SLL 0 1 2PXL BPZ 0 SYFR 2QC= MHUNT 3,CPAR,JSCE 2QPM ... LDX 4 JSOURCE3(2) 2R44 ... BNG 3 RRRRR 2RBG LDX 0 JSCEC(3) [PROPERTY CLUSTER ADDRESSED 2RW6 STO 0 JSOURCE3(2) 2S8H ...RRRRR INFORM 2,ATTACIPB [IPB ATTACHED 2SGY ... STO 4 JSOURCE3(2) 2STB BRN URET 2T*2 SYFR BZE 6 MAT 2TSL MONOUT ATTACHMP [MPX ATTACHED 2W#= BRN URET 2WRW MAT MONOUT ATTACHUP [UPX ATTACHED 2X?G URET ENDCOM 2XR6 RMESS GEOPACK 6,AWORK4(2),1 2Y=Q OUTPACK 6,1,GEOPER 2YQB ZERRORX JMOPPEDOFF 2YTG ...RMESS1 2YYL ... GEOPACK 6,AWORK4(2),1 2^3Q ... OUTPACK 6,1,GEOPER 2^6W ... ZERRORX JMOPNCOMP 2^=2 TECH LDX 2 FX2 2^PL LDX 3 AWORK4(2) 329= SRL 3 12 32NW OUTNUM 3,0 [LINE/IDE NO 338G GEOPACK 4,AWORK4(2),1 [GEO UNIT NO 33N6 OUTPACK 4,1,GEOPER 347Q LDX 0 AWORK3(2) 34MB SLL 0 1 3572 BPZ 0 ZU1 35LL ZERRORX COIDATAL [IDENTIFIER ALREADY ATTACHED 366= ZU1 BZE 3 UNXI 36KW ZERRORX CONATTAL [LINE ALREADY ATTACHED 375G UNXI ZERRORX CONUNTAL [UNIT ALREADY ATTACHED 37K6 TACH LDX 3 AWORK4(2) 384Q SRL 3 12 38JB OUTNUM 3,0 [LINE/IDE ATTACHED 3942 GEOPACK 4,AWORK4(2),1 39HL OUTPACK 4,1,GEOPER [GEO UNIT NO 3=3= LDX 0 AWORK3(2) 3=GW SLL 0 1 3?2G BNG 0 UI3 3?G6 BZE 3 UNX 3?^Q CALL 1 UNCAL 3#FB +CONATTAL 3#^2 UI3 ZERRORX COIDATAL 3*DL UNX CALL 1 UNCAL 3*Y= +CONUNTAL 3BCW TOOL LDN 3 11 3BXG OUTBLOCK 3 3CC6 OUTNUM ACOMMUNE1(2),0 [CONC.LINE NO 3CWQ MHUNT 3,IDF,COINF 3DBB LDX 4 ANUM(3) 3DW2 ANDN 4 #7777 3F*L OUTPARAM 4,APARA,IDF,COINF 3FT= LDX 0 AWORK3(2) 3G#W SLL 0 1 3GSG BNG 0 W1 3H#6 CALL 1 UNCAL [LINE NOT AVAILABLE ON THIS CONCEPTUA 3HRQ +CONLARGE 3J?B W1 ZERRORX COIDLGE [IDE.NOT AVAILABLE ON THIS CONCEPTUAL 3JR2 NOLIN LDX 6 AWORK4(2) 3K=L SRL 6 12 3KQ= OUTNUM 6,0 3L9W LDXC 0 AWORK3(2) 3LPG ADXC 0 0 [J. UNLESS IPB. 3M96 BCC ZMPX 3MNQ ZERRORX JIDEBUSY 3N8B ZMPX BZE 6 NOUT 3NN2 ZERRORX JLINEBUSY 3P7L NOUT ZERRORX JUNITBUSY 3PM= # 3Q6W # 3QLG MENDAREA 20,K99ATTJOUNL 3R66 #END ^^^^ ...64217623000200000000