Could someone compile this for me?

[Ultimus]

var key : string (1)
var path, input : string
var stream : int
put "Enter File name: "..
get path :*
open : stream, path, put
assert stream > 0
loop
cls
put "First Name: "..
get input :*
exit when input = ""
put : stream, '0,"","' + input + '","' ..
put "Last Name: "..
get input *
put : stream, input + '","","","","' ..
put "Address: "..
get input :*
put : stream, input + '","Toronto","","","Canada","' ..
put "Phone Number: "..
get input :*
put : stream, input + '","","","","","","","","","","","","","","","","",""'
put "Entry saved."
getch (key)
end loop



Should work, I checked through it as best as I could. The thing is I don't have OOT on this computer but I need a quickie program to use as an address book generator the way I want it to work. Seriously, this favor would be much appreciated.[/i]

[Dan]

There are errors in your code, but i fixed them and i added the exe in a zip arcive to this post.

[Ultimus]

Thanks. Yeah, I see some typos now - it's kinda difficult doing blind programming .