#include 
#include 
#include 
#include 
#include 
#include 

/* supposedly workd on AS/400 IBM systems -- had no chance to try it.
 * They say, you need to compile the program using CRTCMOD and then
 * bind the module with other modules using ms_sleep() to create program
 * object (sounds like IBMish) */


_MT_Time mt

void ms_sleep(t)
int t;
{
 int s;
 long ms;

 sub = 0;
 if(t <= 0) {
   return;
   }
 s = t/1000;
 ms = t % 1000;
 if(s > 0) {
   sleep(s);
   }
 if(ms > 0) {
   mitime(&mt, 0, 0, 0, ms/10);
   waittime(&mt, 0);
   }
 return;
 }