Probably most of you want to get to qb64, instead of q-basics,...So I will be getting that started again too,...but for now here is this, From Chapter 2, I always enjoy this:
PRINT "Code taken from Ted Weisenburgers, q-basics Chapt 2,part 3"
PRINT "Count = "; amount%; "bags"
CLS
For row% = 2 to 27
Locate row%,28
COLOR 13: PRINT "the sky is falling!"
SOUND (2000/ row%),1 '//creates a slight delay
Locate row% - 1,28
PRINT SPACE$(19)'//The PRINT SPACE$(19) erases the previous line when a new line is printed.
NEXT row%
There is a lot more in chapt 2, of q-basics,...
http://dl.dropbox.com/u/8440706/Q-Basics.zip Like I said, this works in qb64 too,...so is it qbasic, or qb64 ?