Parent Directory | Revision Log | Patch
revision 1.1 by simon_mld, Tue Apr 22 22:33:40 2003 UTC | revision 1.2 by spiralvoice, Sat Nov 19 17:19:45 2005 UTC | |
---|---|---|
# | Line 42 module Vt100 = struct | Line 42 module Vt100 = struct |
42 | cx := x; | cx := x; |
43 | cy := y | cy := y |
44 | end; | end; |
45 | Printf.printf "\027[%d;%dH" (y+1) (x+1) | Printf2.lprintf "\027[%d;%dH" (y+1) (x+1) |
46 | ||
47 | let stdvid () = print_string "\027[m" (* "]" *);; | let stdvid () = print_string "\027[m" (* "]" *);; |
48 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |