BEGIN                                                                  
      %  Compile and run this ALGOL program.                            
      %  Load it as a CANDE workfile, type it as ALGOL, and run it      
      %                                                                 
 FILE REMTF(KIND = REMOTE, MYUSE=OUT, MAXRECSIZE = 12);                 
 VALUE ARRAY Emodes (0,0                                                
               ,"Alpha ",0                                              
               ,"Beta  ",0                                              
               ,"Gamma ",0                                              
               ,"Delta ",0                                              
               ,"Epsilo","n     "                                       
               ,"Zeta  ", 0)                                            
;                                                                       
 ARRAY A[0:12];                                                         
 POINTER PTOA;                                                          
 PTOA := POINTER (A);                                                   
 REPLACE PTOA BY " " FOR 60;                                            
 A[12] := TIME (24);                                                    
 REPLACE PTOA BY "System SN="                                           
      , TIME (23).[23:16] FOR * DIGITS                                  
      , ", e-mode Level = "                                             
      , POINTER (Emodes [2 * Time(23).[31:08] ]) FOR 6 UNTIL = " "      
      ,", Machine Type ="                                               
      ,A[12] FOR 6                                                      
      ,"#";                                                             
 WRITE (REMTF,10,A);                                                    
 REPLACE PTOA BY " " FOR 60;                                            
      % Get System SSR level                                            
 REPLACE PTOA BY "SSR level = "                                         
      , TIME (31).[47:16] FOR * DIGITS, "."                             
      , TIME (31).[31:16] FOR 3 DIGITS, "."                             
      , TIME (31).[15:16] FOR 4 DIGITS;                                 
 WRITE (REMTF,10,A);                                                    
 END.