Function RLE_ENCODE$(strng$,offset=4,marker=1)
	;Variablen zurücksetzen
	x=0 ;Pointer im String
	count=1 ;Runcount
	strng_len=Len(strng$)
	While (x<strng_len) ;Abfangen wenn wir den String durchlaufen haben
		x=x+1 ;Den Pointer im String um eins erhöhen
		
		cursign$= Mid(strng$,x,1) ;Zeichen beim Pointer auslesen
		nextsign$= Mid(strng$,x+1,1) ;Das nächste Zeichen auslesen
		
		If cursign$=nextsign$ ; Falls das jetzige und das nächste gleich sind
			count=count+1 ; Runcount erhöhen
		Else
			If count>=offset ; Falls die Zeichen nicht gleich waren, aber der Runcount grösser/gleich der Offset ist
				newstrng$=newstrng$+Chr(marker)+Len(Str(count))+count ;Den codierten String um den Marker, die Runcount Char Anzahl und den Runcount ergänzen
			Else If count>1 ; Falls wir weniger Wiederholungen hatten als der Offset
				newstrng$=newstrng$+String(cursign$,count-1) ; Die Zeichen sooft ausgeben wie sie vorkamen
			EndIf 
			count=1 ; Count zurücksetzen
			newstrng$=newstrng+cursign$ ;Das eigentliche Zeichen hinzufügen
		EndIf 
	Wend 	
Return newstrng$ ;Fertigen String zurückgeben
End Function



Function RLE_DECODE$(strng$,marker=1)
	x=0 ;Pointer im String.
	strng_len=Len(strng$)
	While (x=<strng_len) ;Abfangen wenn wir den String durchlaufen haben
	
		cursign$= Mid(strng$,x,1) ;Zeichen beim Pointer auslesen
		nextsign$= Mid(strng$,x+1,1) ;Das nächste Zeichen auslesen
		
		If cursign$=Chr(marker) ;Falls das aktuelle Zeichen ein Marker ist
			countlenght=Int(nextsign$) ; Die Runcount Char Anzahl auslesen, zB bei 2 ist es 1, bei 10 ist es 2, bei 245 ist es 3
			count=Int(Mid(strng$,x+2,countlenght)) ; Den Count auslesen anhand der ermittelten Länge
			newstrng$=newstrng$+String(Mid(strng$,x+3+countlenght-1,1),count-1) ;Die ermittelte Anzahl des Zeichens ausgeben
			x=x+2+countlenght ; Den Pointer weitersetzen
		Else
			newstrng$=newstrng$+cursign$ ;Das eigentliche Zeichen hinzufügen
			x=x+1 ; Den Pointer um eins erhöhen
		EndIf  
	Wend 	
Return newstrng$ ;Fertigen String zurückgeben
End Function