Inputs: wish(numericsimple);
Variables: have;
have=marketposition*currentcontracts; //reality

if wish>0 and wish>have then buy ("++") (wish-maxlist(0,have)) contracts this bar on close; // increase / new long  pos
if wish>=0 and wish<have then sell ("+-") (have-wish) contracts total this bar on close; // reduce long position

if wish<0 and wish<have then short ("--") (minlist(0,have)-wish) contracts this bar on close; // increase / new short pos
if wish<=0 and wish>have then cover ("-+") (wish-have) contracts total this bar on close; // reduce short position

sizeadjust=1;