78ViDADDBOMARK1ARRAY1X1TMMARK2ARRAY2X2ADARRAYA'AAQ@@Af A Q  ;@,DUMMY STRING""FIND ADDRESS OF DISPLACEMENT//6-+F:A4,%F:A5,$AV,%@%%FIND BEGINNING OF ARRAY STORAGE 6-C:,(&&;@,9@,;@#,- WITH 6 BYTES/ARRAY NUMBERS. THIS DIMENISIONS 510 BYTES/OR 2*2550NOW FILL THE ARRAY2$-@ 68,-$ <++@@ D:TEST.DATA%%NOW WRITE THE ARRAY IN 2 BLOCKSF-@P 6-C:,Z An((@@@x @&&;@,9@,;@#,++@@ D:TEST.DATNOW READ THE ARRAY-@ 6-C:, A((@@@ @-@@ (8, SUBROUTINE TO FIX THE""DISPLACEMENT- N=BLOCK NUMBER6-&%+$AU,&P:'AV,$AV%@P:'AV,$ D:P62P1.BAS