diff --git a/flushqqq.f90 b/flushqqq.f90
new file mode 100644
index 000000000..03c996df8
--- /dev/null
+++ b/flushqqq.f90
@@ -0,0 +1,10 @@
+subroutine flushqqq(lu)
+
+#ifdef Win32
+  use dfport
+#endif
+
+  call flush(lu)
+
+  return
+end subroutine flushqqq
diff --git a/fstatqqq.f90 b/fstatqqq.f90
new file mode 100644
index 000000000..2e0cb6649
--- /dev/null
+++ b/fstatqqq.f90
@@ -0,0 +1,14 @@
+subroutine fstatqqq(lu,istat,ierr)
+
+#ifdef Win32
+  use dfport
+#endif
+
+#ifdef Win32
+  ierr=fstat(lu,istat)
+#else
+  call fstat(lu,istat,ierr)
+#endif
+
+  return
+end subroutine fstatqqq
diff --git a/map65a0.f90 b/map65a0.f90
new file mode 100644
index 000000000..05b275d18
--- /dev/null
+++ b/map65a0.f90
@@ -0,0 +1,9 @@
+subroutine map65a0
+
+  include 'gcom2.f90'
+
+  call map65a
+  ndecdone=1
+
+  return
+end subroutine map65a0
diff --git a/rfile3a.f90 b/rfile3a.f90
new file mode 100644
index 000000000..9f0fb5a35
--- /dev/null
+++ b/rfile3a.f90
@@ -0,0 +1,13 @@
+!----------------------------------------------------- rfile3a
+subroutine rfile3a(infile,ibuf,n,ierr)
+
+  character*11 infile
+  integer*1 ibuf(n)
+
+  open(10,file=infile,form='binary',status='old',err=998)
+  read(10,end=998) ibuf
+  ierr=0
+  go to 999
+998 ierr=1002
+999 return
+end subroutine rfile3a
diff --git a/sysqqq.f90 b/sysqqq.f90
new file mode 100644
index 000000000..609253cb7
--- /dev/null
+++ b/sysqqq.f90
@@ -0,0 +1,13 @@
+subroutine sysqqq(cmnd,iret)
+
+#ifdef Win32
+  use dfport
+#else
+  integer system
+#endif
+  character*(*) cmnd
+
+!  iret=system(cmnd)
+
+  return
+end subroutine sysqqq