defint(ch,f);

voidtype #graphinit(defint(x));
block(
  _ax:=x,
  intr(0x10),
  return()
);

voidtype #setpixel(defint(x,y,f));
block(
  _ax:=f+256*12,
  _dx:=y,
  _cx:=x,
  intr(0x10),
  return()
);

inttype #getpixel(defint(x,y));
block(
  _ax:=256*13,
  _dx:=y,
  _cx:=x,
  intr(0x10),
  return(andb(_ax,0x00ff))
);


graphinit(6);
setpixel(320,100,1);
while(ch <> 13, ch:=key());
f:=getpixel(320,100);
graphinit(3);
print("farbe=%i\n",f).
