/*== Ex06 ポインタ（番地変数）  ======*/
#include "pseudo.h"
#define WriteXY(str,xx,yy) \
		 WriteS(str); WriteS("x, y=");\
		 WriteR( xx); WriteR( yy);\
		 WriteLn;
/*====================================*/
FUNCTION  Main()
VARIABLE
    REAL     x, y, temp;
    PtrREAL  px, py;
BEGIN
    InputReal( x);
    InputReal( y);
    WriteXY("1: ",x,y);

    temp= x; x= y; y= temp;
    WriteXY("2: ",x,y);

    px= ADR( x);  py= ADR( y);

    temp    = ObjectOf( px);
    OBJ( px)= OBJ( py);
    OBJ( py)= temp;
    WriteXY("3: ",x,y);
END
/*====================================*/