// get a picture
Var p as Picture = LogoMBS(500)

// start movie building
Var m as new JPEGMovieMBS

m.Width = 500
m.Height = 500
m.SecondsPerFrame = 0.5

// add frames where we count up
for i as integer = 1 to 20
  Var c as new Picture(500, 500)
  Var g as Graphics = c.Graphics
  g.ForeColor = &c000000
  g.TextSize = 50
  g.DrawPicture p, 0, 0
  g.DrawString str(i), 20, 50
  
  Var j as string = c.GetData(c.FormatJPEG)
  m.AddFrame j
  
next

// generate movie
Var MovieData as string = m.BuildMovie

// and write to file
Var f as FolderItem = SpecialFolder.Desktop.Child("test.mov")
Var b as BinaryStream = BinaryStream.Create(f, true)
b.Write MovieData