BEGINSUB 1 DC_ERROR 1 DC_STRING 1 DUMPERROR 2 ENDSUB 1 GTDATA_GENERIC 1 GTDATA_TYPES 1 GTVARGETREAL 1 GTVARPUTREAL 1 INQUIRE 1 SLICE 2 SLICE_NEXT 2