DI
01
10
CLS:TAG:EVERY
10
GOSUB
90
20
X1=RND*320:X2=RND*320
30
Y=200+RND*200:C$=CHR$(RND*255)
40
FOR
X=320-X1
TO
320+X2
STEP
4
50
DI
60
MOVE
320,0,1:MOVE
X-2,Y:MOVE
X,Y
70
PRINT"
";C$;:FRAME
80
EI:NEXT:GOTO
20
90
MOVE
320,0:DRAW X+8,Y-16,0:RETURN
run
COMMAND: Disables
Interrupts
(other
than
the
[ESe] interrupt) until re-enabled
explicitly by
E I or implicitly by
the
RE
T
URN
at
the end of
an
interrupt
sub-routine.
Note
that
entering
an
interrupt
sub-routine automatically disables interrupts of
an
equal or lower priority. '
The command is used to
make
the
program literally execute without interruption
- for example when two routines within a program
are
competing for use of resources.
In
the example above,
the
main
program and
the
interrupt
sub-routine are competing
for use of
the
graphics display.
Fur.ther information concerning
interrupts
will be found
in
part
2 of the chapter
entitled 'At your leisure ....
'.
Associated keywords: AFT
ER,
E
I,
EVE
R Y ,
REM
A I N
Complete
List
of Keywords
Chapter 3 Page
17
To Next Page
Loading...
