/*******************************************************/
/*                                                     */
/* 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("garnet.font",16.0);
   upset("fsty",1.0);
   uprint(10.,90.,"garnet.font underlined");

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

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

   upset("fsty",0.0);
   umove(10.,30.);
   uprnt1("inte",25.0);
   uprnt1("text","   ");
   uprnt1("real",25.0);
   uprnt1("text"," ");

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

   ugrin(&x,&y);

   uend();

}