un programme d'appel de pilote, par interruption, avec Ubasic 9

Ce programme commence par tester l'existence d'un pilote
(signature 43981, soit ABCD en hexadécimal) au 6e octet
à partir de l'adresse de l'interruption 250.
Puis il affiche 10 fois la valeur lue sur la voie 0 du pilote (si ce
pilote a été trouvé).

10 'test de pilote activ‚ par l'interruption 250
20 defseg=0
30 Segint=peekw(1002)
40 defseg=Segint
50 Presence=peekw(6)
60 if Presence=43981 then print ("il y a un pilote")
70 :T0=time1000
80 :for I=1 to 10
90 :#ax=0:#bx=0:#cx=0
100 :interrupt 250
110 :print time1000-T0,#bx
120 :next I
130 :else print ("pas de pilote … l'interruption 250")
140 :print "mesures impossibles'"
150 end