anchor.diff:  	lData
   )
   
  -(defun block-table ( pInsert rScaleFactor aTitle aWidth aSymbol aDefinition aFilter aSort aDuplicate / lData oTable a )
  +(defun block-table ( pInsert rScaleFactor aTitle aWidth aFunction aSymbol aDefinition aFilter aSort aDuplicate / lData oTable a )
   	(cm:setvar "CMDECHO" 0)
   	
   	(cond
  
positive.code: 
  (defun block-table|xdata ( r )
  	(cond
  		((= r 0) "rScaleFactor,aTitle,aWidth,aSymbol,aDefinition,aFilter,aSort,aDuplicate")
  	)
  )
  
  
negative.code: 	)
  )
  
  (defun c:ptable ( / aDefinition aDuplicate aFunction aFilter aSort aSymbol aTitle aWidth )
  	(cm:initialize)
  	
  	(initget "1 2 3 4 5 6 7 8 9 0 *" 129)
  