01 LBL "BANN"
 02 CLST
 03 STO 06
 04 STO 07
 05 STO 08
 06 STO 09
 07 5
 08 STO 05
 09 LBL 10
 10 1
 11 ST+ 05
 12 STOP
 13 ST+ IND 05
 14 X=0?
 15 GTO 11
 16 1 E03
 17 STOP
 18 *
 19 ST+ IND 05
 20 X=0?
 21 GTO 11
 22 1 E06
 23 STOP
 24 *
 25 ST+ IND 05
 26 X=0?
 27 GTO 11
 28 RCL 05
 29 9
 30 X>Y?
 31 GTO 10
 32 LBL 11
 33 RCL IND 05
 34 1 E06
 35 /
 36 INT
 37 X#0?
 38 XEQ "BAN"
 39 RCL IND 05
 40 1 E06
 41 /
 42 FRC
 43 1 E03
 44 *
 45 INT
 46 X#0?
 47 XEQ "BAN"
 48 RCL IND 05
 49 1 E03
 50 /
 51 FRC
 52 1 E03
 53 *
 54 X#0?
 55 XEQ "BAN"
 56 RCL 05
 57 1
 58 -
 59 5
 60 X=Y?
 61 STOP
 62 RDN
 63 STO 05
 64 GTO 11
 65 STOP
 66 END