(George Source)
Macros used: BACKSPACE, BBUS, BXU, CLOSETOP, DELETE, ENDCOM, ERRORX, FNORM, GEOERR, MFREE, MFREEW, MHUNT, MHUNTW, MONOUTX, NAME, NAMETOP, OPENDIR, OPENRELN, OUTMON, READAGAIN, REPALLER, REWIND, REWRITE, SEG, SEGENTRY, SETNCORE, SPARAPAS, STEP, TESTNAMX, TESTREP, TOPFCB
22FL #LIS K0ARCHIVE 22^= SEG ARCHIVNW,83,EX-COMPUTEL,DUMPSYS 23DW SEGENTRY K1ARCHIVNW,X1ARCHIVE 23YG SEGENTRY K2ARCHIVNW,X2ARCHIVE 24D6 # 24XQ # THIS SEGMENT ENABLES A USER TO SPECIFY THAT CERTAIN OF HIS FILES 25CB # SHOULD BE THROWN OFF-LINE 25X2 # IT IS NOT POSSIBLE TO "CANCEL" THIS SPECIFICATION. 26BL # 26W= # THERE ARE TWO ENTRY POINTS: X1ARCHIVE FOR /ARCHIVE/ 27*W # X2ARCHIVE FOR /CANCEL ARCHIVE/ 27TG # 28*6 NOTBIT0 #57777777 28SQ NOTBIT1 #57777777 29#B TYPEBITS #32202040 29S2 MULTIBITS #06000000 2=?L ONE +1 2=R= XLAB2 GEOERR 1,ARCHIVE? 2?=W XARCHERY +ERARCH 2?QG XARCHERZ +JPARMIS 2#=6 XINUSE 7HNOT YET 2#PQ XNOTON 10HNOT ONLINE 2*9B XERBOK3 +ERBOK3 2*P2 XEBPNO +EBPNO 2B8L MONCAT #40 2BN= ONERR 2C7W SBX 7 FX1 2CMG SMO FX1 2D76 LDX 1 0(1) 2DLQ ERRORX 1 2F6B ADX 7 FX1 2FL2 EXIT 7 0 2G5L RCHECKFREE 2GK= SBX 7 FX1 2H4W SETNCORE 6,4,FILE,FLOCNB 2HJG MHUNT 3,FILE,ENT 2J46 ADN 4 A1 2JHQ ADN 3 ELOC1 2K3B MOVE 3 5 2KH2 LDX 0 ELAN-ELOC1(3) 2L2L SMO 4 2LG= STO 0 5 2L^W OPENRELN XLAB2,READR,REPLY,NOWAIT,LEAVE,DIROPEN,ERASING 2MFG TESTREPN OK,PE2 2M^6 TOPFCB 2 2NDQ LDX 0 FWAITCOUNT(2) 2NYB BNZ 0 PE1 2PD2 P20 LDX 0 FREEZECOUNT(2) 2PXL BNZ 0 PE1 2QC= P25 LDCT 0 #300 2QWW ADN 0 #400 2RBG ANDX 0 COMM(2) 2RW6 BNZ 0 PE1 2S*Q LDX 0 FCOMM(2) 2STB ANDX 0 #2000 2T*2 BNZ 0 PE1 2TSL LDX 0 CTOPEN(2) 2W#= SBN 0 1 2WRW BNZ 0 PE1 2X?G CLOSETOP 2XR6 READAGAIN 2Y=Q MHUNTW 1,FILE,FRB 2YQB NAME 1,BSTB,FULLB 2^=2 FULLBPASS 1,2 2^PL DELETE 329= MHUNTW 1,FILE,ENT 32NW NAME 1,FILE,FWB 338G LDX 0 ECOPS(1) 33N6 SRL 0 15 347Q SLL 0 15 34MB STO 0 ECOPS(1) 3572 REWRITE 35LL MHUNTW 1,FILE,FWB 366= NAME 1,FILE,ENT 36KW MFREE FILE,FLOCNB 375G PE0 ADX 7 FX1 37K6 EXIT 7 0 384Q PE1 CLOSETOP 38JB PE2 LDN 6 1 3942 MFREE FILE,FLOCNB 39HL ADX 7 FX1 3=3= EXIT 7 0 3=GW X1ARCHIVE 3?2G LDX 2 FX2 3?G6 STOZ AWRK2(2) 3?^Q SPARAPAS 3#FB MHUNT 3,CPB,CUNI 3#^2 LDX 5 ANUM(3) 3*DL BNG 5 REND 3*Y= BZE 5 RFREECUNI 3BCW NAMETOP 3,FILE,FNAME 3BXG FNORM 3CC6 MHUNT 3,FILE,FNAME 3CWQ NAMETOP 3,CPB,CUNI 3DBB TESTREP NAMEFORM,RFREECUNI 3DW2 MHUNT 3,FILE,FABSNB 3F*L BBUS 16,ATYPE(3),RNOTWORK 3FT= LDN 1 XARCHERY 3G#W CALL 7 ONERR 3GSG BRN RFREEFABSNB 3H#6 RNOTWORK 3HRQ OPENDIR XLAB2,GENERAL,QUERY 3J?B TESTREP OK,ROK1 3JR2 REPALLER 3K=L BRN RFREECUNI 3KQ= ROK1 MHUNT 3,FILE,ENT 3L9W NGN 6 1 3LPG LDX 0 ESER(3) 3M96 BNZ 0 RMESSAGE 3MNQ LDX 0 EUSE1(3) 3N8B BNZ 0 RMESSAGE 3NN2 LDX 0 TYPEBITS(1) 3P7L ANDX 0 EINF2(3) 3PM= BNZ 0 RMESSAGE 3Q6W LDX 0 ESVCT(3) 3QLG BNZ 0 RMESSAGE 3R66 LDN 6 2 3RKQ LDX 0 MULTIBITS(1) 3S5B ANDX 0 EINF1(3) 3SK2 BNZ 0 RMULTI 3T4L LDX 0 ECOPS(3) 3TJ= SLL 0 9 3W3W BZE 0 RMESS1 3WHG LDX 0 ECOPS(3) 3X36 SRL 0 15 3XGQ BZE 0 RMESS1 3Y2B LDN 6 1 3YG2 LDX 0 EINF2(3) 3Y^L BNG 0 RMESSAGE 3^F= LDN 6 0 3^YW BACKSPACE 42DG CALL 7 RCHECKFREE 42Y6 BRN RMESSAGE 43CQ RMULTI 43XB REWIND 44C2 RSTEP 44WL STEP 45B= BZE 3 RDIFF1 45TW LDX 0 ERES-A1(3) 46*G BNZ 0 RSTEP 46T6 MHUNTW 1,FILE,ENT 47#Q TESTNAMX 3,ELOC1(1),ELOC1-A1(3),RDIFF 47SB LDX 7 ELAN(1) 48#2 BXU 7 ELAN-A1(3),RDIFF 48RL LDN 7 1 49?= ADS 7 AWRK2(2) 49QW LDX 0 ECOPS-A1(3) 4==G SLL 0 9 4=Q6 BZE 0 RSTEP 4?9Q LDX 0 EINF2-A1(3) 4?PB BPZ 0 RSTEP1 4#92 NGN 0 4095 4#NL STO 0 AWRK2(2) 4*8= BRN RSTEP 4*MW RSTEP1 4B7G LDN 6 0 4BM6 LDX 0 ECOPS-A1(3) 4C6Q SRL 0 15 4CLB BZE 0 RSTEP 4D62 READAGAIN 4DKL MHUNTW 1,FILE,FRB 4F5= NAME 1,FILE,ENT 4FJW CALL 7 RCHECKFREE 4G4G MFREE FILE,ENT 4GJ6 BZE 6 RSTEP 4H3Q LDX 2 FX2 4HHB NGN 0 4095 4J32 STO 0 AWRK2(2) 4JGL BRN RSTEP 4K2= RDIFF 4KFW LDX 2 FX2 4K^G LDX 7 AWRK2(2) 4LF6 BZE 7 RSTEP 4LYQ RDIFF1 4MDB LDX 7 AWRK2(2) 4MY2 BPZ 7 RMESSAGE 4NCL LDN 6 1 4NX= RMESSAGE 4PBW LDX 1 FX1 4PWG LDX 5 XERBOK3(1) 4QB6 BZE 6 ROUT 4QTQ LDX 5 XEBPNO(1) 4R*B BNG 6 ROUT 4RT2 SBN 6 1 4S#L BNZ 6 RMESS1 4SS= SETNCORE 7,2,CPB,CUNI 4T?W LDX 7 MONCAT(1) 4TRG ADN 2 A1 4W?6 ADN 1 XINUSE 4WQQ MOVE 1 2 4X=B LDN 6 7 4XQ2 BRN RMESSOUT 4Y9L RMESS1 4YP= SETNCORE 7,2,CPB,CUNI, 4^8W LDX 7 MONCAT(1) 4^NG ADN 2 A1 5286 ADN 1 XNOTON 52MQ MOVE 1 3 537B LDN 6 10 53M2 RMESSOUT 546L OUTMON 6,A1,7,CPB,CUNI 54L= MFREE CPB,CUNI 555W BRN RCLOSE 55KG ROUT MONOUTX 5 5656 RCLOSE 56JQ CLOSETOP 574B MFREEW FILE,ENT 57J2 RFREEFABSNB 583L MFREE FILE,FABSNB 58H= RFREECUNI 592W MFREE CPB,CUNI 59GG BRN RENDCOM 5=26 REND 5=FQ LDN 1 XARCHERZ 5=^B CALL 7 ONERR 5?F2 RSOME 5?YL MFREE CPB,CUNI 5#D= RENDCOM 5#XW ENDCOM 5*CG +KMBMARCH 5*X6 X2ARCHIVE 5BBQ # CANCEL ARCHIVE ENTRY POINT 5BWB SMO FX1 5CB2 LDX 5 X2ARCHIVE-1 5CTL MONOUTX 5 5D*= ENDCOM 5DSW 5F#G #END ^^^^ ...504144560008