(12C) Banker's Rounding Method

[Eddie W. Shore]

Just a slight correction since the code starts at line 1, not 0:

Code:

01   .
02   5
03   x ≤ y
04  CHS
05  -
06  FRAC
07 x = 0
08 GTO 12
09 LST x
10 INTG
11 GTO 00
12 LST x
13 2
14 ÷
15 INTG
16 2
17 *
18 GTO 00

Otherwise, brilliant!