/*+ * VOID ttbclr() * * Description : Clear the entire terminal input buffer * * Arguments : none * * Author : R. Beetz * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.0 Date : 24-dec-82 * * Module name : TTBCLR.FOR * * Package : RT11-LIBRARY * * Updates : name version * * description : * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : ttbclr.c * * Package : TRAMPC * * Updates : name version * * description : -*/ #include VOID ttbclr() { VOID inpmod(); METACH igtchr(); COUNT jsw; jsw = JSW; inpmod("NOECHO+NOWAIT"); while((igtchr()) > NULL); JSW = jsw; }