
{A program to be inserted into the AUTO folder and display warnings and 
reminders when the system is RESET.

                         Author        : Merlin L. Hanson
                         Genie Address : M.L.HANSON
                         Language      : Personal Pascal 2.0
                         Date          : March 1990
                         Version       : 1.0      }										

PROGRAM Co_Pilot_A;  {For booting from A:\}
CONST
  Bel = 7;   {ASCII for Bell sound.}
VAR
  InputFile : {FILE OF} text;
  S         : string;
  DingCtr   : integer;
  
PROCEDURE TimeDelay;
  VAR  Ctr : long_integer;
  BEGIN
    Ctr := 0;
    REPEAT
      Ctr := Ctr + 1;
    UNTIL Ctr > 20000;
  END {timedelay};
    
BEGIN {main}
  RESET(InputFile,'A:\AUTO\CO_PILOT.INF');
  FOR DingCtr := 1 TO 5 DO
    BEGIN
      Write(CHR(Bel));  
      TimeDelay;
    END;  
  WriteLn('');  {Most recent program in the \AUTO\ folder may not have had a CR.} 
  WHILE NOT EOF(InputFile) DO
    BEGIN
      ReadLn(InputFile,S);
      WriteLn(S);
    END;
  {Normal GEM program needs a delay here. No screen clear on the AUTO 
  folder programs, so no delay is needed.}
  CLOSE(InputFile);
END {of program}.      
