home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / X_PROLOG.LZH / X_PROLOG / VT52 < prev    next >
Text File  |  1990-08-13  |  1KB  |  27 lines
  1. % VT52 screen control
  2.  
  3. cursor_up :- put(27), put(['A']).
  4. cursor_down :- put(27), put(['B']).
  5. cursor_right :- put(27), put(['C']).
  6. cursor_left :- put(27), put(['D']).
  7. clear_screen :- put(27), put(['E']).
  8. cursor_home :- put(27), put(['H']).
  9. cursor_previous :- put(27), put(['I']).
  10. erase_to_end_of_page :- put(27), put(['J']).
  11. erase_to_end_of_line :- put(27), put(['K']).
  12. insert_line :- put(27), put(['L']).
  13. delete_line :- put(27), put(['M']).
  14. set_cursor(Y,X) :- Xpos is X+[' '], Ypos is Y+[' '], put(27),put(['Y']),
  15.             put(Ypos), put(Xpos).
  16. erase_to_beginning_of_page :- put(27), put([d]).
  17. cursor_visible :- put(27), put([e]).
  18. cursor_invisible :- put(27), put([f]).
  19. save_cursor_position :- put(27), put([j]).
  20. restore_cursor_position :- put(27), put([k]).
  21. erase_line :- put(27), put([l]).
  22. erase_line_upto_cursor :- put(27), put([o]).
  23. reverse_video :- put(27), put([p]).
  24. normal_video :- put(27), put([q]).
  25. wrap_text :- put(27), put([v]).
  26. nowrap_text :- put(27), put([w]).
  27.