renegade2k/sysop2i.pas at master · devshane/renegade2k · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
{$A+,B-,D-,E-,F+,I-,L-,N-,O+,R-,S+,V-}

{ System Configuration - Offline Mail Support }

unit sysop2i;

interface

uses crt, dos, overlay, common;

procedure poqwk;

implementation

procedure poqwk;
var c:char;
    done:boolean;
    s:string[5];
    i:word;
begin
  done:=FALSE;
  repeat
    with general do begin
      cls;
      abort:=FALSE;
      print('^5Offline Mail Configuration'^M^J);

      printacr('^1A. QWK/REP Packet name :^5'+packetname);
      printacr('^1B. Welcome screen name :^5'+qwkwelcome);
      printacr('^1C. News file name      :^5'+qwknews);
      printacr('^1D. Goodbye file name   :^5'+qwkgoodbye);
      printacr('^1E. Local QWK/REP path  :^5'+qwklocalpath);
      printacr('^1F. Ignore time for DL  :^5'+onoff(qwktimeignore));
      printacr('^1G. Max total messages  :^5'+cstr(maxqwktotal));
      printacr('^1H. Max msgs per base   :^5'+cstr(maxqwkbase));
      printacr('^1I. ACS for Network .REP:^5'+qwknetworkacs);

      prt(^M^J'Enter selection (A-I) [Q]uit : ');
      onek(c,'QABCDEFGHI'^M); nl;
      case c of
        'A':begin
              prt('QWK Packet name: ');
              input(packetname,8);
            end;
        'B':begin
              prt('Welcome screen path+name [no ext] : ');
              input(qwkwelcome,50);
            end;
        'C':begin
              prt('News file path+name [no ext] : ');
              input(qwknews,50);
            end;
        'D':begin
              prt('Goodbye file path+name [no ext] : ');
              input(qwkgoodbye,50);
            end;
        'E':inputpath('Enter local QWK reader path',qwklocalpath);
        'F':qwktimeignore := not qwktimeignore;
        'G':begin
              prt('Maximum total messages in a QWK packet: ');
              input(s,5);
              if (s <> '') then
                maxqwktotal := value(s);
            end;
        'H':begin
              prt('Maximum messages per base in a packet: ');
              input(s,5);
              if (s <> '') then
                maxqwkbase := value(s);
            end;
        'I':begin
              prt('New ACS: '); inputl(s,20);
              if (s<>'') then
                qwknetworkacs := s;
            end;
        'Q':done:=TRUE;
      end;
    end;
  until (done) or (hangup);
  savegeneral(FALSE);
end;

end.