WSJT-X/libm65/chkmsg.f

      subroutine chkmsg(message,cok,nspecial,flip)

      character message*22,cok*3

      nspecial=0
      flip=1.0
      cok="   "

      do i=22,1,-1
         if(message(i:i).ne.' ') go to 10
      enddo
      i=22

 10   if(i.ge.11) then
         if ((message(i-3:i).eq.' OOO') .or. 
     +        (message(20:22).eq.' OO')) then
            cok='OOO'
            flip=-1.0
            if(message(20:22).eq.' OO') then
               message=message(1:19)
            else
               message=message(1:i-4)
            endif
         endif
      endif

      if(message(1:3).eq.'RO ')  nspecial=2
      if(message(1:4).eq.'RRR ') nspecial=3
      if(message(1:3).eq.'73 ')  nspecial=4

      return
      end
Set properties for native eol style and the "Rev" keyword. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@2464 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2012-05-22 17:09:48 +00:00			`subroutine chkmsg(message,cok,nspecial,flip)`

			`character message22,cok3`

			`nspecial=0`
			`flip=1.0`
			`cok=" "`

			`do i=22,1,-1`
			`if(message(i:i).ne.' ') go to 10`
			`enddo`
			`i=22`

			`10 if(i.ge.11) then`
			`if ((message(i-3:i).eq.' OOO') .or.`
			`+ (message(20:22).eq.' OO')) then`
			`cok='OOO'`
			`flip=-1.0`
			`if(message(20:22).eq.' OO') then`
			`message=message(1:19)`
			`else`
			`message=message(1:i-4)`
			`endif`
			`endif`
			`endif`

			`if(message(1:3).eq.'RO ') nspecial=2`
			`if(message(1:4).eq.'RRR ') nspecial=3`
			`if(message(1:3).eq.'73 ') nspecial=4`

			`return`
			`end`