strpart={}id=1str1=4str2=10while true do term[paste][/paste]clear() term[paste][/paste]setCursorPos(1, 1) print("=============AppStore=============") print("") file=io[paste][/paste]open("as_dat/" [paste][/paste][paste][/paste] id [paste][/paste][paste][/paste] "[paste][/paste]dat", "r") local i=1 print("================") while true do line=file:read() if line==nil then break end strpart[i]=line print(strpart[i]) i=i+1 end print("================") term[paste][/paste]setCursorPos(18, 3) file1=io[paste][/paste]open("as_dat/" [paste][/paste][paste][/paste] id+1 [paste][/paste][paste][/paste] "[paste][/paste]dat", "r") local i1=1 print("=================") while true do line1=file1:read() if line1==nil then break end strpart[i1]=line1 term[paste][/paste]setCursorPos(18, str1) print(strpart[i1]) i1=i1+1 str1=str1+1 end term[paste][/paste]setCursorPos(18, 8) print("=================") term[paste][/paste]setCursorPos(1, 9) file2=io[paste][/paste]open("as_dat/" [paste][/paste][paste][/paste] id+2 [paste][/paste][paste][/paste] "[paste][/paste]dat", "r") local i2=1 print("================") while true do if shell[paste][/paste]resolveProgram("as_dat/" [paste][/paste][paste][/paste] id+2 [paste][/paste][paste][/paste] "[paste][/paste]dat")==nil then break end line2=file2:read() if line2==nil then break end strpart[i2]=line2 print(strpart[i2]) i2=i2+1 end term[paste][/paste]setCursorPos(1, 14) print("================") term[paste][/paste]setCursorPos(18, 9) file3=io[paste][/paste]open("as_dat/" [paste][/paste][paste][/paste] id+3 [paste][/paste][paste][/paste] "[paste][/paste]dat", "r") local i3=1 print("=================") while true do if shell[paste][/paste]resolveProgram("as_dat/" [paste][/paste][paste][/paste] id+3 [paste][/paste][paste][/paste] "[paste][/paste]dat")==nil then break end line3=file3:read() if line3==nil then break end strpart[i3]=line3 term[paste][/paste]setCursorPos(18, str2) print(strpart[i3]) i3=i3+1 str2=str2+1 end term[paste][/paste]setCursorPos(18, 14) print("=================") print() print() print() print("E[X]it") local event , param1 = os[paste][/paste]pullEvent()if event == "key" then if param1 == 200 and id>=1 then id = id-2 end if param1 == 208 then id = id+2 end if param1 == 45 then term[paste][/paste]clear() term[paste][/paste]setCursorPos(1, 1) break endend file:close() file1:close() file2:close() file3:close() sleep(1)str1=4str2=10end