randomize timer()
call_magnify(2)
one$=call_charpat(49)
call_char(128,one$) `Create image frame 1 from ASCII 49, the number "1"
a$ = "00BBB0000099190000999000000900000FFFFF00F0FFF0F090FFF0900CC0CC00"
b$ = "1111111122223333444455556666888888889999AAAABBBBCCCCDDDDEEEEFFFF"
call_multicolorchar(129,a$) `Create image frame 2 using a multicolor character
call_multicolorchar(130,b$) `Create image frame 3 using a multicolor character
call_createanimation(1,128,3,1) ` Create animation sequence 1 - 3 frames from 128 to 130
call_createanimation(2,65,26,1) ` Create animation sequence 2 - 26 frames from 65 to 90
call_sprite(1,128,0,96,128,rnd(20)-10,rnd(20)-10) ` Create sprite for animation sequence 1
call_sprite(2,65,5,80,1,0,5) ` Create sprite for animation sequence 2
call_createanimatedsprite(1,1,500) ` Start sprite animation 1
tiwaitkey()
CALL_PAUSEANIMATION(1) ` Pause animation number 1
call_createanimatedsprite(2,2,500) ` and Start sprite animation 2
tiwaitkey()
CALL_PAUSEANIMATION(2) ` Pause animation number 2
tiwaitkey()
CALL_RESUMEANIMATION(1) ` Resume animation number 1
tiwaitkey()
CALL_RESUMEANIMATION(2) ` and Resume animation number 2
tiwaitkey()
end