CALL PWAIT (TOUT, WKID, ICL, IDNR)
PNCLAS : 0 (NONE) PLOCAT : 1 (LOCATOR) PSTROK : 2 (STROKE) PVALUA : 3 (VALUATOR) PCHOIC : 4 (CHOICE) PPICK : 5 (PICK) PSTRIN : 6 (STRING)
Waits for an event on the workstations that are in EVENT mode.
If the input queue is empty, GPHIGS waits until an event takes place or until the TOUT expires. If the timeout expires without an event taking place, a NONE value is returned to the input device class. If there is at least one report in the queue, the oldest is removed from the queue and transferred to the PHIGS state list in the current event report. The workstation identifier, the class of input device and logical input device number are returned and the associated values are made available for interrogation by a function of type GET <input class>.
Note:
C Get next event into the PHIGS event queue ; return without waiting if queue is empty REAL TOUT INTEGER WKID,ICL,IDNR ...... TOUT = 0. call PWAIT(TOUT,WKID,ICL,IDNR) ......
set locator mode, set stroke mode, set valuator mode, set choice mode, set pick mode, set string mode, get locator, get stroke, get valuator, get choice, get pick, get string , flush device events, inquire more simultaneous events.