home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
insidetp
/
1990_03
/
cadtests.pas
next >
Wrap
Pascal/Delphi Source File
|
1990-02-22
|
949b
|
48 lines
PROGRAM CADTests;
USES
Crt,Dos,CADThief;
{This program tests the CAD handler routine}
VAR
A: char;
BEGIN
ClrScr;
{Test 1 to go in any program section}
A := ' ';
GotoXY(1,20);
WriteLn('This section puts the program');
WriteLn('into an endless loop to simulate');
WriteLn('the checking you can perform in');
WriteLn('a program during processing.');
WHILE A = ' ' DO
BEGIN
IF GetCAD and HandleCADs THEN
BEGIN
ClrScr;
A := 'X'
END
END;
{Test 2 which is designed for an input loop}
GotoXY(1,3);
WriteLn('-------- Starting Test -------');
WriteLn('Type anything to test keyboard');
Write (' Press Enter to quit: ');
WHILE Ord(A) <> 13 DO
BEGIN
IF KeyPressed THEN
BEGIN
A := ReadKey;
Write(A)
END
ELSE
IF GetCAD and HandleCADs THEN A:=Chr(13)
END
END.