Here is a way to turn any game into 20 lines:
Run this 20 liner on your game exe:
sync on : sync rate 0
filename$ = cl$()
size = file size(filename$)
open to read 1,filename$
open to write 2,filename$+"data.dba"
write_string(2,"data ")
write_string(2,str$(size))
for a = 1 to size
read byte 1,nextbyte
write_string(2,str$(nextbyte))
next d
close file 1
close file 2
end
function write_string(fn,txt$)
for d = 1 to len(txt$)
write byte fn,asc(mid$(txt$,d))
next d
endfunction
copy the contents from the created dba file onto the bottom line of this 20 liner:
open to write 1,"Game.exe"
read size
for d = 1 to size
read nextbyte
write byte 1,nextbyte
next d
close file 1
execute file "Game.exe","",""
end
Running the resulting 10 lines of code will run your game!
PS
I think someones going to have to change the rules