DIRECTORYAMBridge USING [TVToLC],BasicTime USING [GMT, nullGMT],Convert USING [RopeFromTime],IO USING [PutRope],PrintTV USING [RegisterRefPrintProc, RegisterTVPrintProc, RefPrintProc, TVPrintProc],Rope USING [];GmtDebug: CEDAR PROGRAMIMPORTS AMBridge, Convert, IO, PrintTV= {GMT: TYPE = BasicTime.GMT;PrintRefGMT: PrintTV.RefPrintProc = {gmt: REF READONLY GMT;TRUSTED { gmt _ LOOPHOLE[ref]; };IF gmt^ = BasicTime.nullGMT THEN IO.PutRope[stream, "nullGMT"]ELSE IO.PutRope[stream, Convert.RopeFromTime[from: gmt^, end: seconds, useAMPM: FALSE, includeZone: FALSE] ];};PrintTVGMT: PrintTV.TVPrintProc = TRUSTED {gmt: GMT;TRUSTED { gmt _ LOOPHOLE[AMBridge.TVToLC[tv]]; };IF gmt = BasicTime.nullGMT THEN IO.PutRope[stream, "nullGMT"]ELSE IO.PutRope[stream, Convert.RopeFromTime[from: gmt, end: seconds, useAMPM: FALSE, includeZone: FALSE] ];};PrintTV.RegisterRefPrintProc[CODE[GMT], PrintRefGMT];PrintTV.RegisterTVPrintProc[CODE[GMT], PrintTVGMT];}.   Œ  GmtDebug.mesaCopyright c 1986 by Xerox Corporation.  All rights reserved.Hal Murray, February 11, 1986 8:45:37 pm PST[ref: REF READONLY ANY, data: REF ANY, stream: STREAM, depth: INT _ 4, width: INT _ 32, verbose: BOOL _ FALSE] RETURNS [useOld: BOOL _ FALSE][tv: TV, data: REF ANY, stream: STREAM, depth: INT _ 4, width: INT _ 32, verbose: BOOL _ FALSE] RETURNS [useOld: BOOL _ FALSE] ÊÖ  ˜ codešœ™Kšœ
Ïmœ1™<K™,—K˜ šÏk	˜	Jšœ	žœ
˜Jšœ
žœžœ˜Jšœžœ˜Jšžœžœ˜KšœžœH˜UJšžœžœ˜K˜ —šœ
žœž˜Kšžœžœ˜)K˜ •StartOfExpansion‘ -- [ref: REF READONLY ANY, data: REF ANY, stream: STREAM, depth: INT _ 4, width: INT _ 32, verbose: BOOL _ FALSE] RETURNS [useOld: BOOL _ FALSE]šžœžœžœ˜K˜ —šÏbœ˜%KšÐck™Kšœžœžœžœ˜Kšžœ	žœ	˜!Kšžœžœžœ˜>KšžœžœJžœžœ˜nK˜K˜ —–‚ -- [tv: TV, data: REF ANY, stream: STREAM, depth: INT _ 4, width: INT _ 32, verbose: BOOL _ FALSE] RETURNS [useOld: BOOL _ FALSE]šŸ
œžœ˜+Kš ~™~Kšœžœ˜	Kšžœ	žœ˜1Kšžœžœžœ˜=KšžœžœIžœžœ˜mK˜K˜ —Kšœžœžœ˜5Kšœžœžœ˜3K˜ —šœ˜K˜ K˜ —— …—    Ö  8  