01 LBL "GAP"
 02 LBL 01
 03 CF 00
 04 .006
 05 STO 08
 06 "INPUT?"
 07 PROMPT
 08 6.9
 09 X<>Y
 10 X<0?
 11 SF 00
 12 ABS
 13 X>Y?
 14 GTO 12
 15 ENTER
 16 INT
 17 STO 07
 18 RDN
 19 FRC
 20 LBL 10
 21 RCL 07
 22 X=0?
 23 STO IND 08
 24 X<>Y
 25 10
 26 *
 27 ENTER
 28 INT
 29 X=0?
 30 GTO 11
 31 2
 32 RCL 07
 33 Y^X
 34 FS? 00
 35 ST- IND 08
 36 FC? 00
 37 ST+ IND 08
 38 RDN
 39 LBL 11
 40 -
 41 ISG 08
 42 GTO 10
 43 GTO 01
 44 LBL 12
 45 7
 46 X<Y?
 47 GTO 13
 48 FS? 00
 49 XEQ 14
 50 "P.NO.S R0-R6"
 51 FS? 00
 52 >" NEGATIVE"
 53 AVIEW
 54 RTN
 55 LBL 13
 56 RCL IND 08
 57 XROM 29,06
 58 ISG 08
 59 GTO 13
 60 XROM 29,04
 61 XROM 29,10
 62 "CHAR. IN X"
 63 AVIEW
 64 RTN
 65 LBL 14
 66 127
 67 RCL IND 08
 68 -
 69 STO IND 08
 70 ISG 08
 71 GTO 14
 72 RTN
 73 END