
    (* **************************************************************** *)
    (*                                                                  *)
    (*                        SpriteDemo8                               *)
    (*                                                                  *)
    (*  This short program shows you how to use the include files that  *)
    (*  can be generated by designer.com. These files allow you to      *)
    (*  "hard-code" the sprites directly in your program. This avoids   *)
    (*  any need for external disk files and disk access.               *)
    (*                                                                  *)
    (*                              (c) Donald L. Pavia                 *)
    (*      Ver 1.0                 Department of Chemistry             *)
    (*    February 1986             Western Washington University       *)
    (*                              Bellingham, Washington  98225       *)
    (*                                                                  *)
    (* **************************************************************** *)

                                           { this sprite constant was copied }
program Demo8;                             { from santa.inc using the ^KR    }
                                           { editor directive - that is, the }
                                           { file santa.inc was directly     }
                                           { included into the code          }
 const  santa : array[1..128] of byte =
     ( 9,0,5,0,0,0,2,170,0,0,0,0,170,170,170,0,
       0,10,170,170,160,63,0,255,255,255,255,0,0,12,0,0,
       48,0,0,48,196,19,12,0,0,255,242,143,255,0,0,0,
       63,252,0,0,170,175,242,143,250,170,170,163,255,255,202,170,
       0,0,42,170,160,0,0,2,170,170,170,191,0,255,255,255,
       255,63,0,255,255,255,255,0,0,48,84,21,12,0,3,0,
       0,0,0,192,0,15,194,131,240,0,0,15,200,35,240,0,
       170,143,252,63,242,170,170,168,255,255,42,170,0,0,0,0 );

{----------------------------------------------------------------------------}
{$I Dragon.inc}
{----------------------------------------------------------------------------}
                                           { Dragon.inc is a sprite file on  }
                                           { on the disk - it has the same   }
                                           { form as the typed constant above}
{----------------------------------------------------------------------------}
{$I Sprites.Lib}
{----------------------------------------------------------------------------}
                                            { Sprites.Lib contains the       }
                                            { essential definitions and the  }
BEGIN                                       { necessary driver routines      }
     clrscr;
     GraphColorMode; GraphBackGround (1); Palette (2);

     move (Santa,Sprite,128);               { move is used since it ignores  }
     PutSPriteC (100,100);                  { the fact that Santa and Sprite }
                                            { technically do not agree as to }
     move (Dragon,Sprite,128);              { their type                     }
     PutSpriteC (220,100);

     gotoxy (10,22); write ('Press <ENTER> to Quit');
     read (Kbd,Wait);
     TextMode (c80);                                       { exit gracefully }

END.
