1: RANDOMIZE TIMER
2: SCREEN 12
3: BEEP
4: FOR i% = 0 TO 640
5: LINE (i%, 0)-(i%, 480), INT(RND * 15)
6: FOR delay% = 1 TO 1000: NEXT delay%
7: NEXT i%
8:
9:
5748407 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$
Click here to go back to the directory listing.
Click here to download this file.
last modified: 2000-05-09 21:04:36