%external %string (31) %fn itos(%integer n,m)
   %integer flag
   %string (31) s
   s = ""
   flag = 1
   %if n<0 %start
      n = -n
      flag = -1
   %finish
   m = flag-m %if m<0
   %cycle
      s = tostring(n-n//10*10+'0').s
      n = n//10
      %exit %if n=0
   %repeat
   s = "-".s %if flag<0
   s = " ".s %while length(s)<m
   s = " ".s %if flag#0
   %result = s
%end
%external %routine poctal(%integer n)
   %integer j
   n = n&x'FFFF'
   %cycle j = 1,1,6
      printsymbol(n>>15&7+'0')
      n = n<<3
   %repeat
%end
%end %of %file