(SETQ IBASE (ADD1 7)) 


(DEFPROP ALLFNS 
 (NIL TEST2 TEST ! G SAVEINPUT) 
VALUE)

(DEFPROP TEST2 
 (LAMBDA NIL
  (PROG NIL
	(SETQ V5 (MKEV F1 V4))
	(TRANSLATE V5 0 0 1.0)
	(SETQ V6 (MKEV F1 V5))
	(TRANSLATE V6 1.0 0 0)
	(GEODPY))) 
EXPR)

(DEFPROP TEST 
 (LAMBDA NIL
  (PROG NIL
	(SETQ B1 (MKB WORLD))
	(SETQ F1 (MKF B1))
	(SETQ V1 (MKV B1))
	(TRANSLATE V1 -P.5 -P.5 0)
	(SETQ V2 (MKEV F1 V1))
	(TRANSLATE V2 1.0 0 0)
	(SETQ V3 (MKEV F1 V2))
	(TRANSLATE V3 0 1.0 0)
	(SETQ V4 (MKEV F1 V3))
	(TRANSLATE V4 -1.0 0 0)
	(MKFE V1 F1 V4)
	(GEODPY))) 
EXPR)

(DEFPROP ! 
 (LAMBDA NIL (GEODPY)) 
EXPR)

(DEFPROP G 
 (LAMBDA NIL (GEOMED)) 
EXPR)

(DEFPROP G 
 (NIL GEOMED) 
VALUE)

(DEFPROP SAVEINPUT 
 (LAMBDA NIL
  (PROG (TMP)
	(SETQ TMP NIL)
   LOOP (SETQ TMP (CONS (READ) TMP))
	(COND ((EQ (CAR TMP) (QUOTE $EOF$)) (RETURN (REVERSE TMP))) (T (ERRSET (PRIN1 (EVAL (CAR TMP))) NIL)))
	(TERPRI)
	(GO LOOP))) 
EXPR)