#COMPILE EXE "s62_file_binary.exe"
' Sample: Binary file read/write
FUNCTION PBMAIN() AS LONG
    DIM val AS LONG
    val = 123456
    OPEN "sample_binary.dat" FOR BINARY AS #1
    PUT #1, 1, val
    val = 0
    GET #1, 1, val
    PRINT "Binary value:"; val
    CLOSE #1
    FUNCTION = 0
END FUNCTION
