{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: SECUREX85)}}
====== SECUREX85 ======
(George Source)

**Macros used:** [[george:macro:BS|BS]], [[george:macro:ENDCOM|ENDCOM]], [[george:macro:ERROR|ERROR]], [[george:macro:FNORM|FNORM]], [[george:macro:GEOERR|GEOERR]], [[george:macro:JMBS|JMBS]], [[george:macro:MFREE|MFREE]], [[george:macro:MHUNT|MHUNT]], [[george:macro:NAMETOP|NAMETOP]], [[george:macro:REPERR2|REPERR2]], [[george:macro:SECUREX|SECUREX]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:TESTREP2|TESTREP2]], [[george:macro:USEROPEN|USEROPEN]]

<code - SECUREX85.txt>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
</code>