Rem *****************************************  
Rem *        AMOS Example 11.2              *  
Rem *  Using the maximum number of sprites  *  
Rem *    (c) Mandarin / Jawx 1990           *  
Rem *****************************************  
Rem
Rem Create an image  
MAKE_OBJECT
Rem load sprite colours into current screen    
Flash Off : Get Sprite Palette 
Rem Initialise screen
Curs Off : Cls 0 : Paper 0 : Locate 0,0 : Centre "<Hardware sprites> "
Do 
   Rem Move sprites with the mouse  
   Rem Slow down tests to keep up with the mouse
   Wait Vbl 
   Rem Read mouse coords
   X=X Mouse : Y=Y Mouse
   Rem Position four sprites on the screen
   For SX=0 To 3
      Sprite SX+9,SX*32+X,Y,1
   Next SX
   Rem Remove mouse and allow the fourth sprite to be displayed 
   If Mouse Key Then Hide 
Loop 
Procedure MAKE_OBJECT
   Rem Generate a 16x16 sprite image (see GET SPRITE) 
   Cls 0
   Rem Ship 
   Polygon 8,0 To 16,16 To 0,16 To 8,0
   Ink 0
   Polygon 8,10 To 16,16 To 0,16 To 8,10
   Get Sprite 1,0,0 To 16,16
End Proc