home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The C Users' Group Library 1994 August
/
wc-cdrom-cusersgrouplibrary-1994-08.iso
/
listings
/
v_01_03
/
1n03043a
< prev
next >
Wrap
Text File
|
1990-07-08
|
801b
|
27 lines
FIGURE 2, Sample TCL program.
program check_mult; {check multiplication function}
var n1,n2:integer;
begin
for n1:=0 to 100 do
begin
for n2:=0 to 100 do
begin
key n1; {send n1 to target application}
key "*"; {multiplication symbol}
key n2 format "%d<ent>"; {send n2 formatted decimal,
followed by enter key}
verify n1*n2 ABS 10,10; {verify the calculation results at
row 10, col 10 of screen}
if error then
begin
gotoxy(11,11); {move cursor on host screen}
writeln("ERROR"); {output to host screen}
halt; {stop the program}
end;
end;
end;
end