; PATCH.BB
; Dieses Programm kann nicht vom BB-Editor aus gestartet werden.
; Erst EXE-Datei compilieren und nur diese aufrufen.

; Vorbereitungen
quelldatei$ = "c:\basic\bin\ide.exe"  ; <--- anpassen
zieldatei$ = quelldatei$
kopie$ = "c:\basic\bin\ide.ori"       ; <--- anpassen

groesse = FileSize(quelldatei$) - 1
lesen = ReadFile(quelldatei$)
bank = CreateBank(groesse+4)

; Sicherheitskopie erstellen
Print "Sicherheitskopie " + kopie + " erstellen."
CopyFile quelldatei, kopie

; Datei in Speicherbank kopieren
Write "Datei " + quelldatei$ + " einlesen ... "
For I=0 To groesse
 A = ReadByte(lesen)
 PokeByte bank, I, A
Next
CloseFile lesen
Print "Ok"

; Zeichenkette suchen
Print "Zeichenkette suchen ..."
For I=0 To groesse
 If PeekInt(bank, I) = 1550871924 Then
  Print "Gefunden bei Offset " + I
  Exit
 EndIf
Next
If I = groesse + 1 Then
 Print "Wert nicht gefunden! Abbruch!"
 WaitKey
 End
EndIf

; Wert ändern
Write "Wert patchen ... "
PokeByte bank, I + 3, 45 ; 45 = Ascii-Wert von "-"
Print "Ok"

; Datei schreiben
Write "Datei " + zieldatei$ + " schreiben ... "
schreiben = WriteFile(zieldatei$)
For I=0 To groesse
 A = PeekByte(bank, I)
 WriteByte schreiben, A
Next
CloseFile schreiben
Print "Ok"

WaitKey