8 22FL    #OPT  K0SUICIDE=0   
   9 22_=    #OPT  K6SUICIDE=K6ALLGEO
  12 23DW    #LIS  K0SUICIDE>K0ALLGEO>K0GREATGEO 
  15 23YG    #SEG  SUICIDE                      [ROGER TERRY 
   9 24D6                   8HSUICIDE
   4 24XQ    [   
  20 25CB    [     THIS  ROUTINE IS ENTERED INORDER TO TAKE  AN  ACTIVITY OFF THE
  21 25X2    [     ACTIVITY CHAIN.  IT GIVES BACK TO FREE CORE ALL THE BLOCKS WHICH  
  21 26BL    [     ARE ATTACHED TO THE ACTIVITY.  IF AN ACTIVITY WISHES TO DECHAIN   
  21 26W=    [     ITSELF,ENTRY IS VIA THE SUICIDE MACRO . OTHERWISE THIS ROUTINE IS 
  12 27*W    [     ENTERED VIA THE MURDER MACRO. 
   4 27TG    [   
   8 28*6    [     ENTRY POINTS  
   4 28SQ    [   
  18 29#B          SEGENTRY K1SUICIDE,ZEP1      [ENTRY POINT FOR SUICIDE 
  18 29S2          SEGENTRY K2SUICIDE           [ENTRY POINT FOR MURDER  
  19 2=?L          LDN   7  1                   [SWITCH FOR MURDER OR SUICIDE
  18 2=R=          LDX   3  EXEC1(2)            [GET ADDRESS OF ACT BLK  
   8 2?=W    #SKI K6SUICIDE>12-12
  11 2?QG          GSCAN    ACTNUM(3),MURDER 
   7 2#4X ...      PHOTO    6
  21 2#C# ...      LDX   5  ACTNUM(2)           [SAVE ACT NO TO REFIND BLOCK IF REQD 
   7 2#PQ          STO   2  4
  20 2*9B          CHANGEACT 3                  [CHANGE TO VICTIM TO WAIT FOR END
  16 2*P2          BRN      SUI                 [FAKE*A SUICIDE  
  14 2B8L    ZEP1                               [SUICIDE 
   8 2BN=    #SKI K6SUICIDE>12-12
  11 2C7W          GSCAN    ATYPE(2),SUICIDE 
   7 2CMG          LDN   7  0
   4 2D76    SUI 
   8 2D9* ...      FSHCODE  AORB 
   4 2D?J ...(   
  13 2D*R ...      JBC      NOTRUNNING,,FSHRUNNING   
  20 2DD2 ...      DOWN     FSHTRANC,4          [DELETE ANY FSHMARKER TABLE ENTRY
   6 2DG9 ...NOTRUNNING  
   4 2DJD ...)   
   7 2DLQ          BACKWAIT  
   9 2F6B    #SKI  K6SUICIDE>12-12   
   4 2FL2    (   
   8 2G5L          FILECOUNT  0  
   9 2GK=          BZE   0  NFLOPN   
  10 2H4W          GEOERR   1,FILEOPEN   
   5 2HJG    NFLOPN  
   4 2J46    )   
   4 2JHQ    SUI1
  18 2K3B          LDX   1  FPTR(2)             [ADDRESS OF NEXT BLOCK   
   9 2KH2          LDX   0  ATYPE(1) 
  20 2L2L          BXGE  0  CACT,SUI2           [J IF ACT BLK. I.E. END OF CHAIN 
   9 2LG=    #SKI  K6SUICIDE>699-699 
   9 2L_W          TRACE    0,SUIFREE
  14 2MFG          FREECORD 1                   [FREE IT 
   8 2M_6          BRN      SUI1 
   4 2NDQ    SUI2
  16 2NYB          BNZ   7  SUI3                [J IF NOT SUICIDE
  17 2PD2          FREECORE 2                   [FREE ACTIVITY BLOCK 
   6 2PXL          COOR1X
   4 2QC=    SUI3
  18 2QWW          LDX   3  2                   [STO POINTER TO VICTIM   
  18 2R22 ...      TESTMOVE 6,NOCOORD           [J IF NO COORDINATIONS   
  10 2R56 ...      FINDACTNO 2,5,NOACT   
   7 2R8= ...      STO   2  4
   5 2R?B ...NOCOORD 
   8 2RBG          CHANGEACT 4   
  16 2S*Q          FREECORE 3                   [FREE THE VICTIM 
   5 2STB          UP
   5 2T2J ...NOACT   
   9 2T7Q ...      GEOERR   1,ACTLOST
   8 2T*2          MENDAREA 20   
   4 2TSL    #END
   8 ____ ...22577327000100000000