<< -- Begin AR 1064
MediaHandle: TYPE = POINTER TO MediaObject;
MediaObject:
TYPE =
RECORD [
compareFiles: ControlProc ← NIL,
deleteDataSet: DeleteDataSetProc ← NIL
];
CompareFilesProc:
TYPE =
PROCEDURE [mediaH: MediaHandle]
RETURNS
[identical: BOOLEAN];
ControlProc: TYPE = PROCEDURE [mediaH: MediaHandle, code: CARD16];
DeleteDataSetProc:
TYPE =
PROCEDURE [mediaH: MediaHandle]
RETURNS
[successful: BOOLEAN ← FALSE];
End AR 1064