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

**Macros used:** [[george:macro:ENDCOM|ENDCOM]], [[george:macro:FINDFEXTRA|FINDFEXTRA]], [[george:macro:FINDWFL|FINDWFL]], [[george:macro:FINDWFN|FINDWFN]], [[george:macro:FREECORE|FREECORE]], [[george:macro:FSHCODE|FSHCODE]], [[george:macro:HUNTW|HUNTW]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:NAME|NAME]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:TRACE|TRACE]], [[george:macro:TRANSFIN|TRANSFIN]], [[george:macro:UP|UP]]

<code - TRAPWORK864.txt>22FL    #OPT  K0TRAPWORK=K0TRAPGO>K0FILESTORE>K0COMMAND>K0ALLGEO
22^=    #LIS  K0TRAPWORK
23DW    #SEG    TRAPWORK                   [ TONY HAMILTON  
23YG          8HTRAPWORK
24D6    [   
24XQ          SEGENTRY K1TRAPWORK,XCOMMANDENT   
25CB          SEGENTRY K2TRAPWORK,XADJUNCTENT   
25X2    [   
26BL    XCOMMANDENT                        [ENTRY FROM TG/TS COMMAND
26W=    [   
27*W          FINDWFL  3                   [X3 -> FCB   
27TG          FINDFEXTRA 3                 [X3 -> FEXTRA
28*6          LDX   4  FWORKTRAP(3)        [TRAPBITS
28SQ          BPZ   7  NOTS                [J IF NOT T.S.   
29#B          ERN   6  CALL 
29S2          ANDX  4  6
2=?L          BRN      YTS  
2=R=    NOTS  ORX   4  6
2?=W    YTS 
2?QG          STO   4  FWORKTRAP(3) 
2#=6    #SKI  K6TRAPGO>99-99
2#PQ          TRACE  4,WORKTRAP 
2#S* ...      FSHCODE  A,SKIPINB
2#WY ...(   
2#^H ...      TRANSFIN ,,ALIEN  
2*46 ...SKIPINB 
2*6P ...)   
2*9B          ENDCOM
2*P2    [   
2B8L    XADJUNCTENT                        [ENTRY FROM TG/TS ADJUNCT
2BN=    [   
2C7W          MHUNTW  2,FILE,FAPB          [1ST FTRAP   
2CMG          BRN      QUEUE
2D76    SLOOP  HUNTW  2,FILE,FTRAP         [-> FTRAP
2DLQ          BNG   2  NOMORE              [J IF NO MORE
2F6B          NAME  2,FILE,FAPB            [RENAME. 
2FL2    QUEUE   
2G5L          LDX   5  2
2GK=          FINDWFN ,3               [X3->FCB 
2H4W          FINDFEXTRA 3                 [-> FEXTRA   
2HJG          LDX   2  5                   [-> FAPB 
2J46          LDX   4  ETRAPMODES(2)       [NEW TRAPS   
2JHQ          LDCT  0  #200 
2K3B          ANDX  0  ETRAPMODES(2)
2KH2          BZE   0  XINTRAP             [JIF TG  
2L2L          ERN   4  CALL 
2LG=          ANDX  4  FWORKTRAP(3) 
2L^W          STO   4  FWORKTRAP(3)        [NEW TRAPS.  
2MFG          BRN      XOUTRAP  
2M^6    XINTRAP 
2NDQ          ORS   4  FWORKTRAP(3) 
2NYB    XOUTRAP 
2PD2    #SKI  K6TRAPGO>99-99
2PXL          TRACE    FWORKTRAP(3),TRAPADJ 
2QC=          FREECORE 2
2QWW          BRN      SLOOP
2RBG    NOMORE  
2RW6          UP
2S*Q    [   
2STB          MENDAREA 20,K99TRAPWORK   
2T*2    #END
^^^^ ...37620776000100000000
</code>