dim
as
integer
x, y, b, d
=
0
do
color
d, d
print
chr
(
219
)
d
+=
1
loop
until
d
=
16
color
15
,
0
do
do
getmouse y,x,,b
x
+=
1
y
+=
1
if
b
=
1
AND
y
=
1
then
if
x
<=
16
then
color
x
-
1
, x
-
1
b
=
10
end
if
end
if
if
b
=
1
then
locate
x, y
print
chr
(
219
)
end
if
loop
while
b
=
0
loop
until
b
=
3