CALL SPRITE

'initialize some sprites
SPSET 0,1
SPSET 1,2

'a function that will serve as our sprite callback, 
'evaluated each time CALL SPRITE is executed
DEF MYFUNC
  'log the current ID
  'note that it alternates, going through both id 0 and 1 each call
  '(you can use additional logging to verify this)
  ?CALLIDX

  VAR X, Y
  'use OUT form of SPOFS to get position
  'special var CALLIDX represents sprite ID being evaluated
  SPOFS CALLIDX OUT X, Y

  'normal SPOFS using CALLIDX
  SPOFS CALLIDX, X+1, Y+1+CALLIDX 'just to differentiate sprites
END

'attach MYFUNC to sprites
SPFUNC 0, "MYFUNC"
SPFUNC 1, "MYFUNC

WHILE 1
  VSYNC

  'evaluate sprite callbacks in a loop
  CALL SPRITE
  'since we attached MYFUNC which moves the sprite every frame
  'the two sprites will move across the screen
WEND

http://smilebasicsource.com/forum?fpid=19365#post_19365

FOR I = 0 TO 511
SPSET I,0
SPVAR I,0,20
SPVAR I,1,50
SPVAR I,2,12
SPFUNC I, "WP"
NEXT
DEF WP
VAR X = SPVAR(CALLIDX,0),Y=SPVAR(CALLIDX,1),Z=SPVAR(CALLIDX,2)
 SPOFS CALLIDX, 200+(X/Z),120+(Y/Z)
SPSCALE CALLIDX,1/Z,1/Z
END
CALL SPRITE

DEF WP ID,X,Y,Z
 SPOFS ID, 200+(X/Z),120+(Y/Z)
SPSCALE ID,1/Z,1/Z
END
'--initialize sprites, doesn't count
FOR I = 0 TO 511
SPSET I,0
NEXT
'THIS counts because it is the doing the same thing as CALL SPRITE
FOR I = 0 TO 511
WP I,20,50,12
NEXT