Modular Additon

by Ben (no login)

 

This is how I would scroll stuff:

I know you use QB7.1
text$ = "shststuff you want to scroll"
CLS
DEF SEG = SSEG(text$)
DO
LOCATE 1, 1
FOR i = 0 TO LEN(text$) - 1
PRINT CHR$(PEEK(SADD(text$) + ((i + s) MOD LEN(text$))));
NEXT
SLEEP
s = s + 1
LOOP UNTIL INP(&H60) = 1
DEF SEG








NON QB7.1

text$ = "shststuff you want to scroll"
CLS
DEF SEG = VARSEG(text$)
DO
LOCATE 1, 1
FOR i = 0 TO LEN(text$) - 1
PRINT CHR$(PEEK(SADD(text$) + ((i + s) MOD LEN(text$))));
NEXT
SLEEP
s = s + 1
LOOP UNTIL INP(&H60) = 1
DEF SEG


Posted on Jan 30, 2010, 7:41 PM

Respond to this message   

Return to Index

 Copyright © 1999-2014 Network54. All rights reserved.   Terms of Use   Privacy Statement