anchor.diff:  
   (defun block-table|xdata ( r )
   	(cond
  -		((= r 0) "rScaleFactor,aTitle,aWidth,aSymbol,aDefinition,aFilter,aSort,aDuplicate")
  +		((= r 0) "rScaleFactor,aTitle,aWidth,aFunction,aSymbol,aDefinition,aFilter,aSort,aDuplicate")
   	)
   )
   
  
positive.code: ;;; Author: Wilfred Stapper
  ;;; Copyright  2015
  
  (defun block-table|regapp ( r )
  	(cond
  		((= r 0) "THOORUNA_BLOCK-TABLE_0")
  
negative.code: 	lData
  )
  
  (defun block-table ( pInsert rScaleFactor aTitle aWidth aFunction aSymbol aDefinition aFilter aSort aDuplicate / lData oTable a )
  	(cm:setvar "CMDECHO" 0)
  	
  	(cond
  