(*****************************************************************************)
(*>                                                                         <*)
(*>  Telegard Bulletin Board System - Copyright 1988,89,90 by               <*)
(*>  Eric Oman, Martin Pollard, and Todd Bolitho - All rights reserved.     <*)
(*>                                                                         <*)
(*>  Module name:       SYSOP2A.PAS                                         <*)
(*>  Module purpose:    System Configuration "A" command                    <*)
(*>                     (Modem Configuration)                               <*)
(*>                                                                         <*)
(*****************************************************************************)
{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
unit sysop2a;

interface

uses
  crt, dos,

  {rcg11172000 no overlay under Linux.}
  {overlay,}

  cuser,
  common;

procedure pomodem;

implementation

const
  aresure='Are you sure this is what you want? ';

function wantit:boolean;
begin
  nl; wantit:=pynq(aresure);
end;

procedure noch;
begin
  print('No change.');
end;

function showmodemstring(s:astr):astr;
var o:astr;
    i:integer;
begin
  o:='';
  for i:=1 to length(s) do
    case s[i] of
      ^@..^L,^N..^[:
         o:=o+'^'+chr(ord(s[i])+64);
      ^M:o:=o+'|';
    else
         o:=o+s[i];
    end;
  showmodemstring:=o;
end;

procedure newmodemstring(var vs:astr; what:astr; len:integer);
var i:integer;
    changed:boolean;
begin
  print('Current modem '+what+' string: "'+showmodemstring(vs)+'"');
  nl;
  print('Use: "^" preceding control codes (^@..^[)');
  print('     "|" for a carriage return');
  print('     "~" for a half-second delay');
  nl;
  print('Enter NEW modem '+what+' string:');
  prt(':');
  if (len>78) then mpl(78) else mpl(len);
  inputwn(vs,len,changed);
  if (changed) then begin
    for i:=1 to length(vs) do
      case vs[i] of
        '|':vs[i]:=^M;
        '^':if ((i<>length(vs)) and (vs[i+1] in ['@'..'['])) then begin
              vs[i]:=chr(ord(vs[i+1])-64);
              delete(vs,i+1,1);
            end;
      end;
  end else
    noch;
end;

(*
function whatflags:astr;
var s:string[64];
begin
  with modemr do begin
    if (ctschecking) then s:='CTS check ON, ' else s:='CTS check OFF, ';
    if (dsrchecking) then s:=s+'DSR check ON, ' else s:=s+'DSR check OFF, ';
    if (usexonxoff) then s:=s+'XON/XOFF ON, ' else s:=s+'XON/XOFF OFF, ';
    if (hardwired) then s:=s+'"Hard-wired" carrier' else s:=s+'Normal carrier';
  end;
  whatflags:=s;
end;
*)

procedure pomodem;
var modemrf:file of modemrec;
    s:string[80];
    i,c1,c2,cc:integer;
    c,ccc:char;
    abort,next,done:boolean;
begin
  done:=FALSE;
  repeat
    with modemr do begin
      cls;
      sprint(#3#5+'Modem configuration');
      nl;
      abort:=FALSE; next:=FALSE;
      printacr('1. Maximum baud rate    : '+cstrl(waitbaud),abort,next);
      printacr('2. COM port number      : '+cstr(comport),abort,next);
      printacr('3. Modem initialization string:',abort,next);
      printacr('   "'+showmodemstring(init)+'"',abort,next);
      printacr('4. Modem answer string  : "'+showmodemstring(answer)+'"',abort,next);
      printacr('5. Modem hangup string  : "'+showmodemstring(hangup)+'"',abort,next);
      printacr('6. Modem offhook string : "'+showmodemstring(offhook)+'"',abort,next);
      printacr('7. No-call init time    : '+cstr(nocallinittime),abort,next);
      printacr('A. 9600 ARQ rate baud   : '+cstrl(arq9600rate)+' baud',abort,next);
(*
      printacr('F. Comm flags: '+whatflags,abort,next);
*)
      printacr('F. Force baud rates?    : '+syn(not noforcerate),abort,next);
      printacr('R. Modem result codes:',abort,next);
      printacr('                     Case 1   Case 2 (ARQ)',abort,next);
      printacr('    R1. NO CARRIER : '+cstr(nocarrier),abort,next);
      printacr('    R2. NO DIALTONE: '+cstr(nodialtone),abort,next);
      printacr('    R3. BUSY       : '+cstr(busy),abort,next);
      for i:=0 to 5 do begin
        case i of
          0:s:=' 300'; 1:s:='1200'; 2:s:='2400';
          3:s:='4800'; 4:s:='9600'; 5:s:='19200';
        end;
        s:='    R'+cstr(i+4)+'. '+s+' BAUD  : '+
         mn(resultcode[1][i],3)+'      '+
           mn(resultcode[2][i],3);
        printacr(s,abort,next);
      end;
      nl;
      prt('Enter selection or (Q)uit : ');
      onek(c,'Q1234567AFR'^M); nl;
      case c of
        '1':if (incom) then begin
              sprint(#3#7+'This can only be changed locally!!@M');
              pausescr;
            end else begin
              print('This is the baud rate that Telegard will use when waiting for calls');
              print('at the WFC menu.  This should be your modem''s MAXIMUM BAUD RATE.');
              nl;
              print('The current rate is: '+cstrl(waitbaud)+' baud.');
              nl;
              print('A:300 B:1200 C:2400 D:4800 E:9600 F:19200 G:38400');
              prt('Modem speed? (A-G) : '); onek(ccc,'QABCDEFG'^M);
              if (ccc in ['A'..'G']) then
                case ccc of
                  'A':waitbaud:=300;
                  'B':waitbaud:=1200;
                  'C':waitbaud:=2400;
                  'D':waitbaud:=4800;
                  'E':waitbaud:=9600;
                  'F':waitbaud:=19200;
                  'G':waitbaud:=38400;
                end;
            end;
        '2':if (incom) then begin
              sprint(#3#7+'This can only be changed locally!!@M');
              pausescr;
            end else begin
              prt('Com port (1-4)? '); inu(cc);
              if (cc in [1..4]) then
                if (wantit) then begin
                  remove_port;
                  comport:=cc;
                  iport;
                end
                else noch;
            end;
        '3':newmodemstring(init,'init',80);
        '4':newmodemstring(answer,'answer',40);
        '5':newmodemstring(hangup,'hangup',40);
        '6':newmodemstring(offhook,'offhook',40);
        '7':begin
              prt('No call modem re-initialization: '); inu(c1);
              if (not badini) then nocallinittime:=c1;
            end;
        'A':begin
              print('This is the baud rate Telegard will USE between Telegard and your');
              print('modem when a 9600 ARQ result code is received.  Note that in most');
              print('9600+ modems, the rate is 19,200 baud.  Some even newer modems');
              print('support 38,400 baud.  OLDER modems (very old ones) only support 9600');
              print('baud.  CONSULT YOUR MODEM MANUAL, and make the best choice!');
              nl;
              print('The current rate is: '+cstrl(arq9600rate)+' baud.');
              nl;
              print('Valid SUPPORTED rates are 9600, 19200, and 38400 bauds.');
              nl;
              prt('(A):9600 (B):19200 (C):38400 or (Q)uit : ');
              onek(ccc,'QABC'^M);
              if (ccc in ['A'..'C']) then
                case ccc of
                  'A':arq9600rate:=9600;
                  'B':arq9600rate:=19200;
                  'C':arq9600rate:=38400;
                end;
            end;
(*
        'F':begin
              print('These are communications flags used by Telegard.');
              print('Do NOT change them unless you are having problems with');
              print('your *current* setup, and you KNOW what you are doing!');
              nl;
              print('Current flag setup: '+whatflags);
              nl;
              print('(C)TS checking, (D)SR checking,');
              print('(X)ON/XOFF, (H)ard-wired carrier');
              nl;
              prt('Which flag: '); onek(c,'QCDHX'^M);
              case c of
                'C':ctschecking:=not ctschecking;
                'D':dsrchecking:=not dsrchecking;
                'H':hardwired:=not hardwired;
                'X':usexonxoff:=not usexonxoff;
              end;
              c:=#0;
            end;
*)
        'F':noforcerate:=not noforcerate;
        'R':begin
              prt('Which result code? '); onek(ccc,'Q123456789');
              cc:=ord(ccc)-48;
              if (cc in [1..9]) then begin
                if (cc in [1..3]) then begin
                  prt('Enter new result code: '); inu(c1);
                  if not badini then
                    if wantit then
                      case cc of
                        1:nocarrier:=c1;
                        2:nodialtone:=c1;
                        3:busy:=c1;
                      end
                    else noch;
                end else begin
                  prt('Enter case 1 result code: '); inu(c1);
                  if (not badini) then resultcode[1][cc-4]:=c1;
                  prt('Enter case 2 result code: '); inu(c2);
                  if (not badini) then resultcode[2][cc-4]:=c2;
                end;
              end;
            end;
        'Q':done:=TRUE;
      end;
    end;
  until ((done) or (hangup));
  assign(modemrf,systat.gfilepath+'modem.dat');
  reset(modemrf); seek(modemrf,0); write(modemrf,modemr); close(modemrf);
end;

end.