home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 09 / tricks / kopiere.bas < prev    next >
Encoding:
BASIC Source File  |  1989-06-08  |  1.3 KB  |  58 lines
  1. '* ------------------------------------------------------- *
  2. '*                    KOPIERE.BAS                          *
  3. '*           (c) 1989  Gerd Nestel & TOOLBOX               *
  4. '* ------------------------------------------------------- *
  5. Text$ = COMMAND$
  6.  
  7. ON ERROR GOTO Fehler
  8.  
  9. Quelldatei$ = LEFT$(Text$, INSTR(Text$, " "))
  10. Zieldatei$ = RIGHT$(Text$, LEN(Text$) - INSTR(Text$, " "))
  11.  
  12. PRINT "Kopieren von "; Quelldatei$; " nach "; Zieldatei$
  13.  
  14. i%       = 1
  15. LenMax%  = 32767
  16. FileLen& = 0
  17. Char$    = ""
  18. DIM DateiBlock%(600)
  19.  
  20. OPEN Quelldatei$ FOR BINARY AS #1
  21. FileLen& = LOF(1)
  22. IF FileLen& > LenMax% THEN
  23.   i% = 1
  24.   WHILE FileLen& > LenMax%
  25.     DateiBlock%(i%) = LenMax%
  26.     FileLen&        = FileLen& - LenMax%
  27.     i% = i% + 1
  28.   WEND
  29. END IF
  30.  
  31. DateiBlock%(i%) = FileLen&
  32.  
  33. i%       = 1
  34. FileLen& = 0
  35.  
  36. OPEN Zieldatei$ FOR BINARY AS #2
  37. WHILE NOT EOF(1)
  38.   Char$ = ""
  39.   FileLen& = FileLen& + DateiBlock%(i%)
  40.   GET$ #1, DateiBlock%(i%), Char$
  41.   PUT$ #2, Char$
  42.   i% = i% + 1
  43. WEND
  44.  
  45. CLOSE #1, #2
  46.  
  47. PRINT "Eine Datei komplett mit "; FileLen&; " Byte kopiert"
  48. GOTO Fin
  49.  
  50. Fehler:
  51. PRINT "Fehler #"; ERR; " aufgetreten"
  52. ON ERROR GOTO 0
  53.  
  54. Fin:
  55. END
  56. '* ------------------------------------------------------- *
  57. '*                Ende von KOPIERE.BAS                     *
  58.