external  routine  spec  sbyte(string  (255) s)
external  routine  spec  shalf(string  (255) s)
external  routine  spec  sword(string  (255) s)
external  integer  fn  spec  dloweracr(integer  i)

routine  inner(string  (255) s, routine  set(string (255) s))
integer  j
   j=dloweracr(2)
   printstring("DLOWERACR flag =")
   write(j, 1)
   newline
   set(s)
end  {inner}

external  routine  supersbyte(string  (255) s)
   inner(s, sbyte)
end  {supersbyte}

external  routine  supershalf(string  (255) s)
   inner(s, shalf)
end  {supershalf}

external  routine  supersword(string  (255) s)
   inner(s, sword)
end  {supersword}

external  routine  supersstring(string  (255) s)
end  {supersstring}

end  of  file