**TI86** Home work viewer HMWRK ClLCDOutpt(1,9,"Created By:Outpt(7,10,"Nic Picel")PauseLbl AClLCDDisp "Choose One"Disp "1. Enter Homework"Disp "2. View Homework"Disp "3. Enter Long Term"Disp "4. View Long Term"Disp "5. Exit"Input A1If A1==1:Goto BIf A1==2:Goto CIf A1==3:Goto IIf A1==4:Goto OIf A1==5:Goto DLbl DClLCDStopLbl BClLCDDisp "1.Science"Disp "2.Math"Disp "3.Social Studies"Disp "4.English"Disp "5.Elective 1"Disp "6.Elective 2"Disp "7.Main Menu"Input A2If A2==1:Goto EIf A2==2:Goto FIf A2==3:Goto GIf A2==4:Goto HIf A2==5:Goto JIf A2==6:Goto KIf A2==7:Goto ALbl EClLCDInpSt "Enter Science:",SDisp "Assignment Entered"PauseGoto ALbl FClLCDInpSt "Enter Math:",MDisp "Assignment Entered"PauseGoto ALbl GClLCDInpSt "Enter S.S.:",SSDisp "Assignment Entered"PauseGoto ALbl HClLCDInpSt "Enter English:",EDisp "Assignment Entered"PauseGoto ALbl JClLCDInpSt "Enter Elective 1:",E1Disp "Assignment Entered"PauseGoto ALbl KClLCDInpSt "Enter Elective 2:",E2Disp "Assignment Entered"PauseGoto ALbl CClLCDDisp "1.Science"Disp "2.Math"Disp "3.Social Studies"Disp "4.English"Disp "5.Elective1"Disp "6.Elective 2"Disp "7.Main Menu"Input A3If A3==1:Goto PIf A3==2:Goto QIf A3==3:Goto RIf A3==4:Goto TIf A3==5:Goto UIf A3==6:Goto VIf A3==7:Goto ALbl IClLCDDisp "Choose One"Disp "1.Long Term1"Disp "2.Long Term2"Disp "3.Long Term3"Disp "4.Main Menu"Input A4If A4==1:Goto LIf A4==2:Goto MIf A4==3:Goto NIf A4==4:Goto ALbl LClLCDInpSt "Enter Long Term1:",LT1Disp "Enter Due Date"InpSt LTD1Disp "Assignment Entered"PauseGoto ALbl MClLCDInpSt "Enter Long Term2:",LT2Disp "Enter Due Date"InpST LTD2Disp "Assignment Entered"PauseGoto ALbl NClLCDInpSt "Enter Long Term 3:",LT3Disp "Enter Due Date:"InpSt LTD3Disp "Assignment Entered"PauseGoto ALbl OClLCDDisp "Choose One"Disp "1.Long Term1"Disp "2.Long Term2"Disp "3.Long Term3"Disp "4.Main Menu"Input A5If A5==1:Goto WIf A5==2:Goto XIf A5==3:Goto YLbl PClLCDDisp "Science:",SPauseGoto ALbl QClLCDDisp "Math",MPauseGoto ALbl RClLCDDisp "Social Studies",SSPauseGoto ALbl TClLCDDisp "English",EPauseGoto ALbl UClLCDDisp "Elective 1",E1PauseGoto ALbl VClLCDDisp "Elective 2",E2PauseGoto ALbl WClLCDDisp "Long Term1",LT1Disp "Due Date",LTD1PauseGoto ALbl XClLCDDisp "Long Term2",LT2Disp "Due Date",LTD2PauseGoto ALbl YClLCDDisp "Long Term3",LT3Disp "Due Date",LTD3PauseGoto A k