home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / MFM_119C.ZIP / MFMDEFS.PAS < prev    next >
Pascal/Delphi Source File  |  1993-06-04  |  2KB  |  60 lines
  1. Unit MfmDefs;
  2. {========================================================================}
  3. Interface
  4.   Uses
  5.     Dos;
  6.   Const
  7.     Pgmid = 'MFM 1.19c 04jun93 MWBJR Enterprise 1:2614/701.0 (215)641-0270';
  8.     Base153A = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ@!#$%&''()-^_`{}~';
  9.     Base153B = 'ÇÜÄÅÉÆÖ¢£¥₧ƒÑªº¿⌐¬½¼¡«»░▒▓│┤╡╢╖╕╣║╗╝╜╛┐└┴┬├─┼╞╟╚╔╩';
  10.     Base153C = '╦╠═╬╧╨╤╥╙╘╒╓╫╪┘┌█▄▌▐▀αßΓπΣµτΦΘΩδ∞φε∩≡±≥≤⌠⌡÷≈°∙·√ⁿ²■';
  11.     MaxSkip = 20;
  12.     MaxDescLength = 255;
  13.   Type
  14.     TypeOfRecordType = (Comment,FileRecord,Orphan,Offline);
  15.     ListPtr = ^ListRecord;
  16.     ListRecord = Record
  17.       NextEntry, PrevEntry : ListPtr;
  18.       TypeOfRecord : TypeOfRecordType;
  19.       FileName : String[12];
  20.       FileSize, FileDate : LongInt;
  21.       Description : String;
  22.       Tagged : Boolean;
  23.     End;
  24.     S2 = String[2];
  25.     S4 = String[4];
  26.     S8 = String[8];
  27.     S12 = String[12];
  28.   Var
  29.     Gcx : Char;
  30.     Gbx : Byte;
  31.     Counter, Row, AreaCounter, OffSet, Columns, ColumnPos : Byte;
  32.     Result, OldArea : Word;
  33.     FileList, NewFileList : Text;
  34.     DirInfo : SearchRec;
  35.     Date : DateTime;
  36.     Month, Day : String[2];
  37.     Year : String[4];
  38.     AreaMask, CompressedFileExt, PictureFileExt : String[30];
  39.     CommandLineTail, WorkString : String;
  40.     NumberOfEntries, NumberOfAreaEntries, NumberOfFiles : Word;
  41.     D, ViewDir, MfmExeDir : DirStr;
  42.     N, ViewName : NameStr;
  43.     E, ViewExt : ExtStr;
  44.     AreaPath, FileAreaPath, FilesBbsPath : PathStr;
  45.     Altered, FilesBbs : Boolean;
  46.     FirstEntry, LastEntry, NewEntry, OldEntry, TopEntry, NextPrintEntry,
  47.     CurrentEntry, StackEntry, KillEntry, BeginSort, EndSort : ListPtr;
  48.     DefaultViewer, CompressedFileViewer, PictureFileViewer, StringToFind : String[12];
  49.     FreeSpace, SizeOfFiles : LongInt;
  50.     FreeSpaceString : String[6];
  51.     OkToAddToList, Changed, MfmRunFb, AreaChanged, TabOk : Boolean;
  52.     Base153 : String[153];
  53.     SkipList : Array[1..MaxSkip] Of String[12];
  54. {========================================================================}
  55. Implementation
  56. {========================================================================}
  57. Begin
  58. End.
  59. {========================================================================}
  60.