Path: utzoo!utgpu!news-server.csri.toronto.edu!mailrus!cs.utexas.edu!usc!apple!bionet!ames!uhccux!virtue!ccc_ldo
From: ccc_ldo@waikato.ac.nz (Lawrence D'Oliveiro, Waikato University)
Newsgroups: comp.sys.mac.programmer
Subject: Re: Script Manager Date Questions
Message-ID: <621.266699c6@waikato.ac.nz>
Date: 1 Jun 90 04:37:26 GMT
References: <9537@tank.uchicago.edu>
Organization: University of Waikato, Hamilton, New Zealand
Lines: 26

I can't answer the rest of Robert's questions, but here's a slightly simpler
Long2Comp function:

    Function Long2Comp
      (
	TheLong : LongInt
      ) : Comp;
      { converts an unsigned long integer to a Comp. }

	Var
	    Result :
		Record
		    High, Low : LongInt
		End {Record};

      Begin
	Result.High := 0;
	Result.Low := TheLong;
	Long2Comp := Comp(Result)
      End {Long2Comp};

Lawrence D'Oliveiro
Computer Services Dept                    fone: +64-71-562-889
University of Waikato                      fax: +64-71-384-066
Hamilton, New Zealand            electric mail: ldo@waikato.ac.nz
Parallel lines never meet, unless you bend one or both of them.