;=======================================================;
;Neagtive Byte/Short Werte speichern und wieder auslesen;
;=======================================================;

;Autor: skey-z
;Date:	07.09.2005
;
;Zur freien Nutzung Verfügbar

;===============================================================
;Um \"kleine\" Byte-Werte zu speichern, muss in den Funktionen nur

;WriteShort	=> 	WriteByte
;ReadShort	=>	ReadByte

;ersetzt werden
;===============================================================

SetBuffer BackBuffer()


SeedRnd MilliSecs()
wert%=0
file$=\"save.dat\"


Repeat

	Flip
	Cls
	
	Text 20, 20, wert%
		
	
	If KeyHit(59) Then 
		SaveValue(wert%, file$)		;F1 speichert den Wert
		
	ElseIf KeyHit(60) Then
		wert%=LoadValue(file$)		;F2 lädt den Wert
		
	ElseIf KeyHit(57)
		wert%=Rnd(-65535,65535)		;Neue Zufallszahl mit Leertaste
		
	EndIf
	
Until KeyHit(1)

End


;Wert speichern
;=============================

Function SaveValue(value%, savepath$)

	stream=WriteFile(savepath$)
	
		;2. Wert für Prüfung erstellen
		value2%=value%
		
		;positiven wert speichern
		WriteShort stream, Abs(value%)

		;Prüfung auf negativen wert
		If Sgn(value2%)=-1 Then
			WriteByte stream, Asc(\"-\")
		EndIf
	
	CloseFile stream
		
End Function


;Wert Laden
;=============================

Function LoadValue(loadpath$)

	stream=ReadFile(loadpath$)
	
	If stream<>0 Then
	
		;liest den positiven Wert ein
		value%=ReadShort(stream)
		
		;Prüfung auf negativen Wert
		If (FilePos(stream) < FileSize(loadpath$)) Then
	
			sign$=Chr$(ReadByte(stream))
			
			;Vorzeichen setzen
			value%=Int(sign$+value%)
		
		EndIf
	
		CloseFile stream
		
	EndIf
	
	Return value%
	
End Function