Michael Webster
self extracting EXE files
Aug 20th, 2003

--------------------------------------------------------------------------------
Here is a quick-and-dirty example. It works OK under Windows 98, but you may need to modify the EXE header for DOS. 
 
Code:
' READSELF.BAS 
' Compile to EXE before running APPEND.BAS. 
 
OPEN "readself.exe" FOR BINARY AS 1 
byte$ = SPACE$(1) 
WHILE NOT EOF(1) 
    GET 1, , byte$ 
    IF ASC(byte$) <> 7 THEN PRINT byte$; 
WEND 
CLOSE 
 
 

Code:
' Append the source file to the end of the EXE. 
 
OPEN "readself.bas" FOR BINARY AS 1 
OPEN "readself.exe" FOR BINARY AS 2 
b$ = SPACE$(1) 
SEEK #2, LOF(2) + 1 
DO WHILE NOT EOF(1) 
    GET #1, , b$ 
    PUT #2, , b$ 
LOOP 
CLOSE