Sharp PYTHAGORUS - Page 84

76 | Page
21; ( TAN C * COS B – TAN A * COS D ) *
SIN E => F

Part 1 of computation of
the Intermediate
Latitude routine which is
stored in memory F.
22; ( TAN C * SIN B – TAN A * SIN D ) *
COS E => G

Part 2 of the
computation of the
Intermediate Latitude
routine which is stored in
memory G.
23;
ATN (( F – G ) / SIN ( D – B ) => H

Part 3 of computation of
the Intermediate
Latitude routine which is
stored in memory F.
24;
DMS H => H 
Convert the decimal
degrees into degrees,
minutes and seconds.
25;
DSP “INT. LATITUDE” 
Label the output and
pause.
26;
H => HLT , PRT H 
Display the numerical
result, then when

is
pressed print the result.
27;
END END 
Two END commands are
required. One to end the
program and another to
end the record function
on a card.