home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 05 / heimwerk / codiertb.bas < prev    next >
Encoding:
BASIC Source File  |  1991-02-22  |  703 b   |  23 lines
  1. '* ------------------------------------------------------- *
  2. '*                      CODIERTB.BAS                       *
  3. '*      Turbo Basic Programm zum Codieren von Dateien      *
  4. '*              (c) 1991 Kay Glahn & TOOLBOX               *
  5. '* ------------------------------------------------------- *
  6. IF COMMAND$ <> "" THEN
  7.   OPEN COMMAND$ FOR BINARY AS #1
  8.   Counter = 1
  9.   DO UNTIL EOF(1)
  10.     SEEK 1, Counter
  11.     GET$ #1, 1, A$
  12.     SEEK 1, Counter
  13.     IF NOT EOF(1) THEN PUT$ #1, CHR$(255 - ASC(A$))
  14.     Counter = Counter + 1
  15.   LOOP
  16.   CLOSE
  17. END IF
  18. END
  19. '* ------------------------------------------------------- *
  20. '*                 Ende von CODIERTB.BAS                   *
  21.  
  22.  
  23.