Code Booting

  dim p As Picture = bootImage                       //NAME OF INPUT IMAGE IN PROJECT
  dim m As MemoryBlock = NewMemoryBlock(p.Width * p.Height * 3)
  m.LittleEndian = false
  for i As integer = 0 to p.Width * p.Height - 1
    m.ColorValue(i*3, 24) = p.Graphics.Pixel(i mod p.Width, Floor(i / p.Width))
  next
  dim f As FolderItem = SpecialFolder.Desktop.Child("Cursor Editor.rbp")   //OUTPUT FILE NAME
  BinaryStream.Create(f).Write m.StringValue(m.Byte(0) + 4, m.Long(m.Byte(0)))