<> <> DIRECTORY Rope USING [ROPE], RTBasic USING [TV]; TVGuide: CEDAR DEFINITIONS = BEGIN OPEN Rope, RTBasic; RegisterTV: PROC [name: ROPE, tv: TV, help: ROPE _ NIL, overwriteOld: BOOL _ TRUE] RETURNS [old: TV, oldHelp: ROPE, found: BOOL]; <> UnregisterTV: PROC [name: ROPE, overwriteOld: BOOL _ TRUE] RETURNS [old: TV, oldHelp: ROPE, found: BOOL]; <> LookupTV: PROC [name: ROPE] RETURNS [tv: TV, help: ROPE, found: BOOL]; <> Browse: PROC [proc: Ruminant, data: REF _ NIL] RETURNS [stopped: BOOL]; <> Ruminant: TYPE = PROC [name: ROPE, help: ROPE, tv: TV, data: REF] RETURNS [stop: BOOL]; <> END.