home *** CD-ROM | disk | FTP | other *** search
/ MacGames Sampler / PHT MacGames Bundle.iso / MacSource Folder / Samples from the CD / Pascal / Source□ / Talk Source / Talkd ƒ / BaseGlobals.p next >
Encoding:
Text File  |  1992-04-20  |  491 b   |  32 lines  |  [TEXT/PJMM]
  1. unit BaseGlobals;
  2.  
  3. { This program was written by Peter N Lewis, Mar 1992 in THINK Pascal 4.0.1 }
  4.  
  5. interface
  6.  
  7.     const
  8.         global_strh_id = 129;
  9.  
  10.         alert_pattern = 1;
  11.         auto_reply_pattern = 2;
  12.         s_seconds = 3;
  13.         s_minutes = 4;
  14.         s_hours = 5;
  15.         s_days = 6;
  16.  
  17.     var
  18.         quitNow: boolean;
  19.  
  20.     function GetGlobalString (i: integer): str255;
  21.  
  22. implementation
  23.  
  24.     function GetGlobalString (i: integer): str255;
  25.         var
  26.             s: str255;
  27.     begin
  28.         GetIndString(s, global_strh_id, i);
  29.         GetGlobalString := s;
  30.     end;
  31.  
  32. end.