diff --git a/lib/ft8/foxgen_wrap.f90 b/lib/ft8/foxgen_wrap.f90
new file mode 100644
index 000000000..72a088727
--- /dev/null
+++ b/lib/ft8/foxgen_wrap.f90
@@ -0,0 +1,24 @@
+subroutine foxgen_wrap(msg32,msgbits,itone)
+
+  parameter (NN=79,ND=58,KK=87,NSPS=4*1920)
+  parameter (NWAVE=NN*NSPS)
+
+  character*32 msg32,cmsg
+  character*6 mycall6
+  integer*1 msgbits(KK),msgbits2
+  integer itone(NN)
+  common/foxcom/wave(NWAVE),nslots,i3bit(5),cmsg(5),mycall6
+  common/foxcom2/itone2(NN),msgbits2(KK)
+
+  nslots=1
+  i1=index(msg32,'<')
+  i2=index(msg32,'>')
+  mycall6=msg32(i1+1:i2-1)//'    '
+  cmsg(1)=msg32
+  i3bit(1)=1
+  call foxgen()
+  msgbits=msgbits2
+  itone=itone2
+
+  return
+end subroutine foxgen_wrap