HTBasic Help
×
Menu
Index

DISABLE INTR Example

10    CLEAR SCREEN
30    RESET 7
40    ENABLE INTR 7;2! RESPONDS TO SRQ
50    ON INTR 7,1 GOTO Intrr
60    ON DELAY 10 GOTO Stopp
70    LOOP
80      OUTPUT 720;"HELLO, you."
90      DISP Counter
100     IF Counter=100 THEN
110       DISABLE INTR 7
120     END IF
130     Counter=Counter+1
140   END LOOP
150   STOP
160 Stopp:!
170   PRINT "TIMED OUT"
180   STOP
190 Intrr:!
200   PRINT "INTERRUPTED"
210   OUTPUT 720;"stop"
220   END