[42S] MANT Challenge

[Thomas Klemm]

Maybe a little boring:

Code:

00 { 39 Byte Prgm }
01 LBL "MANT"
02 X=0?
03 RTN
04 ABS
05 1
06 X<>Y
07 LBL 00
08 X>=Y?
09 GTO 01
10 10
11 *
12 GTO 00
13 LBL 01
14 10
15 X<>Y
16 LBL 02
17 X<Y?
18 RTN
19 10
20 /
21 GTO 02
22 END

Cheers
Thomas