Listing 1

EVENT_MSG msg;                      /* allocate space for a message */

Picture("test", NULL);           /* create a picture to write to */
DrawAt(200, 100);                       /* set the coordinates */
DrawText("Hello, world", 0, 0, 0, NULL, NULL);        /* draw it */
Window("test", "T", "C", NULL);                       /* show it */
GetEvent(0, &msg, sizeof(EVENT_MSG));       /* wait for an event */