Presents a table of values of y1 to y4. User sets
range and # of digits and functions displayed. 
----begin documentation----
This program was designed to (roughly) emulate a TI-82's
table feature on a TI-85.  While it has flaws, it does
many things nicely.

To use the program, first store one to four functions in
y1, y2, y3, and y4, and then run the program.

The opening menu allows you to set many things:

Range:  Sets the initial value of x, "TblMin", and
	"<Delta>Tbl", the increment between x values.
	The defaults are 0 and 1, respectively.

#Fns:	Sets the number of functions you want to use
	in your table.  This is necessary because there
	is apparently no way for a program to sense
	which of y1, y2, y3, and y4 are defined on the 
	TI-85.  Select "1" to choose just y1, select
	"3" to choose y1, y2, and y3, etc.  The default
	is "1".

#digt:	Sets the number of digits to display past the decimal
	in the table; enter "-1" for float-mode.  "3" or "4"
	work well, the default is "-1", i.e. float-mode.

The first three options above return you to the main menu when
you are done with them.

quit:	Ends the program.  Use this rather than pressing "ON" to
	halt execution:  the program may have put the calculator
	in "fix" mode, and "quit" returns the calculator to "float"
	mode.

Table:	Shows the actual table, either the default or as set by
	the menu options above.  x and y1 (and y2 if two or more
	functions were selected) are presented in a table with
	six entries.  A sub-menu appears:
	
	PageD: Shows the next 6 entries in the table, i.e. larger
	x's.

	PageU: Shows the previous 6 entries in the table, i.e. smaller
	x's.

	NxtFn: If more than one function was selected in the
	#Fns option, this will show the "next column to the
	right", i.e. if y1,y2 were displayed, NxtFn will display
	y2,y3.  This wraps around to y1 when you run out of
	functions.

	PrvFn: Opposite of NxtFn, this shows the "column to the left", 
	i.e. if y3,y4 were displayed, PrvFn will display y2,y3.  This
	wraps also.

	Main:  Returns to the main menu, where settings can be changed.

Notes:  Since the font available for programming is large, not a lot
fits on the screen.  If the numbers are large (i.e. require scientific
notation), things get a bit cramped.  If the numbers have MANY digits, the
columns overlap in ugly ways.

If the user requests, say, three functions when only y1 and y2 are defined,
the program crashes.  If the user presses "QUIT" as they should, they can 
re-run the program by simply pressing "ENTER".  If the user presses "GOTO", 
they are put in edit mode and could easily wreck the program.  To help avert
this, I've put some comments in the program that the user would see at that
point, saying:  "y3 undefined!  Press EXIT".  If they do, all is well.

Please send me comments about this program and its usefulness or lack 
thereof.
  
Program written by Prof. Mark Janeba, Dept. of Math,
Willamette Univ, Salem, OR 97301  
(internet: mjaneba< at >willamette.edu)
web page: http://www.willamette.edu/~mjaneba/
----end documentation----
----begin ASCII----
\START\
\COMMENT=Program file dated 09/28/94, 16:04
\NAME=TABLE
\FILE=table.85P
1\->\FnNo:0\->\tblmin:1\->\\UC-Delta\t
1\->\NFns:Float:\(-)\1\->\NDigs
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",TQ\#\
UIT)
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 "\UC-Delta\Tbl=",\UC-Delta\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
tblmin\->\x
Goto TESTfns
Lbl CONTD
If NFns>1
mod(FnNo,NFns)+1\->\FnNo2
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+\UC-Delta\t\->\x
End
Float
Menu(1,"PageDn",CONTD,2,"PageUp",CONTU,3,"NxtFn",ContR,4,"PrvFn",ContL,\#\
5,"Main",START)
Lbl CONTU
x-12\UC-Delta\t\->\x
Goto CONTD
Lbl ContR
mod(FnNo,NFns)+1\->\FnNo
x-6\UC-Delta\t\->\x
Goto CONTD
Lbl ContL
mod(FnNo-2,NFns)+1\->\FnNo
x-6\UC-Delta\t\->\x
Goto CONTD
Lbl TQUIT
ClLCD
Disp "To run table again,"
Disp "just press ENTER"
Return
Lbl TESTfns
tblmin\->\x


"y1 undefined! Press EXIT!"

y1\->\y


"y2 undefined! Press EXIT!"

If 2\<=\NFns:y2\->\y


"y3 undefined! Press EXIT!"

If 3\<=\NFns:y3\->\y


"y4 undefined! Press EXIT!"

If 4\<=\NFns:y4\->\y
Goto CONTD
\STOP\
----end ASCII----
----begin UUE----
begin 644 table.85p
M*BI423@U*BH:#`!0<F]G<F%M(&9I;&4@9&%T960@,#DO,C@O.30L(#$V.C`T
M``":6VF&LIH@!@D`$P82!51!0DQ%$P81!@`Q'$9N3F\Z,!QT8FQM:6XZ,1R^
M=-8Q'$Y&;G,Z1FQO870Z&C$<3D1I9W/63&)L(%-405)4UD-L3$-$UD1I<W`@
M(B(Z1&ES<"`B(CI$:7-P(")9;W5R(&9U;F-T:6]N*',I(M9$:7-P(")S:&]U
M;&0@8F4@:6X@>3$N+GDT+B+6365N=2@Q+")286YG92(L4FYG+#(L(B-&;G,B
M+%-%5"PS+"(C9&EG="(L3D1G+#0L(E1A8FQE(BQ48FPL-2PB<75I="(L5%%5
M250IUDQB;"!.1&?60VQ,0T361&ES<"`B(R!D:6=I=',@=&\@<VAO=R+626YP
M=70@(B@:,2!F;W(@9FQO870I.B(L3D1I9W/6;6%X*&E087)T("A.1&EG<RDL
M&C$I'$Y$:6=SUFUI;BA.1&EG<RPQ,2D<3D1I9W/61V]T;R!35$%25-9,8FP@
M4FYGUD-L3$-$UD1I<W`@(E)A;F=E(%-E='5P(M9);G!U="`B5&)L36EN/2(L
M=&)L;6ENUDEN<'5T("*^5&)L/2(LOG361V]T;R!35$%25-9,8FP@4T54UE)E
M<&5A="`H86)S("A.1FYS+3(N-2D7,2XU*2AI4&%R="!.1FYS/3U.1FYS*=9$
M:7-P(")(;W<@;6%N>2!F=6YC=&EO;G,_(M9);G!U="`B16YT97(@,2PR+#,L
M;W(@-#HB+$Y&;G/616YDUD=O=&\@4U1!4E363&)L(%1B;-9T8FQM:6X<>-9'
M;W1O(%1%4U1F;G/63&)L($-/3E1$UDEF($Y&;G,^,=9M;V0H1FY.;RQ.1FYS
M*2LQ'$9N3F\RUD-L3$-$UD]U='!T*#$L,2PB>"(IUD]U='!T*#$L."PB>2(I
MUD]U='!T*#$L.2Q&;DYO*=9)9B!.1FYS/C$Z5&AE;M9/=71P="@Q+#$U+")Y
M(BG63W5T<'0H,2PQ-BQ&;DYO,BG616YDUDEF($Y$:6=S/3T:,3I4:&5NUD9L
M;V%TUD5L<V4Z1FEX($Y$:6=S.D5N9-9&;W(H8VYT+#(L-RPQ*=9/=71P="AC
M;G0L,2QX*=9)9B!&;DYO/3TQUD]U='!T*&-N="PX+'DQ*=9)9B!&;DYO/3TR
MUD]U='!T*&-N="PX+'DR*=9)9B!&;DYO/3TSUD]U='!T*&-N="PX+'DS*=9)
M9B!&;DYO/3TTUD]U='!T*&-N="PX+'DT*=9)9B!.1FYS/C$Z5&AE;M9)9B!&
M;DYO,CT],=9/=71P="AC;G0L,34L>3$IUDEF($9N3F\R/3TRUD]U='!T*&-N
M="PQ-2QY,BG6268@1FY.;S(]/3/63W5T<'0H8VYT+#$U+'DS*=9)9B!&;DYO
M,CT]--9/=71P="AC;G0L,34L>30IUD5N9-9X*[YT''C616YDUD9L;V%TUDUE
M;G4H,2PB4&%G941N(BQ#3TY41"PR+")086=E57`B+$-/3E15+#,L(DYX=$9N
M(BQ#;VYT4BPT+")0<G9&;B(L0V]N=$PL-2PB36%I;B(L4U1!4E0IUDQB;"!#
M3TY45=9X+3$ROG0<>-9';W1O($-/3E1$UDQB;"!#;VYT4M9M;V0H1FY.;RQ.
M1FYS*2LQ'$9N3F_6>"TVOG0<>-9';W1O($-/3E1$UDQB;"!#;VYT3-9M;V0H
M1FY.;RTR+$Y&;G,I*S$<1FY.;]9X+3:^=!QXUD=O=&\@0T].5$363&)L(%11
M54E4UD-L3$-$UD1I<W`@(E1O(')U;B!T86)L92!A9V%I;BPBUD1I<W`@(FIU
M<W0@<')E<W,@14Y415(BUE)E='5R;M9,8FP@5$535&9N<]9T8FQM:6X<>-;6
MUB)Y,2!U;F1E9FEN960A(%!R97-S($58250A(M;6>3$<>=;6UB)Y,B!U;F1E
M9FEN960A(%!R97-S($58250A(M;6268@,A=.1FYS.GDR''G6UM8B>3,@=6YD
M969I;F5D(2!0<F5S<R!%6$E4(2+6UDEF(#,73D9N<SIY,QQYUM;6(GDT('5N
M9&5F:6YE9"$@4')E<W,@15A)5"$BUM9)9B`T%TY&;G,Z>30<>=9';W1O($-/
%3E1$YQ\`
`
end
----end UUE----