home *** CD-ROM | disk | FTP | other *** search
- /* (c) Marietta Systems, Inc. 1987
- * All rights reserved
- *
- * Demonstration program of function set-crsr
- */
- #include "mtest.h"
- void main() {
- int x;
- char text[4];
- clr_scrn("Set_crsr test");
- if (1 > mk_wndw(5, 10, 16, 41, "A 10 X 30 window")) goodbye(501);
- display("123456789012345678901234567890", 1, 1, reverse);
- for (x = 2 ; x <= 10 ; sprintf(text, "%u", x),
- display(text, x++, 1, high));
- /* */
- jump: disp_msg("Cursor to (4,10), press a key",1); read_kb();
- set_crsr(-5, -20);
- disp_msg("Cursor to (6,15), press a key",1); read_kb();
- set_crsr(6, 15);
- disp_msg("Cursor to (1,1), press a key",1); read_kb();
- set_crsr(1, 1);
- disp_msg("Cursor to (10,30), press a key",1); read_kb();
- set_crsr(10, 30);
- idleloop(30);
- if (disp_qry(" Around again")) goto jump;
- goodbye(0);
- }