2HS# ...[??? UNLOCK SECT CENT FGN 32 DOC
 2J46    #   
 2JHQ    [   
 2K3B    [ENTRY SEQUENCE FOR UNLOCKING A BLOCK ROUTINE   
 2KH2    [   
 2L2L    #MAC  UNLOCK
 2LG=    #STR  %A,2  
 2L^W          LDX   2  %A                  [ADDRESS OF BLOCK TO BE UNLOCKED 
 2MFG          CALL  0  (GUNL)   
 2M^6    #NOR