Program qwerty;

USES AmigaDOS, Amiga;

VAR
	RDArg : pRDArgs;
	RD_Array : Array[0..10] of LongInt;
	TmpInt : ^LongInt;
	n : Byte;
	
CONST
	Template : String = 'TIME,ASDA/K,DICK/N,LEE/S,IS/S'#0;
	
begin
	RDArg := AllocDosObject(DOS_RDARGS,NIL);
	If RDArg <> NIL then begin
		RDArg := ReadArgs(@Template[1],@RD_Array,RDArg);
		
		for n := 0 to 4 do begin
			TmpInt := Pointer(RD_Array[n]);
			writeln(RD_Array[n],' "',PtrToPas(Pointer(RD_Array[n])),'" ',tmpint^);
		end;
		FreeDosObject(DOS_RDARGS,RDArg);
	end;

end.