Download PSP XMB beta 0.1

black = Color.new(0, 0, 0)
white = Color.new(255, 255, 255)
logon = Image.load("Data/images/logon.png")
startupsnd = Sound.load("Data/Sounds/startup.wav")
USB = Sound.load("Data/Sounds/USB.wav")
click = Sound.load("Data/Sounds/click.wav")

screen:blit(95, 20,  logon)
screen:print(200, 140, "Loging On", white)
screen:print(200, 170, "Loading 100%", black)
screen.flip()
screen.waitVblankStart(240)
startupsnd:play()

red = Color.new(255, 0, 0)
blue = Color.new(0, 0, 255)
green = Color.new(0, 255, 0)

cursor = Image.load("Data/images/cursor.png")
background = Image.load("Data/images/background2.png")
background3 = Image.load("Data/images/background3.png")
start = Image.load("Data/images/start.png")
bar = Image.load("Data/images/bar.png")
taskmanager = Image.load("Data/images/taskmanager.png")
rightclick = Image.load("Data/images/rightclick.png")
startmenu = Image.load("Data/images/startmenu.png")

x0 = 0
y0 = 0
x1 = 0
y1 = 0
x2 = 1
y2 = 5


while true do
  screen:clear()
  screen:blit(0, 0, background, 0, 0, background:width(), background:height(), false)
  screen:blit(0, 242, start)
  screen:blit(100, 242, bar)
  screen:blit(370, 242, taskmanager)
  
  pad = Controls.read()
  dx = pad:analogX()
  if math.abs(dx) > 32 then
  x0 = x0 + dx / 64
  end
  dy = pad:analogY()
  if math.abs(dy) > 32 then
  y0 = y0 + dy / 64
  end
  x1 = x0
  y1 = y0
  
  if pad:triangle() then
  screen:blit(254, 99,  rightclick)
  screen:print(254, 105, " Properties", black)
  screen:print(254, 115, " ___________", black)
  screen:print(254, 125, " Create New", black)
  screen:print(254, 130, " ___________", black)
  screen:print(255, 140, " Open Folder", black)
  screen:print(254, 145, " ___________", black)
  screen.flip(120)
  screen.waitVblankStart(120)
  end


if pad:up() then
  screen:save("\data\images\screenshot.tga")
end

  if pad:left() then
click:play()
clockOfs = 150
clockWidth = 100
clockTextPosition = 85
x0 = clockOfs
y0 = clockOfs - clockWidth
pi = 4*math.atan(1)
color = Color.new(0, 0, 0)
while not Controls.read():start() do
  time = os.time()
  dateString = os.date("%c", time)
  screen:print(84, 4, dateString, color)
  dateFields = os.date("*t", time)
  hour = dateFields.hour
  if hour < 10 then
  hour = "0" .. hour
  end
  min = dateFields.min
  if min < 10 then
  min = "0" .. min
  end
  sec = dateFields.sec
  if sec < 10 then
  sec = "0" .. sec
  end
  screen:print(84, 14, hour .. ":" .. min .. ":" .. sec, color)

  hour = dateFields.hour
  if hour > 12 then
  hour = hour - 12
  screen.flip(600)
  screen.waitVblankStart(5)
  screen.waitVblankStart(4)
  screen.flip(600)
  screen.waitVblankStart(5)
  screen.flip(600)
  screen.waitVblankStart(10)
  screen.flip(600)
  screen.waitVblankStart(18)
  screen.flip(600)
  screen.waitVblankStart(28)
  screen.flip(600)
  screen.waitVblankStart(30)
  screen.flip(1000)
  screen.waitVblankStart(150)
  screen.flip(1000)
  screen.waitVblankStart(8)
  screen.waitVblankStart(30)
  break

  end
end

  end
  if pad:l() then
  screen:blit(0, 85, startmenu, 0, 0, startmenu:width(), startmenu:height(), false)

  end
  if pad:r() then
  screen:clear()
  screen:blit(0, 0, background3, 0, 0, background3:width(), background3:height(), false)
  screen:blit(0, 242, start)
  screen:blit(100, 242, bar)
  screen:blit(370, 242, taskmanager)
  screen:print(100, 170, "System Info", white)
  screen:print(100, 160, "Press ® For System Info", white)
  screen:print(100, 120, "Press The DPad Left For Time", white)
  screen:print(100, 150, "Press The (Select)Button For USB", white)
  screen:print(100, 140, "Press The (Start)Button For Reset", white)
  screen:print(100, 130, "Press The (Triangle)Button For Propertie's", white)
  screen:print(100, 110, "Made By c5cha7", white)

  end
  if pad:select() then
  System.usbDiskModeActivate()
  USB:play()

  end
  if pad:start() then
  break

  end
  if x0 < 0 then
  x0 = 0
  end
  if x0 > 470 then
  x0 = 470
  end
  if y0 < 0 then
  y0 = 0
  end
  if y0 > 258 then
  y0 = 258
  end

  screen:blit(x0, y0, cursor)
  screen.waitVblankStart()
  screen.flip()
end