doublediv.uni

declare,main
declare,double.div
function,main
	const,0,1,2
	double,a,25.00
	double,b,5.00
	double,c,0
	integer,p1,0
	integer,p2,0
	integer,p3,0
	pointer,p1,a
	pointer,p2,b
	pointer,p3,c
	double.div,p1,p2,p3,0
	locate,0,0,0
	printdouble,c
function,double.div
	float,a,0.00
	float,b,0.00
	float,c,0.00
	pointer.from,a,argv0
	pointer.from,b,argv1
	;,div ajust
	((integer)),b,b
	;,div ajust
	eval,c,a/b
	pointer.to,argv2,c