[REBOL] Fun with Win32

[chaz]

Run rebmsgbox.exe
Then run rebmsgbox.r
Then run rebmsgbox.exe again.

rebmsgbox.exe

REBOL [
    Title:  "REBOL Message Box"
    Author: "chaz"
    Date:   28-Aug-2000
    File:   %rebmsgbox.r
    Email:  [EMAIL PROTECTED]
    Purpose: {
        Creates a Win32 message box with a message of your choice.
    }
    Note: {
        This script demonstrates one simple technique for editing a Win32 binary using 
REBOL.
    }
]

reb_exe: read/binary %rebmsgbox.exe
clear at reb_exe 2061
reb_text: enbase/base "REBOL rules!" 16
reb_string: join debase/base reb_text 16 #{00}
append reb_exe reb_string 
write/binary %rebmsgbox.exe reb_exe