[fpc-pascal]Getting disk label and serial numbers

[XHajT03 at mbox.vol.cz]

From:           	Self <XHajT03 at mbox.vol.cz>
To:             	fpc-pascal at deadlock.et.tudelft.nl
Subject:        	Re: [fpc-pascal]Getting disk label and serial numbers
Send reply to:  	XHajT03 at vol.cz
Date sent:      	Thu, 8 Aug 2002 22:08:49 +0200

>   WriteLn ('Serial number is ', cardinal (I.Label_Date) shl 16 +
> I.Label_Time);

 Sorry, this is the other way round:
 cardinal (I.Label_Time) shl 16 + I.Label_Date

Tomas