Di - AMSTRAD cpc 6128 User Instruction

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