<> DIRECTORY ViewerClasses USING [Viewer]; ViewerBLT: DEFINITIONS = BEGIN OPEN ViewerClasses; <> Glitch: PROC [viewer: Viewer, nLines: INTEGER] ; VPlace: TYPE = RECORD [ viewer: Viewer, x: INTEGER, y: INTEGER ]; VBLT: PROC [src: VPlace, dest: VPlace, srcw, srch: INTEGER] ; END.