Fixed length records: Difference between revisions

Content added Content deleted

Inline

@@ Line 718: / Line 718: @@
       End if
       Open Blocks`File$ for append as #f
+      Seek #f, Block`Number*1024-1023 ' so we seek to first byte
+      Put #f, Page1
-            Seek #f, Block`Number*1024-1023 ' so we seek to first byte
-            Put #f, Page1
       Close #f
       Block`Number++
       Page1=NewBlock()
 Return
 </lang>