-- GetFileIDsImpl.mesa
-- Last Edited by: Kolling, November 10, 1983 11:24 am

DIRECTORY

      File
         USING[Open],
      FS
         USING[Open],
      IO
        USING[card, Close, PutF, STREAM],
      Rope
	    USING[ROPE];


GetFileIDsImpl: PROGRAM
  IMPORTS FS, IO 
  SHARES File =


BEGIN
  
   
   
Main: PROCEDURE =
   BEGIN -- set up to call from CoPilot for debugging.
   foo: CARDINAL ← 0;
   BEGIN
   ENABLE ANY => foo ← foo + 1; -- protect us from the tempcedarexec.
   uid: SystemInternal.UniversalID;
   resultsStreamHandle ← FS.Open["GetFileIDs.Results", overwrite, none];
   uid ← LOOPHOLE[Directory.Lookup["Alpine0.DontDeleteMe", , ].fID];
   resultsStreamHandle.PutF["*n%g ", IO.card[uid.processor.a]];
   resultsStreamHandle.PutF["%g ", IO.card[uid.processor.b]];
   resultsStreamHandle.PutF["%g ", IO.card[uid.processor.c]];
   resultsStreamHandle.PutF["%g ", IO.card[uid.sequence]];
      
   uid ← LOOPHOLE[Directory.Lookup["Alpine1.DontDeleteMe", , ].fID];
   resultsStreamHandle.PutF["*n%g ", IO.card[uid.processor.a]];
   resultsStreamHandle.PutF["%g ", IO.card[uid.processor.b]];
   resultsStreamHandle.PutF["%g ", IO.card[uid.processor.c]];
   resultsStreamHandle.PutF["%g ", IO.card[uid.sequence]];
    
   uid ← LOOPHOLE[Directory.Lookup["Alpine2.DontDeleteMe", , ].fID];
   resultsStreamHandle.PutF["*n%g ", IO.card[uid.processor.a]];
   resultsStreamHandle.PutF["%g ", IO.card[uid.processor.b]];
   resultsStreamHandle.PutF["%g ", IO.card[uid.processor.c]];
   resultsStreamHandle.PutF["%g ", IO.card[uid.sequence]];
      
   uid ← LOOPHOLE[Directory.Lookup["Alpine3.DontDeleteMe", , ].fID];
   resultsStreamHandle.PutF["*n%g ", IO.card[uid.processor.a]];
   resultsStreamHandle.PutF["%g ", IO.card[uid.processor.b]];
   resultsStreamHandle.PutF["%g ", IO.card[uid.processor.c]];
   resultsStreamHandle.PutF["%g ", IO.card[uid.sequence]];
    
   uid ← LOOPHOLE[Directory.Lookup["Alpine4.DontDeleteMe", , ].fID];
   resultsStreamHandle.PutF["*n%g ", IO.card[uid.processor.a]];
   resultsStreamHandle.PutF["%g ", IO.card[uid.processor.b]];
   resultsStreamHandle.PutF["%g ", IO.card[uid.processor.c]];
   resultsStreamHandle.PutF["%g ", IO.card[uid.sequence]];
    
       
   uid ← LOOPHOLE[Directory.Lookup["Alpine5.DontDeleteMe", , ].fID];
   resultsStreamHandle.PutF["*n%g ", IO.card[uid.processor.a]];
   resultsStreamHandle.PutF["%g ", IO.card[uid.processor.b]];
   resultsStreamHandle.PutF["%g ", IO.card[uid.processor.c]];
   resultsStreamHandle.PutF["%g ", IO.card[uid.sequence]];
    
resultsStreamHandle.Close[];
   END;
   END;
   
   
   
   
-- main line code:

resultsStreamHandle: IO.Handle;

END.