home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Vectronix 2
/
VECTRONIX2.iso
/
FILES_01
/
X_PROLOG.LZH
/
X_PROLOG
/
VT52
< prev
next >
Wrap
Text File
|
1990-08-13
|
1KB
|
27 lines
% VT52 screen control
cursor_up :- put(27), put(['A']).
cursor_down :- put(27), put(['B']).
cursor_right :- put(27), put(['C']).
cursor_left :- put(27), put(['D']).
clear_screen :- put(27), put(['E']).
cursor_home :- put(27), put(['H']).
cursor_previous :- put(27), put(['I']).
erase_to_end_of_page :- put(27), put(['J']).
erase_to_end_of_line :- put(27), put(['K']).
insert_line :- put(27), put(['L']).
delete_line :- put(27), put(['M']).
set_cursor(Y,X) :- Xpos is X+[' '], Ypos is Y+[' '], put(27),put(['Y']),
put(Ypos), put(Xpos).
erase_to_beginning_of_page :- put(27), put([d]).
cursor_visible :- put(27), put([e]).
cursor_invisible :- put(27), put([f]).
save_cursor_position :- put(27), put([j]).
restore_cursor_position :- put(27), put([k]).
erase_line :- put(27), put([l]).
erase_line_upto_cursor :- put(27), put([o]).
reverse_video :- put(27), put([p]).
normal_video :- put(27), put([q]).
wrap_text :- put(27), put([v]).
nowrap_text :- put(27), put([w]).