home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / MFM_119C.ZIP / HELP.PAS < prev    next >
Pascal/Delphi Source File  |  1993-06-03  |  5KB  |  131 lines
  1. Unit Help;
  2. {========================================================================}
  3. Interface
  4.   Procedure ListHelp;
  5.   Procedure AreaHelp;
  6. {========================================================================}
  7. Implementation
  8.   Uses
  9.     Crt, MfmDefs, Screen, Setup;
  10. {========================================================================}
  11. Procedure ListHelp;
  12.   Begin
  13.     AnsiClearScreen; NewTextColor(7);
  14.     AnsiGotoXY(1,40-(Length(Pgmid) Div 2)); WriteLn(Pgmid);
  15.     WriteLn('╔═[Navagate through list]════════════════════════════════════════════════════╗');
  16.     Write('║');
  17.     NewTextColor(9);
  18.     Write('          7 : TopOfList       8 : LineUp             9 : PageUp             ');
  19.     NewTextColor(7);
  20.     WriteLn('║');
  21.     Write('║');
  22.     NewTextColor(9);
  23.     Write('          1 : BottomOfList    2 : LineDown           3 : PageDown           ');
  24.     NewTextColor(7);
  25.     WriteLn('║');
  26.     WriteLn('╠═[Add, Edit and Rename]═════════════════════════════════════════════════════╣');
  27.     Write('║');
  28.     NewTextColor(10);
  29.     Write(' A : Adopt/Abandon         E : Edit Description        I : Insert Blank     ');
  30.     NewTextColor(7);
  31.     WriteLn('║');
  32.     Write('║');
  33.     NewTextColor(10);
  34.     Write(' R : Rename File           D : Change File Date       ^A : Adopt ALL        ');
  35.     NewTextColor(7);
  36.     WriteLn('║');
  37.     WriteLn('╠═[Copy or Move between areas]═══════════════════════════════════════════════╣');
  38.     Write('║');
  39.     NewTextColor(11);
  40.     Write(' C : Copy to New Area      M : Move to New Area                             ');
  41.     NewTextColor(7);
  42.     WriteLn('║');
  43.     Write('║');
  44.     NewTextColor(11);
  45.     Write(' $ : Mass Copy             # : Mass Move          <SP> : Toggle Tag         ');
  46.     NewTextColor(7);
  47.     WriteLn('║');
  48.     WriteLn('╠═[Move or Remove entries in list]═══════════════════════════════════════════╣');
  49.     Write('║');
  50.     NewTextColor(12);
  51.     Write(' < : Push Record     > : Pop Record   K : Kill Entry      U : UnKill Entry  ');
  52.     NewTextColor(7);
  53.     WriteLn('║');
  54.     Write('║');
  55.     NewTextColor(12);
  56.     Write(' [ : Stack Prev      ] : Stack Next   { : Prev Kill       } : Next Kill     ');
  57.     NewTextColor(7);
  58.     WriteLn('║');
  59.     Write('║');
  60.     NewTextColor(12);
  61.     Write(' ; : Show Stack                       : : Show Kill                         ');
  62.     NewTextColor(7);
  63.     WriteLn('║');
  64.     WriteLn('╠═[Sort list]════════════════════════════════════════════════════════════════╣');
  65.     Write('║');
  66.     NewTextColor(13);
  67.     Write(' F : Mark First           L : Mark Last               S : Sort              ');
  68.     NewTextColor(7);
  69.     WriteLn('║');
  70.     WriteLn('╠═[Search for string]════════════════════════════════════════════════════════╣');
  71.     Write('║');
  72.     NewTextColor(14);
  73.     Write(' ^F : In File Name       ^D : In Description         ^B : In Both           ');
  74.     NewTextColor(7);
  75.     WriteLn('║');
  76.     WriteLn('╠═[View]═════════════════════════════════════════════════════════════════════╣');
  77.     Write('║');
  78.     NewTextColor(9);
  79.     Write(' ALT-V : Auto File View                 ALT-L : Use Default Viewer          ');
  80.     NewTextColor(7);
  81.     WriteLn('║');
  82.     Write('║');
  83.     NewTextColor(9);
  84.     Write(' ALT-Z : Use Picture File Viewer        ALT-F : Use Compressed File Viewer  ');
  85.     NewTextColor(7);
  86.     WriteLn('║');
  87.     WriteLn('╠═[Misc]═════════════════════════════════════════════════════════════════════╣');
  88.     Write('║');
  89.     NewTextColor(10);
  90.     Write(' N : New Area   W : Write List   ! : ReDraw Screen    ALT-S : Shell to DOS  ');
  91.     NewTextColor(7);
  92.     WriteLn('║');
  93.     Write('║');
  94.     NewTextColor(10);
  95.     Write(' Z : Display directory of compressed file                ^R : Debit user    ');
  96.     NewTextColor(7);
  97.     WriteLn('║');
  98.     Write('╚════════════════════════════════════════════════════════════════════════════╝');
  99.     AnsiGotoXY(25,25);
  100.     Write('[ ');
  101.     NewTextColor(Blink+Red);
  102.     Write('Press any key to continue!');
  103.     NewTextColor(7);
  104.     Write(' ]');
  105.     NewTextColor(White);
  106.     AnsiGotoXY(1,80);
  107.     Gbx := GetInput;
  108.     ReDrawScreen;
  109.   End;
  110. {========================================================================}
  111. Procedure AreaHelp;
  112.   Begin
  113.     AnsiClearScreen;
  114.     NewTextColor(White);
  115.     AnsiGotoXY(1,40-(Length(Pgmid) Div 2));
  116.     Write(Pgmid);
  117.     NewTextColor(Yellow);
  118.     AnsiGotoXY(5,9);
  119.     Write('New help screen not available yet.  Please tell me I forgot it!');
  120.     AnsiGotoXY(25,27);
  121.     NewTextColor(Blink+LightRed);
  122.     Write('Press any key to continue!');
  123.     NewTextColor(White);
  124.     AnsiGotoXY(1,80);
  125.     Gbx := GetInput;
  126.   End;
  127. {========================================================================}
  128. Begin
  129. End.
  130. {========================================================================}
  131.