HP HP-11C - Page 125

Section 8: Subroutines
005 013 014 015
T+
Z 3
Y 3 3 3 4
X 2 2 4 2
Keys® [Gsslo ([fBlo [¢]) (o](LsTy)
(Goto (Begin (x12) (x1)
label 0) subroutine)
016 017 018 006
T
2% 3
Y 4 3 3 3
X = 0.0349 3.9651 3.9651 -3.9651
Keys=® [SIN G
(sinx;) (x42—sinx; (Returnto (—(x;2
=y4) main —sinxy))
program)
From line 018 execution transfers back to the main program and
continues with the first line after the last instruction. When
the 0 instruction in line 008 is encountered, execution again
transfers to the 0 instruction in line 013.
007 008 013 014
T
Z
Y & -3.9651 -3.9651 -3.9651 -3.9651
x| 3 3 3 9
Keys = (GsBJo [fJ(tBL]O
(Exchange) (Goto (Begin (x22)
label 0) Subroutine)