eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Copyright updates

This commit is contained in:
mysticbbs 2013-04-22 13:39:24 -04:00
parent 4b629cad41
commit 7d0997a6fa
2 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
utilities/mtype.pas
View File

@ -1,7 +1,7 @@
Program MTYPE; Program MTYPE;
// ==================================================================== // ====================================================================
// Mystic BBS Software Copyright 1997-2012 By James Coyle // Mystic BBS Software Copyright 1997-2013 By James Coyle
// ==================================================================== // ====================================================================
// //
// This file is part of Mystic BBS. // This file is part of Mystic BBS.
@ -109,11 +109,13 @@ Var
Terminal.ProcessBuf(S[1], Length(S)); Terminal.ProcessBuf(S[1], Length(S));
End; End;
Var
BaudEmu : LongInt;
Begin Begin
WriteLn; WriteLn;
If ParamCount <> 1 Then Begin If ParamCount < 1 Then Begin
WriteLn('MTYPE [filename]'); WriteLn('MTYPE [filename] [delay]');
Exit; Exit;
End; End;
@ -128,14 +130,21 @@ Begin
Screen := TOutput.Create(True); Screen := TOutput.Create(True);
Terminal := TTermAnsi.Create(Screen); Terminal := TTermAnsi.Create(Screen);
Done := False; BaudEmu := strS2I(ParamStr(2));
A := 0; Done := False;
dRead := 0; A := 0;
Ch := #0; dRead := 0;
Ch := #0;
While Not Done Do Begin While Not Done Do Begin
Ch := GetChar; Ch := GetChar;
If BaudEmu > 0 Then Begin
Screen.BufFlush;
If A MOD BaudEmu = 0 Then WaitMS(6);
End;
If Ch = #26 Then If Ch = #26 Then
Break Break
Else Else

2
utilities/pcb2mbbs.pas
View File

@ -1,7 +1,7 @@
Program PCB2MBBS; Program PCB2MBBS;
// ==================================================================== // ====================================================================
// Mystic BBS Software Copyright 1997-2012 By James Coyle // Mystic BBS Software Copyright 1997-2013 By James Coyle
// ==================================================================== // ====================================================================
// //
// This file is part of Mystic BBS. // This file is part of Mystic BBS.