**TI85** Program file dated 09/28/94, 16:04š[i†²š  TABLE1FnNo:0tblmin:1¾tÖ1NFns:Float:1NDigsÖLbl STARTÖClLCDÖDisp "":Disp "":Disp "Your function(s)"ÖDisp "should be in y1..y4."ÖMenu(1,"Range",Rng,2,"#Fns",SET,3,"#digt",NDg,4,"Table",Tbl,5,"quit",TQUIT)ÖLbl NDgÖClLCDÖDisp "# digits to show"ÖInput "(1 for float):",NDigsÖmax(iPart (NDigs),1)NDigsÖmin(NDigs,11)NDigsÖGoto STARTÖLbl RngÖClLCDÖDisp "Range Setup"ÖInput "TblMin=",tblminÖInput "¾Tbl=",¾tÖGoto STARTÖLbl SETÖRepeat (abs (NFns-2.5)1.5)(iPart NFns==NFns)ÖDisp "How many functions?"ÖInput "Enter 1,2,3,or 4:",NFnsÖEndÖGoto STARTÖLbl TblÖtblminxÖGoto TESTfnsÖLbl CONTDÖIf NFns>1Ömod(FnNo,NFns)+1FnNo2ÖClLCDÖOutpt(1,1,"x")ÖOutpt(1,8,"y")ÖOutpt(1,9,FnNo)ÖIf NFns>1:ThenÖOutpt(1,15,"y")ÖOutpt(1,16,FnNo2)ÖEndÖIf NDigs==1:ThenÖFloatÖElse:Fix NDigs:EndÖFor(cnt,2,7,1)ÖOutpt(cnt,1,x)ÖIf FnNo==1ÖOutpt(cnt,8,y1)ÖIf FnNo==2ÖOutpt(cnt,8,y2)ÖIf FnNo==3ÖOutpt(cnt,8,y3)ÖIf FnNo==4ÖOutpt(cnt,8,y4)ÖIf NFns>1:ThenÖIf FnNo2==1ÖOutpt(cnt,15,y1)ÖIf FnNo2==2ÖOutpt(cnt,15,y2)ÖIf FnNo2==3ÖOutpt(cnt,15,y3)ÖIf FnNo2==4ÖOutpt(cnt,15,y4)ÖEndÖx+¾txÖEndÖFloatÖMenu(1,"PageDn",CONTD,2,"PageUp",CONTU,3,"NxtFn",ContR,4,"PrvFn",ContL,5,"Main",START)ÖLbl CONTUÖx-12¾txÖGoto CONTDÖLbl ContRÖmod(FnNo,NFns)+1FnNoÖx-6¾txÖGoto CONTDÖLbl ContLÖmod(FnNo-2,NFns)+1FnNoÖx-6¾txÖGoto CONTDÖLbl TQUITÖClLCDÖDisp "To run table again,"ÖDisp "just press ENTER"ÖReturnÖLbl TESTfnsÖtblminxÖÖÖ"y1 undefined! Press EXIT!"ÖÖy1yÖÖÖ"y2 undefined! Press EXIT!"ÖÖIf 2NFns:y2yÖÖÖ"y3 undefined! Press EXIT!"ÖÖIf 3NFns:y3yÖÖÖ"y4 undefined! Press EXIT!"ÖÖIf 4NFns:y4yÖGoto CONTDç