BBS: Inland Empire Archive
Date: 10-01-92 (11:35)             Number: 198
From: ED KOWALSKI                  Refer#: NONE
  To: PATRICK BELL                  Recvd: NO  
Subj: Scrolling                      Conf: (1) 80xxx

> Unfortunately, I can't put assembler directly into Turbo BASIC. And in this case you probably don't have to SUB Scroll(UpOrDown, Lines, TopRow, BotRow, LeftCol, RightCol, NewAttr) ' ' On entry: ' * UpOrDown = 0 for scroll up, 1 for scroll down. ' * Lines are the num of lines ot scroll. 0 to clear ' * TopRow is the top row to be scrolled. ' * BotRow is the bottom row to be scrolled. ' * LeftCol is the left column of the section of the screen to be ' scrolled. ' * RightCol is the right column of the section of the screen to be ' scrolled. ' * NewAttr is the video attribute that the scrolled-in line will take. REG 3, (TopRow - 1) * 256 + (LeftCol - 1) 'ch, cl=0 REG 4, (BotRow - 1) * 256 + (RightCol - 1) 'dh, dl REG 2, NewAttr * 256 'bh=video attr REG 1, (6 + UpOrDown) * 256 + Lines 'ah=6 or 7, al=lines CALL INTERRUPT &H10 END SUB I'm posting this just so you can see how good assembly looks. :-) --- FD 1.99c * Origin: Cat's Quarter -- Saskatoon - SK -- (1:140/12.9)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET