c FORTRAN 77
 
c This program accepts two numbers from the keyboard and divides the first
c number by the second.  If the second number is a 0, it prints an error
c message.
 
        PROGRAM divide
c Declare variables
        REAL dividend, divisor, quotient
                
c Prompt for and enter dividend and divisor.
        PRINT *, 'Enter two numbers.'
        PRINT *, 'The first number is the dividend, the second the divisor.'
        READ *, dividend, divisor
        
c Check to see if divisor is = 0; if so, display message and end program.
        IF (divisor .eq. 0.0) THEN
           PRINT *, 'The division is undefined (the divisor is zero).'
           STOP
        END IF
        
c Do division
        quotient=dividend/divisor
 
c Print quotinet.
        PRINT *, 'The quotient of the two numbers is ', quotient
 
        STOP
        END