AppTitle "Komprimierer"

Graphics 800,600,32,2

Print "RLE - Längenkomprimierung"
Print
Print "Bitte warten sie...
Print
file = ReadFile("c:\hallo.txt")
file2 = WriteFile("c:\hallo2.txt")

same_bytes% = 0
lbyte% = 0
byte% = 0

While Not Eof(file)

   lbyte = byte
   
   byte = ReadByte(file)
   
   If lbyte = byte Then
      
      same_bytes = same_bytes + 1
      
   Else
   
      WriteByte(file2,same_bytes)
      WriteByte(file2,byte)
      
      same_bytes = 0
      
   EndIf
   
Wend

CloseFile(file)
CloseFile(file2)

Print "Komprimieren erfolgreich"
Print
Print "Drücken sie eine Taste zum Beenden..."

WaitKey

End

AppTitle "Dekomprimierer"

Graphics 800,600,32,2

Print "RLE - Längendekomprimierung"
Print
Print "Bitte warten sie...
Print
file = ReadFile("c:\hallo2.txt")
file2 = WriteFile("c:\hallo3.txt")

byte% = 0
same_bytes% = 0

While Not Eof(file)

   same_bytes = ReadByte(file)
   byte = ReadByte(file)
      
   For i = 1 To same_bytes
   
      WriteByte(file2,byte)
      
   Next    
   
Wend

CloseFile(file)
CloseFile(file2)

Print "Dekomprimieren erfolgreich"
Print
Print "Drücken sie eine Taste zum Beenden..."

WaitKey

End

same_bytes = readbyte(file)
byte = readbyte(file)
for i = 0 to same_bytes
  writebyte(file2, byte)
next