(*
	This module displays a requester with some info
	about Trails.

	Created: 6/11/86 by Richie Bielak

	Adapted: 9/8/87 - jr
	Note: compiled with AMIGA Modula-2 System by AMSoft
			    ---------------------

	CopyRight (c) 1986,by Richie Bielak

	This program may be freely distributed. But please leave
	my name in. Thanks... Richie.

*)
IMPLEMENTATION MODULE TrailsInfo;
(*$ LargeVars:=FALSE Volatile:=FALSE StackParms:=FALSE StackChk:=FALSE *)

FROM SYSTEM	IMPORT ADR;
FROM IntuitionD	IMPORT Requester, WindowPtr;
FROM IntuitionL	IMPORT Request;


(* Alles in TrailsAsm.asm! *)
(* Dies bißchen Code hätte man auch noch in Assembler implementieren
   können!
 *)
VAR
 InfoRequest [ < "TrailsAsm_InfoRequest"] : Requester;

PROCEDURE ShowTrailsInfo(wp: WindowPtr);
 BEGIN
  IF Request(ADR(InfoRequest), wp) THEN END;
 END ShowTrailsInfo;

END TrailsInfo.mod