;Copyright 2000 - Mark McDonald All rights reserved
;sub setblink(t%)
;t%: Set to 0 for intensity or 1 for blinking.
;Example: setblink 0
MCODE   Segment Byte
        Assume  CS: MCODE

        Public  setblink

setblink proc   far
         push si
         push di
         push bp
         push ds
         mov  bp,sp
         les  di,[bp+0ch]
         mov  bx,es:[di]
         mov  ax,1003h
         int  10h
         pop  ds
         pop  bp
         pop  di
         pop  si
         retf 4
setblink ENDP
MCODE    EndS
         End