{$nodebug} procedure sleep(time : integer); { sleep for the specified number of seconds - EFM } var xrb origin 442b: integer; begin xrb:=time; emt(255); emt(8); end; { sleep } {$debug}