[42S] looking for decimal to rational fraction

[cdmackay]

I was looking for a program to do decimal to fraction conversion on the 42S (well, DM42).

I found this older thread, where user Xose posts a link to his code at a now defunct website.

The Internet Archive had a single copy of that page here, but it contains some odd characters, and I'm unsure how to deal with them.

You can see them at the link, and here's an excerpt from the downloaded file:

Code:

00 { 163-Byte Prgm }

01<B7>LBL "FRACT"
02 XEQ 11
03 ENTER
04 FP
05 12
06 X<>Y
07 X=0?
08 Rv
09 Rv
10 +/-
11 10^X
12 2
13 <F7>
14 STO 01
15 Rv
16 STO 05
17 ENTER
18 ABS
19 STO 00
20 <F7>
21 STO 04

see e.g. lines 1, 13 & 20.

How do I enter those? Or is the listing corrupted?

thanks very much…