1: SCREEN 1
2: BEEP
3: FOR i% = 0 TO 320
4: PSET (i%, 100)
5: FOR delay = 1 TO 100: NEXT delay
6: PRESET (i%, 100)
7: NEXT i%
8:
5748490 [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:01:59