home *** CD-ROM | disk | FTP | other *** search
- /*52 instructions*/
-
- #include "colourtrans.h"
- #include "font.h"
- #include "os.h"
- #include "pdriver.h"
-
- os_error *x (int page, char *t)
-
- { bool more;
- os_box req;
- os_error *error = NULL;
-
- if ((error = xpdriver_draw_page (1, &req, page, NULL, &more,
- NULL)) != NULL)
- goto finish;
-
- while (more)
- { if ((error = xcolourtrans_set_gcol (os_COLOUR_BLACK,
- colourtrans_SET_FG, os_ACTION_OVERWRITE, NULL, NULL))
- != NULL)
- goto finish;
-
- if ((error = xfont_paint (0, t, NONE, 0, 0, NULL, NULL, 0))
- != NULL)
- goto finish;
-
- if ((error = xpdriver_get_rectangle (&req, &more, NULL)) !=
- NULL)
- goto finish;
- }
-
- finish:
- return error;
- }
-