%include "I:UTIL.INC"
%include "UTILITY.INC"

%begin
   %string(127) s
   %integer x, n1, n2
      %on 9 %start;  %stop;  %finish
      %cycle
         read string(s)
         x = pack(s, n1, n2)
         print symbol('"')
         printstring(s)
         %if x = 0 %start
            printstring(""" -> ")
            phex(n1);  space
            phex(n2)
            printstring(" -> """)
            printstring(unpack(n1, n2))
            print symbol('"')
         %else
            printstring(""" -- error ")
            write(x, 0)
         %finish
         newline
      %repeat
%end %of %program
