// graphics liblaly

 array byte co[14];
 var   tile1,tile2;

init()
  begin
    call($af00);
    window(0,0,639,199);
    palet(1,2,3,4,5,6,7);
    mode(2,2); cls();
    mode(2,1); cls();
    mode(2,0); cls();
  end;

mode(mode,plane)
  begin
    co[0]=7;
    co[1]=mode;
    co[2]=plane;
    co[3]=15;
    ^ix=&co;
    call($b004);
  end;

cls()
  begin
    co[0]=9;
    co[1]=15;
    ^ix=&co;
    call($b004);
  end;

window(minx,miny,maxx,maxy)
  begin
    co[0]=6;
    memw[&co+1]=minx;
    memw[&co+3]=miny;
    memw[&co+5]=maxx;
    memw[&co+7]=maxy;
    co[9]=15;
    ^ix=&co;
    call($b004);
  end;

palet(a1,a2,a3,a4,a5,a6,a7)
  begin
    co[0]=10;
    co[1]=0;
    co[2]=a1;
    co[3]=a2;
    co[4]=a3;
    co[5]=a4;
    co[6]=a5;
    co[7]=a6;
    co[8]=a7;
    co[9]=15;
    ^ix=&co;
    call($b004);
  end;

line(x1,y1,x2,y2)
  begin
    co[0]=0;
    co[1]=2;
    memw[&co+2]=x1;
    memw[&co+4]=y1;
    memw[&co+6]=x2;
    memw[&co+8]=y2;
    co[10]=15;
    ^ix=&co;
    call($b004);
  end;

box(x1,y1,x2,y2)
  begin
    co[0]=2;
    memw[&co+1]=x1;
    memw[&co+3]=y1;
    memw[&co+5]=x2;
    memw[&co+7]=y2;
    co[9]=15;
    ^ix=&co;
    call($b004);
  end;

circle(x,y,r)
  begin
    co[0]=5;
    memw[&co+1]=tile1;
    memw[&co+3]=tile2;
    memw[&co+5]=x;
    memw[&co+7]=y;
    memw[&co+9]=r;
    co[11]=15;
    ^ix=&co;
    call($b004);
  end;

full(x1,y1,x2,y2)
  begin
    co[0]=4;
    memw[&co+1]=tile1;
    memw[&co+3]=tile2;
    memw[&co+5]=x1;
    memw[&co+7]=y1;
    memw[&co+9]=x2;
    memw[&co+11]=y2;
    memw[&co+13]=15;
    ^ix=&co;
    call($b004);
  end;

mask(t1,t2)
  begin
    tile1=t1;
    tile2=t2;
  end;