1: SCREEN 12
2: FOR i% = 0 TO 640
3: FOR j% = 0 TO 480
4: PSET (i%, j%), INT(RND * 15)
5: REM FOR delay% = 1 TO 100: NEXT delay%
6: REM PRESET (i%, j%)
7: NEXT j%: NEXT i%
8: PALETTE
9:
5748359 [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:44