descri = "(i)           Explore files and folders              "
sliderright = "1"
slideritem = "1"
term.clear()
term.setCursorPos( 1,1 )
slider = " <-ame Delete Copy [Explorer] RedPulse Edit Ren-> "
while true do
print("")
print("")
print("")
print("")
print("")
print("")
print("")
print("")
print(slider)
print("")
print("                    Description:              ")
print(descri)
print("")
print("")
print("")
print("___________________________________________________")
print("                     RandomOS                      ")
local event, param = os.pullEvent()
------------------------------
--------Left And Right--------
------------------------------
 if event == "key" and param == 203 then
  if slideritem == "1" then
  slideritem = "2"
  sliderright = "6"
  slider = " <-dit Rename Delete [Copy] Explorer RedPulse E-> "
  descri = "(i)           Copy files or folders"

  elseif slideritem == "2" then
  slideritem = "3"
  sliderright = "5"
  slider = " <-ulse Edit Rename [Delete] Copy Explorer RedP-> "
  descri = "(i)           Delete files or folders"

  elseif slideritem == "3" then
  slideritem = "4"
  sliderright = "4"
  slider = " <-er RedPulse Edit [Rename] Delete Copy Explor-> "
  descri = "(i)          Rename files or folders"

  elseif slideritem == "4" then
  slideritem = "5"
  sliderright = "3"
  slider = " <-Explorer RedPulse [Edit] Rename Delete Copy -> "
  descri = "(i)                  Edit a file"

  elseif slideritem == "5" then
  slideritem = "6"
  sliderright = "2"
  slider = " <-e Copy Explorer [RedPulse] Edit Rename Delet-> "
  descri = "(i)           Pulse a redstone current"

  elseif slideritem == "6" then
  slideritem = "1"
  sliderright = "1"
  slider = " <-ame Delete Copy [Explorer] RedPulse Edit Ren-> "
  descri = "(i)           Explore files and folders"
  end

 elseif event == "key" and param == 205 then
  if sliderright == "1" then
  slideritem = "6"

  sliderright = "2"
  slider = " <-e Copy Explorer [RedPulse] Edit Rename Delet-> "

  elseif sliderright == "2" then
  slideritem = "5"

  sliderright = "3"
  slider = " <-Explorer RedPulse [Edit] Rename Delete Copy -> "

  elseif sliderright == "3" then
  slideritem = "4"

  sliderright = "4"
  slider = " <-er RedPulse Edit [Rename] Delete Copy Explor-> "

  elseif sliderright == "4" then
  slideritem = "3"

  sliderright = "5"
  slider = " <-ulse Edit Rename [Delete] Copy Explorer RedP-> "

  elseif sliderright == "5" then
  slideritem = "2"

  sliderright = "6"
  slider = " <-dit Rename Delete [Copy] Explorer RedPulse E-> "

  elseif sliderright == "6" then
  slideritem = "1"

  sliderright = "1"
  slider = " <-ame Delete Copy [Explorer] RedPulse Edit Ren-> "
  end
 end
---------------------------
---------Selecting---------
---------------------------
 if event == "key" and param == 28 then
  if slideritem == "1" then
 shell.run("RandomOS/Explorer")
 elseif slideritem == "2" then
 shell.run("RandomOS/Copy")
 elseif slideritem == "3" then
 shell.run("RandomOS/delete")
 elseif sliderright == "4" then
 shell.run("RandomOS/rename")
 elseif slideritem == "5" then
 shell.run("RandomOS/Edit")
 elseif slideritem == "6" then
 shell.run("RandomOS/RedPulse")
  end
 end
end