'===========================================================================
' Subject: CHANGE COLOR OF SCREEN BORDER     Date: 09-14-97 (21:42)       
' Author:  Tommi Utriainen                   Code: QB, PDS                
' Origin:  tomppa@pcuf.fi                  Packet: INTERRPT.ABC
'===========================================================================
'--- change screen border colors

' $INCLUDE: 'qb.bi'

DIM inregs AS RegType, outregs AS RegType

inregs.ax = &H1001
inregs.bx = &H1100

CALL INTERRUPT(&H10, inregs, outregs)

'SCREEN 0, 1
COLOR 1, 15
PRINT "see borders"
LINE INPUT a$