9 22FL #OPT K0WA = 0 8 22_= #LIS K0WA 8 23DW #SEG WA 6 23YG 8HWA 4 24D6 [ 16 24XQ SEGENTRY K1WA,WAK1 [ WHATPROP COMMAND 4 252* ...[ 12 254Y ... FSHENTRY K2WA,QENTRY2,,QENTRY2 12 257H ... FSHENTRY K3WA,QENTRY3,,QENTRY3 12 25=6 ... FSHENTRY K4WA,QENTRY4,,QENTRY4 12 25#P ... FSHENTRY K5WA,QENTRY5,,QENTRY5 12 25B3 ... FSHENTRY K7WA,QENTRY7,,QENTRY7 4 25CB [ 4 25X2 [ 19 26BL [************************************************************ 4 26W= [ 7 27*W [ PRESET DATA 4 27TG [ 19 28*6 [************************************************************ 4 28SQ [ 4 29#B [ 4 29B# ...# 8 29D= ... FSHCODE AORB 4 29G8 ...( 21 29J6 ...SCDLINK [ LINK FOR UNANTICIPATED CLOSEDOWN 8 29L4 ... PAIR WA,7 4 29N2 ...) 4 29PY ...# 7 29S2 PVAL2 2 7 2=?L PVAL4 4 9 2=R= PSTRLIST 4HLIST 10 2?=W PROPERTY 8HPROPERTY 10 2?QG PHEADING +APROPHEAD 9 2#=6 PPERM 4H Y 5 2#PQ PCONS 8 2*9B PEXCL 4HY 10 2*P2 #DEF WNAME = A1+2 10 2B8L #DEF WEXCL = A1+6 10 2BN= #DEF WPERM = A1+7 10 2C7W #DEF WCONS = A1+9 15 2CMG BITDEFS CONTEXT,19,WBOPER,,,WBNOUSER,WBUSER 12 2D76 BITDEFS AWORK2,0,WBLIST,WBLISTPR 19 2DLQ P10000 [ GENERATION NO. CONVERSION 6 2F6B +10000 21 2FL2 PFILEDES [ FILE DESCRIPTION FOR OUTPUT FILE 5 2G5L 10 6 2GK= POPERATORS 15 2H4W 12HOPERATORS [ USERNAME 15 2HJG 12HWHATLIST [ FILENAME 15 2J46 1 [ REEL NUMBER 17 2JHQ #20000001 [ GENERATION NUMBER 16 2K3B 4HB1 [ LANGUAGE CODE 21 2KH2 PRUNJOB [ RUNJOB COMMAND TO TO LIST OUTPUT FI 14 2L2L 32HRJ WLIST0000,:OPERATORS,WLISTJDF 19 2LG= PRJPROP [ EXTRA FOR LIST(PR .....) 8 2L_W 9H,PARAM(PR 5 2MFG PRJBRAC 6 2M_6 1H) 21 2NDQ PLF [ LISTFILE COMMAND FOR OUTPUT TO WORK 10 2NYB 17HLF !,*LP,PA,MO#60 18 2PD2 PLFPROP [ EXTRA FOR LIST(PR....) 6 2PXL 3H,PR 4 2QC= [ 4 2QWW [ 17 2QX_ ...[ ENTRY POINT TO OBEY 'SCLOSE' S/R IN M/C A FOR M/C B 4 2Q_4 ...[ 10 2R27 ... FSHCODE A,SNONEEDINB 4 2R3= ...( 5 2R4* ...QENTRY5 16 2R5D ... FSHMOVE END [THE OUTPUT FILE 19 2R6H ... STO 7 5 [PRESERVE M/C B'S LINK ACC 20 2R7L ... CALL 7 SCLOSE [CLODE + ERASE THE OUTPUT FILE 17 2R8P ... LDX 7 5 [RECOVER M/C B'S LINK 15 2R9S ... TRANSFIN [AND RETURN 6 2R=X ...SNONEEDINB 4 2R#2 ...) 4 2R*5 ...[ 19 2RBG [************************************************************ 4 2RW6 [ 5 2S*Q SCLOSE 4 2STB [ 19 2T*2 [************************************************************ 4 2TSL [ 15 2W#= [ CLOSE OUTPUT FILE ( AFTER :SYSTEM.PROPERTY ) 4 2WRW [ 10 2X?G [ X6 - ZERO - NORMAL EXIT 10 2XR6 [ NON-ZERO - BREAKIN 7 2Y=Q SBX 7 FX1 17 2Y## ... FSHCODE B,XCLOSEA [ OBEY S/R IN M/C A ONLY 4 2Y*W ...( 17 2YCD ... SETNCORE 0,3,FSH,FSHTERM [ SET UP DELIMITER BLOCK 15 2YF2 ... FSHMOVE START [ OUTPUT FILE 17 2YGJ ... TRANSBEG FSHWAID,WA,5,,,ACOMMUNE1 [ AND GO TO M/C A 5 2YJ6 ...XCLOSEA 4 2YKN ...) 20 2YM= ... FSHSKIP B,XCLOSEB [ REST OF S/R EXCEPT EXIT NOT NEEDED 4 2YNS ...( 5 2YQB CLOSE 15 2_=2 IF BS,2,WBUSER [ USER CONTEXT 10 2_PL THEN [ ERASE WORKFILE 11 329= SETNCORE 10,3,FILE,FABSNB 8 32NW LDN 0 10 8 338G STO 0 A1(3) 8 33N6 #SKI IFS 11 347Q ADN 2 FUSER1-FCBRING 9 34MB #SKI IFS<1$1 10 3572 LDX 2 BWORKRING(2) 9 35LL ADN 2 FUSER1 8 366= ADN 3 A1+1 7 36KW MOVE 2 9 8 375G ERASEWORK 1 10 37K6 TESTREP2 NOFILE,ZERREW 14 384Q ELSF EITHER,BC,2,WBLIST [ NOT LIST 14 38JB OR 6,NZ [ BREAKIN 13 3942 THEN [ ERASE :OPERATORS.WHATLIST 11 39HL SETNCORE 10,3,FILE,FABSNB 10 3=3= LDN 1 PFILEDES(1) 8 3=GW LDN 2 A1(3) 8 3?2G MOVE 1 10 8 3?G6 SMO FX2 9 3?_Q LDX 0 AWORK1 16 3#FB STO 0 A1+8(3) [ GENERATION NO. 6 3#_2 ERASE 11 3*DL TESTREP2 NOFILE,ZERREOW 5 3*Y= FI 5 3B5D ...XCLOSEB 4 3B=L ...) 7 3BCW ADX 7 FX1 7 3BXG EXIT 7 0 4 3CC6 [ 4 3CWQ [ 8 3DBB [ WW WW W 8 3DW2 [ WW WW WW 8 3F*L [ WW WW WWW 8 3FT= [ WWWW WW 8 3G#W [ WWWWW WW 8 3GSG [ WW WW WW 8 3H#6 [ WW WW WW 8 3HRQ [ WW WW WW 4 3J?B [ 4 3JR2 WAK1 4 3K=L [ 4 3KQ= [ 19 3L9W [************************************************************ 4 3LPG [ 8 3M96 [ CHECK PARAMETERS 8 3MNQ [ SET UP OUTPUT FILE 7 3N8B [ OPEN PROPERTY 8 3NN2 [ GENERATE OUTPUT 7 3P7L [ CLOSE PROPERTY 7 3PM= [ LIST OUTPUT 6 3Q6W [ TIDY UP 4 3QLG [ 19 3R66 [************************************************************ 4 3RKQ [ 4 3S5B [ 16 3SK2 STOZ AWORK2(2) [ CLEAR BITS WORD 4 3T4L [ 8 3TJ= [ CHECK PARAMETERS 4 3W3W [ 13 3WHG SPARABEG 1,PVAL4(1),PSTRLIST(1),,0 9 3X36 MHUNT 3,CPB,CUNI 8 3XGQ LDX 7 ANUM(3) 16 3Y2B IF 7,PZ [ IF 'LIST' PRESENT 5 3YG2 THEN 16 3Y_L BS 2,WBLIST [ SET LIST BIT 17 3_F= IF 7,NZ [ IF PROPERTY STRING 6 3_YW THEN 10 42DG LDX 3 JPARNUM(3) 21 42Y6 PARALYSE ,,3 [ THEN SPLIT INTO ^LIST^ AND (PR P 7 433= ...#UNS ANSTOOMANY 15 436B ... TESTREP2 UNPAIR,ZLISTWR,TOOMANY,ZMAXPAR 7 439G ...#UNS ANSTOOMANY 4 43#L ...#SKI 20 43CQ TESTREP2 UNPAIR,ZLISTWR [ IF UNPAIRED DELIM, ERR FI 8 43XB PARANUMB 4 20 44C2 BXU 4 PVAL2(1),ZLISTWR [ IF NOT TWO PARAMS, ERR FI 8 44WL LDN 1 2 20 45B= PARALYSE ,,1 [ STRIP BRACKETS OFF PARAM 2 7 45HD ...#UNS ANSTOOMANY 11 45NL ... TESTREP2 TOOMANY,ZMAXPAR 8 45TW LDN 7 8 9 46*G WHILE 7,NZ 19 46T6 SPARABEG 1,7,PROPERTY(1) [ LOOK FOR 'PR' PARAM 11 47#Q MHUNT 3,CPB,CUNI 10 47SB LDX 6 ANUM(3) 18 48#2 AND 6,NG [ PARAMETER NOT FOUND 6 48RL DO 15 49?= FREECORE 3 [ ELSE 17 49QW SRL 7 2 [ TRY AGAIN FI 7 4==G REPEAT 21 4=Q6 BZE 7 ZWRQUAL [ IF NO 'PR...' FOUND , ERROR FI 19 4?9Q BZE 6 ZWRQUAL [ IF PARAM NULL, ERROR FI 18 4?PB HUNT2J 3,CPB,CUNI,,(GEOERR) [ FIND 'LIST' CUNI 21 4#92 FREECORE 3 [ FREE IT (KEPT IN CASE OF ERR MES 17 4#NL BS 2,WBLISTPR [ SET PROPERTY BIT 18 4*8= PARAFREE [ FREE CMULTI ANYWAY 13 4*MW FI [ FI 5 4B7G ELSE 7 4BM6 FREECORE 3 7 4C6Q PARANUMB 4 20 4CLB BNZ 4 ZLISTWR [ IF ANY OTHER PARAM, ERROR FI 5 4D62 FI 4 4DKL [ 8 4F5= [ SET UP OUTPUT FILE 4 4FJW [ 9 4FLK ... FSHCODE B,XREMHERE 4 4FN# ...( 13 4FQ3 ... TRANSBEG FSHWAID,WA,2,CLB,,ACOMMUNE1 7 4FRQ ... FSHMOVE END 8 4FTF ... BRN XSTAY 5 4FX8 ...XREMHERE 4 4FYX ...) 5 4G2L ...QENTRY2 7 4G4G CREATEB 4 19 4GJ6 IF MBS,2,WBOPER,WBNOUSER [ OPERATOR OR NO USER CONTEXT 16 4H3Q THEN [ CREATE AND OPEN :OPERATORS.WHATLIST(+1) 19 4HHB LDN 1 POPERATORS(1) [ CREATION OF FILES REQUIRES 21 4J32 LDN 2 CPREFIX(2) [ OWNERSHIP SO INSERT :OPERATORS IN C 7 4JGL MOVE 1 3 11 4K2= SETNCORE 10,3,FILE,FABSNB 10 4KFW LDN 1 PFILEDES(1) 8 4K_G LDN 2 A1(3) 8 4LF6 MOVE 1 10 17 4LYQ USEROPEN ZOUTFILEBRK,APPEND,CREATE,LEAVE,FROZEN 10 4MDB TESTRPN2 OK,ZERROOW 10 4MY2 MHUNT 3,FILE,ENT 9 4NCL LDX 0 EGEN(3) 9 4NX= STO 0 AWORK1(2) 7 4PBW FREECORE 3 13 4PWG ELSE [ OPEN WORKFILE AT TOP LEVEL 9 4QB6 FRIGMONF ZERROW,1 7 4QTQ LOBSFILE 5 4R*B FI 9 4RT2 MFREE FILE,FABSNB 10 4S#L [ PUT HEADING IN OUTPUT FILE 9 4SS= LDX 4 PHEADING(1) 7 4T?W ASSMESS 4 9 4TRG MHUNT 3,GMON,AOUT 9 4W?6 NAME 3,FILE,FAPB 8 4WQQ LDEX 0 A1(3) 7 4X=B ADN 0 11 7 4XQ2 SRL 0 2 8 4Y9L DEX 0 A1(3) 9 4YP= APPEND 0,ZAPPEND0 21 4_8W [ PRESET FILE/FAPB FOR MAIN OUTPUT ( ASSUMES HEADING LENGTH > MAIN OUTPU 9 4_NG MHUNT 3,FILE,FAPB 8 5286 LDX 1 A1(3) 7 52MQ SBN 1 3 7 537B LDX 0 ACES 8 53M2 STO 0 WNAME(3) 8 546L LDN 2 WNAME(3) 8 54L= ADN 3 WNAME+1 7 555W MOVE 2 0(1) 4 55KG [ 7 5656 [ OPEN PROPERTY 4 56JQ [ 12 574B OPENSYS ZPROPBRK,PROPERTY,READ 4 57J2 [ 8 57KJ ... FSHCODE A,XSTAY 4 57M6 ...( 8 57NN ... NOTALIEN XSTAY 7 57Q= ... LDN 4 2 8 57RS ... FSHMOVE START,4 6 57TB ... TRANSFIN 4 57WY ...) 5 57YG ...XSTAY 4 5824 ...[ 8 583L [ GENERATE OUTPUT 4 58H= [ 7 592W WHILE TRUE 6 59GG STEP 16 5=26 AND 3,NZ [ NOT END OF FILE 5 5=FQ DO 10 5=_B MHUNT 2,FILE,FAPB 16 5?F2 LDX 0 ACES [ CLEAR OUT ^Y^ S 9 5?YL STO 0 WEXCL(2) 9 5#D= STO 0 WPERM(2) 9 5#XW STO 0 WCONS(2) 16 5*CG LDN 0 APROPNAME(3) [ PROPERTY NAME 9 5*X6 LDN 1 WNAME(2) 7 5BBQ MOVE 0 3 18 5BWB LDN 5 5 [ LENGTH OF OUTPUT LINE 8 5CB2 LDX 1 FX1 10 5CTL LDX 4 APROPNO(3) 15 5D*= IF 4,NG [ EXCLUSIVE 6 5DSW THEN 10 5F#G LDX 0 PEXCL(1) 10 5FS6 STO 0 WEXCL(2) 8 5G?Q LDN 5 7 5 5GRB FI 7 5H?2 SLL 4 1 15 5HQL IF 4,NG [ PERMANENT 6 5J== THEN 10 5JPW LDX 0 PPERM(1) 10 5K9G STO 0 WPERM(2) 8 5KP6 LDN 5 8 5 5L8Q FI 10 5LNB LDX 4 APROPGROUP(3) 14 5M82 IF 4,NG [ CONSOLE 6 5MML THEN 10 5N7= LDX 0 PCONS(1) 10 5NLW STO 0 WCONS(2) 8 5P6G LDN 5 10 5 5PL6 FI 17 5Q5Q DEX 5 A1(2) [ SIG. LENGTH OF DATA 10 5QKB APPEND 1,ZAPPEND1 6 5R52 REPEAT 4 5RJL [ 7 5S4= [ CLOSE PROPERTY 4 5SHW [ 5 5T3G CLOSE 4 5TH6 [ 7 5W2Q [ LIST OUTPUT 4 5WGB [ 13 5X22 IF BS,2,WBLIST [ LIST 5 5XFL THEN 7 5X_= STOZ 7 15 5YDW IF BS,2,WBLISTPR [ LIST(PR...) 6 5YYG THEN 10 5_D6 MHUNT 2,CPB,CUNI 10 5_XQ LDEX 7 ANUM(2) 5 62CB FI 11 62X2 ADN 7 CPDATA-A1*4+51 7 63BL SRL 7 2 11 63W= SETUPCORE 7,3,ADATA,CREADL 20 64*W IF MBS,2,WBOPER,WBNOUSER [ OPERATOR OR NO USER CONTEXT 9 64TG THEN [ RUNJOB 10 65*6 LDN 5 PRUNJOB(1) 10 65SQ LDN 6 CPDATA(3) 8 66#B MVCH 5 32 17 66S2 IF BS,2,WBLISTPR [ ,PARAM(PR...) 7 67?L THEN 11 67R= LDN 5 PRJPROP(1) 16 68=W MVCH 5 9 [,PARAM(PR 11 68QG MHUNT 2,CPB,CUNI 11 69=6 LDN 5 APARA(2) 10 69PQ LDEX 2 ANUM(2) 18 6=9B MVCH 5 0(2) [ PROPERTY STRING 11 6=P2 LDN 5 PRJBRAC(1) 9 6?8L MVCH 5 1 6 6?N= FI 9 6#7W LDX 2 FX2 10 6#MG LDX 4 AWORK1(2) 8 6*76 LDN 5 0 10 6*LQ DVR 4 P10000(1) 8 6B6B LDX 4 5 9 6BL2 LDCT 5 #200 11 6C5L LDN 1 CPDATA+2(3) 8 6CK= LDN 0 4 19 6D4W DO [ CONVERT GENERATION NO. 10 6DJG CBD 4 0(1) 9 6F46 BCHX 1 / 9 6FHQ REPEAT CT 0 10 6G3B SBN 6 CPDATA(3) 8 6GH2 SLC 6 2 9 6H2L STO 6 A1(3) 20 6HG= LDX 5 GSIGN [ FOR SYSTEM ISSUED CONTEXT 10 6H_W ORS 5 CONTEXT(2) 12 6JFG ISSUCOMB XCOMERRJ,XCOMERRJ 5 6J_6 XCOMERRJ 10 6KDQ ERS 5 CONTEXT(2) 9 6KYB ELSE [ LISTFILE 9 6LD2 LDN 5 PLF(1) 10 6LXL LDN 6 CPDATA(3) 14 6MC= MVCH 5 17 [ LF 15 6MWW IF BS,2,WBLISTPR [ ,PR... 7 6NBG THEN 11 6NW6 LDN 5 PLFPROP(1) 9 6P*Q MVCH 5 3 11 6PTB MHUNT 2,CPB,CUNI 11 6Q*2 LDN 5 APARA(2) 10 6QSL LDEX 2 ANUM(2) 18 6R#= MVCH 5 0(2) [ PROPERTY STRING 6 6RRW FI 10 6S?G SBN 6 CPDATA(3) 8 6SR6 SLC 6 2 15 6T=Q STO 6 A1(3) [ LENGTH 12 6TQB ISSUCOMB XCOMERLF,XCOMERLF 5 6W=2 XCOMERLF 5 6WPL FI 5 6X9= ELSE 17 6XNW IF BS,2,WBOPER [ OPERATOR CONTEXT 6 6Y8G THEN 10 6Y=9 ... FSHCODE B,XGETSEMA 4 6Y?Y ...( 15 6Y*M ... TRANSBEG FSHWAID,WA,3,NOBLOCKS,,ACOMMUNE1 9 6YCB ... BRN XLOCKED 5 6YF5 ...XGETSEMA 4 6YGS ...) 5 6YJH ...QENTRY3 4 6YL= ...[ 5 6YN6 XLOCK 8 6_7Q [ IF CONSOLE FREE 11 6_MB BSON AWHATBIT,WAIT 9 7272 [ THEN LOCK OUT CONSOLE 10 72LL ON AWHATBIT 9 72NT ... FSHCODE AORB 4 72R4 ...( 10 72T? ... NOTALIEN XNOSHAMBL 12 72WB ... SETNCORE 1,3,FSH,FSHAMBLES 10 72XF ... LDX 0 SCDLINK(1) 11 72YJ ... STO 0 FSHCDLINK(3) 6 72_P ...XNOSHAMBL 4 733Y ...) 10 736= BRN XLOCKED 10 73KW [ ELSE WAIT,THEN TRY AGAIN 4 745G WAIT 9 74K6 COOR3 #114 9 754Q BRN XLOCK 4 75JB [ FI 5 7642 XLOCKED 4 765Y ...[ 10 767W ... FSHCODE A,XSEMAHELD 4 769S ...( 9 76?Q ... TRANSFIN ,,ALIEN 6 76*N ...XSEMAHELD 4 76CL ...) 4 76FJ ...[ 5 76HL FI 6 773= REWIND 8 77GW WHILE TRUE 7 782G READ 10 78G6 MHUNT 3,FILE,FRB 10 78_Q LDX 0 ALOGLEN(3) 8 79FB SBN 0 1 9 79_2 ORX 0 A1(3) 16 7=DL AND 0,NZ [ NOT END OF FILE 5 7=Y= DO 10 7?CW TESTBRKIN ZHEREBRK 10 7?XG LDEX 6 A1+FRH(3) 8 7#C6 SLL 6 2 8 7#WQ SBN 6 8 16 7*BB OUTMON 6,A1+FRH+2,A1+FRH+1(3),FILE,FRB 10 7*W2 MFREE FILE,FRB 6 7B*L REPEAT 17 7BT= IF BS,2,WBOPER [ OPERATOR CONTEXT 6 7C#W THEN 10 7CBS ... FSHCODE B,XRELSEMA 4 7CDQ ...( 16 7CGN ... TRANSBEG FSHWAID,WA,4,NOBLOCKS,,ACOMMUNE1 9 7CJL ... BRN XRELD 5 7CLJ ...XRELSEMA 4 7CNG ...) 5 7CQD ...QENTRY4 17 7CSG OFF AWHATBIT [ RELEASE CONSOLE 9 7D#6 FON #114 11 7D*T ... FSHCODE A,SNOSHAMBL 4 7DCJ ...( 10 7DF? ... NOTALIEN SNOSHAMBL 11 7DH2 ... MFREE FSH,FSHAMBLES 8 7DJP ... TRANSFIN 6 7DLD ...SNOSHAMBL 4 7DN7 ...) 5 7DPW ...XRELD 5 7DRQ FI 5 7F?B FI 4 7FR2 [ 6 7G=L [ TIDY UP 4 7GQ= [ 7 7H9W LDN 6 0 8 7HPG CALL 7 SCLOSE 6 7J96 ENDCOM 4 7JNQ [ 21 7K8B [*********************************************************************** 4 7KN2 [ 5 7L7L [ ERRORS 4 7LM= [ 21 7M6W [*********************************************************************** 4 7MLG [ 5 7N66 ZWRQUAL 18 7NKQ COMERR BADQUAL [ERROR IN 'LIST' QUALIFIER 5 7P5B ZLISTWR 17 7PK2 COMERR APFERR [ PARAMETER FORMAT ERROR 7 7PMK ...#UNS ANSTOOMANY 4 7PQ8 ...( 5 7PSR ...ZMAXPAR 9 7PXB ... COMERR JMAXPAR 4 7P__ ...) 4 7Q4L [ 8 7Q5H ... FSHCODE AORB 4 7Q6D ...( 4 7Q7* ...[ 21 7Q8= ...[*********************************************************************** 4 7Q97 ...[ 10 7Q=4 ...[ UNANTICIPATED CLOSEDOWN 4 7Q=_ ...[ 21 7Q?W ...[*********************************************************************** 5 7Q#R ...QENTRY7 9 7Q*N ... OFF AWHATBIT 8 7QBK ... FON #114 10 7QCG ... MFREE FSH,FSHAMBLES 7 7QDC ... TRANSDIE 4 7QF# ...[ 4 7QG9 ...) 4 7QH6 ...[ 21 7QJ= [*********************************************************************** 4 7R3W [ 6 7RHG [ BREAKIN 4 7S36 [ 21 7SGQ [*********************************************************************** 4 7T2B [ 4 7TG2 [ 19 7T_L ZHEREBRK [ BREAKIN DURING HERE OUTPUT 4 7WF= [ 16 7WYW IF BS,2,WBOPER [ OPERATOR CONTEXT 5 7XDG THEN 9 7XGP ... FSHCODE B,XCLSEMA 4 7XJY ...( 15 7XM7 ... TRANSBEG FSHWAID,WA,4,NOBLOCKS,,ACOMMUNE1 9 7XPB ... BRN SEMAFREE 5 7XRK ...XCLSEMA 4 7XTS ...) 16 7XY6 OFF AWHATBIT [ RELEASE CONSOLE 8 7YCQ FON #114 5 7YMJ ...SEMAFREE 5 7YXB FI 4 7_C2 [ 21 7_WL ZPROPBRK [ BREAKIN ON OPENING :SYSTEM.PROPERTY 4 82B= [ 7 82TW LDN 6 1 8 83*G CALL 7 SCLOSE 4 83T6 [ 20 84#Q ZOUTFILEBRK [ BREAKIN ON OPENING OUTPUT FILE 4 84SB [ 6 85#2 ABANDCOM 4 85RL [ 4 86?= [ 17 86QW ZAPPEND1 [ APPEND MACRO LABEL 4 87=G [ 5 87Q6 CLOSE 4 889Q [ 19 88PB ZAPPEND0 [ HEADINGS APPEND MACRO LABEL 4 8992 [ 2 89NL 7 8=8= LDN 6 1 8 8=MW CALL 7 SCLOSE 6 8?7G ABANDCOM 4 8?M6 [ 21 8#6Q [*********************************************************************** 4 8#LB [ 6 8*62 [ GEOERRS 4 8*KL [ 21 8B5= [*********************************************************************** 4 8BJW [ 4 8C4G [ 5 8CJ6 ZERROOW 5 8D3Q ZERROW 8 8DHB GEOERR 1,WAOPEN 5 8F32 ZERREOW 5 8FGL ZERREW 9 8G2= GEOERR 1,WAERASE 4 8GFW [ 4 8G_G #END 6 ____ ...606052210003