Computercraft starwars movie on/off

shell.run('monitor', 'top', 'clear')

function waitForRS(n)
  repeat
    os.pullEvent('redstone')
  until rs.testBundledInput('bottom', n)
end

function movie()
  shell.run('monitor','top', 'secret/alongtimeago')
end

function stop()
  waitForRS(2)
end

waitForRS(1)
parallel.waitForAny(movie, stop)