anchor.diff: -(defun blocktable ( s a / d h lData lHeader lHandles oTable)
  +(defun blocktable ( s a aTitle / d h lData lHeader lHandles oTable)
   	(setq lData '())
   	
   	(if s
  
positive.code: 				(tm:table-init "Standard" "Courier New")
  				
  				(setq oTable (tm:table-create nil lData))
  				(tm:table-set-title oTable "BLOCK TABLE")
  				(tm:table-set-width oTable (mapcar 'cdr lHeader))
  				(tm:table-show oTable)
  				
  
negative.code: )
  
  (defun c:blocktable ( / s )
  	(blocktable (im:select-all-blocks) "*" "BLOCK TABLE")
  )
  
  (defun c:btable ( / s )
  	(blocktable (im:select-all-blocks) "BALLOON" "PARTS LIST")
  )
  
  (defun c:ptable ( / s )
  	(blocktable (im:select-all-blocks) "SYMBOL*" "P & I D")
  )
  
  (princ)
  