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