#include "gwin.user.h"
/*******************************************************/
/*                                                     */
/* GRAPHICS  MAIN                                      */
/*                                                     */
/*******************************************************/
main()
{
float x,y;

   USTART("low1",0.,320.,0.,200.);

/* This shows how you would retrieve a font from some other disk.     */
/* This font set is on fish 202.   I have tested this and it works.   */
/* It is commented out here since fish 202 is probably not in your    */
/* df1: drive right now. -- Right?                                    */
/* ufont("df1:SlavicFonts/cyrillic/moskva.font",11.0); */

   ufont(G,"garnet.font",16.0);
   upset(G,"fsty",1.0);
   uprint(G,10.,90.,"garnet.font underlined");

   ufont(G,"topaz.font",11.0);
   upset(G,"fsty",0.0);
   uprint(G,10.,80.,"topaz.font  ");

   upset(G,"fsty",1.0);
   uprnt1(G,"text","line continuation...");

   upset(G,"fsty",0.0);
   umove(G,10.,30.);
   /* uprnt1(G,"inte",25.0); */
   uprnt1(G,"text","25.0");
   uprnt1(G,"text","   ");
   /* uprnt1(G,"inte",25.0); */
   uprnt1(G,"text","25");
   uprnt1(G,"text"," ");

   upset(G,"fsty",3.0);
   uprnt1(G,"text","BOLD & underlined.");

   if(ugrin(G,&x,&y)){UEND();exit(0);};

   UEND();

}