Sorry your browser is not supported!

function arr_ReadFileIntoArray(filename$)
    fid = openToRead(filename$)
    size = getFileSize(fid)
    dim fArr[size]

    for i = 0 to size-4 step 4
        int = readInteger(fid)
        fArr[i] = int && 0x000000FF
        fArr[i+1] = (int >> 8) && 0x000000FF
        fArr[i+2] = (int >> 16) && 0x000000FF
        fArr[i+3] = (int >> 24) && 0x000000FF
    next i

    closeFile(fid)
endfunction

function arr_GetByte(pos)
    b = fArr[pos]
endfunction b

function arr_GetWord(pos)
    w = fArr[pos] + (fArr[pos+1] << 8)
endfunction w

function arr_GetInteger(pos)
    i = fArr[pos] + (fArr[pos+1] << 8) + (fArr[pos+1] << 16) + (fArr[pos+1] << 24)
endfunction

function arr_GetString(pos)
    s$ = ""
    endOfString = 0
    while endOfString = 0
        a = arr_GetByte(pos)
        if a = 13
            if arr_GetByte(pos+1) = 10 then endOfString = 1 else s$ = s$ + chr(13)
        else
            c$ = chr(a)
            s$ = s$ + c$
        endif
        inc pos
    endwhile
endfunction s$

function LoadMap(FileName$)
     if GetFileExists(FileName$) = 1
        FileId = OpenToRead(FileName$)

        for z = 1 to MapLength
            for x = 1 to MapWidth

            Char$ = chr(ReadByte(FileId))
            ` ...do stuff

            next x
        next z
        CloseFile(FileId)
    endif
endfunction