diff --git a/main/win32/cfget.c b/main/win32/cfget.c
deleted file mode 100644
index a29e6c2938c37a885628c560e59354a20ffbeb65..0000000000000000000000000000000000000000
--- a/main/win32/cfget.c
+++ /dev/null
@@ -1,74 +0,0 @@
-/* @(#)root/main:$Id$ */
-/* Author: Valery Fine(fine@vxcern.cern.ch) 02/02/98 */
-
-/*
- * $Id$
- *
- * $Log: cfget.c,v $
- * Revision 1.5 1997/10/23 16:33:18 mclareni
- * NT mods
- *
- * Revision 1.4 1997/09/02 14:26:44 mclareni
- * WINNT correction
- *
- * Revision 1.3 1997/02/04 17:35:10 mclareni
- * Merge Winnt and 97a versions
- *
- * Revision 1.2 1997/01/15 16:25:31 cernlib
- * fix from F.Hemmer to return rfio return code
- *
- * Revision 1.1.1.1.2.1 1997/01/21 11:30:09 mclareni
- * All mods for Winnt 96a on winnt branch
- *
- * Revision 1.1.1.1 1996/02/15 17:49:36 mclareni
- * Kernlib
- *
- */
-
-/*> ROUTINE CFGET
- CERN PROGLIB# Z310 CFGET .VERSION KERNFOR 4.29 910718
- ORIG. 12/01/91, JZ
- CALL CFGET (LUNDES, MEDIUM, NWREC, NWTAK, MBUF, ISTAT)
- read from the file :
- LUNDES file descriptor
- MEDIUM = 0,1,2,3 : primary disk/tape, secondary disk/tape
- NWREC number of words record size
- *NWTAK* number of words to be read / actually read
- *MBUF vector to be read into
- *ISTAT status, =zero if success
-*/
-#include <fcntl.h>
-#include <stdlib.h>
-#define NBYTPW 4
-void __stdcall CFGET(lundes, medium, nwrec, nwtak, mbuf,lmbuf, stat)
- int lmbuf;
- char *mbuf;
- int *lundes, *medium, *nwrec, *nwtak, *stat;
-{
- int fildes;
- int nbdn, nbdo;
-
- *stat = 0;
- if (*nwtak <= 0) return;
-
-/* read the file */
-
- fildes = *lundes;
- nbdo = *nwrec * NBYTPW;
- nbdn = read (fildes, mbuf, nbdo);
- if (nbdn == 0) goto heof;
- if (nbdn < 0) goto herror;
-retn: *nwtak = (nbdn - 1) / NBYTPW + 1;
- return;
-
-/* Handle exceptions */
-
-heof: *stat = -1;
- return;
-
-herror: *stat = errno;
- perror (" error in CFGET");
- return;
-}
-/*> END <----------------------------------------------------------*/
-
diff --git a/main/win32/cfgeto.c b/main/win32/cfgeto.c
deleted file mode 100644
index 110228d762fc7dbf94da7025249e928b9ae67e55..0000000000000000000000000000000000000000
--- a/main/win32/cfgeto.c
+++ /dev/null
@@ -1,76 +0,0 @@
-/* @(#)root/main:$Id$ */
-/* Author: Valery Fine(fine@vxcern.cern.ch) 02/02/98 */
-
-/*
- * $Id$
- *
- * $Log: cfget.c,v $
- * Revision 1.5 1997/10/23 16:33:18 mclareni
- * NT mods
- *
- * Revision 1.4 1997/09/02 14:26:44 mclareni
- * WINNT correction
- *
- * Revision 1.3 1997/02/04 17:35:10 mclareni
- * Merge Winnt and 97a versions
- *
- * Revision 1.2 1997/01/15 16:25:31 cernlib
- * fix from F.Hemmer to return rfio return code
- *
- * Revision 1.1.1.1.2.1 1997/01/21 11:30:09 mclareni
- * All mods for Winnt 96a on winnt branch
- *
- * Revision 1.1.1.1 1996/02/15 17:49:36 mclareni
- * Kernlib
- *
- */
-
-/*> ROUTINE CFGET
- CERN PROGLIB# Z310 CFGET .VERSION KERNFOR 4.29 910718
- ORIG. 12/01/91, JZ
- CALL CFGET (LUNDES, MEDIUM, NWREC, NWTAK, MBUF, ISTAT)
- read from the file :
- LUNDES file descriptor
- MEDIUM = 0,1,2,3 : primary disk/tape, secondary disk/tape
- NWREC number of words record size
- *NWTAK* number of words to be read / actually read
- *MBUF vector to be read into
- *ISTAT status, =zero if success
-*/
-#include <fcntl.h>
-#include <stdlib.h>
-#define NBYTPW 4
-void __stdcall CFGET(lundes, medium, nwrec, nwtak, mbuf, stat)
- char *mbuf;
- int *lundes, *medium, *nwrec, *nwtak, *stat;
-{
- int fildes;
- int nbdn, nbdo;
-
- *stat = 0;
- if (*nwtak <= 0) return;
-
-/* read the file */
-
- fildes = *lundes;
- nbdo = *nwrec * NBYTPW;
- nbdn = read (fildes, mbuf, nbdo);
- if (nbdn == 0) goto heof;
- if (nbdn < 0) goto herror;
-retn: *nwtak = (nbdn - 1) / NBYTPW + 1;
- return;
-
-/* Handle exceptions */
-
-heof: *stat = -1;
- return;
-
-#if defined(CERNLIB_PROJSHIFT)
-herror: *stat = (serrno ? serrno : (rfio_errno ? rfio_errno : errno));
-#else
-herror: *stat = errno;
-#endif
- perror (" error in CFGET");
- return;
-}
-/*> END <----------------------------------------------------------*/
diff --git a/main/win32/cfopei.c b/main/win32/cfopei.c
deleted file mode 100644
index 7fa6d8a9bccb51e01083de29eaac7b1867f0e8d8..0000000000000000000000000000000000000000
--- a/main/win32/cfopei.c
+++ /dev/null
@@ -1,126 +0,0 @@
-/* @(#)root/main:$Id$ */
-/* Author: Valery Fine(fine@vxcern.cern.ch) 02/02/98 */
-
-/*
- * $Id$
- *
- * $Log: cfopei.c,v $
- * Revision 1.4 1997/09/02 14:26:46 mclareni
- * WINNT correction
- *
- * Revision 1.3 1997/02/04 17:35:11 mclareni
- * Merge Winnt and 97a versions
- *
- * Revision 1.2 1997/01/15 16:25:32 cernlib
- * fix from F.Hemmer to return rfio return code
- *
- * Revision 1.1.1.1.2.1 1997/01/21 11:30:10 mclareni
- * All mods for Winnt 96a on winnt branch
- *
- * Revision 1.1.1.1 1996/02/15 17:49:36 mclareni
- * Kernlib
- *
- */
-/*> ROUTINE CFOPEI
- CERN PROGLIB# Z310 CFOPEI .VERSION KERNFOR 4.38 931108
- ORIG. 12/01/91, JZ
- CALL CFOPEN (LUNDES, MEDIUM, NWREC, MODE, NBUF, TEXT, ISTAT)
- open a file :
- *LUNDES file descriptor
- MEDIUM = 0,1,2,3 : primary disk/tape, secondary disk/tape
- NWREC record length in number of words
- MODE string selecting IO mode
- = 'r ', 'w ', 'a ', 'r+ ', ...
- NBUF number of buffers to be allocated, (not used)
- TEXT name of the file
- *ISTAT status, =zero if success
-*/
-#include <fcntl.h>
-#include <stdlib.h>
- int cfopen_perm = 0;
-
-void __stdcall CFOPEI(lundes,medium,nwrec,mode,nbuf,ftext,len_ftext,stat,lgtx)
- int len_ftext;
- char *ftext;
- int *lundes, *medium, *nwrec, *nbuf, *stat, *lgtx;
- int *mode;
-{
- char *pttext, *fchtak();
- int flags;
- int fildes;
- int perm;
-
- *lundes = 0;
- *stat = -1;
-
- perm = cfopen_perm;
- cfopen_perm = 0;
-
-/* construct flags :
- mode[0] = 0 r 1 w 2 a
- mode[1] = 1 +
-*/
-/* flags for disk */
-
- if (*medium == 1) goto fltp;
- if (*medium == 3) goto fltp;
-
- if (mode[0] == 0)
- {if (mode[1] == 0)
- flags = O_RDONLY;
- else
- flags = O_RDWR;}
-
- else if (mode[0] == 1)
- {if (mode[1] == 0)
- flags = O_WRONLY | O_CREAT | O_TRUNC;
- else
- flags = O_RDWR | O_CREAT | O_TRUNC;}
-
- else if (mode[0] == 2)
- {if (mode[1] == 0)
- flags = O_WRONLY | O_CREAT | O_APPEND;
- else
- flags = O_RDWR | O_CREAT | O_APPEND;}
- goto act;
-
-/* flags for tape */
-
-fltp: if (mode[0] == 0)
- {if (mode[1] == 0)
- flags = O_RDONLY;
- else
- flags = O_RDWR;}
-
- else if (mode[0] == 1)
- {if (mode[1] == 0)
- flags = O_WRONLY;
- else
- flags = O_RDWR;}
-
- else if (mode[0] == 2) return;
-
-/* open the file */
-
-act: pttext = fchtak(ftext,*lgtx);
- if (pttext == 0) return;
-
- if (perm == 0) perm = 0644;
-
- fildes = open (pttext, flags | O_BINARY, perm);
- if (fildes < 0) goto errm;
- *lundes = fildes;
- *stat = 0;
- goto done;
-
-#if defined(CERNLIB_PROJSHIFT)
-errm: *stat = (serrno ? serrno : (rfio_errno ? rfio_errno : errno));
-#else
-errm: *stat = errno;
-#endif
- perror (" error in CFOPEN");
-
-done: free(pttext);
- return;
-}
-/*> END <----------------------------------------------------------*/
diff --git a/main/win32/cfput.c b/main/win32/cfput.c
deleted file mode 100644
index 7d56d469d27cea79a6201603e0f4192ec9f5c3ca..0000000000000000000000000000000000000000
--- a/main/win32/cfput.c
+++ /dev/null
@@ -1,72 +0,0 @@
-/* @(#)root/main:$Id$ */
-/* Author: Valery Fine(fine@vxcern.cern.ch) 02/02/90 */
-
-/*
- * $Id$
- *
- * $Log: cfput.c,v $
- * Revision 1.4 1997/10/23 16:33:19 mclareni
- * NT mods
- *
- * Revision 1.3 1997/02/04 17:35:12 mclareni
- * Merge Winnt and 97a versions
- *
- * Revision 1.2 1997/01/15 16:25:33 cernlib
- * fix from F.Hemmer to return rfio return code
- *
- * Revision 1.1.1.1.2.1 1997/01/21 11:30:11 mclareni
- * All mods for Winnt 96a on winnt branch
- *
- * Revision 1.1.1.1 1996/02/15 17:49:36 mclareni
- * Kernlib
- *
- */
-
-/*> ROUTINE CFPUT
- CERN PROGLIB# Z310 CFPUT .VERSION KERNFOR 4.29 910718
- ORIG. 12/01/91, JZ
- CALL CFPUT (LUNDES, MEDIUM, NWREC, MBUF, ISTAT)
- write to the file :
- LUNDES file descriptor
- MEDIUM = 0,1,2,3 : primary disk/tape, secondary disk/tape
- NWREC record size, number of words to be written
- MBUF vector to be written
- *ISTAT status, =zero if success
-*/
-#include <errno.h>
-#define NBYTPW 4
-#define CERNLIB_CFPUT_CHARACTER
-
-void __stdcall CFPUT(lundes, medium, nwrec, mbuf,
-# ifdef CERNLIB_CFPUT_CHARACTER
- lmbuf,
-# endif
- stat)
-# ifdef CERNLIB_CFPUT_CHARACTER
- int lmbuf;
-# endif
- char *mbuf;
- int *lundes, *medium, *nwrec, *stat;
-{
- int fildes;
- int nbdn, nbdo;
-
- *stat = 0;
- if (*nwrec <= 0) return;
-
-/* write the file */
-
- fildes = *lundes;
- nbdo = *nwrec * NBYTPW;
- nbdn = write (fildes, mbuf, nbdo);
- if (nbdn < 0) goto trouble;
- return;
-
-trouble: *stat = errno;
- perror (" error in CFPUT");
- return;
-}
-/*> END <----------------------------------------------------------*/
-#ifdef CERNLIB_TCGEN_CFPUT
-#undef CERNLIB_TCGEN_CFPUT
-#endif
diff --git a/main/win32/cfputo.c b/main/win32/cfputo.c
deleted file mode 100644
index 6c6b7a2184ab91cdfb683d44a621fe801df703ec..0000000000000000000000000000000000000000
--- a/main/win32/cfputo.c
+++ /dev/null
@@ -1,74 +0,0 @@
-/* @(#)root/main:$Id$ */
-/* Author: Valery Fine(fine@vxcern.cern.ch) 02/02/98 */
-
-/*
- * $Id$
- *
- * $Log: cfput.c,v $
- * Revision 1.4 1997/10/23 16:33:19 mclareni
- * NT mods
- *
- * Revision 1.3 1997/02/04 17:35:12 mclareni
- * Merge Winnt and 97a versions
- *
- * Revision 1.2 1997/01/15 16:25:33 cernlib
- * fix from F.Hemmer to return rfio return code
- *
- * Revision 1.1.1.1.2.1 1997/01/21 11:30:11 mclareni
- * All mods for Winnt 96a on winnt branch
- *
- * Revision 1.1.1.1 1996/02/15 17:49:36 mclareni
- * Kernlib
- *
- */
-
-/*> ROUTINE CFPUT
- CERN PROGLIB# Z310 CFPUT .VERSION KERNFOR 4.29 910718
- ORIG. 12/01/91, JZ
- CALL CFPUT (LUNDES, MEDIUM, NWREC, MBUF, ISTAT)
- write to the file :
- LUNDES file descriptor
- MEDIUM = 0,1,2,3 : primary disk/tape, secondary disk/tape
- NWREC record size, number of words to be written
- MBUF vector to be written
- *ISTAT status, =zero if success
-*/
-#include <errno.h>
-#define NBYTPW 4
-#ifdef CERNLIB_CFPUT_CHARACTER
-# undef CERNLIB_CFPUT_CHARACTER
-#endif
-
-void __stdcall CFPUT(lundes, medium, nwrec, mbuf,
-# ifdef CERNLIB_CFPUT_CHARACTER
- lmbuf,
-# endif
- stat)
-# ifdef CERNLIB_CFPUT_CHARACTER
- int lmbuf;
-# endif
- char *mbuf;
- int *lundes, *medium, *nwrec, *stat;
-{
- int fildes;
- int nbdn, nbdo;
-
- *stat = 0;
- if (*nwrec <= 0) return;
-
-/* write the file */
-
- fildes = *lundes;
- nbdo = *nwrec * NBYTPW;
- nbdn = write (fildes, mbuf, nbdo);
- if (nbdn < 0) goto trouble;
- return;
-
-trouble: *stat = errno;
- perror (" error in CFPUT");
- return;
-}
-/*> END <----------------------------------------------------------*/
-#ifdef CERNLIB_TCGEN_CFPUT
-#undef CERNLIB_TCGEN_CFPUT
-#endif
diff --git a/main/win32/tzvers.f b/main/win32/tzvers.f
deleted file mode 100644
index 3c2de9c62636d2088b0b17563168baa13e02d94e..0000000000000000000000000000000000000000
--- a/main/win32/tzvers.f
+++ /dev/null
@@ -1,259 +0,0 @@
-* @(#)root/main:$Id$ */
-* Author: Valery Fine(fine@vxcern.cern.ch) 02/06/97 */
-
-************************************************************************
-* This subroutine conatined the wrong number of parameters and
-* has not been fixed by CERNLIB yet.
-* For that we include it in the ROOT distribution.
-************************************************************************
-* $Id$
-*
-* $Log: tzvers.F,v $
-* Revision 1.2 1996/04/18 16:14:56 mclareni
-* Incorporate changes from J.Zoll for version 3.77
-*
-* Revision 1.1.1.1 1996/03/06 10:47:28 mclareni
-* Zebra
-*
-*
- SUBROUTINE TZVERS (IXSTOR,LBK,CHIDH,IDNP,ISELP,IFLAG)
-
-C- Find title bank with IDH (and IDN if non-zero)
-C- and a validity range spanning ISELP
-
-*
-* $Id$
-*
-* $Log: mqsys.inc,v $
-* Revision 1.1.1.1 1996/03/06 10:46:54 mclareni
-* Zebra
-*
-*
-*
-
-*
-* mqsys.inc
-*
-
-*
-* $Id$
-*
-* $Log: mzbits.inc,v $
-* Revision 1.1.1.1 1996/03/06 10:46:53 mclareni
-* Zebra
-*
-*
-
-*
-*
-* mzbits.inc
-*
- PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28)
-*
-* $Id$
-*
-* $Log: quest.inc,v $
-* Revision 1.1.1.1 1996/03/06 10:46:52 mclareni
-* Zebra
-*
-*
-*
-*
-* quest.inc
-*
- COMMON /QUEST/ IQUEST(100)
-*
-* $Id$
-*
-* $Log: zebq.inc,v $
-* Revision 1.1.1.1 1996/03/06 10:46:53 mclareni
-* Zebra
-*
-
-*
-*
-* zebq.inc
-*
- COMMON /ZEBQ/ IQFENC(4), LQ(100)
- DIMENSION IQ(92), Q(92)
- EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1))
-*
-* $Id$
-*
-* $Log: mzca.inc,v $
-* Revision 1.1.1.1 1996/03/06 10:46:53 mclareni
-* Zebra
-*
-*
-* Process Master parameters
-*
-* mzca.inc
-*
-
- COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM
- +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ
- +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE
- +, NQTRAC,MQTRAC(48)
- EQUIVALENCE (KQSP,NQOFFS(1))
-
-* Process Master parameters
-
-*
-* $Id$
-*
-* $Log: mzcb.inc,v $
-* Revision 1.1.1.1 1996/03/06 10:46:53 mclareni
-* Zebra
-
-*
-* Current Store and Division
-*
-* mzcb.inc
-*
- COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR
- +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV
- +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END
- +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6)
- DIMENSION IQCUR(16)
- EQUIVALENCE (IQCUR(1),LQSTOR)
-*
-* $Id$
-*
-* $Log: mzcc.inc,v $
-* Revision 1.1.1.1 1996/03/06 10:46:53 mclareni
-* Zebra
-*
-
-*
-* Store Control Table (matrix)
-*
-* mzcc.inc
-*
- COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E
- +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6)
- +, LQSYSS(10), LQSYSR(10), IQTDUM(22)
- +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20)
- +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20)
- +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20)
- +, NQDPSH(20),NQDRED(20),NQDSIZ(20)
- +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21)
- DIMENSION IQTABV(16)
- EQUIVALENCE (IQTABV(1),LQPSTO)
-
-*
-* $Id$
-*
-* $Log: eqlqt.inc,v $
-* Revision 1.1.1.1 1996/03/06 10:46:53 mclareni
-* Zebra
-*
-
-*
-* TZ - 1 structural link (only)
-*
-* eqlqt.inc
-*
- DIMENSION LQT(9)
- EQUIVALENCE (LQT(1),LQSYSS(3))
-C-------------- END CDE -----------------
- INTEGER CHIDH(9), IDNP(9), ISELP(9)
-
- DIMENSION NAMESR(2)
- DATA NAMESR / 4HTZVE, 4HRS /
-
-*
-* $Id$
-*
-* $Log: q_jbyt.inc,v $
-* Revision 1.1 1996/04/18 16:15:07 mclareni
-* Incorporate changes from J.Zoll for version 3.77
-*
-*
-
-*
-* q_jbyt.inc
-*
- JBYT (IZW,IZP,NZB) = ISHFT (ISHFT(IZW,33-IZP-NZB), -32+NZB)
-*
-* $Id$
-*
-* $Log: qstore.inc,v $
-* Revision 1.1.1.1 1996/03/06 10:46:53 mclareni
-* Zebra
-*
-*
-
-*
-*
-* qstore.inc
-*
- IF (JBYT(IXSTOR,27,6).NE.JQSTOR) CALL MZSDIV (IXSTOR,-7)
-* ------------- for ZEBRA MZ ------------------------------
-
- ISEL = ISELP(1)
- IDN = IDNP(1)
-C* CALL UCTOH (CHIDH,IDH,4,4)
- CALL UCOPY (CHIDH,IDH,1)
-
- L = LQT(KQT+1)
- GO TO 12
-
- 11 L = LQ(KQS+L)
- 12 IF (L.EQ.0) GO TO 21
- IF (IQ(KQS+L-4).NE.IDH) GO TO 11
-
- IF (IDN.NE.0) THEN
- IF (IDN.NE.IQ(KQS+L-5)) GO TO 11
- ENDIF
-
- IF (ISEL.LT.IQ(KQS+L+1)) GO TO 11
- IF (ISEL.GT.IQ(KQS+L+2)) GO TO 11
-
- LBK = L
- RETURN
-
-C-- bank not found
-
- 21 IF (IFLAG.EQ.0) THEN
- LBK = 0
- RETURN
- ENDIF
-*
-* $Id$
-*
-* $Log: qtrace.inc,v $
-* Revision 1.1.1.1 1996/03/06 10:46:54 mclareni
-* Zebra
-
-*
-* with check on capacity MQTRAC
-*
-* qtrace.inc
-*
- MQTRAC(NQTRAC+1) = NAMESR(1)
- MQTRAC(NQTRAC+2) = NAMESR(2)
- NQTRAC = NQTRAC + 2
- IF (NQTRAC.GE.41) CALL ZFATAL
- IQUEST(2)= IDH
- IQUEST(3)= IDN
- IQUEST(4)= ISEL
- IQUEST(5)= LQT(KQT+1)
- K = IFLAG
- IF (K.LT.100) K=62
- CALL ZTELL (K,1)
- END
-* ==================================================
-
-*
-* $Id$
-*
-* $Log: qcardl.inc,v $
-* Revision 1.1.1.1 1996/03/06 10:46:55 mclareni
-* Zebra
-*
-*
-
-*
-*
-* qcardl.inc
-*