Texas Instruments TI-92+, Tip List

Page: 210 / 507

title "INPUT ERROR"
text "Entry error for"
text msg
text "Push ENTER to try again"
enddlog
EndPrgm
©Create lists & matrix
newlist(3) → xl
newlist(3) → yl
newmat(3,3) → zmat
©Initialize variables
"0,0,0" → x 1 23
"0,0,0" → y 1 23
"0,0,0" → zz 1
"0,0,0" → zz2
"0,0,0" → zz3
"0,0" → xy
1→ inhome
Lbl in 1
©Prompt for input variables
dialog
title "INTRP9UI"
request "x 1 ,x2,x3",x 1 23
request "y 1 ,y2,y3",y 1 23
request "z row 1 ",zz 1
request "z row 2",zz2
request "z row 3",zz3
request "x,y",xy
enddlog
if ok=0:return
©Extract x-variables
util\rq3v(x 1 23) → res
if res="ERR" then
errdisp("x 1 ,x2,x3")
if ok=0 then
return
else
goto in 1
endif
else
res[ 1 ] → xl[ 1 ]
res[2] → xl[2]
res[3] → xl[3]
endif
©Extract y-variables
util\rq3v(y 1 23) → res
if res="ERR" then
errdisp("y 1 ,y2,y3")
if ok=0 then
return
else
goto in 1
endif
else
res[ 1 ] → yl[ 1 ]
res[2] → yl[2]
6 - 52