home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / RUE_200.ZIP / STRUCT.RUE < prev   
Encoding:
Text File  |  1992-07-28  |  5.9 KB  |  118 lines
  1.               (* Structures of SuperBBS Remote User Editor *)
  2.  
  3. (* ===================================================================== *)
  4.  
  5. (* Beginning Of Menu File Structure... *)
  6.  
  7. CONST VERSION = '2.00';
  8.  
  9. Type
  10.  
  11.      KeyStr        = String [1];
  12.  
  13.      TemplateRec = Record
  14.                      name:       string[25];
  15.                      seclvl:     word;
  16.                      forcesec:   boolean;
  17.                      flags:      flagtype;
  18.                      forceflags: boolean;
  19.                      importfile: string[79];
  20.                    end;                                  (* size: 114    *)
  21.  
  22.      EditType1     = (Name, Alias, Password, Domicile,   (*   sorry      *)
  23.                       Voice, Data, Birthday, SecLvl,     (*       this   *)
  24.                       HighRead, Calls, Msgs, Ups, Downs, (*   messy      *)
  25.                       UpK, DownK, FirstDate, FirstTime,  (*       list   *)
  26.                       LastDate, LastTime, Expiration,
  27.                       LastFileChk, TodayDown, TodayCalls,
  28.                       Elapsed, TotalTime, InBank, Proto,
  29.                       ScrLen, Credit, Pending, Sex,
  30.                       Language, FirstMenu, ViewFile,
  31.                       Comment, FlagsA, FlagsB, FlagsC,
  32.                       FlagsD, Deleted, Ansis, ScrClears,
  33.                       More, NoKill, IgnoreDownHours,
  34.                       NoRatio, MailCheck, FileCheck,
  35.                       Editor, MsgViewer, DelAfterView,
  36.                       ViewOnlyOnce, FileViewed,
  37.                       CombMailCheck, NoHotKeys, DoNotDisturb,
  38.                       FA1, FA2, FA3, FA4, FA5, FA6, FA7, FA8,                     (* edit invidual flag *)
  39.                       FB1, FB2, FB3, FB4, FB5, FB6, FB7, FB8,
  40.                       FC1, FC2, FC3, FC4, FC5, FC6, FC7, FC8,
  41.                       FD1, FD2, FD3, FD4, FD5, FD6, FD7, FD8,
  42.                       FindTemplate, Empty);
  43.  
  44.      EditType2     = (ShowAnsi, GotoMenu, ViewAsw, AddToCtl, ViewLog,
  45.                       ViewTodayLog, GosubMenu, DeleteNEWERNewUserAnswers,
  46.                       DeleteOLDERNewUserAnswers, DeleteALLNewUserAnswers);
  47.  
  48.      EditType4     = (Quit, Header, YourCommand, GoUser, CheckCtls,
  49.                       ClearFindList, SelectFoundUser, ValidateUsers,
  50.                       ShowCombBoards, ViewLimits, UseTemplate,
  51.                       Logo, ShowTime, FileToMsg, PrevUser, NextUser,
  52.                       FirstUser, LastUser, MeUser, ShowAge, ShowCurrTime,
  53.                       ShowCurrDate, ShowCurrUserNum, ShowMaxUserNum,
  54.                       DFCA1, DFCA2, DFCA3, DFCA4, DFCA5, DFCA6, DFCA7, DFCA8,     (* display flag comment *)
  55.                       DFCB1, DFCB2, DFCB3, DFCB4, DFCB5, DFCB6, DFCB7, DFCB8,
  56.                       DFCC1, DFCC2, DFCC3, DFCC4, DFCC5, DFCC6, DFCC7, DFCC8,
  57.                       DFCD1, DFCD2, DFCD3, DFCD4, DFCD5, DFCD6, DFCD7, DFCD8,
  58.                       ReturnFromGosub, MoveUser);
  59.  
  60.      MenuFields    = (EditField, FileName, Find, Replace, Other);
  61.  
  62.      MenuFieldRec1 = Record                              (* "edit field" *)
  63.                        Empty: Byte;
  64.                        Key:  Char;                       (* function key *)
  65.                        Menu: EditType1;                  (* menu type 1  *)
  66.                        X:    Byte;                       (* x-coordinate *)
  67.                        Y:    Byte;                       (* y-coordinate *)
  68.                        C:    Byte;                       (* colour code  *)
  69.                        Ed:   KeyStr;                     (* to be edited *)
  70.                      end;                                (* size: 000008 *)
  71.  
  72.      MenuFieldRec2 = Record                              (* "show/goto"  *)
  73.                        Empty: Byte;
  74.                        Key:  Char;                       (* function key *)
  75.                        Menu: EditType2;                  (* menu type 2  *)
  76.                        F:    PathStr;                    (* file name    *)
  77.                      end;                                (* size: 000082 *)
  78.  
  79.      MenuFieldRec3 = Record                              (* find/replace *)
  80.                        Empty: Byte;
  81.                        Key:  Char;                       (* function key *)
  82.                        Menu: EditType1;                  (* menu type 1  *)
  83.                      end;                                (* size: 000003 *)
  84.  
  85.      MenuFieldRec4 = Record                              (* "other"      *)
  86.                        Empty: Byte;
  87.                        Key:  Char;                       (* function key *)
  88.                        Menu: EditType4;                  (* menutype 4   *)
  89.                        X:    Byte;                       (* x-coordinate *)
  90.                        Y:    Byte;                       (* y-coordinate *)
  91.                        C:    Byte;                       (* colour code  *)
  92.                      end;                                (* size: 000006 *)
  93.  
  94.      MenuRec       = Record                              (* MENU RECORDS *)
  95.                        _SecLvl: Word;
  96.                        _Flags:  FlagType;
  97.                        case T: MenuFields of
  98.                          EditField: (M1: MenuFieldRec1);
  99.                          FileName:  (M2: MenuFieldRec2);
  100.                          Find:      (M3: MenuFieldRec3);
  101.                          Replace:   (M4: MenuFieldRec3);
  102.                          Other:     (M5: MenuFieldRec4);
  103.                        end;                              (* size: 000089 *)
  104.  
  105. (* End Of Menu File Structure *)
  106.  
  107.  
  108.  
  109. (*
  110.    External routines used in RUE:
  111.    ---------------------------------------------------------
  112.    Unit      File         Date  Version  Author
  113.    ---------------------------------------------------------
  114.    CRC32     CYCLIC.ZIP   03/88 Unknown  J.R.Louvau
  115.    ERRMSGS   Unknown         89   1.20   C.B.Falconer
  116.    EXECSWAP  EXECSW2.ZIP  11/90   1.30   Turbo Power Software
  117. *)
  118.