5748311 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n masscopy.bas
   1: DIM cpy AS STRING * 19205
   2: OPEN "hiscore.bmp" FOR BINARY AS #1
   3: OPEN "hi01.bmp" FOR BINARY AS #2
   4: FOR w = 1 TO 15
   5: CLOSE 2
   6: tt$ = LTRIM$(RTRIM$(STR$(w)))
   7: IF LEN(tt$) = 1 THEN tt$ = "0" + tt$
   8: tt$ = "HI" + tt$ + ".bmp"
   9: OPEN tt$ FOR BINARY AS #2
  10: PRINT tt$
  11: FOR e = 1 TO LOF(1) STEP 19205
  12: GET #1, e, cpy
  13: PUT #2, e, cpy
  14: NEXT e, w
  15: CLOSE 1
  16:
5748312 [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:48