01 LBL "PLOTSIN"
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 LBL 01
15 RCL 00
16 5
17 +
18 STO 00
19 314
20 X<=Y?
21 GTO 02
22 X<>Y
23 25
24 /
25 SIN
26 90
27 *
28 "PA"
29 ARCL 00
30 >",0"
31 OUTA
32 "PR0,"
33 ARCL X
34 OUTA
35 "PR0,"
36 CHS
37 ARCL X
38 OUTA
39 GTO 01
40 LBL 02
41 "PU,PA150,91"
42 OUTA
43 "LBSINUS"
44 3
45 BLDSPEC
4S ARCL X
47 OUTA
48 END
