11 22FL #OPT K0FORMLOOP = 0 10 22_= #LIS K0FORMLOOP 9 23DW #SEG FORMLOOP 7 23YG 8HFORMLOOP 4 24D6 [ 17 24XQ SEGENTRY K1FORMLOOP,ZFORMLOOP1 [ ATTRIBUTE COMMAND 16 25CB SEGENTRY K2FORMLOOP,ZFORMLOOP2 [ SETPROP MACRO 6 25JJ ...#UNS FLLP4B 20 25PQ ... SEGENTRY K3FORMLOOP,ZFORMLOOP3 [ATTRIBUTE COMMAND (CENTRAL CASE) 4 25R4 ...[ 17 25SB ...[ SEGMENT ENTRY POINTS K40,K41 USED BY LFSOFTDEFLT MACRO 4 25TN ...[ 4 25TY ...[ 16 25W8 ...[ SEGMENT ENTRY POINTS K50 - K57 ARE USED BY 15 25WD ...[ RESTORE TIME MACRO - LFDBAID 4 25WN ...[ 6 25X2 #UNS FL7502B 4 26BL ...#SKI 4 26W= ( 6 27*W ZFORMLOOP1 6 27TG ZFORMLOOP2 8 28*6 SETREP OK 5 28SQ UP 4 29#B ) 6 29S2 #UNS FL7502B 4 2=?L ( 4 2=R= [ 4 2?=W [ 19 2?QG [************************************************************ 4 2#=6 [ 7 2#PQ [ PRESET DATA 4 2*9B [ 19 2*P2 [************************************************************ 4 2B8L [ 5 2BN= PFABSNB 5 2C7W 10 8 2CMG 12HFORMATLOOPS 6 2D76 12H 5 2DLQ 1 15 2F6B 0 [ LATEST GEN. 15 2FL2 0 [ ANY LANG. 20 2G5L PGRAPHIC #40000012 [ TYPE / MODE FOR GRAPHIC FILE 15 2GK= PCORRUPT +JINCCORR [ ^CORRUPT^ 15 2H4W POFFLINE +JINCOFF [ ^OFFLINE^ 21 2HJG PJFLDATA +JFLDATA [ ERROR : FORMAT LOOP DATA FILE ... 21 2HPN ...PJFLOUTPUT +JFLOUTPUT [ OUTPUT TEMPORARILY ABANDONED ... 21 2HWW ...PFREEPROP3 +FREEPROP3 [ PLEASE FREE .. FORMAT LOOP DATA ... 8 2HY* ...PCENDEF 4H@000 10 2H_S ... SEGENTRY K40FORMLOOP 9 2J3? ... 4H8 40 9 2J4Q ... 4H003_ 10 2J69 ... SEGENTRY K41FORMLOOP 9 2J7N ... 4H7B01 19 2J9# ...PSTART 4H_;PP [ START FORMAT LOOP RED TAPE 19 2JF6 ...PEND 4H_;_T [ END FORMAT LOOP RED TAPE 6 2JNY ...#UNS FLLP4B 9 2JW6 ...#DEF PCENLEN=16 10 2K3B ...#DEF PSTARTLEN = 4 10 2KH2 #DEF PENDLEN = 4 15 2L2L #DEF PDEFAULTLEN = PSTARTLEN + PENDLEN 6 2L59 ...#UNS FLLP4B 4 2L7S ...( 5 2L=C ...PACTLFC 8 2L*2 ...#HAL ACTLF+CENTRAL,0 4 2LCK ...) 4 2LG= [ 19 2L_W [************************************************************ 4 2MFG [ 5 2M_6 SFABSNB 4 2NDQ [ 19 2NYB [************************************************************ 4 2PD2 [ 4 2PXL [ 17 2QC= [ SET UP FILE/FABSNB FOR OPENING FORMAT LOOP DATA FILE 4 2QWW [ 6 2RBG [ X7 - LINK 11 2RW6 [ ON EXIT X2 -> FILE/FABSNB + A1 4 2S*Q [ 7 2STB SBX 7 FX1 10 2T*2 SETNCORE 10,2,FILE,FABSNB 8 2TSL ADN 1 PFABSNB 7 2W#= ADN 2 A1 16 2WRW MOVE 1 10 [ PRESET CONTENTS 7 2X?G ADX 7 FX1 7 2XR6 EXIT 7 0 4 2Y=Q [ 19 2YQB [************************************************************ 4 2_=2 [ 6 2_PL SDATACHECK 4 329= [ 19 32NW [************************************************************ 4 338G [ 4 33N6 [ 9 347Q [ CHECK FORMAT LOOP DATA 4 34MB [ 6 3572 [ X6 - LINK 9 35LL [ ON EXIT X0 - ZERO - OK 11 366= [ NON-ZERO - ERROR 4 36KW [ 6 36R4 ...#UNS FLLP4BC 9 36Y= ... TRACEVER 3,FLDATCH 7 375G LDN 0 0 7 37K6 EXIT 6 0 4 384Q [ 19 38JB [************************************************************ 4 3942 [ 5 39HL SOPEN 4 3=3= [ 19 3=GW [************************************************************ 4 3?2G [ 4 3?G6 [ 10 3?_Q [ OPEN FORMAT LOOP DATA FILE 9 3#FB [ REQUIRES FILE/FABSNB 4 3#_2 [ 6 3*DL [ X7 - LINK 9 3*Y= [ ON EXIT X6 - ZERO - OK 14 3BCW [ X3 - RECORD POINTER 14 3BXG [ POS - FILE DOES NOT EXIST 12 3CC6 [ NEG - NOT AVAILABLE 15 3CWQ [ X5 - MESSAGE IDENTIFIER 4 3DBB [ 7 3DW2 SBX 7 FX1 4 3F*L [ 6 3FT= SOPENAGAIN 4 3G#W [ 14 3GSG OPEN (GEOERR),READ,QUERY,NOWAIT,LEAVE 15 3H#6 IF REP2,OK [ FILE OPENED 10 3HRQ MHUNT 2,FILE,ENT 14 3J?B AND +ETM(2),E,PGRAPHIC(1) [ GRAPHIC 5 3JR2 THEN 6 3K=L STEP 18 3KQ= IF EITHER,3,ZE [ FILE EMPTY OR CORRUPT 6 3KRH ...#UNS FLLP4B 4 3KSS ...( 9 3KW5 ... LDX 2 FX2 10 3KXB ... IF PZ,AWORK2(2) 7 3KYM ... THEN 6 3K_Y ...#UNS FLLP4BC 11 3L39 ... TRACEVER AWORK2(2),FLSTEP1 8 3L4G ... STEP 6 3L5R ... FI 14 3L74 ... OR EITHER,3,ZE [NO LP4B DATA 4 3L8* ...) 10 3L9W CALL 6 SDATACHECK 15 3LPG OR 0,NZ [ DATA ERROR 6 3M96 THEN 7 3MNQ CLOSE 11 3N8B LDX 5 PCORRUPT(1) 8 3NN2 NGN 6 1 6 3P7L ELSE 8 3PM= LDN 6 0 5 3Q6W FI 9 3QLG MFREE FILE,ENT 8 3R66 ELSF REP2,MAG 10 3R?# ... MHUNT 2,FILE,ENT 14 3RDG ... AND +ETM(2),E,PGRAPHIC(1) [ GRAPHIC 5 3RKQ THEN 5 3S5B RV 10 3SK2 IF REP2,ONLINE 6 3T4L THEN 10 3TJ= BRN SOPENAGAIN 10 3W3W [------------------ 6 3WHG ELSE 11 3X36 LDX 5 POFFLINE(1) 8 3XGQ NGN 6 1 5 3Y2B FI 9 3YG2 MFREE FILE,ENT 5 3Y_L ELSE 9 3_F= IF REP2,OK 6 3_YW THEN 7 42DG CLOSE 10 42Y6 MFREE FILE,ENT 5 43CQ FI 11 43Q7 ... IF EITHER,REP2,WRONG 9 444J ... OR REP2,MAG 6 44C2 THEN 10 44WL MFREE FILE,ENT 5 45B= FI 7 45TW LDN 6 1 5 46*G FI 9 46T6 MFREE FILE,FABSNB 7 47#Q ADX 7 FX1 7 47SB EXIT 7 0 4 48#2 [ 19 48RL [************************************************************ 4 49?= [ 5 49QW SPRSPLIT 4 4==G [ 19 4=Q6 [************************************************************ 4 4?9Q [ 4 4?PB [ 21 4#92 ...[ SPLIT PROPERTY NAMES IN & FORMAT INTO APERI/APROPS FORMAT 4 4#NL [ 4 4*8= [ 6 4*MW [ X7 - LINK 4 4B7G [ 7 4BM6 SBX 7 FX1 13 4C6Q SETNCORE ATTMAX*4+2,1,APERI,APROPS 10 4CLB MHUNT 3,APERI,APROPNOS 21 4F5= ADN 1 A1+2 [ X1 - POSITION FOR NEXT CHAR OF PROPERT 20 4FJW STO 1 4 [ X4 - POSITION FOR LENGTH OF NAME 7 4G4G ADN 1 1 7 4G69 ... LDN 5 0 9 4G7Y ... SEGENTRY K50FORMLOOP 5 4G9M ... NULL 5 4G?B ... NULL 9 4G*5 ... LDX 2 CHTEMP(3) 9 4GBS ... ADX 3 ADTEMP(3) 10 4GDH ... SEGENTRY K55FORMLOOP 5 4GG= ...SPRPERM 17 4GJ6 LDN 5 0 [ X5 - LENGTH OF NAME 18 4H3Q WHILE 2,NZ [ CHARACTER LEFT IN NAMES 14 4HHB DO [ SPLIT AT & 8 4J32 LDCH 0 0(3) 8 4JGL SBN 0 #26 13 4K2= IF 0,ZE [ & 6 4KFW THEN 8 4K_G LDX 1 4 17 4LF6 STO 5 0(1) [ LENGTH OF NAME 19 4LYQ ADN 1 5 [ POSITION FOR NEXT NAME 8 4MDB ADN 4 4 8 4MY2 LDN 5 0 6 4NCL ELSE 9 4NX= ADN 0 #26 16 4PBW DCH 0 0(1) [ COPY CHAR 8 4PWG BCHX 1 / 8 4QB6 ADN 5 1 5 4QTQ FI 7 4R*B SBN 2 1 7 4RT2 BCHX 3 / 6 4S#L REPEAT 7 4SS= SMO 4 17 4T?W STO 5 0 [ LENGTH OF LAST NAME 10 4T#X ... SEGENTRY K51FORMLOOP 6 4T*Y ... NULL 6 4TB_ ... NULL 6 4TD2 ... NULL 6 4TF3 ... NULL 6 4TG4 ... NULL 6 4TH5 ... NULL 6 4TJ6 ... NULL 10 4TK7 ... SEGENTRY K54FORMLOOP 6 4TL8 ... NULL 6 4TM9 ... NULL 6 4TN= ... NULL 6 4TP? ... NULL 6 4TQ# ... NULL 7 4TRG ADX 7 FX1 7 4W?6 EXIT 7 0 4 4WQQ [ 19 4X=B [************************************************************ 4 4XQ2 [ 6 4Y9L SSTARTBLOCK 4 4YP= [ 19 4_8W [************************************************************ 4 4_NG [ 4 5286 [ 11 52MQ [ SET UP ADATA/FORMLOOP BLOCK 9 537B [ ADD INITIAL RED TAPE 4 53M2 [ 6 546L [ X7 - LINK 13 54L= [ ON EXIT X2 -> ADDRESS FOR REST OF DATA 4 555W [ 7 55KG SBX 7 FX1 10 5656 VFREEW ADATA,FORMLOOP 11 56JQ SETUPCORE 6,2,ADATA,FORMLOOP 20 574B STOZ FORMPROP(2) [ CLEAR PROP NO. AS FOR DEFAULT LOOP 6 576_ ...#UNS FLLP4BC 9 579J ... TRACEVER 2,FLSTARTB 6 57#7 ...#UNS FLLP4B 4 57BQ ...#SKI 4 57F* ...( 8 57J2 ADN 1 PSTART 8 583L ADN 2 FORMDATA 15 58H= MVCH 1 PSTARTLEN [ START RED TAPE 4 58R4 ...) 7 592W ADX 7 FX1 7 59GG EXIT 7 0 4 5=26 [ 19 5=FQ [************************************************************ 4 5=_B [ 6 5?F2 SENDBLOCK 4 5?YL [ 19 5#D= [************************************************************ 4 5#XW [ 4 5*CG [ 13 5*X6 [ PUT TRAILING RED TAPE AND DATA LENGTH 10 5BBQ [ IN ADATA/FORMLOOP BLOCK 4 5BWB [ 11 5CB2 [ X2 -> ADDRESS FOR REST OF DATA 6 5CTL [ X7 - LINK 11 5D*= [ ON EXIT X1 -> ADATA/FORMLOOP 4 5DSW [ 6 5DYR ...#UNS FLLP4B 4 5F4N ...#SKI 4 5F8K ...( 7 5F#G LDX 1 FX1 7 5FS6 ADN 1 PEND 16 5G?Q MVCH 1 PENDLEN [ TRAILING RED TAPE 4 5GHJ ...) 10 5GRB MHUNT 1,ADATA,FORMLOOP 6 5GYJ ...#UNS FLLP4BC 8 5H5Q ... TRACEVER 1,FLENDB 7 5H?2 SLC 1 2 7 5HQL SLC 2 2 7 5J== SBX 2 1 9 5JPW SBN 2 FORMDATA*4 7 5K9G SRC 1 2 17 5KP6 STO 2 FORMCHAR(1) [ DATA LENGTH IN CHARS 6 5KW# ...#UNS FLLP4BC 9 5L3G ... BLOCKTRACE 1,FORMLOOP 7 5L8Q EXIT 7 0 6 5L95 ...#UNS FLLP4B 4 5L9D ...( 4 5L9R ...[ 15 5L=6 ...[********************************************* 4 5L=F ...[ 6 5L=S ...SCENDEFBL 4 5L?7 ...[ 15 5L?G ...[********************************************* 4 5L?T ...[ 13 5L#8 ...[ SET UP A DEFAULT FORMAT LOOP BLOCK 11 5L#H ...[ FOR CENTRAL LP (I.E. LP4B) 3 5L#W ... 8 5L#_ ... SBX 5 FX1 9 5L*4 ... LDN 6 PCENLEN 10 5L*9 ... CALL 7 SSTARTBLOCK 9 5L*J ... ADN 1 PCENDEF 9 5L*X ... ADN 2 FORMDATA 9 5LB= ... MVCH 1 PCENLEN 9 5LBK ... CALL 7 SENDBLOCK 6 5LBY ...#UNS FLLP4BC 9 5LC? ... TRACEVER 2,FLCENDB 8 5LCD ... ADX 5 FX1 7 5LCL ... EXIT 5 0 4 5LC_ ...[ 15 5LD# ...[********************************************* 4 5LDM ...[ 6 5LF2 ...SREMDEFBL 4 5LF* ...[ 15 5LFN ...[********************************************* 4 5LG3 ...[ 12 5LGB ...[ SET UP DEFAULT FORMAT LOOP BLOCK 11 5LGP ...[ FOR REMOTE LP (I.E. 7502 LP) 3 5LH4 ... 8 5LH9 ... SBX 5 FX1 10 5LHC ... LDN 6 PDEFAULTLEN 10 5LHQ ... CALL 7 SSTARTBLOCK 9 5LJ5 ... ADN 1 PSTART 9 5LJD ... ADN 2 FORMDATA 9 5LJR ... MVCH 1 PSTARTLEN 8 5LK6 ... LDX 1 FX1 8 5LKF ... ADN 1 PEND 9 5LKS ... MVCH 1 PENDLEN 9 5LL7 ... CALL 7 SENDBLOCK 6 5LLG ...#UNS FLLP4BC 9 5LLT ... TRACEVER 2,FLREMDB 8 5LM2 ... ADX 5 FX1 7 5LM8 ... EXIT 5 0 4 5LMH ...[ 4 5LNB [ 4 5LY8 ...) 4 5M82 [ 8 5MML [ WW WW W 8 5N7= [ WW WW WW 8 5NLW [ WW WW WWW 8 5P6G [ WWWW WW 8 5PL6 [ WWWWW WW 8 5Q5Q [ WW WW WW 8 5QKB [ WW WW WW 8 5R52 [ WW WW WW 4 5RJL [ 4 5S4= [ 19 5SHW [************************************************************ 4 5T3G [ 6 5TH6 ZFORMLOOP1 4 5W2Q [ 19 5WGB [************************************************************ 4 5X22 [ 4 5XFL [ 12 5XMW ...[ ENTRY FROM IDFASAT @ C. 572 6 5XW6 ...#UNS FLLP4B 4 5Y4B ...( 7 5Y=L ... NGN 0 1 10 5YDW [ AT ATTRIBUTE COMMAND TIME 9 5YYG [ ERROR IF NOT AVAILABLE 4 5_D6 [ 6 5_G4 ...#UNS FLLP4BC 8 5_J2 ... TRACEVER 0,FLZ1 9 5_KY ... STO 0 AWORK2(2) 5 5_MW ...RCHECK 4 5_PS ...) 6 5_RQ ...#UNS FLLP4BC 10 5_TN ... TRACEVER AWORK2(2),FLZ13 8 5_XQ CALL 7 SFABSNB 9 62CB MHUNT 1,CPB,CUNI 8 62X2 LDEX 3 ANUM(1) 8 63BL ADN 1 APARA 7 63W= ADN 2 4 7 64*W MVCH 1 0(3) 8 64TG CALL 7 SOPEN 16 65*6 IF 6,NG [ FILE NOT AVAILABLE 5 65SQ THEN 8 66#B LDX 1 FX1 10 66S2 ERRORX PJFLDATA(1),5 8 67?L SETREP WRONG 5 67R= ELSE 15 68=W IF 6,ZE [ FILE OPENED 6 68QG THEN 7 69=6 CLOSE 5 69PQ FI 8 6=9B SETREP OK 5 6=P2 FI 5 6?8L UP 4 6?N= [ 4 6#7W [ 6 6#8B ...#UNS FLLP4B 4 6#8W ...( 4 6#9B ...[ 9 6#9W ...[ WW WW WWWWWWWW 9 6#=B ...[ WW WW WWW WW 9 6#=W ...[ WW WW WW 9 6#?B ...[ WWWW WWWW 9 6#?W ...[ WWWWW WWW 9 6##B ...[ WW WW WW WW 9 6##W ...[ WW WW WW WW 9 6#*B ...[ WW WW WWWWWWWW 4 6#*W ...[ 4 6#BB ...[ 4 6#BW ...[ 18 6#CB ...[********************************************************* 4 6#CW ...[ 6 6#DB ...ZFORMLOOP3 4 6#DW ...[ 18 6#FB ...[********************************************************* 4 6#FW ...[ 9 6#GB ...[ ENTRY FROM ATTRIBUT 4 6#GW ...[ 7 6#HB ... LDN 0 1 6 6#HW ...#UNS FLLP4BC 8 6#JB ... TRACEVER 0,FLZ3 15 6#JW ... STO 0 AWORK2(2) [CENTRAL IDENTIFIER 8 6#KB ... BRN RCHECK 4 6#KW ...[ 4 6#LB ...) 8 6#MG [ WW WW WWWWW 8 6*76 [ WW WW WW WW 8 6*LQ [ WW WW WW 8 6B6B [ WWWW WW 8 6BL2 [ WWWWW WWWWW 7 6C5L [ WW WW WW 7 6CK= [ WW WW WW 8 6D4W [ WW WW WWWWWWWW 4 6DJG [ 4 6F46 [ 19 6FHQ [************************************************************ 4 6G3B [ 6 6GH2 ZFORMLOOP2 4 6H2L [ 19 6HG= [************************************************************ 4 6H_W [ 4 6JFG [ 12 6J_6 [ SET UP FORMAT LOOP DATA BLOCK FOR 8 6KDQ ...[ TRANSMISSION TO LP 17 6KYB [ IF NO SPECIAL LOOP SET UP ^ RESET TO DEFAULT ^ LOOP 11 6LD2 [ IF FILE NOT AVAILABLE REQUEST 13 6LXL [ ^ PLEASE FREE I. OF PROPERTY .....^ 13 6MC= [ OR SEND OUTPUT TEMPORARILY ABANDONED 14 6MM4 ...[ IF SPOOLING AND PROPERTY NOT ATTRIBUTED 4 6MWW [ 6 6MXR ...#UNS FLLP4B 4 6MYN ...( 8 6M_K ... SMO FX1 9 6N2G ... LDX 3 PACTLFC 8 6N3C ... IF 3,E,ATYPE(2) 5 6N4# ... THEN 7 6N59 ... LDN 0 1 5 6N66 ... ELSE 7 6N73 ... NGN 0 1 5 6N7Y ... FI 6 6N8T ...#UNS FLLP4BC 8 6N9Q ... TRACEVER 0,FLZ2 9 6N=M ... STO 0 AWORK2(2) 4 6N?J ...) 6 6N#F ...#UNS FLLP4B 4 6N*B ...#SKI 10 6NBG MHUNT 3,APERI,APROPNOS 6 6NDD ...#UNS FLLP4B 10 6NGB ... HUNT 3,APERI,APROPNOS 6 6NJ# ...#UNS FLLP4B 4 6NL= ...( 6 6NN8 ... IF 3,PZ 5 6NQ6 ... THEN 4 6NS4 ...) 9 6NW6 LDX 7 BPROPCNT(3) 10 6P23 ... SEGENTRY K52FORMLOOP 6 6P5Y ... NULL 6 6P9T ... NULL 7 6P*Q WHILE TRUE 7 6PTB SMO 7 10 6Q*2 LDX 0 BPROPS-1(3) 7 6QSL SLL 0 1 15 6R#= AND 0,NG [ NOT TEMPORARY 5 6RRW DO 7 6S?G REPEAT CT 7 6 6S*P ...#UNS FLLP4B 4 6SCY ...( 5 6SG7 ... ELSE 6 6SJB ... STOZ 7 5 6SLK ... FI 4 6SNS ...) 10 6ST? ... SEGENTRY K56FORMLOOP 5 6S_Q ...XCENTLP 20 6T69 ... IF 7,NZ [ TEMPORARY PROPS OR PERM IF LFDBAID 5 6T=Q THEN 11 6TQB HUNT 2,ADATA,FORMLOOP 17 6W=2 IF 2,PZ [ DATA BLOCK EXISTS 10 6WFS ... LDX 7 BPROPCNT(3) 9 6WPL WHILE TRUE 9 6X9= SMO 7 11 6XNW LDX 0 BPROPS-1(3) 10 6Y8G ANDX 0 BSP16 20 6YN6 AND 0,U,FORMPROP(2) [ NOT DATA FOR SAME PROPERTY 6 6_7Q DO 9 6_MB REPEAT CT 7 19 7272 AND 7,NZ [ DATA FOR ONE OF TEMP PROPS 6 72LL THEN 8 736= SETREP OK 6 73KW UP 6 745G [- 5 74K6 FI 21 754Q ... CALL 7 SPRSPLIT [ SPLIT UP TEMP- PERM(LFDBAID) PROP N 11 75JB MHUNT 3,APERI,APROPNOS 17 7642 LDN 4 0 [ COUNT OF TEMP PROPS 16 76HL LDX 5 BPROPCNT(3) [ COUNT OF PROPS 5 773= DO 12 77GW MHUNT 3,APERI,APROPNOS 8 782G SMO 5 11 78G6 LDX 0 BPROPS-1(3) 9 78M# ... SMO FX2 18 78SG ... STO 0 AWORK1 [ SAVE PROPERTY NO. 10 78TH ... SEGENTRY K53FORMLOOP 6 78WJ ... NULL 6 78XK ... NULL 6 78YL ... NULL 8 78_Q SLL 0 1 10 796Y ... SEGENTRY K57FORMLOOP 5 79#6 ...XCENTLP1 14 79FB IF 0,PZ [ TEMP 7 79_2 THEN 18 7=DL ADN 4 4 [ 4 WORDS PER NAME 10 7=Y= CALL 7 SFABSNB 12 7?CW MHUNT 1 ,APERI,APROPS 9 7?XG SMO 4 21 7#C6 LDX 3 A1+2-4(1) [ X3 = CHARS IN PROPERTY NAME 9 7#WQ ADX 1 4 19 7*BB ADN 1 A1+3-4 [ X1 -> PROPERTY NAME 9 7*W2 ADN 2 4 21 7B*L MVCH 1 0(3) [ MOVE PROPERTY NAME INTO FABSN 10 7BT= CALL 7 SOPEN 18 7C#W IF 6,ZE [ OPEN SUCCESSFUL 7 7CSG THEN 10 7D#6 LDEX 6 0(3) 13 7DRQ ADN 6 PDEFAULTLEN-2 13 7F?B VFREEW ADATA,FORMLOOP 14 7FR2 SETUPCORE 6,2,ADATA,FORMLOOP 9 7G=L STEPAGAIN 13 7GQ= MHUNTW 2,ADATA,FORMLOOP 12 7GTB ... ADN 2 FORMDATA 6 7GYG ...#UNS FLLP4B 4 7H3L ...#SKI 4 7H6Q ...( 11 7H9W ADN 1 PSTART 18 7J96 MVCH 1 PSTARTLEN [ START RED TAPE 4 7JDY ...) 10 7JNQ LDN 1 2(3) 10 7JSM ... LDX 0 1(3) 10 7JYJ ... SLC 0 2 21 7K4F ... ANDN 0 3 [ CHAR NOT USED IN LAST WORD 10 7K8B LDEX 3 0(3) 10 7KN2 SBN 3 2 10 7L7L SLL 3 2 10 7LCD ... SBX 3 0 8 7LG3 ... BZE 3 XNONE 8 7LJL ... BNG 3 XNONE 18 7LM= MVCH 1 0(3) [ MOVE IN DATA 5 7LX4 ...XNONE 12 7M6W CALL 7 SENDBLOCK 10 7MLG ... SMO FX2 11 7N66 ... LDX 0 AWORK1 11 7P5B ANDX 0 BSP16 18 7PK2 STO 0 FORMPROP(1) [ PROPERTY NO. 8 7Q4L CLOSE 12 7QJ= MFREE APERI,APROPS 10 7R3W SETREP OK 8 7RHG UP 8 7S36 [- 20 7SGQ ELSF 6,NG [ DATA FILE NOT AVAILABLE 7 7T2B THEN 18 7TG2 OUTMESSX 5 [ EXPLANATION 20 7T_L OUTPER [ PERIPHERAL IDENTIFIER 13 7WF= MHUNT 2,APERI,APROPS 10 7WYW SBN 4 4 10 7XDG ADX 2 4 10 7XY6 ADN 4 A1+3 19 7YCQ OUTPARAX A1+2(2),4,APERI,APROPS [ PROPERTY NAME 6 7YF2 ...#UNS FLLP4B 12 7YG= ... HUNTW 1,AMXOR,ADCB 6 7YHG ...#UNS FLLP4B 4 7YJQ ...#SKI 10 7YL2 ... MHUNTW 1,AMXOR,ADCB 6 7YM= ...#UNS FLLP4B 4 7YNG ...( 13 7YPQ ... IF 1,PZ [FOUND 20 7YR2 ... AND BS,1,ADCBTUNATT [ UNATTENDED SPOOLING 4 7YS= ...) 6 7YTG ...#UNS FLLP4B 4 7YWQ ...#SKI 20 7YY2 ... IF BS,1,ADCBTUNATT [ UNATTENDED SPOOLING 6 7Y_= ...#UNS FLLP4BC 7 7_2G ... TRACEVER 1,FL 8 7_3S ... THEN 21 7_63 ... LDN 4 2 [ OUTPUT TO BOTH CONSOLES 8 7_8= ... ELSE 21 7_=F ... LDN 4 0 [ TO CLUSTER CONSOLE ONLY 8 7_#N ... FI 6 7_*4 ...#UNS FLLP4B 4 7_*D ...( 10 7_*S ... IF 1,PZ 17 7_B8 ... AND BS,1,ADCBTSPOOL [ SPOOLING 4 7_BJ ...) 6 7_BY ...#UNS FLLP4B 4 7_C# ...#SKI 17 7_CN ... IF BS,1,ADCBTSPOOL [ SPOOLING 20 7_D8 ... LDX 5 AWORK1(2) [ LOOP PROPERTY NO. 11 7_FB ... ANDX 5 BSP16 14 7_GJ ... MHUNT 3,GOUT,GPROPNOS 12 7_HQ ... LDN 1 ATTMAX-1 11 7_JY ... WHILE TRUE 14 7_L6 ... LDX 0 GPROPNUM(3) 12 7_M# ... ANDX 0 BSP16 20 7_NG ... AND 0,U,5 [ PROPERTIES NOT SAME 8 7_PN ... DO 11 7_QW ... ADN 3 1 11 7_S4 ... REPEAT CT 1 21 7_T= ... AND 1,ZE [ PROPERTY NOT ATTRIBUTED 8 7_WL THEN 14 82B= SETNCORE 12,3,ADATA,CREADL 11 82TW STOZ A1(3) 13 83*G MHUNT 3,GOUT,INFO2 13 83T6 NAME 3,FILE,FABSNB 11 84#Q UNNORM FULL 14 84SB MHUNTW 3,ADATA,CREADL 16 85#2 OUTPARAM A1(3),A1+2,ADATA,CREADL 13 85RL MHUNT 3,FILE,FABSNB 13 86?= NAME 3,GOUT,INFO2 13 86QW MFREE ADATA,CREADL 21 87=G INFORMX 4,PJFLOUTPUT(1),1 [ OUTPUT TEMP. ABANDONED 8 889Q ELSE 10 88PB GEOPACK 6 15 8992 LONGSET ATTRIBUTE,(GEOERR),6 18 89NL DEMANDX 4,PFREEPROP3(1),XCANTDO,XBRKIN,,2 5 8=8= XCANTDO 5 8=MW XBRKIN 12 8?7G VFREEW GMON,AOUT 13 8?M6 VFREEW ADATA,ADEMAND 8 8#6Q FI 6 8#=9 ...#UNS FLLP4B 4 8#*N ...( 8 8#F7 ... LDX 2 FX2 12 8#JL ... IF PZ,AWORK2(2) [CENTRAL 6 8#N5 ... THEN 10 8#RJ ... CALL 5 SCENDEFBL 6 8#X3 ... ELSE 10 8*2G ... CALL 5 SREMDEFBL 5 8*5_ ... FI 4 8*9D ...) 6 8*#X ...#UNS FLLP4B 4 8*DB ...#SKI 4 8*HT ...( 16 8*M# ... LDN 6 PDEFAULTLEN [SET UP DEFAULT BLOCK 10 8*QR ... CALL 7 SSTARTBLOCK 9 8*W= ... CALL 7 SENDBLOCK 4 8*_P ...) 12 8B5= MFREE APERI,APROPS 10 8BJW SETREP LOOP 8 8C4G UP 8 8CJ6 [- 7 8D3Q FI 6 8DHB FI 8 8F32 REPEAT CT 5 10 8FGL MFREE APERI,APROPS 5 8G2= FI 6 8G5P ...#UNS FLLP4B 4 8G98 ...( 8 8G#M ... LDX 2 FX2 12 8GD6 ... IF PZ,AWORK2(2) [CENTRAL 6 8GHK ... THEN 10 8GM4 ... CALL 5 SCENDEFBL 6 8GQH ... ELSE 10 8GW2 ... CALL 5 SREMDEFBL 5 8G_F ... FI 4 8H4Y ...) 6 8H8C ...#UNS FLLP4B 4 8H?W ...#SKI 4 8HC* ...( 16 8HGS ... LDN 6 PDEFAULTLEN [SET UP DEFAULT BLOCK 10 8HL? ... CALL 7 SSTARTBLOCK 9 8HPQ ... CALL 7 SENDBLOCK 4 8HT9 ...) 7 8HYQ SETREP OK 5 8JDB UP 4 8JY2 [ 4 8KCL ) 4 8KX= #END 6 ____ ...040700000003