'Compiler: PowerBASIC Win oder CC
#COMPILE EXE
#DIM ALL
 
FUNCTION PBMAIN () AS LONG
 
    DIM alt AS STRING
    DIM neu AS STRING
    DIM bindatei AS STRING
    DIM temp AS STRING
 
    bindatei = "test.bin"
 
    'Mit CHR$ kann Text mit Steuerzeichen gemischt werden
    alt = CHR$("alter string", 0, 1, 3)         ' alter string +  00 01 03
    neu = CHR$("neuer string", 2, 3, 4)         ' neuer string +  02 03 04
 
    OPEN bindatei FOR BINARY AS #1
 
    GET$ #1, LOF(1), temp
    REPLACE alt WITH neu IN temp
    SEEK #1, 1
    PUT$ #1, temp
 
    CLOSE
 
END FUNCTION