•
•
•
BEEPING
is
a function which
will
return zero
(false)
if
the OL
IS
currently not beeping
and a value of one (true)
If
it
is
beeping.
syntax:
BEEPING
example:
100
DEFine PROCedure
be_quiet
110
BEEP
120
END
DEFine
130
IF
BEEPING
THEN
be_quiet
BLOCK will
fill
a block of the specified
size
and shape, at the specified position relative
to
the origin of the window attached
to
the specified, or default channel.
BLOCK uses the pixel coordinate
system.
syntax: width: = numeric_expression
height:
= numeric_expression
x:
= numeric_expression
y: = numeric_expression
BLOCK [channel,j width, height, x, y , colour
example
i.
BLOCK
10,
10,
5, 5,
7
[a
10x10
pixel white block
at
5,5]
ii.
100
REMark
"bar
chart"
110 CSIZE
3,1
120
PRINT
"bar
chart"
130
LET
bottom
=100 :
size
=20 :
left
10
140
FOR
bar
=1
to
10
150
LET
cotour
=
RND(O
TO
255)
160
LET
height
= RND(2
TO
20>
170
BLOCK
size,
height,
Left+bar*size,
bottom-height,O
180
BLOCK
size-2,
height-2,
Left+bar*size+1,
bottom-height+1,colour
190
END
FOR
bar
[use
LET
colour
=
RND(O
TO
7)
for
televisionsj
12/84
BEEPING
sound
BLOCK
windows
5