SELECT CASE文 CASE文 END SELECT文 |
[CASE文の名前:] SELECT CASE(式) CASE(選択子) [CASE文の名前] 処理1 [CASE(選択子)] [CASE文の名前] [処理2] [CASE DEFAULT] [CASE文の名前] [処理3] END SELECT [CASE文の名前] |
[例] |
SELECT CASE(i) CASE(60:) WRITE(*,*) 'goukaku' CASE(40:59) WRITE(*,*) 'sai siken' CASE DEFAULT WRITE(*,*) 'fugoukaku' END SELECT