/* screen.plg: screen manipulation predicates for Amstrad CPM+ */
/* David Harvey 18/1/89 */

/*-------------------------------

import using
    [screen].

The predicates do what they say!

--------------------------------*/

/* clear screen and home cursor */
clear:-put(27),put(69),put(27),put(72).

/* position cursor at Row,Col */
at(Row,Col):-Y is Row+32, Z is Col+32,put(27),put(89),put(Y),put(Z).

/* cursor off/on */
curoff:-put(27),put(102).
curon:-put(27),put(101).

/* rv off/on */
rvoff:-put(27),put(113).
rvon:-put(27),put(112).

/* EOF screen.plg */t(102).
curon:-put(27),put(101).

/* rv off/on