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