{ Prototyper f�r ST Pascal plus - VH 1/93
  Hauptprogramm }

PROGRAM prototypes;


type
	strpfad=string[128];
	str80=string[80];
	str255=string[255];

var
	pfad1,pfad2:strpfad;
	s,u:str255;
	i:integer;
	f1,f2:file of text;
	gespraechig:boolean;

{$Iprotostr.i}    { Nat�rlich direkt von sich selbst erzeugt! }

begin
	IO_CHECK(false);	{ Laufzeit�berpr�fung f�r Diskfehler abschalten }
	writeln(chr(27),'pPrototyps f�r ST Pascal plus - Public Domain - (VH 1/93)',chr(27),'q');
	writeln('Syntax