' TO USE BUILT-IN ACTIONSCRIPT COMPILER YOU HAVE TO HAVE ADDITIONAL "AS LICENSE"
 
  W = 640
  H = 480
  Set Movie = CreateObject("SWFScout.FlashMovie")
  Movie.InitLibrary "demo","demo"
 
' Movie creating and setting parameters
 
  Movie.BeginMovie 0,0,W,H,1,12,6
  Movie.Compressed = true
  Movie.SetBackgroundColor 255,255,255
Font = Movie.AddFont( "Arial",12,true,false,false,false,0)
FontBig = Movie.AddFont("Arial",40,true,false,false,false,0)
 
Text = Movie.AddText("Click on button to open web-site",0,0,0,255,Font, 0, 80, 170, 160)
Movie.PlaceText Text,Movie.CurrentMaxDepth ' place text
 
  Shape = Movie.AddShape
  Movie.SHAPE_Circle 0, 0, 40
  Movie.SHAPE_BeginRadialGradient
  Movie.SHAPE_AddRadialGradientColor 255,255,255,255
  Movie.SHAPE_AddRadialGradientColor 0,0,255,255
  Movie.SHAPE_EndRadialGradient 35,35
 
Sprite = Movie.AddSprite
 
Movie.SPRITE_PlaceShape Shape, 1
 
Movie.PlaceSprite Sprite, 2
Movie.PLACE_SetTranslate 200, 150
 
sCode = "onClipEvent(keyDown){switch (Key.getCode()){case Key.LEFT:{this._x -= 1;break;}case Key.RIGHT:{this._x += 1;break;}case Key.UP:{this._y -= 1;break;}case Key.DOWN:{this._y += 1;break;}}}"
 
 
MsgBox sCode
 
Movie.PLACE_CompileEvent sCode
MsgBox Movie.ASCompilerLog
Movie.ShowFrame 1
Movie.EndMovie
 
Movie.SaveToFile "KeyPress_AS.swf"