10 ! Command format: NU$(X,L)
20 !
30 ! Function returns string
40 ! of chars=internal rep X
50 !
60 ! X=#to cvrt;L=Line#
70        BYT 40,56
80 NU$.   BSZ 0
90        LDM R56,=140,0
100        JSB =RSMEM-
110        STM R26,R20
120        JSB =ONEI  
130        STM R45,R30
140        LDM R24,=60,60
150        LDB R33,=02
160        BIN 
170 NU$LO1 BSZ 0
180        DCB R33
190        JNC NU$DO1
200        BCD 
210        CLM R36
220        ELM R30
230        ELB R36
240        ELM R30
250        ELB R37
260        BIN 
270        ADM R36,R24
280        PUMD R36,+R26
290        JMP NU$LO1
300 NU$DO1 BSZ 0
310        JSB =ONER  
320        LDM R51,=40,40,40,102
,131,124,40
330        PUMD R51,+R26
340        LDM R50,R40
350        LDB R33,=10
360        LDM R34,=103,54
370        BIN 
380 NU$LO2 BSZ 0
390        DCB R33
400        JNC NU$DO2
410        BCD 
420        CLM R36
430        ERM R57
440        ELB R37
450        ERM R57
460        ELB R36
470        BIN 
480        ADM R36,R24
490        PUMD R36,+R26
500        PUMD R34,+R26
510        JMP NU$LO2
520 NU$DO2 BSZ 0
530        DCM R26
540        LDM R55,=40,41,40
550        PUMD R55,+R26
560        LDM R30,R26
570        PUMD R20,+R12
580        JSB =CVNUM 
590        POMD R20,-R12
600        SBM R30,R20
610        PUMD R30,+R12
620        PUMD R20,+R12
630        RTN 
640        FIN