home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / MFMP110A.ZIP / MAXAREAS.ITF next >
Text File  |  1992-03-09  |  1KB  |  48 lines
  1. (*#module(turbo_comp=>off)*)
  2. Interface Unit MaxAreas;
  3. IMPORT
  4.   OS2DEF(ULONG),
  5.   DOS(HDIR,FILEFINDBUF,HDIR_CREATE,EXIT_PROCESS),
  6.   TURBOCRT,
  7.   TURBODOS,
  8.   TURBOSYS(_BLOCKREAD)
  9.   ;
  10. Const
  11.   MaxClass = 12;
  12.   MaxOvr = 16;
  13. Type
  14.   Override = Record
  15.     Priv : Int16;
  16.     Lock : Byte;
  17.     Ch : Char;
  18.   End;
  19.   AreaRecordType = Record
  20.     Id : Array[1..4] Of Char;
  21.     StructLen : Word;
  22.     AreaNo : Array[1..2] Of Char;
  23.     Name : Array[1..40] Of Char;
  24.     AreaType : Word;
  25.     MsgPath : Array[1..80] Of Char;
  26.     MsgName : Array[1..40] Of Char;
  27.     MsgInfo, MsgBar : Array[1..80] Of Char;
  28.     Origin : Array[1..62] Of Char;
  29.     MsgPriv : Word;
  30.     MsgLock, Fill1 : Byte;
  31.     OriginAka : Word;
  32.     FilePath, UpPath, FileBar, FilesBbs, FileInfo : Array[1..80] Of Char;
  33.     FilePriv : Word;
  34.     FileLock, Fill2 : Byte;
  35.     MsgMenuName, FileMenuName : Array[1..13] Of Char;
  36.     Attrib : Array[1..MaxClass] Of Word;
  37.     Movr : Array[1..MaxOvr] Of Override;
  38.     Fovr : Array[1..MaxOvr] Of Override;
  39.   End;
  40. Var
  41.   AreaPath : String[80];
  42.   StructLen : Word;
  43.  
  44. Procedure OpenMaximusArea;
  45. Function GetMaximusArea(AreaNo, StructLen : Integer; Var AreaRecord : AreaRecordType) : Byte;
  46. Procedure CloseMaximusArea;
  47. END.
  48.