Advertisement
Example
3
This
program displays
a
...
.. mark
on
the
screen
then displays
thP.
numeral
wh1ch
IS
above the
...
.. mark
when
the mouse
IS
moved so
that
the
c urs
overlaps the
...
..
mark
and
the
input sw1tch
IS
pressed.
1
0
CHANGE
DISP "SON"
20
FOR
X=1 0
TO
30 STEP
10
30
A=A+1
·CURSOR
X-
1.9:DISP A
40
CURSOR X.1
O:DISP
CHR$($1
E)
50
NEXT X
60
MSIN
O.O.X.Y
70
IF
(79<"'X)::tc (X<'88)
THEN
90
80
GOTO 60
90
IF
(79<..
X)
::tc
(X<
BB) THEN 130
100
IF
{159<
X)
::IC
(X<"'1
68
)
THEN 140
11
0
IF
(239<"'X)
::tc
(X<
248) THEN
150
120
GOTO 60
130
DISP
"1
" :END
140
DISP
"2"
:END
150
DISP
"3" :END
5
Advertisement
