C     THIS PROGRAM CALCULATES ALL PRIME NUMBERS FROM 11 TO 50           PRIME010
      DO 10 I=11, 50, 2                                                 PRIME020
         J=1                                                            PRIME030
4        J=J+2                                                          PRIME040
         A=J                                                            PRIME050
         A=I/A                                                          PRIME060
         L=I/J                                                          PRIME070
         B=A-L                                                          PRIME080
         IF (B) 5, 10, 5                                                PRIME090
5        IF (J .LT. SQRT (FLOAT (I))) GO TO 4                           PRIME100
         WRITE (6, 105) I                                               PRIME110
105      FORMAT (I4, ' IS PRIME')                                       PRIME120
10    CONTINUE                                                          PRIME130
      END                                                               PRIME140