XPSE

nProc test

    long a=dim(4)
    long a&,0=-4// schreibt statt -4 nur 4 in den Speicher
    long a&,0=4*-1// schreibt -4 in den Speicher
    return long(a&,0)

endProc