• Auto Message code.

    From joseph larsen@1:340/800 to All on Saturday, February 20, 2016 16:40:00
    Here's some more code i'm having problems with. The problem is that it
    doesn't allow input for lines #3 through #8. What it should be doing is prompting lines #1, #2, #3, #4, #5, #6, #7 and #8. It was working before, I don't know what the hell is going on. If someone could look at it, and maybe point me in the right direction, i'd appreciate it. Thanks.

    --//--snip-----------------

    procedure automsg;

    Var a1 : textfile;
    var a2 : textfile;
    var a3 : textfile;
    var a4 : textfile;
    var Ch : char;
    var s : string;
    automsg: string;
    topic : string;
    from : string;
    thisdate : string;
    YY,MM,DD : Word;

    procedure ShowAutoMsg;

    Begin
    printf('automsg.dat');
    End;

    Procedure SaveAutoMsg;

    Begin
    WriteLn('');
    if pynq('save this message?',true) then begin
    Write(a1);
    End;
    End;


    Procedure EnterAutoMsg;

    Begin

    {line #1}

    automsg := ('/home/imp/imp/ansi/automsg.dat');
    Assign(a1, automsg);
    ReWrite(a1);

    WriteLn(' ');
    WriteLn('enter automsg now... 8 lines max');
    WriteLn(' ');
    Write(': ');
    inputl(s,75);
    WriteLn(a1,''+s);
    If s = '' then Begin
    WriteLn('aborted');
    SaveAutoMsg;
    Exit
    End;
    Close(a1);

    {line #2}

    automsg := ('/home/imp/imp/ansi/automsg.dat');
    Assign(a1, automsg);
    Append(a1);

    Write(': ');
    inputl(s,75);
    WriteLn(a1,''+s);
    SaveAutoMsg;
    Exit;
    Close(a1);

    {line #3}

    automsg := ('/home/imp/imp/ansi/automsg.dat');
    Assign(a1, automsg);
    Append(a1);

    Write(': ');
    inputl(s,75);
    WriteLn(a1,''+s);
    SaveAutoMsg;
    Exit;
    Close(a1);

    {line #4}

    automsg := ('/home/imp/imp/ansi/automsg.dat');
    Assign(a1, automsg);
    Append(a1);

    Write(': ');
    inputl(s,75);
    WriteLn(a1,''+s);
    SaveAutoMsg;
    Exit;
    Close(a1);

    {line #5}

    automsg := ('/home/imp/imp/ansi/automsg.dat');
    Assign(a1, automsg);
    Append(a1);

    Write(': ');
    inputl(s,75);
    WriteLn(a1,''+s);
    SaveAutoMsg;
    Exit;
    Close(a1);

    {line #6}

    automsg := ('/home/imp/imp/ansi/automsg.dat');
    Assign(a1, automsg);
    Append(a1);

    Write(': ');
    inputl(s,75);
    WriteLn(a1,''+s);
    SaveAutoMsg;
    Exit;
    Close(a1);

    {line #7}

    automsg := ('/home/imp/imp/ansi/automsg.dat');
    Assign(a1, automsg);
    Append(a1);

    Write(': ');
    inputl(s,75);
    WriteLn(a1,''+s);
    SaveAutoMsg;
    Exit;
    Close(a1);

    {line #8}

    automsg := ('/home/imp/imp/ansi/automsg.dat');
    Assign(a1, automsg);
    Append(a1);

    Write(': ');
    inputl(s,75);
    WriteLn(a1,''+s);
    SaveAutoMsg;
    Exit;

    Close(a1);
    End;

    Procedure EnterTopic;

    Begin

    topic := ('/home/imp/imp/ansi/topic.dat');
    Assign(a2, topic);
    ReWrite(a2);

    nl;
    Write('topic: ');
    inputl(s,50);
    If s = '' Then WriteLn('aborted');
    If s <> '' Then

    Write(a2,'topic: '+s);
    WriteLn(' ');

    from := ('/home/imp/imp/ansi/from.dat');
    Assign(a3, from);
    ReWrite(a3);

    write(a3,'from : '+thisuser.name);
    writeln(a3,'%NL');

    thisdate := ('/home/imp/imp/ansi/date.dat');
    Assign(a4, thisdate);
    ReWrite(a4);

    DeCodeDate (Date,YY,MM,DD);
    writeln(a4,'date : ', format ('%d/%d/%d ',[mm,dd,yy]));
    WriteLn(' ');

    Close(a2);
    Close(a3);
    Close(a4);
    End;


    Procedure SaveData;

    Begin

    shell('/usr/bin/cp /home/imp/imp/ansi/topic.dat /home/imp/imp/ansi/topi .old');
    shell('/usr/bin/cp /home/imp/imp/ansi/date.dat /home/imp/imp/ansi/date. ld');
    shell('/usr/bin/cp /home/imp/imp/ansi/from.dat /home/imp/imp/ansi/from. ld');

    End;


    Procedure GetData;

    Begin

    shell('/usr/bin/cp /home/imp/imp/ansi/topic.old /home/imp/imp/ansi/topi .dat');
    shell('/usr/bin/cp /home/imp/imp/ansi/date.old /home/imp/imp/ansi/date. at');
    shell('/usr/bin/cp /home/imp/imp/ansi/from.old /home/imp/imp/ansi/from. at');

    End;


    Procedure GetTopic;


    Begin
    printf('topic.dat');
    End;


    Procedure GetFrom;

    Begin

    printf('from.dat');
    End;


    Procedure GetDate;

    Begin

    printf('date.dat');

    End;


    Procedure Ask;

    Begin
    WriteLn('');
    if pynq('change automessage?',false) then begin
    EnterTopic;
    If s = '' Then GetData;
    If s <> '' Then EnterAutoMsg;
    Exit;
    End;
    End;


    procedure Quit;

    Begin
    Exit;
    End;


    Begin
    SaveData;
    GetTopic;
    GetDate;
    GetFrom;
    ShowAutoMsg;
    Ask;
    End;

    --//--snip------------------------------------------

    Much thanks,

    |09ignatius |07[|15cia|07]

    --- Mystic BBS v1.12 A3 (Linux)
    * Origin: catch22bbs.com >>> >> > (1:340/800)
  • From joseph larsen@1:340/800 to joseph larsen on Saturday, February 20, 2016 21:49:42
    |01 ▄▄█▓▀▀▌▀▀▀ ░▀ ░|CR▓▀ quoting |09joseph larsen |01on |0902/20/16 |07

    Here's some more code i'm having problems with. The problem is that it doesn't allow input for lines #3 through #8. What it should be doing is prompting lines #1, #2, #3, #4, #5, #6, #7 and #8. It was working
    before, I don't know what the hell is going on. If someone could look at it, and maybe point me in the right direction, i'd appreciate it. Thanks.

    Nevermind. I figured it out.

    |09ignatius |07[|15cia|07]

    --- Mystic BBS v1.12 A3 (Linux)
    * Origin: catch22bbs.com >>> >> > (1:340/800)
  • From joseph larsen@1:340/800 to mark lewis on Monday, February 22, 2016 01:00:40
    |01 ▄▄█▓▀▀▌▀▀▀ ░▀ ░|CR▓▀ quoting |09mark lewis |01on |0902/21/16 |07

    :) i've been in recovery mode for the last few days... haven't done much of anything... fixing to get real busy at $work... happy for the $$$ but dreading the long 12 hour days of sample, test, wait wait wait, sample, test, wait wait wait, etc...

    Ahh. :/

    |09ignatius |07[|15cia|07]

    --- Mystic BBS v1.12 A4 (Linux)
    * Origin: catch22bbs.com >>> >> > (1:340/800)