Texas Instruments TI-89 Tip List page 38

move_y(mode,⁻1)
draw_all()
ElseIf key=344 Then
move_y(mode,1)
draw_all()
ElseIf key=4436 Then
move_x(mode,10)
draw_all()
ElseIf key=4433 Then
move_x(mode,⁻10)
draw_all()
ElseIf key=4434 Then
move_y(mode,⁻10)
draw_all()
ElseIf key=4440 Then
move_y(mode,10)
draw_all()
© Handle feature keys
ElseIf key=ko Then
when(mode=0,1,0)→mode
ElseIf key=kh Then
help()
ElseIf key=km Then
dist()→p
if p[3]=undef then
"undef"→r
else
format(p[3],"F3")&" rad ("&format(p[4],"F1")&"°)"→r
EndIf
Dialog
Title "Measurement"
s text "x: "&format(p[1],"F2")&" in ("&format(25.4*p[1],"F1")&" mm)"
text "y: "&format(p[2],"F2")&" in ("&format(25.4*p[2],"F1")&" mm)"
text "θ: "&r
EndDlog
elseif key=258 then
"{x_in,y_in,θrad,θ°}"→q01
dist()→q02
util\copyto_h("q01","q02")
draw_all()
EndIf
EndLoop
©==================================
© Clean up before exiting program
©==================================
delvar main\±ox,main\±oy,main\±tx,main\±ty,main\±x,main\±y,main\±scl
rclGDB gdb
setMode(modedb)
DispHome
EndPrgm
© Move cursor 1 pixel up
© Update screen
© [DOWN]
© Move cursor 1 pixel down
© Update screen
© [2ND] [RIGHT]
© Move cursor 10 pixels right
© Update screen
© [2ND] [LEFT]
© Move cursor 10 pixels left
© Update screen
© [2ND] [UP]
© Move cursor 10 pixels up
© Update screen
© [2ND] [DOWN]
© Move cursor 10 pixels down
© Update screen
© [O] Toggle origin/target adjustment mode
© If mode = 0, toggle to 1 and vice versa
© [H] Display 'help' screen
© [M] Display measurement results
© Calculate measurements
© Set angle measurement display string
© ... handle 'undef'
© ... else format radian and degree results
© Display measurements
© [STO] Copy measurements to Home screen
© Save label ...
© ... and measurements
© ... then copy them to the Home screen
© ... and redraw to clean up after copyto_h()
© Delete global variables
© Restore graph database settings
© Restore mode settings
© Display Home screen
1 - 27