[runtimeIcon]
     filedialog "Choose Icon","*.ico",icoFile$
     if icoFile$="" then wait

 shortFile$=SeparateFile$(icoFile$)
     filePath$=SeparatePath$(icoFile$)
     files filePath$,shortFile$, info$()

 'check file size - must be 766 for 16-color icon:
     if info$(1,1) <> "766" then
     notice "Not a 16-color icon!"
     wait
     end if

 filedialog "Choose runtime engine","*.exe",runexe$
     if runexe$="" then wait

 'open icon file and read into a string variable:
     open icoFile$ for input as #iconfile
     saveicon$=input$(#iconfile, lof(#iconfile))
     close #iconfile

 'open the runtime engine, seek to the proper
     'location, and write the icon info at that spot:
     open runexe$ for binary as #bin
     seek #bin, 21664
     print #bin, right$(saveicon$,744)
     close #bin
     notice "Icon has been included in ";runexe$
     wait