home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / vrac / dnalib7a.zip / BSCROLL.BAS < prev    next >
BASIC Source File  |  1994-05-14  |  569b  |  14 lines
  1. SUB BiosScroll(TopRow%,LeftColumn%,BottomRow%,RightColumn%,NumberOfRows%,Direction%,Attr%)PUBLIC
  2.  
  3. $CODE SEG "DNASEG2"
  4.  
  5. IF Direction% THEN UpDown% = 7 ELSE UpDown% = 6
  6.  
  7.   REG 1, NumberOfRows% + 256 * UpDown%               ' Set AX = # of rows
  8.   REG 2, Attr% * 256                                 ' Set BX = Color to use
  9.   REG 3, (LeftColumn% - 1) + 256 * (TopRow% - 1)     ' Set CX = left and top
  10.   REG 4, (RightColumn% - 1) + 256 * (BottomRow% - 1) ' Set DX = right and bot
  11.   CALL INTERRUPT &H10                                ' Call BIOS service
  12.  
  13. END SUB
  14.