C       Interface Routines to MicroSoft Fortran        
        CHARACTER*8 FUNCTION DATE()
                INTEGER*2 I1,I2,I3
                CHARACTER*8 VALUE
                CALL GETDAT(I1,I2,I3)
                IF(I1.GE.2000) THEN
                  I1=I1-2000
                ELSE
                  I1=I1-1900
                END IF
                WRITE(VALUE,'(I2.2,1H/,I2.2,1H/,I2.2)') I2,I3,I1
                DATE=VALUE
c                write(6,'(A,A)') 'DATE =',VALUE
                RETURN
        END
        CHARACTER*8 FUNCTION TIME()
                INTEGER*2 I1,I2,I3,I100
                COMMON/PRIVATE/LAST
                CHARACTER*8 VALUE
                CALL GETTIM(I1,I2,I3,I100)
                WRITE(VALUE,'(I2.2,1H.,I2.2,1H.,I2.2)') I1,I2,I3
                TIME=VALUE
                if(I3.ne.LAST) write(6,'(A,A)') 'TIME =',VALUE
                LAST=I3
                RETURN
        END
        CHARACTER*2 FUNCTION CNUM(I)
                CHARACTER*2 VALUE
                if(i.lt.10) WRITE(VALUE,'(I1,1H )') I                                 
                if(i.ge.10) WRITE(VALUE,'(I2)') I
                CNUM=VALUE
                return
        END
        SUBROUTINE CISSUE(command)
        character*(*) command
C        write(6,*) 'CIssue for:',command
        END
        
        SUBROUTINE PRINTOUT()
        END
        SUBROUTINE CLEARPRN()
        END

        SUBROUTINE SDEC_2()
        END