C GENERATE & DISPLAY COURSE SUBROUTINE COURSE(C3,C,C1,L,M) C1=C3*RAN(L,M) C1=INT(C1)+C-(C3/2) C2=C-C1 IF (C2.EQ.0)GO TO 20 IF (C2.GT.0)GO TO 10 TYPE 732,C1 GO TO 20 10 TYPE 730,C1 20 RETURN 730 FORMAT('+Turn left heading '$,F4.0,' '$) 732 FORMAT('+Turn right heading '$,F4.0,' '$) END