BBS: Inland Empire Archive Date: 02-14-93 (16:08) Number: 260 From: EARL MONTGOMERY Refer#: NONE To: FRED DISANO Recvd: NO Subj: Scrolling Conf: (2) Quik_Bas
Here is the source to do a vertical scroll: DEFINT A-Z SCREEN 9: CLS COLOR 4, 0 FOR X = 1 TO 24 LOCATE X, 1: PRINT STRING$(79, "X"); NEXT CIRCLE (300, 200), 150, 14 PAINT (301, 201), 12, 14 SLEEP (4) FOR I% = 0 TO 26480 STEP 80 REM M% stands for MSB and L%=LSB M% = FIX(I% / 256): L% = I% - (M% * 256) OUT &H3D4, 12: OUT &H3D5, M%: OUT &H3D4, 13: OUT &H3D5, L% WAIT &H3DA, 8 'Wait for vertical retrace FOR D = 0 TO 1200: NEXT: 'Adjust for different scroll speed NEXT FOR I% = 26480 TO 0 STEP -80 M% = FIX(I% / 256): L% = I% - (M% * 256) OUT &H3D4, 12: OUT &H3D5, M%: OUT &H3D4, 13: OUT &H3D5, L% WAIT &H3DA, 8: 'waits for vertical retrace FOR DELAY = 0 TO 1200: NEXT: 'Adjust for different scroll speed NEXT SLEEP (3) RUN ' That's it. ' Earl --- Maximus 2.01wb * Origin: Rabbit and Snake's BBS - Richardson, Texas (1:124/6108)
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