1: DIM s AS LONG
2: SCREEN 12
3: LINE (0, 0)-(640, 480), 2, BF
4: DEF SEG = -65536
5: s = -65536
6: OPEN "OUT1.BIN" FOR BINARY AS #1
7: FOR q# = s TO ABS(s) - 1
8: DEF SEG = q#
9: d$ = CHR$(PEEK(0))
10: PUT #1, , d$
11: NEXT q#
12: CLOSE 1
13:
5748361 [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:02:53