%%%%%%%%%%%%%%%%%%%%%%%%%%%% Visual 200 Driver %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% Richard, 25/May/84 %

v200_cursor(X, Y) :-
        put(27), put(0'Y),
        YY is 23 - Y + 32, put(YY),
        XX is X + 32, put(XX).

v200_clear_screen :-
        put(27), put(0'v).

v200_clear_line :-
        put(27), put(0't).

v200_erase_line :-
        put(27), put(0'K).

v200_background :-
        put(27), put(0'4).

v200_foreground :-
        put(27), put(0'3).