home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / qbfaqr01 / graphic / tblink.bas < prev    next >
Encoding:
BASIC Source File  |  1992-08-16  |  523 b   |  21 lines
  1. DEFINT A-Z
  2.  
  3. '$INCLUDE: 'qb.bi'
  4.  
  5. DECLARE SUB ToggleBlink (Switch%)
  6.  
  7. '***********************************************************************
  8. '* SUB ToggleBlink
  9. '*
  10. '* PURPOSE
  11. '*    Uses BIOS ISR 10H, Service 03H (Toggle Intensify/Blink).
  12. '***********************************************************************
  13. SUB ToggleBlink (Switch%) STATIC
  14.    DIM InRegs AS RegType, OutRegs AS RegType
  15.    Switch% = Switch% AND 1
  16.    InRegs.ax = &H1003
  17.    InRegs.bx = Switch%
  18.    INTERRUPT &H10, InRegs, OutRegs
  19. END SUB
  20.  
  21.