File Records example

File records example

#include <io>
#include <read>
#include <float>
#include <string>
#include <core>
#include <write>
#include <define>
#include <socket>
new File_array[200];
new i;
new len;
main(){
    Init(RS232, 9600,  WORDLENGTH_8, STOPBITS_1, PARITY_NONE);
    // Create file array. Fill array with numbers
    for(i=0; i < 200; i++){
        File_array[i] = i&0xFF;                                           // Only one byte
    }
    File_Records(Format);                                                 // Format all file records
    File_Records(FILE_1, Create_File, "File_test.bin");                   // Create file with "File_test.bin" file name
    File_Records(FILE_1, Write_File, File_array, 200);                    // Write array into file. Array length 200 bytes
    File_Records(FILE_1, Close_File);                                     // Close file
    len = File_Records(FILE_1, Length_File);                              // Read file length
    File_Records(FILE_1, Read_File, 0, 100, File_array);                  // Read file. Offset: 0, Read length: 100, Read to: File_array
    write_buf(RS232, 100 ,File_array);                                    // Print File_array via RS232
    File_Records(FILE_1, Read_File, 100, 100, File_array);                // Read file. Offset: 100, Read length: 100, Read to: File_array
    write_buf(RS232, 100 ,File_array);                                    // Print File_array via RS232
    while(1){
        Delay(10000);
    }
}