Subj : Auto Message code.
To   : All
From : joseph larsen
Date : Sat Feb 20 2016 04:40 pm

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)

You are viewing proxied material from cvs.synchro.net. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.