1subroutine chkmsg(message,cok,nspecial,flip)
2
3  character message*22,cok*3
4
5  nspecial=0
6  flip=1.0
7  cok="   "
8
9  do i=22,1,-1
10     if(message(i:i).ne.' ') go to 10
11  enddo
12  i=22
13
1410 if(i.ge.11) then
15     if((message(i-3:i).eq.' OOO') .or. (message(20:22).eq.' OO')) then
16        cok='OOO'
17        flip=-1.0
18        if(message(20:22).eq.' OO') then
19           message=message(1:19)
20        else
21           message=message(1:i-4)
22        endif
23     endif
24  endif
25
26  if(message.eq.'RO                    ') nspecial=2
27  if(message.eq.'RRR                   ') nspecial=3
28  if(message.eq.'73                    ') nspecial=4
29
30  return
31end subroutine chkmsg
32