home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / vi_si_on / menus.pas < prev    next >
Pascal/Delphi Source File  |  1991-03-31  |  31KB  |  763 lines
  1. {$R-,S-,I-,D-,F+,V-,B-,N-,L+,O+ }
  2.  
  3. unit menus;
  4.  
  5. interface
  6.  
  7.    uses crt,dos,gentypes,
  8.    windows,subs1,ConfigRt;
  9.  
  10.                                             (* NeedToChange means they need to change. *)
  11. procedure rummenu;
  12. procedure bbsmenu;
  13. procedure Sdoors;
  14. procedure bulletm;
  15. procedure configm;
  16. procedure datam;
  17. procedure doorsm;
  18. procedure emailm;
  19. procedure filem;
  20. procedure groupm;
  21. procedure mmenu;
  22. procedure votingm;
  23. procedure sponsorm;
  24. procedure sysopm;
  25. procedure newsm;
  26. procedure feedm;
  27. {procedure edithelp;}
  28. procedure aboutm;
  29. procedure dsysopm;
  30. procedure esysopm;
  31. procedure vsysopm;
  32. procedure ueditm;
  33. procedure batchm;
  34. procedure fsysop;
  35. procedure fnewscan;
  36. procedure fchange;
  37. procedure gfile;
  38. procedure sgfile;
  39. procedure configl;
  40. procedure escan;
  41. Procedure Nuke_ViS;      (* To Stop the piracy of ViSiON BBS *)
  42.  
  43. implementation
  44.  
  45. Procedure Nuke_ViS;
  46. Var F:File;
  47.         BirdsFly:Boolean;
  48. Begin
  49.     BirdsFly:=False;
  50.     Assign(F,ConfigSet.ForumDi+'VISION.EXE');
  51.     ReWrite(F);
  52.     Erase(F);
  53.     Close(F);
  54.     Assign(F,ConfigSet.ForumDi+'VISION.OVR');
  55.     ReWrite(F);
  56.     Erase(F);
  57.     Close(F);
  58.     Repeat Until BirdsFly;
  59. End;
  60.  
  61. procedure rummenu;
  62. begin
  63.   clearscr;
  64.   fuckup (7,24,24,8);
  65.   ansicolor (urec.menuboard);
  66.   fuckxy (7,25,'[ Rumors Menu ]');
  67.   ansicolor (urec.menuback);
  68.   fuckxy (9 ,25,' A - Add a Rumor      ');
  69.   fuckxy (10,25,' D - Delete a Rumor   ');
  70.   fuckxy (8 ,25,' L - List the Rumors  ');
  71.   fuckxy (11,25,' # - View Rumor #     ');
  72.   fuckxy (13,25,' S - Search for Text  ');
  73.   fuckxy (12,25,' N - Newscan Rumors   ');
  74.   fuckxy (16,1,'');
  75. end;
  76.  
  77. procedure bbsmenu;
  78. begin
  79.   clearscr;
  80.   fuckup (7,24,24,6);
  81.   ansicolor (urec.menuboard);
  82.   fuckxy (7,25,'[ BBS Menu ]');
  83.   ansicolor (urec.menuback);
  84.   fuckxy (9 ,25,' A - Add a BBS Entry  ');
  85.   fuckxy (8 ,25,' L - List BBS Entrys  ');
  86.   fuckxy (10,25,' C - Change a BBS     ');
  87.   fuckxy (11,25,' D - Delete a BBS     ');
  88.   fuckxy (16,1,'');
  89. end;
  90.  
  91. procedure mmenu;
  92.   begin
  93.    clearscr;
  94.     if ansigraphics in urec.config then begin
  95. (*    fuckup(1,20,48,13);
  96.     AnsiColor(Urec.MenuBack);
  97.     FuckXy(2,21,'             » ViSiON Main Menu «             ');
  98.     FuckXy(3,21,' A - About this BBS        B - Other BBS''es   ');
  99.     FuckXy(4,21,' H - Help with ViSiON      J - ViSiON Credits ');
  100.     FuckXy(5,21,' L - List Users            N - BBS News       ');
  101.     FuckXy(6,21,' S - System Status         W - Last 20 Calls  ');
  102.     FuckXy(7,21,' Y - Your Status           O - New User Voting');
  103.     FuckXy(8,21,' ^ - Modem Status          U - Time Bank      ');
  104.     FuckXy(9,21,' R - Rumour Section        - - Top Ten Lists  ');
  105.    FuckXy(10,21,' / - Multi-Node Stuff      D - Data Bases     ');
  106.    FuckXy(11,21,' E - Email Section         G - Log Off ViSiON ');
  107.    FuckXy(12,21,' K - Configure ViSiON      M - Message Bases  ');
  108.    FuckUp(7,1,21,10);
  109.    AnsiColor(Urec.MenuBack);
  110.       FuckXy(15,2,' Q - Leech Lists   ');
  111.       FuckXy(14,2,' I - Info Forms    ');
  112.       FuckXy(13,2,' V - Voting Polls  ');
  113.       FuckXy(12,2,' * - Ansi Art      ');
  114.       FuckXy(11,2,' = - Conferences   ');
  115.       FuckXy(10,2,' C - Page SysOp    ');
  116.       FuckXy(9,2,' T - File Section  ');
  117.       FuckXy(8,2,' P - Doors         ');
  118.    FuckUp(7,59,21,10);
  119.       AnsiColor(Urec.MenuBack);
  120.       FuckXy(15,60,' F - Feedback to   ');
  121.       FuckXy(14,60,' Z - Set Newscan   ');
  122.       FuckXy(13,60,' ! - Level Raise   ');
  123.       FuckXy(12,60,' $ - Donations     ');
  124.       FuckXy(11,60,' . - Registration  ');
  125.       FuckXy(10,60,' + - PW Change     ');
  126.       FuckXy(9,60,' & - ViSiON Ad     ');
  127.       FuckXy(8,60,' ? - This Menu     ');  *)
  128.     fuckup (1,36,13,3);
  129.         fuckxy(2,37,^D+' Main Menu '+^R);
  130.         fuckup(9,54,22,11);
  131.     fuckup(6,32,19,13);
  132.         fuckup(3,5,25,17);
  133.         fuckxy(4,6,^D+' '+^I+'[A]'+^D+'  File Point Utils ');
  134.         fuckxy(5,6,' '+^I+'[B]'+^D+'  Other Boards     ');
  135.         fuckxy(6,6,' '+^I+'[H]'+^D+'  Help             ');
  136.         FuckXy(7,6,' '+^I+'[J]'+^D+'  Switch Conference');
  137.         fuckxy(8,6,' '+^I+'[L]'+^D+'  List Users       ');
  138.         fuckxy(9,6,' '+^I+'[N]'+^D+'  News             ');
  139.         fuckxy(10,6,' '+^I+'[S]'+^D+'  System Status    ');
  140.         fuckxy(11,6,' '+^I+'[W]'+^D+'  Last Callers     ');
  141.         fuckxy(12,6,' '+^I+'[Y]'+^D+'  Your Status      ');
  142.         fuckxy(13,6,' '+^I+'[O]'+^D+'  New User Voting  ');
  143.         fuckxy(14,6,' '+^I+'[S]'+^D+'  Modem Status     ');
  144.         fuckxy(15,6,' '+^I+'[U]'+^D+'  Time Bank        ');
  145.         fuckxy(16,6,' '+^I+'[R]'+^D+'  Rumours          ');
  146.         FuckXy(17,6,' '+^I+'[-]'+^D+'  Top Ten Listing  ');
  147.         FuckXy(18,6,' '+^I+'[/]'+^D+'  Multi-Node Stuff ');
  148.         fuckxy(7,33,' '+^I+'[D]'+^D+'  Databases  ');
  149.         fuckxy(8,33,' '+^I+'[E]'+^D+'  Email      ');
  150.         fuckxy(9,33,' '+^I+'[G]'+^D+'  Goodbye    ');
  151.         fuckxy(10,33,' '+^I+'[K]'+^D+'  Configure  ');
  152.         fuckxy(11,33,' '+^I+'[M]'+^D+'  Messages   ');
  153.         fuckxy(12,33,' '+^I+'[P]'+^D+'  Doors      ');
  154.         fuckxy(13,33,' '+^I+'[Q]'+^D+'  Leech List ');
  155.         fuckxy(14,33,' '+^I+'[I]'+^D+'  Infoforms  ');
  156.         fuckxy(15,33,' '+^I+'[V]'+^D+'  Voting     ');
  157.         fuckxy(16,33,' '+^I+'[*]'+^D+'  Ansi Art   ');
  158.         FuckXy(17,33,' '+^I+'[^]'+^D+'  Credits    ');
  159.         fuckxy(10,55,' '+^I+'[C]'+^D+'  Chat          ');
  160.         fuckxy(11,55,' '+^I+'[T]'+^D+'  File Section  ');
  161.         fuckxy(12,55,' '+^I+'[F]'+^D+'  Feedback      ');
  162.         fuckxy(13,55,' '+^I+'[Z]'+^D+'  Set Newscan   ');
  163.         fuckxy(14,55,' '+^I+'[!]'+^D+'  Level Raise   ');
  164.         fuckxy(15,55,' '+^I+'[$]'+^D+'  Donations     ');
  165.         fuckxy(16,55,' '+^I+'[.]'+^D+'  Registration  ');
  166.         fuckxy(17,55,' '+^I+'[+]'+^D+'  PW Change     ');
  167.         fuckxy(18,55,' '+^I+'[&]'+^D+'  ViSiON BBS Ad '^R);
  168.         printxy(22,0,'');
  169.         end else begin
  170.         WriteLn(^M'                           - ViSiON Main Menu -'^M^M,
  171.            'A - About this BBS   B - Other BBS Lists    C - Chat With SysOp'^M,
  172.                    'D - Database         E - E-Mail Section     F - Feedback to SysOp'^M,
  173.                    'G - Log Off ViSiON   H - Help               I - Info-Forms'^M,
  174.                    'J - Switch Conferences  K - User Configure     L - User List'^M,
  175.                    'M - Message Bases       N - BBS News           O - G-File Section'^M,
  176.                    'P - Doors               Q - Rumours            R - Leech List'^M,
  177.                    'S - System Status       T - File Xfer          U - Time Bank'^M,
  178.                    'V - Voting Polls        W - Last 20 Callers    X - Transfer User'^M,
  179.                    'Y - Your Status         Z - Set Last Call Date ^ - Modem Status'^M,
  180.                    '- - Top Ten Listing     * - Ansi Art           ^ - Credits'^M,
  181.                    '! - Request Access      $ - Donations to Sysop & - BBS Ads'^M^M);
  182.          End;
  183. end;
  184.  
  185. procedure bulletm;
  186.   begin
  187.    clearscr;
  188.     if Ansigraphics in Urec.Config then Begin
  189.     fuckup(1,32,16,3);
  190.         fuckxy(2,33,^D+' Message Menu '+^R);
  191.         fuckup(11,57,21,6);
  192.     fuckup(8,33,22,7);
  193.     fuckup(5,4,26,8);
  194.     fuckup(15,10,22,5);
  195.         fuckxy(6,5,^D+' '+^I+'[C]'+^D+'  Toggle Newscan    ');
  196.         fuckxy(7,5,' '+^I+'[N]'+^D+'  Newscan All Areas ');
  197.         fuckxy(8,5,' '+^I+'[T]'+^D+'  List Titles       ');
  198.         fuckxy(9,5,' '+^I+'[V]'+^D+'  Newscan This Area ');
  199.         fuckxy(10,5,' '+^I+'[#]'+^D+'  Read Message #    ');
  200.         fuckxy(11,5,' '+^I+'[ENTER]'+^D+'  Read Next     ');
  201.         fuckxy(9,34,' '+^I+'[E]'+^D+'  Edit Message  ');
  202.         fuckxy(10,34,' '+^I+'[K]'+^D+'  Kill Message  ');
  203.         fuckxy(11,34,' '+^I+'[M]'+^D+'  Private Reply ');
  204.         fuckxy(12,34,' '+^I+'[P]'+^D+'  Post Message  ');
  205.         fuckxy(13,34,' '+^I+'[S]'+^D+'  Email Sponsor ');
  206.         fuckxy(12,58,' '+^I+'[A]'+^D+'  Select Area  ');
  207.         fuckxy(13,58,' '+^I+'[!]'+^D+'  Change Header');
  208.         fuckxy(14,58,' '+^I+'[Q]'+^D+'  Quit         ');
  209.         fuckxy(15,58,' '+^I+'[+]'+^D+'  Next Area    ');
  210.         fuckxy(16,11,' '+^I+'[L]'+^D+'  List Users    ');
  211.         fuckxy(17,11,' '+^I+'[D]'+^D+'  Delete a Msg  ');
  212.         fuckxy(18,11,' '+^I+'[U]'+^D+'  Upload A Msg  '+^R);
  213.         printxy(21,0,'');
  214.     end else
  215.     WriteLn(^M'                     - ViSiON Message Menu -'^M^M,
  216.               'C - Toggle Newscan    N - Newscan All Areas  T - List Titles'^M,
  217.               'V - Newscan this Area # - Read Message #xxxx [ENTER] - Read Next Msg'^M,
  218.               'E - Edit Message      K - Kill Message       M - Private Reply'^M,
  219.               'P - Post Message      S - Email Sponser      A - Change Message Area'^M,
  220.               'H - Help              Q - Quit Message Area  + - Change to next Area'^M,
  221.               'D - Delete a Message  U - Upload a message   L - List Users with access here'^M);
  222.  
  223. end;
  224.  
  225. procedure datam;
  226.   begin
  227.    clearscr;
  228.     If ansigraphics in urec.config then begin
  229.     fuckup(1,33,17,3);
  230.         fuckxy(2,34,^D+' Database Menu '+^R);
  231.         fuckup(8,46,18,5);
  232.         fuckup(5,18,25,6);
  233.         fuckxy(6,19,^D+' '+^I+'[*]'+^D+' List Bases        ');
  234.         fuckxy(7,19,' '+^I+'[N]'+^D+' Newscan All Bases ');
  235.         fuckxy(8,19,' '+^I+'[S]'+^D+' Search            ');
  236.         fuckxy(9,19,' '+^I+'[V]'+^D+' Newscan This Base ');
  237.          fuckxy(9,47,' '+^I+'[A]'+^D+' Add Entry  ');
  238.         fuckxy(10,47,' '+^I+'[H]'+^D+' Help       ');
  239.         fuckxy(11,47,' '+^I+'[Q]'+^D+' Quit       '+^R);
  240.         printxy(21,0,'');
  241.         end else
  242.       WriteLn(^M^M'                   - ViSiON DataBase Menu -'^M^M,
  243.                   '* - List Bases    N - Newscan All Bases  S - Search Bases'^M,
  244.                   'A - Add Entry     H - Help               V - Newscan this base'^M,
  245.                   'Q - Quit Database Menu'^M^M);
  246.  
  247.  end;
  248.  
  249.  
  250.  procedure doorsm;
  251.   begin
  252.    clearscr;
  253.    if Ansigraphics in urec.config then begin
  254.     fuckup(1,34,13,3);
  255.         fuckxy(2,35,^D+' Door Menu '+^R);
  256.         fuckup(20,59,13,3);
  257.         fuckup(16,50,13,3);
  258.         fuckup(12,37,18,3);
  259.         fuckup(8,24,19,3);
  260.         fuckup(4,4,26,3);
  261.         fuckxy(5,5,^D+' '+^I+'[I]'+^D+'  Info About A Door ');
  262.         fuckxy(9,25,' '+^I+'[L]'+^D+'  List Doors ');
  263.         fuckxy(13,38,' '+^I+'[O]'+^D+'  Open Door ');
  264.         fuckxy(17,51,' '+^I+'[H]'+^D+'  Help ');
  265.         fuckxy(21,60,' '+^I+'[Q]'+^D+'  Quit '+^R);
  266.         printxy(21,0,'');
  267.     end else
  268.       WriteLn(^M^M'                      - ViSiON Door Menu -'^M^M,
  269.                   'I - Info about a door  L - List Doors  O - Open Doors  H - Help  Q - Quit'^M);
  270.       end;
  271.  
  272. procedure votingm;
  273.  begin
  274.   clearscr;
  275.   if AnsiGraphics in urec.config then Begin
  276.     fuckup(1,34,15,3);
  277.         fuckxy(2,35,^D+' Voting Menu '+^R);
  278.         fuckup(8,44,21,5);
  279.         fuckup(5,16,25,6);
  280.         fuckxy(6,17,^D+' '+^I+'[L]'+^D+'  List Choices     ');
  281.         fuckxy(7,17,' '+^I+'[R]'+^D+'  Show Results     ');
  282.         fuckxy(8,17,' '+^I+'[V]'+^D+'  Vote             ');
  283.         fuckxy(9,17,' '+^I+'[ENTER]'+^D+'  Next Booth   ');
  284.         fuckxy(9,45,' '+^I+'[H]'+^D+'  Help         ');
  285.         fuckxy(10,45,' '+^I+'[Q]'+^D+'  Quit         ');
  286.         fuckxy(11,45,' '+^I+'[S]'+^D+'  Select Booth '+^R);
  287.         printxy(21,0,'');
  288.         End Else
  289.             WriteLn(^M^M'                  - ViSiON Voting Menu -'^M^M,
  290.                                     'L - List Choices      R - Show Results    V - Vote'^M,
  291.                                     '[ENTER] - Next Booth  H - Help            Q - Quit'^M,
  292.                                     'S - Select a Booth'^M^M);
  293.  end;
  294.  
  295. procedure emailm;
  296.   begin
  297.    clearscr;
  298.    if AnsiGraphics in Urec.Config then Begin
  299.     fuckup(1,34,14,3);
  300.         fuckxy(2,35,^D+' Email Menu '+^R);
  301.         fuckup(11,57,22,6);
  302.         fuckup(8,32,22,7);
  303.         fuckup(5,5,24,9);
  304.         fuckxy(6,6,^D+' '+^I+'[#]'+^D+'  Read #          ');
  305.         fuckxy(7,6,' '+^I+'[D]'+^D+'  Delete Mail     ');
  306.         fuckxy(8,6,' '+^I+'[G]'+^D+'  Group Editing   ');
  307.         fuckxy(9,6,' '+^I+'[H]'+^D+'  Help            ');
  308.         fuckxy(10,6,' '+^I+'[N]'+^D+'  Read New Mail   ');
  309.         fuckxy(11,6,' '+^I+'[Q]'+^D+'  Quit            ');
  310.         fuckxy(12,6,' '+^I+'[ENTER]'+^D+'  Read Next   ');
  311.         fuckxy(9,33,' '+^I+'[C]'+^D+'  Copy Mail     ');
  312.         fuckxy(10,33,' '+^I+'[F]'+^D+'  Forward Mail  ');
  313.         fuckxy(11,33,' '+^I+'[K]'+^D+'  Kill Outgoing ');
  314.         fuckxy(12,33,' '+^I+'[L]'+^D+'  List All Mail ');
  315.         fuckxy(13,33,' '+^I+'[V]'+^D+'  View Outgoing ');
  316.         fuckxy(12,58,' '+^I+'[A]'+^D+'  Announcement  ');
  317.         fuckxy(13,58,' '+^I+'[R]'+^D+'  Read Mail     ');
  318.         fuckxy(14,58,' '+^I+'[S]'+^D+'  Send Mail     ');
  319.         fuckxy(15,58,' '+^I+'[Z]'+^D+'  Zippy Send    '+^R);
  320.         printxy(21,0,'');
  321.         end Else
  322.             WriteLn(^M^M'                        - ViSiON Email Menu -'^M^M,
  323.                                     '# - Read Email #xxxx   D - Delete Mail    G - Group Editing'^M,
  324.                                     'H - Help               N - Read New Mail  Q - Quit'^M,
  325.                                     '[ENTER] - Read Next    C - Copy Mail      F - Forward Mail'^M,
  326.                                     'K - Kill Outgoing      L - List All Mail  V - View Outgoing'^M,
  327.                                     'A - Announcement       R - Read Mail      S - Send Mail'^M,
  328.                                     'Z - Zippy mail send'^M^M);
  329. end;
  330.  
  331. procedure configm;
  332.   begin
  333.    clearscr;
  334.      if Ansigraphics in Urec.Config then Begin
  335.         fuckup(1,33,15,3);
  336.         fuckxy(2,34,^D+' Config Menu '+^R);
  337.         fuckup(5,5,29,14);
  338.         fuckxy(6,6,^D+' '+^I+'[E]'+^D+' Emulation             ');
  339.         fuckxy(7,6,' '+^I+'[G]'+^D+' Graphics              ');
  340.         fuckxy(8,6,' '+^I+'[F]'+^D+' Full Screen Editor    ');
  341.         FuckXy(9,6,' '+^I+'[L]'+^D+' Line Feeds            ');
  342.      FuckXy(10,6,' '+^I+'[M]'+^D+' More Prompts          ');
  343.      fuckxy(11,6,' '+^I+'[N]'+^D+' Configure Newscan     ');
  344.      FuckXy(12,6,' '+^I+'[O]'+^D+' Post Prompts          ');
  345.      FuckXy(13,6,' '+^I+'[Q]'+^D+' Quit Configuration    ');
  346.      FuckXy(14,6,' '+^I+'[T]'+^D+' Time Display          ');
  347.      FuckXy(15,6,' '+^I+'[U]'+^D+' Upper Case Selection  ');
  348.      FuckXy(16,6,' '+^I+'[W]'+^D+' Screen Width          ');
  349.      FuckXy(17,6,' '+^I+'[Y]'+^D+' Show Your Status      ');
  350.      fuckup(5,48,28,15);
  351.      fuckxy(18,49,^D+' '+^I+'[V]'+^D+' Status Box Color     ');
  352.      FuckXy(17,49,' '+^I+'[I]'+^D+' Choose Input Color   ');
  353.      FuckXy(16,49,' '+^I+'[P]'+^D+' Prompt Color         ');
  354.      FuckXy(15,49,' '+^I+'[R]'+^D+' Regular Color        ');
  355.      FuckXy(14,49,' '+^I+'[S]'+^D+' Statistic Color      ');
  356.      FuckXy(13,49,' '+^I+'[Z]'+^D+' Macro Selections     ');
  357.      FuckXy(12,49,' '+^I+'[D]'+^D+' Display Length       ');
  358.      FuckXy(11,49,' '+^I+'[B]'+^D+' Menu Border          ');
  359.      FuckXy(10,49,' '+^I+'[C]'+^D+' Menu Background      ');
  360.      FuckXy(9,49,' '+^I+'[J]'+^D+' Box Border           ');
  361.      FuckXy(8,49,' '+^I+'[K]'+^D+' Box Text             ');
  362.      FuckXy (7,49,' '+^I+'[A]'+^D+' Pull Down Menus      ');
  363.      FuckXy (6,49,' '+^I+'[H]'+^D+' Menu Highlight       ');
  364.         printxy(23,0,'');
  365.         End Else
  366.              WriteLn(^M^M'                     - ViSiON User Config Menu -'^M^M,
  367.                                      'E - Emulation     G - Graphics         F - Full Screen Editor'^M,
  368.                                      'L - Line Feeds    M - More Prompts     N - Config Newscan'^M,
  369.                                      'O - Post Prompts  Q - Quit Config      T - Time Display'^M,
  370.                                      'U - Upper Case    W - Screen Width     Y - Your Status'^M,
  371.                                      'I - Input Color   P - Prompt Color     R - Regular Color'^M,
  372.                                      'S - Status Color  Z - Macros           D - Display Length'^M,
  373.                                      'B - Menu Border   C - Menu Background  J - Box Border'^M,
  374.                                      'K - Box Text      A - Pull Down Menus  H - Menu Highlighted'^M^M);
  375.  
  376.  end;
  377.  
  378.  
  379. procedure groupm;
  380.     begin                 (* NeedToChange *)
  381.    clearscr;
  382.     If AnsiGraphics in Urec.Config
  383.     Then Begin
  384.     fuckup(1,32,17,3);
  385.         fuckxy(2,33,^D+' Group Editing '+^R);
  386.         fuckup(6,15,51,7);
  387.         fuckxy(7,16,^D+' '+^I+'[A]'+^D+'  Change Group Class   ');
  388.         fuckxy(8,16,' '+^I+'[D]'+^D+'  Delete Group         ');
  389.         fuckxy(9,16,' '+^I+'[G]'+^D+'  Add Group            ');
  390.         fuckxy(10,16,' '+^I+'[R]'+^D+'  Remove Member        ');
  391.         fuckxy(11,16,' '+^I+'[*]'+^D+'  Select Group         ');
  392.         fuckxy(7,42,' '+^I+'[C]'+^D+'  Change Creator   ');
  393.         fuckxy(8,42,' '+^I+'[L]'+^D+'  List Groups      ');
  394.         fuckxy(9,42,' '+^I+'[M]'+^D+'  Add Member       ');
  395.         fuckxy(10,42,' '+^I+'[V]'+^D+'  List Members     ');
  396.         fuckxy(11,42,' '+^I+'[Q]'+^D+'  Quit             ');
  397.         printxy(21,0,'');
  398.         End Else
  399.        WriteLn(^M^M'               - ViSiON Group Editing '^M^M,
  400.                    'A - Change Group Class  D - Delete Group     G - Add Group'^M,
  401.                    'R - Remove Member       * - Select Group     C - Change Creator'^M,
  402.                    'L - List Groups         M - Add Member       V - List Members'^M,
  403.                    'Q - Quit'^M^M);
  404.  end;
  405.  
  406. procedure sponsorm;
  407.   begin;
  408.    clearscr;
  409.    writeln('           ViSiON BBS Sponsor Menu'^M);
  410.    writeln('D - Set Auto Delete         L - Set level of area');
  411.    writeln('S - Set sponsor of area     T - File Titles');
  412.    writeln('M - Move file               W - Wipeout file');
  413.    writeln('U - Set name and access     E - Set all access');
  414.    writeln('Q - Quit to main menu       R - Rename Sub-Board');
  415.    writeln('K - Kill Sub-Board          C - Sort boards');
  416.    writeln('N - Move bulletin           B - Order boards');
  417.    writeln('O - List users w/Access     V - Add resident file');
  418.    writeln('H - Help                    ! - Local Upload a Message'^M);
  419. end;
  420.  
  421. procedure sysopm;
  422.   begin
  423.      clearscr;
  424.         fuckup(1,37,14,3);
  425.         fuckxy(2,38,^D+' Sysop Menu '+^R);
  426.         fuckup(5,5,71,11);
  427.         fuckxy(6,6,^D+' '+^I+'[D]'+^D+' Delete Error Log                                                ');
  428.         fuckxy(7,6,' '+^I+'[P]'+^D+' Edit System Config                                              ');
  429.         fuckxy(8,6,' '+^I+'[C]'+^D+' Change Time/Date                                                ');
  430.         fuckxy(9,6,' '+^I+'[J]'+^D+' Show All Infoforms                                              ');
  431.         fuckxy(10,6,' '+^I+'[V]'+^D+' Show All Sysops                                                 ');
  432.         fuckxy(11,6,' '+^I+'[R]'+^D+' Remove Infoforms                                                ');
  433.         fuckxy(12,6,' '+^I+'[S]'+^D+' Show System Log                                                 ');
  434.         fuckxy(13,6,' '+^I+'[Z]'+^D+' Zap Specific Users                                              ');
  435.         fuckxy(14,6,' '+^I+'[K]'+^D+' Kill System Log                                                 ');
  436.         fuckxy(6,34,^I+'[E]'+^D+' Show Error Log');
  437.         fuckxy(7,34,^I+'[L]'+^D+' Loozer lists');
  438.         fuckxy(8,34,^I+'[I]'+^D+' Infoform Hunt');
  439.         fuckxy(9,34,^I+'[B]'+^D+' NodeList Functions');
  440.         fuckxy(10,34,^I+'[F]'+^D+' Feedback Menu');
  441.         FuckXy(11,34,^I+'[*]'+^D+' Dos Gateway');
  442.         fuckxy(12,34,^I+'[U]'+^D+' Edit Users');
  443.         fuckxy(13,34,^I+'[M]'+^D+' Make User');
  444.         fuckxy(14,34,^I+'[T]'+^D+' Edit Specification Lists');
  445.         fuckxy(6,58,^I+'[N]'+^D+' News Edit');
  446.         fuckxy(8,58,^I+'[A]'+^D+' Add News');
  447.         fuckxy(10,58,^I+'[Q]'+^D+' Quit');
  448.         printxy(21,0,'');
  449.  end;
  450.  
  451. procedure newsm;
  452.   begin
  453.    clearscr;
  454.         fuckup(1,34,14,3);
  455.         fuckxy(2,35,^D+' News Edit '+^R);
  456.         fuckup(5,9,65,3);
  457.         fuckxy(6,10,^D+' '+^I+'[D]'+^D+' Delete Item   '+^I+'[V]'+^D+' View Item   '+
  458.         ^I+'[A]'+^D+' Add Item  '+^I+'[L]'+^D+' List Items '+^R);
  459.         printxy(21,0,'');
  460.  end;
  461.  
  462. procedure feedm;
  463.   begin
  464.    clearscr;
  465.         fuckup(1,31,20,3);
  466.         fuckxy(2,32,^D+' Feedback Commands'+^R);
  467.     fuckup(4,15,50,7);
  468.         fuckxy(5,16,^D+' '+^I+'[I]'+^D+' Infoform           '+^I+'[L]'+^D+' List Feedback       ');
  469.         fuckxy(6,16,' '+^I+'[ENTER]'+^D+' Next           '+^I+'[E]'+^D+' Edit Sender         ');
  470.         fuckxy(7,16,' '+^I+'[A]'+^D+' Read Again         '+^I+'[#]'+^D+' Read Number x       ');
  471.         fuckxy(8,16,' '+^I+'[D]'+^D+' Delete Current #   '+^I+'[R]'+^D+' Send Mail Reply     ');
  472.         fuckxy(9,16,' '+^I+'[Q]'+^D+' Quit                                       ');
  473.         printxy(21,0,'');
  474.  end;
  475.  
  476. procedure esysopm;
  477.   begin
  478.    clearscr;
  479.     fuckup(1,34,14,3);
  480.         fuckxy(2,35,^D+' SysOp Mail '+^R);
  481.         fuckup(5,24,37,8);
  482.         fuckxy(6,25,^D+' '+^I+'[G]'+^D+' Use Group For Sub-Board Access');
  483.         fuckxy(7,25,' '+^I+'[L]'+^D+' Look In Someones Mailbox      ');
  484.         fuckxy(8,25,' '+^I+'[S]'+^D+' Scan All Mail                 ');
  485.         fuckxy(9,25,' '+^I+'[ENTER]'+^D+' Read Next                 ');
  486.         fuckxy(10,25,' '+^I+'[#]'+^D+' Read #x                       ');
  487.         fuckxy(11,25,' '+^I+'[Q]'+^D+' Quit                          ');
  488.         printxy(21,0,'');
  489. end;
  490.  
  491.  
  492. procedure dsysopm;
  493.   begin
  494.    clearscr;
  495.     fuckup(2,28,23,3);
  496.         fuckxy(3,29,^D+' SysOp Database Menu '+^R);
  497.         fuckup(6,26,26,9);
  498.         fuckxy(7,27,^D+' '+^I+'[O]'+^D+' ReOrder Databases  ');
  499.         fuckxy(8,27,' '+^I+'[E]'+^D+' Set Access Level   ');
  500.         fuckxy(9,27,' '+^I+'[R]'+^D+' Rename Database    ');
  501.         fuckxy(10,27,' '+^I+'[K]'+^D+' Kill Data Base     ');
  502.         fuckxy(11,27,' '+^I+'[C]'+^D+' Change Entry       ');
  503.         fuckxy(12,27,' '+^I+'[D]'+^D+' Delete Entry       ');
  504.         fuckxy(13,27,' '+^I+'[Q]'+^D+' Quit               ');
  505.         printxy(21,0,'');
  506.  end;
  507.  
  508. procedure aboutm;
  509.   begin
  510.    clearscr;
  511.         Printxy(2,24,'About Sysop');
  512.         fuckup(4,18,25,7);
  513.         fuckxy(5,19,^D+' '+^I+'[U]'+^D+' Update File Date  ');
  514.         fuckxy(6,19,' '+^I+'[C]'+^D+' Change File       ');
  515.         fuckxy(7,19,' '+^I+'[D]'+^D+' Delete File       ');
  516.         fuckxy(8,19,' '+^I+'[A]'+^D+' Add File          ');
  517.         fuckxy(9,19,' '+^I+'[Q]'+^D+' Quit              ');
  518.         printxy(21,0,'');
  519.  end;
  520.  
  521. procedure vsysopm;
  522.   begin
  523.    clearscr;
  524.         Printxy(2,18,'SysOp Voting');
  525.         fuckup(5,14,19,6);
  526.         ansicolor(urec.menuback);
  527.         fuckxy(6,15,^D+' '+^I+'[D]'+^D+' Delete Topic');
  528.         fuckxy(7,15,' '+^I+'[C]'+^D+' Add Choice  ');
  529.         fuckxy(8,15,' '+^I+'[A]'+^D+' Add Topic   ');
  530.         fuckxy(9,15,' '+^I+'[Q]'+^D+' Quit        ');
  531.         printxy(21,0,'');
  532.  end;
  533.  
  534. procedure ueditm;
  535.     begin
  536.      clearscr;
  537.         fuckxy(2,36,'User Edit');
  538.         fuckup(4,6,73,11);
  539.         fuckxy(5,7,^D+' '+^I+'[W]'+^D+' Change Wanted Flag      '+^I+'[N]'+^D+' Change Phone Number   '+^I+'[L]'+^D+' Change Levl ');
  540.         fuckxy(6,7,' '+^I+'[O]'+^D+' Set Xfer Points         '+^I+'[B]'+^D+' Board Access Flags    '+^I+'[H]'+^D+' Change Name ');
  541.         fuckxy(7,7,' '+^I+'[Y]'+^D+' Special Sysop Access    '+^I+'[P]'+^D+' Change Password       '+^I+'[D]'+^D+' Delete User ');
  542.         fuckxy(8,7,' '+^I+'[E]'+^D+' Set Xfer Level          '+^I+'[T]'+^D+' Time Left Today       '+^I+'[S]'+^D+' Status      ');
  543.         fuckxy(9,7,' '+^I+'[C]'+^D+' Change Users Conference Flags                     '+^I+'[X]'+^D+' Set Exp Date');
  544.         fuckxy(10,7,' '+^I+'[G]'+^D+' Change G-File Level    '+^I+'[F]'+^D+' GFile points          '+^I+'[!]'+^D+' Set U/D Ratio');
  545.         fuckxy(11,7,' '+^I+'[$]'+^D+' Set Upload/Download K Ratio                     '+^I+'[^]'+^D+' Set PCR Ratio ');
  546.         fuckxy(12,7,' '+^I+'[&]'+^D+' Edit Users Daily Time Limit                   '+^I+'[A]'+^D+' Change UserNote ');
  547.         FuckXy(13,7,' '+^I+'[J]'+^D+' Set Main Conference Access Flags                                  ');
  548.         printxy(21,0,'');
  549.  end;
  550.  
  551. procedure sdoorsm;
  552.     begin
  553.      clearscr;
  554.         Printxy(3,36,'SysOps Door Menu');
  555.         fuckup(6,3,76,3);
  556.         fuckxy(7,3,^D+'  '+^I+'[C]'+^D+' Change Info About A Door   '+^I+'[D]'+^D+' Delete Door   '+^I+'[A]'+^D+' Add Door   '+
  557.         ^I+'[Q]'+^D+' Quit  ');
  558.         printxy(21,0,'');
  559.     end;
  560.  
  561. procedure filem;
  562.   begin
  563.    clearscr;
  564.     if AnsiGraphics in Urec.Config then
  565.     Begin
  566.     fuckup(1,37,13,3);
  567.         fuckxy(2,38,^D+' File Menu '+^R);
  568.         FuckUp(5,5,40,11);
  569.         FuckXy(6,6,^D+' '+^I+'[A]'+^D+' Change File Areas                ');
  570.         FuckXy(7,6,' '+^I+'[B]'+^D+' Batch Menu                       ');
  571.         FuckXy(8,6,' '+^I+'[H]'+^D+' Help with this Menu              ');
  572.         FuckXy(9,6,' '+^I+'[F,L]'+^D+' File Listings                  ');
  573.         FuckXy(10,6,' '+^I+'[T]'+^D+' Type a File                      ');
  574.         FuckXy(11,6,' '+^I+'[N]'+^D+' Newscan All Areas                ');
  575.         FuckXy(12,6,' '+^I+'[Q]'+^D+' Quit File Section                ');
  576.         FuckXy(13,6,' '+^I+'[D]'+^D+' Download                         ');
  577.         FuckXy(14,6,' '+^I+'[G]'+^D+' Goodbye                          ');
  578.         FuckUp(11,40,35,10);
  579.         FuckXy(12,41,^D+' '+^I+'[U]'+^D+' Upload a file               ');
  580.         FuckXy(13,41,^D+' '+^I+'[+]'+^D+' Add to Batch                ');
  581.         FuckXy(14,41,^D+' '+^I+'[I]'+^D+' Generate Complete File List ');
  582.         FuckXy(15,41,^D+' '+^I+'[Y]'+^D+' Your File Status            ');
  583.         FuckXy(16,41,^D+' '+^I+'[R]'+^D+' View an Archive             ');
  584.         FuckXy(17,41,^D+' '+^I+'[S]'+^D+' Search All Areas            ');
  585.         FuckXy(18,41,^D+' '+^I+'[W]'+^D+' Extended File Listing       ');
  586.         FuckXy(19,41,^D+' '+^I+'[X]'+^D+' Sysops Wants List           ');
  587.         printxy(21,0,'');
  588.     End Else
  589.        WriteLn(^M^M'                     - ViSiON File Menu -'^M^M,
  590.                    'H - Help                Q - Quit          R - View Archive'^M,
  591.                    'T - Type a file         Y - Your Status   + - Add file to batch'^M,
  592.                    'I - Complete File List  L - List Files    N - Newscan All File Areas'^M,
  593.                    'S - Search for a file   V - Newscan Area  W - Extended File List'^M,
  594.                    'X - Sysops Want List    A - Select Area   B - Batch Menu'^M,
  595.                    'U - Upload a file       G - Goodbye       D - Download a file'^M^M);
  596.  
  597.   end;
  598.  
  599. procedure batchm;
  600.   begin
  601.    clearscr;
  602.    if ansigraphics in urec.config then begin
  603.     fuckup(1,34,14,3);
  604.         fuckxy(2,35,^D+' Batch Menu '+^R);
  605.         fuckup(5,29,24,9);
  606.         fuckxy(6,30,^D+' '+^I+'[C]'+^D+' Clear Batch Que  ');
  607.         fuckxy(7,30,' '+^I+'[D]'+^D+' Download Que     ');
  608.         FuckXy(8,30,' '+^I+'[U]'+^D+' Upload Files     ');
  609.         fuckxy(9,30,' '+^I+'[Q]'+^D+' Quit             ');
  610.      fuckxy(10,30,' '+^I+'[L]'+^D+' List Batch Que   ');
  611.      fuckxy(11,30,' '+^I+'[A]'+^D+' Add BiModem File ');
  612.      fuckxy(12,30,' '+^I+'[X]'+^D+' Execute BiModem  ');
  613.         printxy(21,0,'');
  614.         end else
  615.             WriteLn(^M^M'                     - ViSiON Batch Menu -'^M^M,
  616.                                     'C - Clear Batch Que   D - Download Que    U - Upload Files'^M,
  617.                                     'Q - Quit Batch Menu   L - List Batch Que  A - Add Bimodem File'^M,
  618.                                     'X - Execute Bi-Modem'^M^M);
  619.  end;
  620.  
  621. procedure fsysop;
  622.  begin
  623.   clearscr;
  624.         fuckup(1,35,21,3);   (* NeedToChange *)
  625.         fuckxy(2,36,^D+' File Sponsor Menu '+^R);
  626.         fuckup(8,58,20,6);
  627.         fuckup(6,35,20,7);
  628.         fuckup(4,12,20,11);
  629.         fuckxy(5,13,^D+' '+^I+'[A]'+^D+' Add A File   ');
  630.         fuckxy(6,13,' '+^I+'[C]'+^D+' Change Desc  ');
  631.         fuckxy(7,13,' '+^I+'[D]'+^D+' Delete File  ');
  632.         fuckxy(8,13,' '+^I+'[F]'+^D+' Dir Of Files ');
  633.         fuckxy(9,13,' '+^I+'[K]'+^D+' Kill Area    ');
  634.      fuckxy(10,13,' '+^I+'[R]'+^D+' Rename Area  ');
  635.      fuckxy(11,13,' '+^I+'[X]'+^D+' Range Move   ');
  636.      fuckxy(12,13,' '+^I+'[+]'+^D+' Send NetFile ');
  637.      fuckxy(13,13,' '+^I+'[Z]'+^D+' Batch Cmds   ');
  638.         fuckxy(7,36,' '+^I+'[N]'+^D+' New Files    ');
  639.         fuckxy(8,36,' '+^I+'[S]'+^D+' Sort Area    ');
  640.         fuckxy(9,36,' '+^I+'[M]'+^D+' Move Files   ');
  641.      fuckxy(10,36,' '+^I+'[L]'+^D+' List Users   ');
  642.      fuckxy(11,36,' '+^I+'[O]'+^D+' ReOrder Areas');
  643.         fuckxy(9,59,' '+^I+'[Q]'+^D+' Quit         ');
  644.      fuckxy(10,59,' '+^I+'[E]'+^D+' Remame File  ');
  645.      fuckxy(11,59,' '+^I+'[W]'+^D+' Add Files    ');
  646.      fuckxy(12,59,' '+^I+'[*]'+^D+' Change Area  ');
  647.      printxy(21,0,'');
  648. end;
  649.  
  650. procedure fnewscan;
  651.  begin
  652.    clearscr;
  653.    fuckup(1,34,16,3);
  654.      fuckxy(2,35,^D+' Newscan Menu '+^R);
  655.      fuckup(7,42,23,5);
  656.      fuckup(5,20,19,6);
  657.      fuckxy(6,21,^D+' '+^I+'[Q]'+^D+' Quit        ');
  658.      fuckxy(7,21,' '+^I+'[C]'+^D+' Change File ');
  659.      fuckxy(8,21,' '+^I+'[E]'+^D+' Rename File ');
  660.      fuckxy(9,21,' '+^I+'[D]'+^D+' Delete File ');
  661.      fuckxy(8,43,' '+^I+'[R]'+^D+' Zip List        ');
  662.      fuckxy(9,43,' '+^I+'[M]'+^D+' Move File       ');
  663.      fuckxy(10,43,' '+^I+'[#]'+^D+' Points For File ');
  664.      printxy(21,0,'');
  665.      end;
  666.  
  667. procedure fchange;
  668.   begin
  669.    clearscr;
  670.     fuckup(1,31,20,3);
  671.         fuckxy(2,32,^D+' File Change Menu '+^R);
  672.         fuckup(8,46,22,7);
  673.         fuckup(5,18,25,8);
  674.         fuckxy(6,19,^D+' '+^I+'[Q]'+^D+' Quit              ');
  675.         fuckxy(7,19,' '+^I+'[U]'+^D+' Change Uploader   ');
  676.         fuckxy(8,19,' '+^I+'[D]'+^D+' Description       ');
  677.         fuckxy(9,19,' '+^I+'[S]'+^D+' Special Request   ');
  678.         fuckxy(10,19,' '+^I+'[N]'+^D+' New File          ');
  679.      fuckxy(11,19,' '+^I+'[F]'+^D+' Change File Name  ');
  680.         fuckxy(9,47,' '+^I+'[P]'+^D+' Change Path    ');
  681.         fuckxy(10,47,' '+^I+'[V]'+^D+' Change Points  ');
  682.         fuckxy(11,47,' '+^I+'[B]'+^D+' Take Offline   ');
  683.      fuckxy(12,47,' '+^I+'[T]'+^D+' Change For Who ');
  684.      fuckxy(13,47,' '+^I+'[A]'+^D+' Change P.Word  ');
  685.      printxy(21,0,'');
  686.      end;
  687.  
  688. procedure Gfile;
  689. begin
  690. clearscr;
  691. if AnsiGraphics in Urec.Config then Begin
  692. fuckup(1,31,19,3);
  693. fuckxy(2,32,^D+'   G-File Menu   '+^R);
  694. fuckup(5,25,20,11);
  695. fuckxy(6,26,^D+' '+^I+'[A]'+^D+' Change Area  ');
  696. fuckxy(7,26,' '+^I+'[F]'+^D+' List Files   ');
  697. fuckxy(8,26,' '+^I+'[G]'+^D+' Log Off Here ');
  698. fuckxy(9,26,' '+^I+'[D]'+^D+' Download     ');
  699. fuckxy(10,26,' '+^I+'[N]'+^D+' Newscan All  ');
  700. fuckxy(11,26,' '+^I+'[V]'+^D+' Newscan Here ');
  701. fuckxy(12,26,' '+^I+'[Y]'+^D+' Your Status  ');
  702. fuckxy(13,26,' '+^I+'[U]'+^D+' Upload GFile ');
  703. fuckxy(14,26,' '+^I+'[Q]'+^D+' Quit G-Files ');
  704. printxy(21,0,'');
  705. End Else
  706.   WriteLn(^M^M'                      - ViSiON G-File Menu -'^M^M,
  707.               'A - Change G-File Area   F - List Files    G - Log Off BBS'^M,
  708.               'D - Download a file      N - Newscan All   V - Newscan This Area'^M,
  709.               'Y - Your Status          U - Upload Gfile  Q - Quit G-File Area'^M^M);
  710. end;
  711.  
  712. procedure sgfile;
  713. begin
  714. clearscr;
  715. fuckup(1,3,73,6);
  716. fuckxy(2,4,^D+'                     - G-File SysOp Commands -                         ');
  717. fuckxy(3,4,' '+^I+'[A]'+^D+' Add G-File   '+^I+'[C]'+^D+' Edit G-File  '+^I+'[D]'
  718. +^D+' Delete G-File  '+^I+'[K]'+^D+' Kill Area    ');
  719. fuckxy(4,4,' '+^I+'[R]'+^D+' Modify Area  '+^I+'[M]'+^D+' Move G-File  '+^I+'[S]'+^D
  720. +' Sort Area      '+^I+'[O]'+^D+' Reorder Area ');
  721. fuckxy(5,4,' '+^I+'[W]'+^D+' Add files    '+^I+'[F]'+^D+' Directory    '+^I+'[Q]'+^D
  722. +' Quit Sponsor Commands           ');
  723. printxy(21,0,'');
  724. end;
  725.  
  726.  
  727. procedure configl;
  728. begin
  729. clearscr;
  730. fuckup(1,1,80,8);
  731. fuckxy(2,2,^D+'                        - System Configuration Menu -                         ');
  732. fuckxy(3,2,'  '+^I+'[S]'+^D+' Change BBS Shortname    '+^I+'[M]'+^D+' Change Matrix Type   '+^I+'[P]'
  733. +^D+' System Password    ');
  734. fuckxy(4,2,'  '+^I+'[N]'+^D+' New User Password       '+^I+'[U]'+^D+' Upload Time Back     '+^I+'[T]'
  735. +^D+' Sysop Password     ');
  736. fuckxy(5,2,'  '+^I+'[A]'+^D+' Allow New Users off/on  '+^I+'[H]'+^D+' Login "Cliche"       '+^I+'[F]'
  737. +^D+' Matrix Feedback    ');
  738. fuckxy(6,2,'  '+^I+'[C]'+^D+' Matrix Chat             '+^I+'[Q]'+^D+' Quit this Section    '+^I+'[V]'
  739. +^D+' View Configuration ');
  740. fuckxy(7,2,'  '+^I+'[L]'+^D+' Turn On/Off "Leech Week"                                                ');
  741. printxy(21,0,'');
  742. end;
  743.  
  744. procedure escan;
  745. begin
  746. clearscr;
  747. writeln('                 - E-Mail Scan Menu-');
  748. writeln(^M'Q - Quit reading email   S - Send Mail  E- Edit sender  R - Edit receiver');
  749. writeln(  'D - Delete Mail          A - Reread Mail                C - Change Mail');
  750. printxy(21,0,'');
  751. end;
  752.  
  753.  
  754. Procedure SDoors;
  755. Begin
  756. ClearScr;
  757. WriteLn('                 - SysOp Doors Menu -');
  758. WriteLn(^M'Q - Quit Doors Menu  C - Change Doors Info  A - Add Doors  D - Delete Door');
  759. PrintXy(21,0,'');
  760. End;
  761.  
  762. begin
  763. end.