'								    
' (c)Copyright Sealevel Systems Incorporated, 1993 - 1995          
'								    
'  Please refer to the READ.ME file for Technical Support    	    
'                     					            
10 CLS:INPUT "INTERRUPT TRIGGER LEVEL (1,4,8,14 BYTES)..> ",ITL
20 IF ITL=1 THEN TL=0
30 IF ITL=4 THEN TL=&H40
40 IF ITL=8 THEN TL=&H80
50 IF ITL=14 THEN TL=&HC0
60 BASE=&H3F8           'COM1
70 OUT BASE+3,128       'L.C.R. - SET DLAB HIGH
80 OUT BASE,12          'BAUD DIVISOR - L.S.B. - 9600 BAUD
90 OUT BASE+1,0         'BAUD DIVISOR - M.S.B.
100 OUT BASE+3,3        '8 BITS, NO PARITY, 1 STOP
110 OUT BASE+2,TL+7     'F.C.R.- FIFO ENABLE, RESET RX/TX FIFO, INT ON ITL BYTES
120 CLS:PRINT "TYPE ON THE KEYBOARD - AN INTERRUPT WILL BE GENERATED EVERY";ITL;
130 PRINT "BYTES"
X FIFO, INT ON ITL BYTES
120 CLS:PRINT "TYPE ON