RosettaCodeData/Task/Address-of-a-variable/Delphi/address-of-a-variable-2.delphi

var
	crtMode: integer absolute $0040;
	str: string[100];
	strLen: byte absolute str;