#include <dos.h>
#include <string.h>
#define startsuche 0x200000
#define endsuche   0x800000
#define step       0x100000
#define ident   "Janus handler V2.20 found at"
#define anfrage "Get Time please, aber flott "
#define valid   "Zeit"
#define yes 1
#define no  0

void main()
{
char *q,*janusbase;
int i,c,len,found;
len = 28;
found = no;
for (i=startsuche;i<endsuche;i=i+step)
{      
 q=i+8;
 c=strnicmp(ident,q,len);
 if (c==0) { 
	   janusbase=q;
	   found=yes;
           } 
}
if (found==no) {
		printf("Kein Janus gefunden/n");
		exit(0);
	       }
else
for (;;)
{
     chkabort();
     Delay(5L);
     c=strnicmp(anfrage,janusbase,len);
     if (c==0) gettime(janusbase);
    }
	
}


gettime(janusbase)
char *janusbase;
{
 char *cl,*ant;
 ant=janusbase;
 cl=janusbase+4;
 getclk(cl);
 ant = stpcpy(ant,"Zeit");
 return(0);
}