\START85\
\COMMENT=Program file dated 04/01/96, 16:22
\NAME=Table
\FILE=TABLE.85P
:ClLCD
:Normal
:Float
:InpST "y=",Y
:\St>Eq\(Y,y1)
:Input "Min: ",M
:Input "Max: ",N
:Input "Step: ",T
:iPart ((N-M)/T)\->\G
:1\->\W
:Lbl A
:ClLCD
:For(X,1,7)
:If (T(W-1)+M+((X-1)*T))\<>\0
:Then
:If log (abs (T(W-1)+M+((X-1)*T)))\>=\10
:Then
:Sci
:Fix 3
:End
:End
:Outpt(X,1,"         ")
:Outpt(X,1,T(W-1)+M+((X-1)*T))
:If (T(W-1)+M+((X-1)*T))\<>\0
:Then
:If log (abs (T(W-1)+M+((X-1)*T)))\>=\10
:Then
:Normal
:Float
:End
:End
:T(W-1)+M+((X-1)*T)\->\x
:If y1\<>\0
:Then
:If log (abs y1)\>=\10
:Then
:Sci
:Fix 3
:End
:End
:Outpt(X,11,"         ")
:Outpt(X,12,y1)
:If y1\<>\0
:Then
:If log (abs y1)\>=\10
:Then
:Normal
:Float
:End
:End
:End
:Lbl TS
:Menu(1,"UP",UP,2,"DOWN",DOWN,3,"PGUP",PGUP,4,"PGDWN",PGDWN,5,"QUIT",QU\#\
IT)
:Lbl UP
:If W>1
:W-1\->\W
:Goto A
:Lbl DOWN
:If W<G-5
:W+1\->\W
:Goto A
:Lbl PGDWN
:If G<6
:Goto TS
:If W+12\<=\G
:Then
:W+7\->\W
:Else
:G-5\->\W
:End
:Goto A
:Lbl PGUP
:If G<6
:Goto TS
:If W-7\>=\1
:Then
:W-7\->\W
:Else
:1\->\W
:End
:Goto A
:Lbl QUIT
:fMin(y1,x,M,N)\->\x
:y1\->\yMin
:fMax(y1,x,M,N)\->\x
:y1\->\yMax
:M\->\xMin
:N\->\xMax
:Trace
:Stop
\STOP85\