(George Source)
Macros used: BS, ENDCOM, ERROR, FNORM, GEOERR, JMBS, MFREE, MHUNT, NAMETOP, REPERR2, SECUREX, SEG, SEGENTRY, TESTREP2, USEROPEN
22FL ... SEG SECUREX,,EXOFILE LIBRARIAN,EXOFILE 22^= ... SEGENTRY K1SECUREX,SECUREX 23DW ...[ THIS SEGMENT IS INTENDED TO CREATE AN "EXOFILE ENTRANT" 23YG ...[ 24D6 ...SCRAPFABSNB 24XQ ... MFREE FILE,FABSNB 25CB ...TRYNEXTPARA 25X2 ... MFREE CPB,CUNI 26BL ...SECUREX [COMMAND ENTRY POINT 26W= ... SPARAPASS 27*W ... MHUNT 3,CPB,CUNI 27TG ... LDX 0 ANUM(3) 28*6 ... BZE 0 TRYNEXTPARA [J IF NULL PARAMETER 28SQ ... BNG 0 NOMORE [J IF NO MORE PARAMETERS 29#B ... NAMETOP 3,FILE,FNAME [FOR FNORM 29S2 ... FNORM 1 [ANALYSE QUALIFIERS - WE WANT TRAPS 2=?L ... MHUNT 3,FILE,FNAME 2=R= ... NAMETOP 3,CPB,CUNI [FOR USEROPEN/REPERR 2?=W ... TESTREP2 NAMEFORM,TRYNEXTPARA[FNORM WILL HAVE REPORTED ANY ERRORS 2?QG ... MHUNT 3,FILE,FABSNB 2#=6 ... JMBS WRONGFABSNB,3,BFABSTREAM,BFABTSN,BFABREEL,BFABWORK, - 2#PQ ... BFABLANG,BFABLIB 2*9B ... LDX 0 A1(3) 2*P2 ... SBN 0 4 2B8L ... BZE 0 USERONLY [J IF ONLY A USERNAME GIVEN 2BN= ... BS 3,BFABEXO 2C7W ... USEROPEN XBREAKIN,CREATE [CREATE DIRECTORY ENTRY 2CMG ... REPERR2 SCRAPFABSNB [J IF REPLY OK 2D76 ... BRN SCRAPFABSNB [ERROR REPORTED BY REPERR 2DLQ ...[ 2F6B ...NOMORE 2FL2 ... ENDCOM 2G5L ...[ 2GK= ...WRONGFABSNB 2H4W ... ERROR ERENTTYPE 2HJG ... BRN SCRAPFABSNB 2J46 ...[ 2JHQ ...USERONLY 2K3B ... ERROR AMISS,JLOCNA [LOCAL NAME MISSING 2KH2 ... BRN SCRAPFABSNB 2L2L ...[ 2LG= ...XBREAKIN 2L^W ... GEOERR 1,BREAKIN? 2MFG ...#END ^^^^ ...737023240002