exename$ = RequestFile("Save .Exe As...","exe",True)
CreateExecutable(exename$)
If exename$ <> "" Then
Notify "Finished!"
EndIf
Function CreateExecutable(exefilename$)
outfile = WriteFile(exefilename$)
If outfile = 0 Then Return 0
bank = CreateBank($200)
;
Restore EXE_BANK_DATA
Repeat
Read e_data
If e_data = 999 Then Exit
PokeByte bank,next_entry_data,e_data
next_entry_data = next_entry_data + 1
Forever
For loop=0 To BankSize(bank)
WriteByte outfile,PeekByte(bank,loop)
Next
CloseFile outfile
End Function
.EXE_BANK_DATA
Data $4D ,$5A ,$80 ,$00 ,$01 ,$00 ,$00 ,$00 ;MZ€....
Data $04 ,$00 ,$10 ,$00 ,$FF ,$FF ,$00 ,$00 ;..ÿÿ..
Data $40 ,$01 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;@......
Data $40 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;@.......
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$80 ,$00 ,$00 ,$00 ;....€...
Data $0E ,$1F ,$BA ,$0E ,$00 ,$B4 ,$09 ,$CD ;º.´.Í
Data $21 ,$B8 ,$01 ,$4C ,$CD ,$21 ,$00 ,$00 ;!¸LÍ!..
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $50 ,$45 ,$00 ,$00 ,$4C ,$01 ,$01 ,$00 ;PE..L.
Data $F7 ,$25 ,$15 ,$3E ,$00 ,$00 ,$00 ,$00 ;÷%>....
Data $00 ,$00 ,$00 ,$00 ,$E0 ,$00 ,$8E ,$81 ;....à.Ž?
Data $0B ,$01 ,$01 ,$2B ,$00 ,$00 ,$00 ,$00 ;+....
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$10 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;.......
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$40 ,$00 ;......@.
Data $00 ,$10 ,$00 ,$00 ,$00 ,$02 ,$00 ,$00 ;......
Data $01 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;.......
Data $04 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;.......
Data $01 ,$10 ,$00 ,$00 ,$00 ,$02 ,$00 ,$00 ;.....
Data $59 ,$AE ,$00 ,$00 ,$02 ,$00 ,$00 ,$00 ;Y®.....
Data $00 ,$10 ,$00 ,$00 ,$00 ,$10 ,$00 ,$00 ;......
Data $00 ,$00 ,$01 ,$00 ,$00 ,$00 ,$00 ,$00 ;.......
Data $00 ,$00 ,$00 ,$00 ,$10 ,$00 ,$00 ,$00 ;.......
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $2E ,$53 ,$65 ,$63 ,$74 ,$00 ,$00 ,$00 ;.Sect...
Data $01 ,$00 ,$00 ,$00 ,$00 ,$10 ,$00 ,$00 ;......
Data $01 ,$00 ,$00 ,$00 ,$00 ,$02 ,$00 ,$00 ;......
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$60 ,$00 ,$00 ,$E0 ;....`..à
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ,$00 ;........
Data $C3 ; Ã
;
Data 999 |