Anonymous user
Fixed length records: Difference between revisions
m
→Forth Blocks
m (→Forth Blocks) |
m (→Forth Blocks) |
||
Line 718:
End if
Open Blocks`File$ for append as #f
Put #f,
▲ Seek #f, Block`Number*1024-1023 ' so we seek to first byte
Close #f
Block`Number++
Page1=NewBlock()
Return
</lang>
| |||