0  BEGIN PGM TIEFE MM 
1  FN 17: SYSWRITE ID 212 =+3
2  FN 10: IF +Q29 NE +0 GOTO LBL 101
3  Q29 = ABS Q21 / Q22
4  Q27 = INT Q29
5  Q24 = FRAC Q29
6  FN 9: IF +Q24 EQU +0 GOTO LBL 105
7  Q27 = Q27 + 1
8  LBL 105
9  Q23 = ABS Q22 * Q24
10 Q22 = SGN Q21 * Q22
11 Q23 = SGN Q21 * Q23
12 Q20 = SGN Q21 * Q20
13 L IZ+Q20 R0 FQ26
14 ;/////////////////////
15 LBL 101
16 FN 1: Q25 =+Q25 + +1
17 FN 12: IF +Q25 LT +Q27 GOTO LBL 100
18 FN 9: IF +Q23 EQU +0 GOTO LBL 100
19 L IZ+Q23 R0 FQ26
20 FN 9: IF +0 EQU +0 GOTO LBL 102
21 ;////////
22 LBL 100
23 L IZ+Q22 R0 FQ26
24 ;**********************************
25 LBL 102
26 ;FN 37: EXPORT Q0 - Q99
27 END PGM TIEFE MM 
