5748337 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n bsvhres.bas
   1: SCREEN 13
   2: FOR q = 1 TO 1600
   3: c = q / 5
   4: LINE (RND * c, RND * c)-(RND * c, RND * c), 13
   5: NEXT q
   6: DEF SEG = &HA000
   7: BSAVE "c:\test1.bsv", 0, 64000
   8: DEF SEG = &HA000
   9: SLEEP
  10: CLS
  11: SLEEP
  12: BLOAD "c:\test1.bsv", 0
  13: SLEEP
  14: KILL "c:\test1.bsv"
  15:
5748338 [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:00:38