main 
  func 
    Name "initActor"
    Decl "@void-"
    DynDecl "-v"
    Label 4
    blk
      null.i
      storescr.i scr 1
      const.s str "actu"
      bi.getParamStr
      bi.findActor
      storescr.a scr 2
      const.s str "speaker"
      bi.getParamStr
      bi.findActor
      storescr.a scr 3
  func 
    Name "finishActor"
    Decl "@void-"
    DynDecl "-v"
    Label 5
    blk
  func 
    Name "open"
    Decl "@void-"
    DynDecl ""
    Label 6
    blk
      loadscr.a scr 2
      const.s str "play_to_end"
      bi.a.dyncall str "-v"
      loadscr.a scr 3
      const.s str "start"
      bi.a.dyncall str "-v"
      loadscr.a scr 2
      const.s str "get_duration"
      bi.a.dyncall str ">f"
      storeloc.f loc 11
      const.s str "soundOff"
      loadloc.f loc 11
      bi.evtAppoint
  func 
    Name "close"
    Decl "@void-"
    DynDecl ""
    Label 7
    blk
      loadscr.a scr 2
      const.s str "play_to_start"
      bi.a.dyncall str "-v"
      loadscr.a scr 3
      const.s str "start"
      bi.a.dyncall str "-v"
      loadscr.a scr 2
      const.s str "get_duration"
      bi.a.dyncall str ">f"
      storeloc.f loc 12
      const.s str "soundOff"
      loadloc.f loc 12
      bi.evtAppoint
  func 
    Name "enter"
    Decl "@void-<@actor"
    DynDecl "-v<a"
    Label 8
    blk
      storeloc.a loc 13
      loadscr.i scr 1
      null.i
      equal.i
      jumpz uselab 14
      call uselab 6
      @lab deflab 14
      loadscr.i scr 1
      const.i int 1
      bi.i.add
      storescr.i scr 1
  func 
    Name "leave"
    Decl "@void-<@actor"
    DynDecl "-v<a"
    Label 9
    blk
      storeloc.a loc 16
      loadscr.i scr 1
      const.i int 1
      bi.i.sub
      storescr.i scr 1
      loadscr.i scr 1
      null.i
      equal.i
      jumpz uselab 17
      call uselab 7
      @lab deflab 17
  func 
    Name "soundOff"
    Decl "@void-"
    DynDecl "-v"
    Label 10
    blk
      loadscr.a scr 3
      const.s str "stop"
      bi.a.dyncall str "-v"