!-----  Ex3_5: Seiseki Hyoka   -----
      INTEGER :: i, n1, n2, n3, n4
      n1=0; n2=0; n3=0; n4=0
   1  READ*, i ;    IF(i<0 .OR. i>100) GOTO  9
         SELECT CASE(i)
             CASE(80:)    ; PRINT*,'優'  ;   n1 = n1 + 1
             CASE(70:79)  ; PRINT*,'良'  ;   n2 = n2 + 1
             CASE(60:69)  ; PRINT*,'可'  ;   n3 = n3 + 1
             CASE  DEFAULT; PRINT*,'不可';   n4 = n4 + 1
         END SELECT
      GO TO 1
   9  PRINT*, '  優=', n1, '  良=', n2, '  可=', n3, '  不可=', n4
      END