home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 05 / heimwerk / codierqb.bas next >
Encoding:
BASIC Source File  |  1991-02-22  |  710 b   |  21 lines
  1. '* ------------------------------------------------------- *
  2. '*                      CODIERQB.BAS                       *
  3. '*      Quick 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.     A$ = STRING$(1, " ")
  11.     GET #1, Counter, A$
  12.     A$ = CHR$(255 - ASC(A$))
  13.     IF NOT EOF(1) THEN PUT #1, Counter, A$
  14.     Counter = Counter + 1
  15.   LOOP
  16.   CLOSE
  17. END IF 
  18. END
  19. '* ------------------------------------------------------- *
  20. '*                 Ende von CODIERQB.BAS                   *
  21.