100 GOSUB 60000
1000 FOR I = 1 TO 1000
1010 INR% = 250
1020 AH% = 0 :AL% = 0:BH% = 0:1045 BL% = 0:1050 CH% = 0:1060 CL% = 0
1070 CALL IA(INR%,AH%,AL%,BH%,BL%,CH%,CL%,DH%,DL%,N1%,N2%,N3%,N4%)
1080 PRINT (BH% * 256 + BL%)
1090 NEXT I
50000 END
60000 '* Initialiser la routine d'appel de l'interruption         *'
60070 IA = 60000  'Adresse de départ de la routine dans le segment BASIC
60080 DEF SEG                                      'Fixer le segment BASIC
60090 RESTORE 60130
60100 FOR I% = 0 TO 160: READ X%: POKE IA + I%, X%: NEXT 'Poker la routine
60110 RETURN                                  'Retour au programme d'appel
60130 DATA  85,139,236, 30,  6,139,118, 30,139,  4,232,140,  0,139,118
60140 DATA  12,139, 60,139,118,  8,139,  4, 61,255,255,117,  2,140,216
60150 DATA 142,192,139,118, 28,138, 36,139,118, 26,138,  4,139,118, 24
60160 DATA 138, 60,139,118, 22,138, 28,139,118, 20,138, 44,139,118, 18
60170 DATA 138, 12,139,118, 16,138, 52,139,118, 14,138, 20,139,118, 10
60180 DATA 139, 52, 85,205, 33, 93, 86,156,139,118, 12,137, 60,139,118
60190 DATA  28,136, 36,139,118, 26,136,  4,139,118, 24,136, 60,139,118
60200 DATA  22,136, 28,139,118, 20,136, 44,139,118, 18,136, 12,139,118
60210 DATA  16,136, 52,139,118, 14,136, 20,139,118,  8,140,192,137,  4
60220 DATA  88,139,118,  6,137,  4, 88,139,118, 10,137,  4,  7, 31, 93
60230 DATA 202, 26,  0, 91, 46,136, 71, 66,233,108,255