5748300 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n pad.bas
   1: OPEN "WIN97.EXE" FOR BINARY AS #1
   2: NewSz = 44857837
   3: DIM Pad AS STRING * 10452
   4: FOR q = LOF(1) + 1 TO NewSz STEP LEN(Pad)
   5: PUT #1, q + (0 * (LEN(Pad))), Pad
   6: PUT #1, q + (1 * (LEN(Pad))), Pad
   7: PUT #1, q + (2 * (LEN(Pad))), Pad
   8: PUT #1, q + (3 * (LEN(Pad))), Pad
   9: PRINT LOF(1)
  10: NEXT q
  11: CLOSE 1
  12:
5748301 [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:06:58