\START\
\COMMENT=Ungrouped from c:\\ti\\prog\\prog.85g
\NAME=VECT
\FILE=VECT.85P
ClLCD
Disp "HIT 1 IF HAVE X/Y","ANYTHING ELSE FOR","DEGREE & MAG."
Prompt A
If A==1
Goto A
Disp ""
Disp "ENTER DEGREE"
Prompt D
Disp "ENTER MAGNITUDE"
Prompt M

M cos D\->\X
M sin D\->\Y
Disp "","X",X
Disp "Y",Y
Stop

Lbl A
ClLCD
Disp "ENTER X"
Prompt X
Disp "ENTER Y"
Prompt Y
\sqrt\(X\^2\+Y\^2\)\->\Z
Disp "MAG",Z
\tan^-1\ (Y/X)\->\W
Disp "ANGLE",W
\STOP\