ftp.update.uu.se/ftp.update.uu.se.2014.03.zip/ftp.update.uu.se/pub/rainbow/msdos/misc2/dialv23.lzh/HELP.INC

Text File | 1985-08-03 | 6KB | 122 lines

{********* This file is an "include" file to be used with DIAL.PAS. *********}


Procedure HlpLine( Lin : Integer; Txt : Str61 );
{
Common way to paint a help line with f-v for the user.
}
Var
  tt : Str133;
Begin
  tt := txt;
  FastVideo(tt, FNormal, Char_Attrib, Length(tt), Lin, 10);
End;


Function HelpKey : Boolean;
{
Get a key from the user.  If a space, return true, else false.
}
Var
  x : integer;
Begin
  x := level1Key;
  If x = 32 Then HelpKey := True Else HelpKey := False;
End;


Procedure Help_User;
{
Type some helpful text at the user and then re-paint the screen after he
strikes any key.
}
Var
  MoreHelp : Boolean;
Begin
  ClrScr;
  hlpline( 1,'                                                Screen 1 of 4');
  hlpline( 3,'              Help for Turbo DIAL V2.2                       ');
  hlpline( 5,'This program presents a screen oriented interface for dialing');
  hlpline( 6,'a  HAYES  modem.   It reads a text file named DIALNUM.TXT for');
  hlpline( 7,'the phone directory. The DOS env var DIAL is used to make the');
  hlpline( 8,'complete name, or just the current dir.   Use a letter or the');
  hlpline( 9,'editing keypad to select the phone number with which to  dial');
  hlpline(10,'the  HAYES.   The number will then be dialed.  Strike any key');
  hlpline(11,'during actual dialing to abort the  call.    Once  the  party');
  hlpline(12,'answers, a  carriage return will be sent three times to auto-');
  hlpline(13,'baud the  destination.   Then the command  line given  in the');
  hlpline(14,'menu  will be passed to DOS.  This usually invokes a terminal');
  hlpline(15,'or protocol  program such as LCTERM, TC, MINITEL,  KERMIT, or');
  hlpline(16,'others.   Your session  is then  as if DIAL  was not present.');
  hlpline(17,'When you end your remote session and exit the invoked program');
  hlpline(18,'you will be returned to  DIAL and can make  another selection');
  hlpline(19,'or exit.                                                     ');
  hlpline(23,'Type a space for more help, any other key to return to DIAL. ');

  MoreHelp := HelpKey;
  If MoreHelp Then Begin

  ClrScr;
  hlpline( 1,'                                                Screen 2 of 4');
  hlpline( 3,'To make a DIALNUM.TXT file, use  your  favorite  editor,  and');
  hlpline( 4,'make  3  line  entries.  DIAL currently supports 100 entries.');
  hlpline( 5,'The first letter of each line is a "record type" or key.  The');
  hlpline( 6,'second character is usually a "=" but can be anything - it is');
  hlpline( 7,'not checked.  Currently the good letters are N, D, and C.   N');
  hlpline( 8,'is  the  number,  D is the description, and C is the command.');
  hlpline( 9,'Lines beginning with ";" or "!" are comments and are ignored.');
  hlpline(10,'Blank lines are also ignored.  Sample of a DIALNUM.TXT file. ');
  hlpline(12,'        ;Comment line with any text you wish                 ');
  hlpline(13,'        D=test entry                                         ');
  hlpline(14,'        N=1234567                                            ');
  hlpline(15,'        C=Kermit Connect                                     ');
  hlpline(17,'        ;Another sample entry, with a Hayes specific char    ');
  hlpline(18,'        D=MARKET                                             ');
  hlpline(19,'        N=1,6174677437                                       ');
  hlpline(20,'        C=Kermit Connect                                     ');
  hlpline(23,'Type a space for more help, any other key to return to DIAL. ');

  MoreHelp := HelpKey;
  End;
  If MoreHelp Then Begin

  ClrScr;
  hlpline( 1,'                                                Screen 3 of 4');
  hlpline( 3,'The keys used to select an entry from the menu are:          ');
  hlpline( 5,'       Up Arrow                Previous entry                ');
  hlpline( 6,'       Down Arrow              Next entry                    ');
  hlpline( 7,'       Previous Screen         Previous screen of entries    ');
  hlpline( 8,'       Next Screen             Next screen of entries        ');
  hlpline( 9,'       Shift Previous Screen   First screen of entries       ');
  hlpline(10,'       Shift Next Screen       Last screen of entries        ');
  hlpline(11,'       Cancel                  Hangup the phone              ');
  hlpline(12,'       Interrupt               Push to lower shell           ');
  hlpline(13,'       Help                    Gets this text                ');
  hlpline(14,'       Do                      Dial highlighted entry        ');
  hlpline(15,'       Return                  Same as Do                    ');
  hlpline(16,'       Exit                    Exit DIAL completely          ');
  hlpline(17,'       Space                   Same as Exit                  ');
  hlpline(19,'or enter the letter A through S.                             ');
  hlpline(23,'Type a space for more help, any other key to return to DIAL. ');

  MoreHelp := HelpKey;
  End;
  If MoreHelp Then Begin

  ClrScr;
  hlpline( 1,'                                                Screen 4 of 4');
  hlpline( 3,'This program is in the public domain and all are  welcome  to');
  hlpline( 4,'use and enhance it, as long as it is distributed at no charge');
  hlpline( 5,'and not used in any  commercial manner.    It is  written  in');
  hlpline( 6,'TURBO Pascal V3.0  for the DEC  Rainbow  and uses the Rainbow');
  hlpline( 7,'fast video and level 1 and 2  keyboard  input   capabilities.');
  hlpline( 8,'Portability  was not a design goal.  Many, MANY thanks to all');
  hlpline( 9,'those whose subroutines and examples I used to build this.   ');
  hlpline(23,'End of help.  Stike any key to return to DIAL.               ');

  MoreHelp := HelpKey;
  End;
End;