REM Voorbeeld uit de tekst Sprites+Bobs

DECLARE FUNCTION GetSprite() LIBRARY
DECLARE FUNCTION AllocMem() LIBRARY
LIBRARY "graphics.library"
LIBRARY "exec.library"

Sprite&=AllocMem(12&,65539&) :REM 65539 geeft soort geheugen aan
IF Sprite&=0 THEN ERROR 7 :REM out of memory
SpriteData&=AllocMem(136&,65539&)
IF SpriteData&=0 THEN ERROR 7 :REM out of memory

SpriteHoogte=32
POKEL Sprite&,SpriteData&
POKEW Sprite&+4,CINT(SpriteHoogte)
POKEW Sprite&+6,Xcoordinaat
POKEW Sprite&+8,Ycoordinaat
POKEW Sprite&+10,0
POKEL SpriteData&,0
FOR I=1 TO 64
    READ Sdata
    POKEW SpriteData&+2+(I*2),Sdata
NEXT I
POKEL SpriteData&+132,0

Hebbes%=GetSprite(Sprite&,-1)
IF Hebbes%=-1 THEN PRINT "GEEN SPRITE VRIJ" : GOTO EIND

CALL ChangeSprite(0,Sprite&,SpriteData&)

CALL ChangeSprite(0,Sprite&,TweedeData&)

CALL MoveSprite(0,Sprite&,X%,Y%) :REM X- en Y-coordinaat met %.

CALL FreeSprite(Hebbes%)
CALL FreeMem&(Sprite&,12&)
CALL FreeMem&(SpriteData&,136&)
LIBRARY CLOSE