diff -Naur Raster3D_2.7d/normal3d.f Raster3D_2.7d.new/normal3d.f
--- Raster3D_2.7d/normal3d.f	2003-10-20 18:50:11.000000000 -0400
+++ Raster3D_2.7d.new/normal3d.f	2007-09-08 10:12:49.000000000 -0400
@@ -443,7 +443,8 @@
 	READ (INPUT,'(A)',ERR=101) TITLE
 	IF (TITLE(1:1).EQ.'#') GOTO 100
 	GOTO 102
-  101	WRITE (NOISE,'(A,A)') ' >> Cannot open or read file ',TITLE(2:132)
+  101	WRITE (NOISE,'(A,A)') ' >> Cannot open or read file ',
+     *TITLE(2:132)
 	CALL EXIT(-1)
   102	CONTINUE
       ENDIF
diff -Naur Raster3D_2.7d/parse.f Raster3D_2.7d.new/parse.f
--- Raster3D_2.7d/parse.f	2006-04-11 14:33:48.000000000 -0400
+++ Raster3D_2.7d.new/parse.f	2007-09-08 10:25:24.000000000 -0400
@@ -4,7 +4,8 @@
       COMMON /OPTIONS/ FONTSCALE, GAMMA, ZOOM, NSCHEME, SHADOWFLAG, XBG, 
      &                 NAX, NAY, OTMODE, QUALITY, INVERT, LFLAG
       REAL             FONTSCALE, GAMMA, ZOOM
-      INTEGER          NSCHEME, SHADOWFLAG, XBG
+      INTEGER          NSCHEME, SHADOWFLAG
+      INTEGER*8        XBG
       INTEGER*2        NAX, NAY, OTMODE, QUALITY
       LOGICAL*2        INVERT, LFLAG
 c
diff -Naur Raster3D_2.7d/render.f Raster3D_2.7d.new/render.f
--- Raster3D_2.7d/render.f	2006-04-11 17:13:04.000000000 -0400
+++ Raster3D_2.7d.new/render.f	2007-09-08 10:15:17.000000000 -0400
@@ -3685,7 +3685,7 @@
 	        FRAC = DETAIL(K+8)
 	        INEXT = INDTOP + 1
   	        IF (TYPE(INEXT).EQ.VERTEXRGB) INEXT = INEXT + 1
-	        CALL ASSERT(TYPE(INEXT).EQ.VERTRANSP,'lost vertex transp')
+	  CALL ASSERT(TYPE(INEXT).EQ.VERTRANSP,'lost vertex transp')
 	        K = LIST(INEXT)
 	        CLRITY = FRAC*DETAIL(K+1) + (1.-FRAC)*DETAIL(K+2)
 	      ELSE IF (TYPE(INDTOP).EQ.TRIANG) THEN