diff -uNr topdrawer.ORIG/Imakefile.def topdrawer/Imakefile.def
--- topdrawer.ORIG/Imakefile.def	Mon Mar  9 16:45:37 1998
+++ topdrawer/Imakefile.def	Mon Jul 14 20:46:23 2003
@@ -3,12 +3,13 @@
  */
 
 /* #define LinuxAoutArchitecture */
-#define LinuxElfArchitecture
+/* #define LinuxElfArchitecture */
 /* #define SunArchitecture */
 /* #define DigitalArchitecture */
 /* #define FreeBSDArchitecture */
+#define DarwinArchitecture
 
-UGS = /home/common/ugs/ugs.a
+UGS = ../ugs/ugs.a
 
 
 /*-------------- Do not change the followings ---------------*/
@@ -46,8 +47,19 @@
 
 #if defined(FreeBSDArchitecture)
 ARCH    = __LINUX
-FFLAGS  = -O2
+FC	= g77
+FFLAGS  = -O2  -fno-automatic -finit-local-zero -fno-backslash
 CFLAGS  = -O2 -DIUCLC=0001000
+AR      = ar
+ARFLAGS = rv
+RANCMD  = $(RANLIB) $(LIB)
+#endif
+
+#if defined(DarwinArchitecture)
+ARCH    = __APPLE__
+FC	= g77
+FFLAGS  = -O0  -fno-automatic -finit-local-zero -fno-backslash -fno-globals -Wno-globals
+CFLAGS  = -O0 -DIUCLC=0001000
 AR      = ar
 ARFLAGS = rv
 RANCMD  = $(RANLIB) $(LIB)
diff -uNr topdrawer.ORIG/src/t2setc.f topdrawer/src/t2setc.f
--- topdrawer.ORIG/src/t2setc.f	Mon May 19 20:26:52 1997
+++ topdrawer/src/t2setc.f	Mon Jul 14 19:03:45 2003
@@ -264,16 +264,16 @@
       INTEGER REMAIN_VAR 
       PARAMETER (REMAIN_VAR=19-5) 
       REAL SYM0,SYM1,SYM2,SYM3,SYM4,SYM5,SYM6,SYM7,SYM8,SYM9
-      PARAMETER (SYM0=FLOAT(Z'304F')) !ICHAR('O')+256*ICHAR('0'))
-      PARAMETER (SYM1=FLOAT(Z'314F')) !ICHAR('O')+256*ICHAR('1'))
-      PARAMETER (SYM2=FLOAT(Z'324F')) !ICHAR('O')+256*ICHAR('2'))
-      PARAMETER (SYM3=FLOAT(Z'334F')) !ICHAR('O')+256*ICHAR('3'))
-      PARAMETER (SYM4=FLOAT(Z'344F')) !ICHAR('O')+256*ICHAR('4'))
-      PARAMETER (SYM5=FLOAT(Z'354F')) !ICHAR('O')+256*ICHAR('5'))
-      PARAMETER (SYM6=FLOAT(Z'364F')) !ICHAR('O')+256*ICHAR('6'))
-      PARAMETER (SYM7=FLOAT(Z'374F')) !ICHAR('O')+256*ICHAR('7'))
-      PARAMETER (SYM8=FLOAT(Z'384F')) !ICHAR('O')+256*ICHAR('8'))
-      PARAMETER (SYM9=FLOAT(Z'394F')) !ICHAR('O')+256*ICHAR('9'))
+      PARAMETER (SYM0=Z'304F') !ICHAR('O')+256*ICHAR('0'))
+      PARAMETER (SYM1=Z'314F') !ICHAR('O')+256*ICHAR('1'))
+      PARAMETER (SYM2=Z'324F') !ICHAR('O')+256*ICHAR('2'))
+      PARAMETER (SYM3=Z'334F') !ICHAR('O')+256*ICHAR('3'))
+      PARAMETER (SYM4=Z'344F') !ICHAR('O')+256*ICHAR('4'))
+      PARAMETER (SYM5=Z'354F') !ICHAR('O')+256*ICHAR('5'))
+      PARAMETER (SYM6=Z'364F') !ICHAR('O')+256*ICHAR('6'))
+      PARAMETER (SYM7=Z'374F') !ICHAR('O')+256*ICHAR('7'))
+      PARAMETER (SYM8=Z'384F') !ICHAR('O')+256*ICHAR('8'))
+      PARAMETER (SYM9=Z'394F') !ICHAR('O')+256*ICHAR('9'))
       INTEGER M1_CYCLE , M2_CYCLE 
       PARAMETER (M1_CYCLE=MAX_CYCLE-7 ) 
       PARAMETER (M2_CYCLE=MAX_CYCLE-10) 
diff -uNr topdrawer.ORIG/src/td.f topdrawer/src/td.f
--- topdrawer.ORIG/src/td.f	Tue Aug 19 22:39:49 1997
+++ topdrawer/src/td.f	Mon Jul 14 18:50:02 2003
@@ -131,7 +131,7 @@
       COMMON /T2PRMP/NPRMP1, PRMP1, NPRMP2, PRMP2
       LOGICAL LTEMP,INTRAC
       EXTERNAL INTRAC
-      INTEGER  I
+C      INTEGER  I
       CHARACTER DEVNAM*256
       CHARACTER TDINIT*20,DEFVAL*80,DEFSTR*80
       LOGICAL T2_VIRT,TDSHOW,DMMY,SIGREF