Category : Pascal Source Code
Archive   : SPRITES.ZIP
Filename : DEMO5.PAS

(* ********************************************************* *)
(* *)
(* This program presents a simple example of XOR animation. *)
(* None of the multipage techniques are used here. *)
(* *)
(* (c) Donald L. Pavia *)
(* Ver 1.0 Department of Chemistry *)
(* February 1986 Western Washington University *)
(* Bellingham, Washington 98225 *)
(* *)
(* ********************************************************* *)

program Demo5;

var start,finish,counter,step,hold,i,position : integer;

{----------------------------------------------------------------------------}
{$I Sprites.Lib}
{----------------------------------------------------------------------------}

BEGIN

LoadTable ('Demo5.Tab');

REPEAT
clrscr;
GraphColorMode; GraphBackGround (1); Palette (2);

start := 1; finish := 12; step := 0; counter := 0;
position := 150; hold := 125;

TextColor (1);
gotoxy (10,4); write ('XOR ANIMATION');

REPEAT
for i := start to finish do
begin
Sprite := Table[i]; XorSpriteC (position,100);

Sprite := Table[i+12]; XorSpriteC (position+12,120);

Delay (Hold);

Sprite := Table[i]; XorSpriteC (position,100);

Sprite := Table[i+12]; XorSpriteC (position+12,120);

position := position + Step; counter := counter + 1;
end;
Delay (1750);

UNTIL (position >= 300) or (counter >= 40);

gotoxy (5,23); write ('Repeat Again? Y/N ? ');
repeat
read (Kbd,Wait);
until UpCase(Wait) in ['Y','N'];

UNTIL UpCase(Wait) = 'N';

TextMode (c80);

END.