%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:415
File Name:PHSRCALC
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"NUMBER OF PHASORS"
"IN YOUR CALCULATION  (1-5) ="?\->N
"FOR PHASOR 'A'"
"\r="?\->\r
"\theta="?\->\theta
\r\cos \theta+\{i}\r\sin \theta\->A
N=1\=>\Goto0
"FOR PHASOR 'B'"
"\r="?\->\r
"\theta="?\->\theta
\r\cos \theta+\{i}\r\sin \theta\->B
N=2\=>\Goto0
"FOR PHASOR 'C'"
"\r="?\->\r
"\theta="?\->\theta
\r\cos \theta+\{i}\r\sin \theta\->C
N=3\=>\Goto0
"FOR PHASOR 'D'"
"\r="?\->\r
"\theta="?\->\theta
\r\cos \theta+\{i}\r\sin \theta\->D
N=4\=>\Goto0
"FOR PHASOR 'E'"
"\r="?\->\r
"\theta="?\->\theta
\r\cos \theta+\{i}\r\sin \theta\->E
\Lbl 0
"WHAT CALCULATION"?\->R
\Abs R\->\r
\Arg R\->\theta
\ClrText
\Locate 1,1,"RESULT IS PHASOR 'R'"
\Locate 3,3,"\r="
\Locate 6,3,\r
\Locate 3,5,"\theta="
\Locate 6,5,\theta
%End