[comp.sys.amiga] Help with Sprites in M2

STU_AXFR%JMUVAX1.BITNET@vtvm2.cc.vt.edu (07/28/90)

        I would appreciate any help that I might get.  All I am trying
to do is display a sprite in Modula II but the program locks up right
after MoveSprite statement.  It does display the sprite at the right
location but goes GURU after doing so (before getting to FreeSprite).
I am using M2Amiga.  It sometimes draws a bunch of lines under the sprite.
Thanks for any help.

                              Ali Fracyon
                              James Madison University

VAR
 SpriteDataAddress: ADDRESS;
 SpriteData: ARRAY[1..5] OF SpriteRow;
 SpriteNumber: INTEGER;
 SpritePointer: SimpleSpritePtr;
 i: CARDINAL;

BEGIN
 .
 .
 .
 SpriteData[1] := "0000000000000000";
 SpriteData[2] := "0000000110000000";
 SpriteData[3] := "0000002222000000";
 SpriteData[4] := "0000000110000000";             w  h
 SpriteData[5] := "0000000000000000";             |  |
 SpriteDataAddress := MakeSpriteData(SpriteData, 16, 5);
 SpriteNumber := GetSprite(SpritePointer, -1);
 IF SpriteNumber = -1 THEN HALT END;
 ChangeSprite(drawRP, SpritePointer, SpriteDataAddress);
 MoveSprite(drawRP, SpritePointer, 100, 100);
 .
 .
 .
 FreeSprite(SpriteNumber);

END .