%external %routine Write %alias "3L_IMP_WRITE"(%integer N, Places)
   %externalroutinespec Decimal %alias "3L___decimal"(%integer N, %integername Places,
                                                               Digits, Vec)
   %integer D, V, Sp
   %recordformat F(%bytearray A(1:16))
   %record(F) A
   V = Addr(A)
   Decimal(N, Places, D, V)
   Sp = Places-D
   %while Sp > 0 %cycle
      Sp = Sp-1
      Space
   %repeat
   %while D > 0 %cycle
      D = D-1
      Printsymbol(Byte(V));  V = V+1
   %repeat
%end