SELECT CASE...END CASE

:制御式の値に対応した文の選択されたブロックにプログラムの制御を移します。「CASE」を参照してください。

	CHARACTER*1 cmdchar
	. . .
	Files: SELECT CASE (cmdchar)
	  CASE ('0')
	    WRITE (*, *) "Must retrieve one to nine files"
	  CASE ('1':'9')
	    CALL RetrieveNumFiles (cmdchar)
	  CASE ('A', 'a')
	    CALL AddEntry
	  CASE ('D', 'd')
	    CALL DeleteEntry
	  CASE ('H', 'h')
	    CALL Help
	  CASE DEFAULT
	    WRITE (*, *) "Command not recognized; please re-enter"
	END SELECT Files