#include "stdio.h"
#include "fcntl.h"
#include "exec/types.h"
#include "exec/nodes.h"
#include "exec/lists.h"
#include "exec/libraries.h"
#include "exec/ports.h"
#include "exec/interrupts.h"
#include "exec/io.h"
#include "exec/memory.h"
#include "libraries/dos.h"
#include "libraries/dosextens.h"

#define BUFF_SIZE 1

extern struct FileHandle *Open();
FILE *fp;
char *name;
char *mode;
char string2[10]="log on";
char password[10]="vogelpoep";


getstring(string)
char *string;
{

int  count,file,lengte,status;
char *buffer,letter[1];

count = 0;
lengte = 1;
status = 0;
buffer = letter;
file = open("ser:",O_RDONLY);
if (file != -1){
status = read(file,buffer,lengte);
while (*buffer != '\n'){
string[count] = *buffer;
status = read(file,buffer,lengte);
count ++;
}
string[count] = '\0';
count = 0;
status = close(file);
return(status);
}
return(file);
}


execute(string)
char *string;

{
struct FileHandle *serial;
int Success;

serial=Open("SER:",MODE_OLDFILE);
Success=Execute(string,0,serial);
Close(serial);
return(Success);
}

setup(){

int r,true;
char *string4,string3[50];

fp = fopen("ser:","w");
r = fputs("CONTACT REQUEST RECEIVED  ENTER PASSWORD",fp);
getstring(string4);
true=strcmp(string4,string3);
if (true==0)
r = fputs("CONTACT REQUEST REFUSED!",fp);
return(true); 
}

main()
{
char string[255];
int a,true;

while (5<6){
a=getstring(string);
true= strcmp(string,string2);
if (true==0)
setup;

execute(string);
}
}