Scrolling

 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)
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