01 LBL "BALKEN"
02 "IN"
03 OUTA
04 0
05 STO 00
06 RAD
07 "SC0,314,-100,"
08 >"100"
09 OUTA
10 "PA0,0,SP1,PD"
11 OUTA
12 "PA314,0,0,0"
13 OUTA
14 "FT0,2"
15 OUTA
16 LBL 01
17 RCL 00
18 10
19 +
20 STO 00
21 314
22 X<=Y?
23 GTO 02
24 X<>Y
25 25
26 /
27 SIN
28 90
29 *
30 "PA"
31 ARCL 00
32 >",0"
33 OUTA
34 "ER10,"
35 ARCL X
36 OUTA
37 "RR10,"
38 ARCL X
39 OUTA
40 GTO 01
41 LBL 02
42 "PU,PA150,91"
43 OUTA
44 "LBSINUS"
45 3
46 BLDSPEC
47 ARCL X
48 OUTA
49 END
