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)
# Origin: LiveWire BBS -=*=-
telnet://livewirebbs.com (1:2320/100)
* Origin: LiveWire BBS - Synchronet - LiveWireBBS.com (1:2320/100)