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