;;;
;;;
;;;
;;;
;;;If tilemode must be 0 then why don't we just set it?
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 4/2003
;;;>		   EDITED: 06-03-2005
;;;
(DEFUN c:pspace (/ prev_ss)
  (SETQ prev_ss (SSGET "p"))
  (IF (SSGET "x" '((0 . "VIEWPORT")))
    (PROGN
      (SETVAR "tilemode" 0)
      (COMMAND ".pspace")
      (COMMAND ".select" prev_ss "")
      (COMMAND)
    ) ;_ end of progn
    (PRINC
      "\n** Command not allowed unless TILEMODE is set to 0. **"
    ) ;_ end of princ
  ) ;_ end of if
  (PRINC)
) ;_ end of defun