-----------------------------------

Ultimus

Sat Aug 21, 2004 11:58 am


Could someone compile this for me?

-----------------------------------

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

Sat Aug 21, 2004 12:08 pm



-----------------------------------

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


-----------------------------------

Ultimus

Sat Aug 21, 2004 4:15 pm



-----------------------------------

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