Loading and Saving

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|540\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> File Access

hyruleknight	Created : 24 September 2006 Language : Blitz Loading and Saving just a reference
this will work in Blitz and Blitz Max with a little tweaking Global array_size = 100 Global data_array(array_size - 1);remember computers start counting at zero Function open(file_name$) file = ReadFile(file_name) For T = 0 To array_size - 1 data_array(T) = ReadInt(file) Next End Function Function save(file_name$) file = WriteFile(file_name) For T = 0 To array_size - 1 WriteInt(file,data_array(T)) Next End Function --v

Comments