ACCEPT ステートメント - 形式 8 - セッション I/O

1 ACCEPT ID-1
2? FROM
2.1 DISPLAY
3? END-ACCEPT