This program should read 128 bytes from the file, but it only reads one byte:
10 F$ = "TEST.$$$"
20 F% = OPENOUT(F$)
30 BPUT#F%, STRING$(128, CHR$(128))
40 CLOSE #F%
50 F% = OPENIN(F$)
60 A$ = GET$#F% BY 128
70 IF LEN(A$)<>128 PRINT "Failed" : STOP
80 CLOSE #F%
This appears to be data-dependent. If line 30 is changed so that the bytes written to the file are CHR$(127) the program runs correctly.
This program should read 128 bytes from the file, but it only reads one byte:
This appears to be data-dependent. If line 30 is changed so that the bytes written to the file are
CHR$(127)the program runs correctly.