%scout
string bgcol;
integer x68, y68;
integer sqheight, sqwidth;
integer pxoffset, qxoffset;
integer pyoffset, qyoffset;
point p68, q68,p;
window square68 = {
    type: DONALD
    box: [p68, q68]
    pict: "piece68"
    bgcolor: bgcol
    sensitive: ON
};
screen = <square68>;
y68 = 8;
x68 = 6;
p = {10,10};

%donald
viewport piece68
circle Piece68, KingDot68
point kingpos, discpos
int rad, kingrad

discpos = {500,500}
kingpos = {500,500}
rad = 400
kingrad = 100

%eden
p is [10,10];
pyoffset is 1;
DFfgcolor is "black";
DFrelief is "raise";
pxoffset is 1;
DFxmax is 1000;
DFbdcolor is "black";
black is "black";
DFymax is 1000;
white is "white";
_kingpos is ['C', 500,500];
qxoffset is -1;
sqheight is 40;
bpieces is [b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12];
/* [[2,6],[4,6],[6,6],[8,6],[1,7],[3,7],[5,7],[7,7],[2,8],[4,8],[6,8],[8,8]]; */
_kingrad is 100;
wpieces is  [w1,w2,w3,w4,w5,w6,w7,w8,w9,w10,w11,w12];
/* [[1,1],[3,1],[5,1],[7,1],[2,2],[4,2],[6,2],[8,2],[1,3],[3,3],[5,3],[7,3]]; */
DFfont is "{courier 10}";
sqwidth is 40;
_discpos is ['C', 500,500];
bgcol is "blue";
_rad is 400;
qyoffset is -1;
bgcolor is "blue";
DFxmin is 0;
DFymin is 0;
DFborder is 0;
DFalign is 0;
red is "red";