//    Instruction Example :     objectid scroll.create (objectid,long,long,long)


        screen.resolution.set (512,384)

        sequence.refresh.set (screen.refresh.get())

        screen.set (BACK)
          Macro.Scroll.Display ("avo\cloud.png",96,000+92,050,LEFT)
          Macro.Scroll.Display ("avo\mountain_02.png",96,033+92,100,RIGHT)
          Macro.Scroll.Display ("avo\mountain_01.png",96,055+92,150,LEFT)
          Macro.Scroll.Display ("avo\ground.png",96,147+92,300,RIGHT)
        screen.end ()

        text.display ("Press a key to exit.",CENTER,350)

        keyboard.wait ()

        script.stop ()

        procedure Macro.Scroll.Display ($filename,%posx,%posy,!speed,%dir)
          @TempBuffer=icon.load ($filename)
          @scrollBuffer=icon.create (320*2,icon.height.get(@TempBuffer))
          screen.set (@scrollBuffer)
            icon.display (@TempBuffer,320*0,0)
            icon.display (@TempBuffer,320*1,0)
          screen.end ()
          scroll.speed.select (!Speed)
          scroll.display (scroll.create (@scrollBuffer,%dir,320,icon.height.get(@TempBuffer)),%posx,%posy)
          icon.free (@TempBuffer)
        end Procedure