Publicité
10 ON TIME*="10:00:00" GOSUB
1000
20 TIME* ON
1000 BEEP : FDR 1 = 1 TO 10 : NEXT I : BEEP
1010 CLS
1020
P R I N T " A r e n ' t '/ou supposée! to be s o m e w h e r e
r i d h t now?"
1030
PRINT "(Press an y K e v to c o n t i n u e p r o a r a m ) "
1040 A$ = INKEY$
1050 IF A$ = "" THEN GOTO
1040
10B0 RETURN
Ce programme s'exécute normalement jusqu'à ce qu'il soit dix
heures. A ce moment-là, le BASIC interrompt ce qu'il est en
train de faire pour se brancher sur la ligne 1OOO.
La commande STOP s'avère utile pour "masquer" une interrup-
tion. Par exemple, vous pouvez définir des interruptions
TIME$ et COM en même temps, mais vous désirez que l'interrup-
tion RS232C ait la préséance sur l'interruption TIME$ (c'est-
à-dire que vous désirez recevoir toutes les données entrantes
avant de traiter l'interruption TIME$).
En commençant la routine d'interruption COM par un TIME$ STOP,
vous empêchez cette interruption TIME$ tout en la mémorisant.
A la fin de la routine, revalidez 1'interruption TIME$ en en-
trant TIME$ ON. Si une condition d'interruption TIME$ s'est
présentée durant le traitement de l'interruption COM, le BA-
SIC se branche sur la routine d'interruption TIME$.
Votre programme peut se présenter comme suit :
10 ON TIME* = "11:30:00" GOSUB Z00fl
20 ON COM GOSUB
1000
30 TIME* ON
40 COM ON
1000
'RS-232C S e r u i c i n s R o u t i n e
1010 TIME* STOP
' M a s K TIME* i n t e r r u p t
1090 TIME* ON
' U n m a s K T I M E * i n t e r r u p t
1100
R E T U R N
2000 'TIME* S e r y i c i n s R o u t i n e
Vous trouverez une description de la syntaxe exacte de chaque
commande dans le chapitre "Mots-clés du BASIC".
- 103 -
Publicité
