home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
PASCAL
/
SLTPU70C.ZIP
/
TEST.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-04-24
|
2KB
|
86 lines
Program Test;
{ Test Modem Interface unit. This program should be run as a
'Standard' type door under Searchlight BBS, during a remote login.
TEST.EXE should be executed directly from a menu or DOORS.DEF line. }
Uses Modem,Crt;
var c: char;
Procedure Pause;
var c: char;
Begin
write('Press any key to continue --');
c:=readkey;
end;
Begin
DirectVideo:=false;
if not DriverLoaded then begin
writeln('Searchlight drivers not available.');
halt;
end;
if (SLData=Nil) or (SLData^.RSAct=FALSE) then begin
writeln('Please run this program as a "Standard" type door during a remote login.');
halt;
end;
writeln('Testing modem driver library features. The following lines of');
writeln('text should appear on both the local and remote terminal.');
writeln;
pause;
writeln;
writeln;
writeln('Now we will demonstrate the ability to write a line directly to');
writeln('the COM port without local display.');
writeln;
writeln(Auxout,'(This line should appear only on the remote end!)');
pause;
writeln;
writeln;
writeln('I can tell from the last key you pressed that you are sitting');
if SLData^.Lastkey
then writeln('at the LOCAL terminal.')
else writeln('at the REMOTE terminal.');
pause;
writeln;
writeln;
writeln('Now let''s try sending a clear screen sequence directly to the');
writeln('remote terminal. We''ll do it right after you press a key.');
writeln;
pause;
write(auxout,#27'[2J'); { ESC2J is ANSI escape sequence to clear screen }
writeln;
writeln('I bet that your screen is clear now if you were sitting at the');
writeln('remote end, but not if you are at the local end.');
writeln;
writeln;
writeln('Let''s try displaying a line that appears only on the local screen.');
writeln('We''ll call the COMTOGGLE procedure to shut off BIOS redirection.');
writeln;
ComToggle;
writeln('This line should appear only on the local end.');
ComToggle;
pause;
writeln;
writeln;
writeln('This concludes our test.');
write('Would you like to hang up now? (Y/N) ');
c:=readkey; writeln(c);
if Upcase(c)='Y' then begin
WaitOut;
Hangup;
end;
end.