--- trunk/deep65.f90.old	2017-10-13 07:10:27.649174104 +0000
+++ trunk/deep65.f90	2017-10-13 07:12:34.057249767 +0000
@@ -2,16 +2,16 @@
 
   parameter (MAXCALLS=7000,MAXRPT=63)
   real s3(64,63)
-  character callsign*12,grid*4,message*22,hisgrid*6,c*1,ceme*3
-  character*12 mycall,hiscall
+  character callsign*12,grid*4,message*22,hisgrid*6,shisgrid*4,c*1,ceme*3
+  character*12 mycall,hiscall,shiscall
   character mycall0*12,hiscall0*12,hisgrid0*6
   character*22 decoded
-  character*22 testmsg(2*MAXCALLS + 2 + MAXRPT)
+  character*22 testmsg(3*MAXCALLS + 2 + MAXRPT)
   character*15 callgrid(MAXCALLS)
   character*180 line
   character*4 rpt(MAXRPT)
-  integer ncode(63,2*MAXCALLS + 2 + MAXRPT)
-  real pp(2*MAXCALLS + 2 + MAXRPT)
+  integer ncode(63,3*MAXCALLS + 2 + MAXRPT)
+  real pp(3*MAXCALLS + 2 + MAXRPT)
   common/mrscom/ mrs(63),mrs2(63)
 
   data neme0/-99/
@@ -36,6 +36,8 @@
   rewind 23
   k=0
   icall=0
+  j5=0
+  j6=0
   call cs_lock('deep65')
   do n=1,MAXCALLS
      if(n.eq.1) then
@@ -43,9 +45,13 @@
         do i=4,12
            if(ichar(callsign(i:i)).eq.0) callsign(i:i)=' '
         enddo
+        j5=index(callsign,'/')               ! j5>0 means compound shiscall
+        j6=index(callsign,' ') - 1
+        shiscall=callsign
         grid=hisgrid(1:4)
         if(ichar(grid(3:3)).eq.0) grid(3:3)=' '
         if(ichar(grid(4:4)).eq.0) grid(4:4)=' '
+        shisgrid=grid
      else
         read(23,1002,end=20) line
 1002    format (A80)
@@ -95,6 +101,13 @@
            k=k+1
            testmsg(k)=message
            call encode65(message,ncode(1,k))
+! Insert messages sent to other stations
+           if(j4.lt.1 .and. j5.lt.1) then
+              message=callsign(1:j2)//' '//shiscall(1:j6)//' '//shisgrid
+              k=k+1
+              testmsg(k)=message
+              call encode65(message,ncode(1,k))
+           endif
         endif
      enddo
 10   continue