//    Instruction Example :      scroll.pause (objectid)


        screen.resolution.set (512,384)

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

        screen.set (BACK)
          @layer1=Macro.Scroll.Display ("avo\cloud.png",96,000+92,050)
          @layer2=Macro.Scroll.Display ("avo\mountain_02.png",96,033+92,100)
          @layer3=Macro.Scroll.Display ("avo\mountain_01.png",96,055+92,150)
          @layer4=Macro.Scroll.Display ("avo\ground.png",96,147+92,300)
        screen.end ()
        text.display ("Press a key to pause the scroll.",CENTER,10)
        keyboard.wait ()

        scroll.pause (@layer2)
        text.display ("Press a key to resume the scroll.",CENTER,10)
        keyboard.wait ()

        scroll.resume (@layer2)
        text.display ("Press a key to exit.",CENTER,350)
        keyboard.wait ()

        script.stop ()

        function Macro.Scroll.Display ($filename,%posx,%posy,!speed) : objectid
          @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=scroll.create (@scrollBuffer,LEFT,320,icon.height.get(@TempBuffer))
          scroll.display (@scroll,%posx,%posy)
          icon.free (@TempBuffer)
          return (@scroll)
        end function