%external %string(255) %fn I To S %alias "3L_IMP_I_TO_S"(%integer N, Places)
   %externalroutinespec Decimal %alias "3L___decimal"(%integer N,
                                                      %integername Pl, Dig, Vec)
   %integer D, V, Sp
   %recordformat F(%bytearray A(1:16))
   %record(F) A
   %string(255) S
   V = Addr(A)
   Decimal(N, Places, D, V)
   Sp = Places-D
   S = ""
   %while Sp > 0 %cycle
      Sp = Sp-1
      S = S." "
   %repeat
   %while D > 0 %cycle
      D = D-1
      S = S.Tostring(Byte(V));  V = V+1
   %repeat
   %result = S
%end