CALL "C$MONITOR" USING opCode                         parameters                  GIVING returnCode  | 
opCode  | Function to be executed. Valid values, defined in iscobol.def.  | |
get-no-monitor  | Add keystrokes to the end of the keyboard buffer  | |
get-monitor-info  | Add keystrokes to the beginning of the keyboard buffer  | |
parameter1  | Parameters depend on the opcode.  | |
       working-storage section.        copy "iscobol.def".        77 monitor-count pic 99.        77 main-index    pic 99.        procedure division.        main.            call "c$monitor" using cmonitor-get-no-monitor                                   monitor-count, main-index.            display "there are " monitor-count " monitors available".            display "the default monitor is number " main-index.  |