! 例題 7-7  簡易グラフ（三角関数） ［内部ファイル ］
PROGRAM ex7_7

  IMPLICIT NONE
  INTEGER :: p, k
  REAL :: x, rad = 3.1415927E0 / 180.0E0
  CHARACTER ( 52 ) :: init, axis, tics, line * 57

  init = ' |                        |                        |'
  axis = ' ---------------------------------------------------'
  tics = '-1____|____|____|____|____0____|____|____|____|___+1'
  PRINT '( 1X, A57 )', ' Deg ' // tics

  DO k = -180, 180, 10
    WRITE ( line( 1 : 5 ), '( I4, 1X )' )  k

    IF ( k /= 0 ) THEN
      line( 6 : 57 ) = init
    ELSE
      line( 6 : 57 ) = axis
    END IF

    x = k * rad
    p = NINT( 25.0E0 * SIN( x ) ) + 32
    line( p : p ) = 's'
    p = NINT( 25.0E0 * COS( x ) ) + 32
    line( p : p ) = 'c'

    PRINT '( 1X, A57 )', line
  END DO

END PROGRAM ex7_7