01 LBL "BAN"
 02 1
 03 -
 04 STO 04
 05 0.00301
 06 STO 02
 07 LBL 01
 08 FS? 02
 09 GTO 07
 10 ISG 02
 11 GTO 08
 12 ADV
 13 ADV
 14 RTN
 15 LBL 08
 16 1
 17 ST+ 04
 18 LBL 07
 19 FS? 02
 20 GTO 06
 21 RCL IND 04
 22 RCL IND 04
 23 1 E05
 24 /
 25 INT
 26 SF 02
 27 STO 03
 28 GTO 02
 29 LBL 06
 30 RCL IND 04
 31 1 E05
 32 /
 33 FRC
 34 1 E05
 35 *
 36 CF 02
 37 STO 03
 38 LBL 02
 39 11
 40 STO 01
 41 LBL 03
 42 2
 43 RCL 01
 44 Y^X
 45 RCL 03
 46 X<Y?
 47 SF 01
 48 1
 49 ENTER
 50 31
 51 FS? 01
 52 +
 53 XROM 29,02
 54 XROM 29,02
 55 FS? 01
 56 GTO 04
 57 RCL 03
 58 2
 59 RCL 01
 60 Y^X
 61 -
 62 STO 03
 63 LBL 04
 64 CF 01
 65 1
 66 RCL 01
 67 X<Y?
 68 GTO 05
 69 1
 70 ST- 01
 71 GTO 03
 72 LBL 05
 73 XROM 29,10
 74 GTO 01
 75 STOP
 76 END