home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / virus / co_pilot / copilotc.pas < prev    next >
Pascal/Delphi Source File  |  1990-03-14  |  1KB  |  46 lines
  1.  
  2. {A program to be inserted into the AUTO folder and display warnings and 
  3. reminders when the system is RESET.
  4.  
  5.                          Author        : Merlin L. Hanson
  6.                          Genie Address : M.L.HANSON
  7.                          Language      : Personal Pascal 2.0
  8.                          Date          : March 1990
  9.                          Version       : 1.0      }                                        
  10.  
  11.  
  12. PROGRAM Co_Pilot_C;  {For booting from C:\}
  13. CONST
  14.   Bel = 7;   {ASCII for Bell sound.}
  15. VAR
  16.   InputFile : {FILE OF} text;
  17.   S         : string;
  18.   DingCtr   : integer;
  19.   
  20. PROCEDURE TimeDelay;
  21.   VAR  Ctr : long_integer;
  22.   BEGIN
  23.     Ctr := 0;
  24.     REPEAT
  25.       Ctr := Ctr + 1;
  26.     UNTIL Ctr > 20000;
  27.   END {timedelay};
  28.     
  29. BEGIN {main}
  30.   RESET(InputFile,'C:\AUTO\CO_PILOT.INF');
  31.   FOR DingCtr := 1 TO 5 DO
  32.     BEGIN
  33.       Write(CHR(Bel));  
  34.       TimeDelay;
  35.     END;  
  36.   WriteLn('');  {Last program in the \AUTO\ folder may not have a CR.} 
  37.   WHILE NOT EOF(InputFile) DO
  38.     BEGIN
  39.       ReadLn(InputFile,S);
  40.       WriteLn(S);
  41.     END;
  42.   {Normal GEM program needs a delay here. No screen clear on the AUTO 
  43.   folder programs, so no delay is needed.}
  44.   CLOSE(InputFile);
  45. END {of program}.      
  46.