Initial import
This commit is contained in:
mysticbbs
parent
a7ae958aae
commit
d6d47bcfca
|
|
@ -0,0 +1,17 @@
|
|||
program test0;
|
||||
|
||||
uses
|
||||
crt;
|
||||
|
||||
var ch : char;
|
||||
|
||||
begin
|
||||
repeat
|
||||
ch := readkey;
|
||||
|
||||
if ch = #0 then
|
||||
writeln('Extended: ', ord(ch))
|
||||
else
|
||||
writeln('Got: ' + ch + ' ', ord(ch));
|
||||
until ch = #27;
|
||||
end.
|
||||
|
|
@ -0,0 +1,46 @@
|
|||
Program TestIO_1;
|
||||
|
||||
{$I M_OPS.PAS}
|
||||
|
||||
Uses
|
||||
m_Input,
|
||||
m_Output,
|
||||
m_Strings;
|
||||
|
||||
Var
|
||||
Keyboard : TInput;
|
||||
Screen : TOutput;
|
||||
TempChar : Char;
|
||||
IdleCount : LongInt;
|
||||
Begin
|
||||
Keyboard := TInput.Create;
|
||||
Screen := TOutput.Create(True);
|
||||
|
||||
Screen.SetWindowTitle('MDL: TEST #1');
|
||||
Screen.WriteLine('MDL: Input/Output test program. (ESCAPE) to Quit');
|
||||
Screen.SetWindow(1, 3, 80, 25, True);
|
||||
|
||||
IdleCount := 0;
|
||||
|
||||
Repeat
|
||||
If Keyboard.KeyWait(1000) Then Begin
|
||||
IdleCount := 0;
|
||||
TempChar := Keyboard.ReadKey;
|
||||
Case TempChar of
|
||||
#0 : Screen.WriteLine('Extended key: ' + strI2S(Ord(Keyboard.ReadKey)));
|
||||
#27 : Begin
|
||||
Screen.WriteLine('Escape pressed!');
|
||||
Break;
|
||||
End;
|
||||
Else
|
||||
Screen.WriteLine('Key pressed: ' + TempChar);
|
||||
End;
|
||||
End Else Begin
|
||||
Inc (IdleCount);
|
||||
Screen.WriteLine('No key has been pressed (for ' + strI2S(IdleCount) + ' seconds)');
|
||||
End;
|
||||
Until False;
|
||||
|
||||
Keyboard.Free;
|
||||
Screen.Free;
|
||||
End.
|
||||
|
|
@ -0,0 +1,211 @@
|
|||
Program TESTIO_2;
|
||||
|
||||
{$I M_OPS.PAS}
|
||||
|
||||
Uses
|
||||
m_Types,
|
||||
m_Strings,
|
||||
m_Input,
|
||||
m_Output,
|
||||
m_MenuBox,
|
||||
m_MenuForm;
|
||||
|
||||
Const
|
||||
{ TheDraw Pascal Crunched Screen Image. Date: 09/03/02 }
|
||||
TESTMAIN_WIDTH=80;
|
||||
TESTMAIN_LENGTH=128;
|
||||
TESTMAIN : array [1..128] of Char = (
|
||||
#15,#16,#26,'N','Ü', #7,'Ü',#24,#15,'Û',#23,#25,'M', #8,#16,'Û',#24,
|
||||
#7,'ß', #8,#26,'N','ß',#24,#26,'O','°',#24,#26,'O','°',#24,#26,'O',
|
||||
'°',#24,#26,'O','°',#24,#26,'O','°',#24,#26,'O','°',#24,#26,'O','°',
|
||||
#24,#26,'O','°',#24,#26,'O','°',#24,#26,'O','°',#24,#26,'O','°',#24,
|
||||
#26,'O','°',#24,#26,'O','°',#24,#26,'O','°',#24,#26,'O','°',#24,#26,
|
||||
'O','°',#24,#26,'O','°',#24,#26,'O','°',#24,#26,'O','°',#24,#26,'O',
|
||||
'°',#24,#26,'@','Ä',' ',#26, #3,'Ä',' ','Ä','Ä',' ',' ','Ä',' ',' ',
|
||||
'ù',#24,#15,':', #7,':', #8,':',#24);
|
||||
|
||||
Var
|
||||
Screen : TOutput;
|
||||
Menu : TMenuForm;
|
||||
Box : TMenuBox;
|
||||
Image : TConsoleImageRec;
|
||||
MenuPosition : Byte;
|
||||
Res : Char;
|
||||
|
||||
Procedure BoxOpen (X1, Y1, X2, Y2: Byte);
|
||||
Begin
|
||||
Box := TMenuBox.Create(Screen);
|
||||
|
||||
Box.Open(X1, Y1, X2, Y2);
|
||||
End;
|
||||
|
||||
Procedure BoxClose;
|
||||
Begin
|
||||
Box.Close;
|
||||
Box.Free;
|
||||
End;
|
||||
|
||||
Procedure CoolBoxOpen (X1: Byte; Text: String);
|
||||
Var
|
||||
Len : Byte;
|
||||
Begin
|
||||
Len := Length(Text) + 6;
|
||||
|
||||
Screen.GetScreenImage(X1, 1, X1 + Len, 3, Image);
|
||||
|
||||
Screen.WriteXYPipe (X1, 1, 8, Len, 'Ü|15Ü|11ÜÜ|03ÜÜ|09Ü|03Ü|09' + strRep('Ü', Len - 9) + '|08Ü');
|
||||
Screen.WriteXYPipe (X1 ,2, 8, Len, 'Ý|09|17² |15' + Text + ' |00°|16|08Þ');
|
||||
Screen.WriteXYPipe (X1, 3, 8, Len, 'ß|01²|17 |11À|03ÄÄ|08' + strRep('Ä', Length(Text) - 4) + '|00¿ ±|16|08ß');
|
||||
End;
|
||||
|
||||
Procedure CoolBoxClose;
|
||||
Begin
|
||||
Screen.PutScreenImage(Image);
|
||||
End;
|
||||
|
||||
Procedure AboutBox;
|
||||
Begin
|
||||
BoxOpen (19, 7, 62, 19);
|
||||
|
||||
Screen.WriteXY (21, 8, 31, strPadC('Test IO Program', 40, ' '));
|
||||
Screen.WriteXY (21, 9, 112, strRep('-', 40));
|
||||
Screen.WriteXY (26, 11, 113, 'Copyright (C) 2003 By No One');
|
||||
Screen.WriteXY (31, 12, 113, 'All Rights Reserved');
|
||||
Screen.WriteXY (21, 14, 113, strPadC('Version 1.00', 40, ' '));
|
||||
Screen.WriteXY (32, 16, 113, 'www.someplace.com');
|
||||
Screen.WriteXY (21, 17, 112, strRep('-', 40));
|
||||
Screen.WriteXY (21, 18, 31, strPadC('(PRESS A KEY)', 40, ' '));
|
||||
|
||||
Menu.Input.ReadKey;
|
||||
|
||||
BoxClose;
|
||||
End;
|
||||
|
||||
Procedure FormTest;
|
||||
Var
|
||||
MyBox : TMenuBox;
|
||||
MyForm : TMenuForm;
|
||||
Data : Array[1..9] of String;
|
||||
Begin
|
||||
MyBox := TMenuBox.Create(Screen);
|
||||
MyForm := TMenuForm.Create(Screen);
|
||||
|
||||
MyBox.Header := ' Input Test ';
|
||||
|
||||
MyBox.Open (5, 6, 75, 18);
|
||||
|
||||
MyForm.AddStr ('1', ' String Test #1 ', 8, 8, 28, 8, 16, 45, 60, @Data[1], 'String input test #1');
|
||||
MyForm.AddStr ('2', ' String Test #2 ', 8, 9, 28, 9, 16, 45, 60, @Data[2], 'String input test #2');
|
||||
MyForm.AddStr ('3', ' String Test #3 ', 8, 10, 28, 10, 16, 45, 60, @Data[3], 'String input test #3');
|
||||
MyForm.AddStr ('4', ' String Test #4 ', 8, 11, 28, 11, 16, 45, 60, @Data[4], 'String input test #4');
|
||||
MyForm.AddStr ('5', ' String Test #5 ', 8, 12, 28, 12, 16, 45, 60, @Data[5], 'String input test #5');
|
||||
MyForm.AddStr ('6', ' String Test #6 ', 8, 13, 28, 13, 16, 45, 60, @Data[6], 'String input test #6');
|
||||
MyForm.AddStr ('7', ' String Test #7 ', 8, 14, 28, 14, 16, 45, 60, @Data[7], 'String input test #7');
|
||||
MyForm.AddStr ('8', ' String Test #8 ', 8, 15, 28, 15, 16, 45, 60, @Data[8], 'String input test #8');
|
||||
MyForm.AddStr ('9', ' String Test #9 ', 8, 16, 28, 16, 16, 45, 60, @Data[9], 'String input test #9');
|
||||
|
||||
MyForm.Execute;
|
||||
|
||||
Box.Close;
|
||||
|
||||
MyForm.Free;
|
||||
MyBox.Free;
|
||||
End;
|
||||
|
||||
Begin
|
||||
Screen := TOutput.Create(True);
|
||||
Menu := TMenuForm.Create(Screen);
|
||||
|
||||
Screen.SetWindowTitle('IO TEST #2');
|
||||
Screen.LoadScreenImage(TESTMAIN, TESTMAIN_LENGTH, TESTMAIN_WIDTH, 1, 1);
|
||||
|
||||
MenuPosition := 0;
|
||||
|
||||
Repeat
|
||||
Menu.Clear;
|
||||
|
||||
If MenuPosition = 0 Then Begin
|
||||
Menu.HiExitChars := #80;
|
||||
Menu.ExitOnFirst := False;
|
||||
End Else Begin
|
||||
Menu.HiExitChars := #75#77;
|
||||
Menu.ExitOnFirst := True;
|
||||
End;
|
||||
|
||||
Case MenuPosition of
|
||||
0 : Begin
|
||||
Menu.AddNone('M', ' Main Menu ', 3, 2, 11, 'Menu menu options');
|
||||
Menu.AddNone('X', ' Exit ' , 16, 2, 6, 'Exit/About options');
|
||||
|
||||
Res := Menu.Execute;
|
||||
|
||||
If Menu.WasHiExit Then
|
||||
MenuPosition := Menu.ItemPos
|
||||
Else
|
||||
Case Res of
|
||||
#27 : Break;
|
||||
'M' : MenuPosition := 1;
|
||||
'X' : MenuPosition := 2;
|
||||
End;
|
||||
End;
|
||||
1 : Begin
|
||||
BoxOpen (2, 4, 20, 9);
|
||||
CoolBoxOpen (1, 'Main Menu');
|
||||
|
||||
Menu.AddNone ('F', ' Form/Input Test ', 3, 5, 17, 'Test form and input functions');
|
||||
Menu.AddNone ('N', ' Nothing #1' , 3, 6, 17, 'Nothing at all #1');
|
||||
Menu.AddNone ('N', ' Nothing #2' , 3, 7, 17, 'Nothing at all #2');
|
||||
Menu.AddNone ('N', ' Nothing #3' , 3, 8, 17, 'Nothing at all #3');
|
||||
|
||||
Res := Menu.Execute;
|
||||
|
||||
BoxClose;
|
||||
CoolBoxClose;
|
||||
|
||||
If Menu.WasHiExit Then Begin
|
||||
Case Res of
|
||||
#75 : MenuPosition := 2;
|
||||
#77 : MenuPosition := 2;
|
||||
End;
|
||||
End Else
|
||||
Case Res of
|
||||
'F' : FormTest;
|
||||
'N' : ;
|
||||
Else
|
||||
MenuPosition := 0;
|
||||
End;
|
||||
End;
|
||||
2 : Begin
|
||||
BoxOpen (15, 4, 23, 7);
|
||||
CoolBoxOpen (14, 'Exit');
|
||||
|
||||
Menu.AddNone ('A', ' About ', 16, 5, 7, 'About this test program');
|
||||
Menu.AddNone ('X', ' Exit ' , 16, 6, 7, 'Exit this program');
|
||||
|
||||
Res := Menu.Execute;
|
||||
|
||||
BoxClose;
|
||||
CoolBoxClose;
|
||||
|
||||
If Menu.WasHiExit Then Begin
|
||||
Case Res of
|
||||
#75 : MenuPosition := 1;
|
||||
#77 : MenuPosition := 1;
|
||||
End;
|
||||
End Else
|
||||
Case Res of
|
||||
'A' : AboutBox;
|
||||
'X' : Break;
|
||||
Else
|
||||
MenuPosition := 0;
|
||||
End;
|
||||
End;
|
||||
End;
|
||||
Until False;
|
||||
|
||||
Screen.ClearScreen;
|
||||
Screen.WriteLine('MDL: Test Program #2 Completed');
|
||||
|
||||
Menu.Free;
|
||||
Screen.Free;
|
||||
End.
|
||||
|
|
@ -0,0 +1,40 @@
|
|||
Program Test3;
|
||||
|
||||
{$I m_ops.pas}
|
||||
|
||||
Uses
|
||||
m_Socket_Class;
|
||||
|
||||
Var
|
||||
Server : TSocketClass;
|
||||
Client : TSocketClass;
|
||||
Str : String;
|
||||
Begin
|
||||
Server := TSocketClass.Create;
|
||||
|
||||
Server.WaitInit(23);
|
||||
|
||||
WriteLn('Waiting on port 23 for TEST4 client example...');
|
||||
|
||||
Client := Server.WaitConnection;
|
||||
|
||||
If Client = NIL Then Begin
|
||||
WriteLn ('An error has occured; no client detected');
|
||||
Server.Free;
|
||||
Halt;
|
||||
End;
|
||||
|
||||
WriteLn;
|
||||
WriteLn ('Got connection from:');
|
||||
WriteLn (' Host: ', Client.FPeerName);
|
||||
WriteLn (' IP: ', Client.FPeerIP);
|
||||
WriteLn;
|
||||
|
||||
Client.WriteLine('Welcome to the MDL test server!');
|
||||
Client.ReadLine(Str);
|
||||
|
||||
WriteLn('Received: ', Str);
|
||||
|
||||
Server.Free;
|
||||
Client.Free;
|
||||
End.
|
||||
|
|
@ -0,0 +1,26 @@
|
|||
Program Test4;
|
||||
|
||||
Uses
|
||||
m_Socket_Class;
|
||||
|
||||
Var
|
||||
Client : TSocketClass;
|
||||
Str : String;
|
||||
Begin
|
||||
Client := TSocketClass.Create;
|
||||
|
||||
WriteLn ('Attempting to connect to localhost port 23 for TEST3 server test');
|
||||
|
||||
If Not Client.Connect ('localhost', 23) Then Begin
|
||||
WriteLn ('Connection failed');
|
||||
Client.Free;
|
||||
Halt;
|
||||
End;
|
||||
|
||||
Client.ReadLine(Str);
|
||||
|
||||
WriteLn('Received: ', Str);
|
||||
Client.WriteLine ('Client connection successful!');
|
||||
|
||||
Client.Free;
|
||||
End.
|
||||
|
|
@ -0,0 +1,120 @@
|
|||
Program TEST5;
|
||||
|
||||
Uses
|
||||
m_Types,
|
||||
m_Input,
|
||||
m_Output,
|
||||
m_Socket_Class,
|
||||
m_DateTime,
|
||||
m_Term_Ansi,
|
||||
m_Strings;
|
||||
|
||||
Var
|
||||
Input : TInput;
|
||||
Output : TOutput;
|
||||
Client : TSocketClass;
|
||||
Term : TTermAnsi;
|
||||
|
||||
Procedure Init;
|
||||
Begin
|
||||
Input := TInput.Create;
|
||||
Output := TOutput.Create(True);
|
||||
Client := TSocketClass.Create;
|
||||
Term := TTermAnsi.Create(Output);
|
||||
End;
|
||||
|
||||
Procedure Cleanup;
|
||||
Begin
|
||||
Client.Free;
|
||||
Term.Free;
|
||||
Output.Free;
|
||||
Input.Free;
|
||||
End;
|
||||
|
||||
Var
|
||||
Ch : Char;
|
||||
Res : LongInt;
|
||||
Buf : Array[1..1024] of Char;
|
||||
Done : Boolean;
|
||||
Image : TConsoleImageRec;
|
||||
Begin
|
||||
Init;
|
||||
|
||||
If ParamCount <> 2 Then Begin
|
||||
Output.WriteLine('Invalid options: test5 [address] [port]');
|
||||
Cleanup;
|
||||
Halt;
|
||||
End;
|
||||
|
||||
Output.WriteStr ('Connecting to: ' + ParamStr(1) + ':' + ParamStr(2) + '. ');
|
||||
|
||||
If Not Client.Connect(ParamStr(1), strS2I(ParamStr(2))) Then Begin
|
||||
Output.WriteLine('Unable to connect');
|
||||
Cleanup;
|
||||
Halt;
|
||||
End;
|
||||
|
||||
Output.WriteLine('Connected!');
|
||||
Output.SetWindowTitle('MDL Terminal Demo');
|
||||
|
||||
Client.SetBlocking(False);
|
||||
Term.SetReplyClient(Client);
|
||||
|
||||
Output.TextAttr := 7;
|
||||
Output.ClearScreen();
|
||||
Output.WriteXYPipe (1, 25, 15 + 1 * 16, 79, ' MDL Terminal Demo ');
|
||||
Output.SetWindow(1, 1, 80, 24, True);
|
||||
|
||||
Done := False;
|
||||
|
||||
Repeat
|
||||
If Input.KeyPressed Then Begin
|
||||
Ch := Input.ReadKey;
|
||||
|
||||
Case Ch of
|
||||
#00 : Case Input.ReadKey of
|
||||
#45 : Break;
|
||||
#71 : Client.WriteStr(#27 + '[H');
|
||||
#72 : Client.WriteStr(#27 + '[A');
|
||||
#73 : Client.WriteStr(#18);
|
||||
#75 : Client.WriteStr(#27 + '[D');
|
||||
#77 : Client.WriteStr(#27 + '[C');
|
||||
#79 : Client.WriteStr(#27 + '[K');
|
||||
#80 : Client.WriteStr(#27 + '[B');
|
||||
#81 : Client.WriteStr(#3);
|
||||
#83 : Client.WriteStr(#127);
|
||||
#34 : Begin
|
||||
Output.GetScreenImage(1, 1, 80, 25, Image);
|
||||
End;
|
||||
#25 : Begin
|
||||
Output.ClearScreen;
|
||||
Output.PutScreenImage(Image);
|
||||
End;
|
||||
^C : Break;
|
||||
End;
|
||||
End;
|
||||
|
||||
Client.WriteBuf(Ch, 1);
|
||||
End Else
|
||||
If Client.WaitForData(10) > 0 Then Begin
|
||||
Repeat
|
||||
Res := Client.ReadBuf(Buf, SizeOf(Buf));
|
||||
|
||||
If Res < 0 Then Begin
|
||||
Done := True;
|
||||
Break;
|
||||
End;
|
||||
|
||||
Term.ProcessBuf(Buf[1], Res);
|
||||
|
||||
Until Res <> SizeOf(Buf);
|
||||
End Else
|
||||
WaitMS(10);
|
||||
Until Done;
|
||||
|
||||
Output.WriteLine('');
|
||||
Output.WriteLine('Connection terminated.');
|
||||
Output.SetWindow(1, 1, 80, 25, False);
|
||||
|
||||
Cleanup;
|
||||
End.
|
||||
|
|
@ -0,0 +1,33 @@
|
|||
Program Test6;
|
||||
|
||||
{$I M_OPS.PAS}
|
||||
|
||||
Uses
|
||||
m_Input,
|
||||
m_Output;
|
||||
|
||||
Var
|
||||
Keyboard : TInput;
|
||||
Screen : TOutput;
|
||||
TempChar : Char;
|
||||
Begin
|
||||
Keyboard := TInput.Create;
|
||||
Screen := TOutput.Create(True);
|
||||
|
||||
Screen.WriteLine('MDL: Input/Output test program. (ESCAPE) to Quit');
|
||||
Screen.SetWindow(1, 3, 80, 25, True);
|
||||
|
||||
Repeat
|
||||
If Keyboard.KeyPressed Then Begin
|
||||
TempChar := Keyboard.ReadKey;
|
||||
|
||||
If TempChar = #27 Then
|
||||
Break
|
||||
Else
|
||||
Screen.WriteLine('Key pressed: ' + TempChar);
|
||||
End;
|
||||
Until False;
|
||||
|
||||
Keyboard.Free;
|
||||
Screen.Free;
|
||||
End.
|
||||
|
|
@ -0,0 +1,120 @@
|
|||
Program Test7;
|
||||
|
||||
{$I M_OPS.PAS}
|
||||
|
||||
Uses
|
||||
m_Types,
|
||||
m_Strings,
|
||||
m_Output,
|
||||
m_Input,
|
||||
m_MenuBox;
|
||||
|
||||
Var
|
||||
Screen : TOutput;
|
||||
Input : TInput;
|
||||
|
||||
Procedure UpdateBottom (Num: Word; Str: String);
|
||||
Var
|
||||
Image : TConsoleImageRec;
|
||||
Count : Byte;
|
||||
Begin
|
||||
Screen.GetScreenImage(1, 1, 80, 25, Image);
|
||||
|
||||
For Count := 1 to 24 Do
|
||||
Screen.WriteLineRec(26 + Count, Image.Data[Count]);
|
||||
End;
|
||||
|
||||
Var
|
||||
Box : TMenuBox;
|
||||
List : TMenuList;
|
||||
Count : Byte;
|
||||
Image : TConsoleImageRec;
|
||||
Begin
|
||||
Screen := TOutput.Create(True);
|
||||
Input := TInput.Create;
|
||||
|
||||
Screen.SetScreenSize(50);
|
||||
Screen.ClearScreen;
|
||||
|
||||
For Count := 1 to 24 Do
|
||||
Screen.WriteXY(1, Count, 8, strRep('°', 80));
|
||||
|
||||
For Count := 1 to 24 Do
|
||||
If Odd(Count) Then
|
||||
Screen.WriteXY(5, Count, 8, '123456789012345678901234567890123456789012345678901234567890123456789012345')
|
||||
Else
|
||||
Screen.WriteXY(5, Count, 9, '098765432109876543210987654321098765432109876543210987654321098765432109876');
|
||||
|
||||
|
||||
For Count := 1 to 25 Do
|
||||
Screen.WriteXY(1, Count, 7, strI2S(Count));
|
||||
|
||||
UpdateBottom(1, '');
|
||||
|
||||
Input.ReadKey;
|
||||
|
||||
Screen.WriteXY(3, 5, 7, 'This is a test of some random text');
|
||||
Screen.WriteXYPipe(3,6, 7, 80, '|12And this is also random text');
|
||||
Screen.CursorXY (50, 15);
|
||||
Screen.WriteStr('And some more text here too!');
|
||||
|
||||
UpdateBottom(1, '');
|
||||
|
||||
Input.ReadKey;
|
||||
|
||||
Box := TMenuBox.Create(Screen);
|
||||
|
||||
Box.Open(3, 6, 75, 23);
|
||||
|
||||
UpdateBottom(1, '');
|
||||
|
||||
Input.ReadKey;
|
||||
|
||||
Screen.GetScreenImage(1, 1, 80, 25, Image);
|
||||
|
||||
Screen.ClearScreen;
|
||||
Screen.WriteLine('Press a key to restore screen.');
|
||||
Input.ReadKey;
|
||||
Screen.PutScreenImage(Image);
|
||||
|
||||
UpdateBottom(1, '');
|
||||
|
||||
Input.ReadKey;
|
||||
|
||||
// Screen.WriteXY(20, 18, 15, '12345678901234567890123456789012345678901234567890');
|
||||
Box.Close;
|
||||
Box.Free;
|
||||
|
||||
UpdateBottom(1, '');
|
||||
|
||||
Input.ReadKey;
|
||||
|
||||
Repeat
|
||||
List := TMenuList.Create(Screen);
|
||||
|
||||
List.Add('Option 1', 0);
|
||||
List.Add('Option 2', 0);
|
||||
List.Add('Exit', 0);
|
||||
|
||||
List.SetStatusProc(@UpdateBottom);
|
||||
|
||||
List.Open(20, 8, 70, 17);
|
||||
List.Close;
|
||||
List.Free;
|
||||
Until List.Picked = 3;
|
||||
|
||||
UpdateBottom(1, '');
|
||||
|
||||
Input.ReadKey;
|
||||
|
||||
Screen.ClearScreen;
|
||||
|
||||
Screen.WriteLine('Press a key to end');
|
||||
|
||||
UpdateBottom(1, '');
|
||||
|
||||
Input.ReadKey;
|
||||
|
||||
Input.Free;
|
||||
Screen.Free;
|
||||
End.
|
||||
|
|
@ -0,0 +1,32 @@
|
|||
Program Test8;
|
||||
|
||||
Uses
|
||||
m_Output,
|
||||
m_DateTime,
|
||||
m_Strings;
|
||||
|
||||
Procedure WriteLine(S:String);
|
||||
Var
|
||||
A:Byte;
|
||||
Begin
|
||||
for a := 1 to length(s) do write(s[a]);
|
||||
End;
|
||||
|
||||
|
||||
Var
|
||||
StartTime,
|
||||
EndTime : LongInt;
|
||||
Count : LongInt;
|
||||
Screen : TOutput;
|
||||
Begin
|
||||
Screen := TOutput.Create(True);
|
||||
|
||||
StartTime := TimerSeconds;
|
||||
|
||||
For Count := 1 to 5000 Do
|
||||
Screen.WriteStr('This is a test of the emergency broadcast system and I hope it is fast' + #13#10);
|
||||
|
||||
EndTime := TimerSeconds;
|
||||
|
||||
screen.WriteLine('Time was: ' + strI2S(EndTime - StartTime));
|
||||
End.
|
||||
Loading…
Reference in New Issue