10 DIM D$(1):REM DUMMY STRING›15 REM FIND ADDRESS OF DISPLACEMENT›20 ADDR=(PEEK(134)+PEEK(135)*256)+2›25 REM FIND BEGINNING OF ARRAY STORAGE›30 BOA=ADR(D$)›40 DIM MARK1$(1),ARRAY1(80),X1$(23)›45 REM WITH 6 BYTES/ARRAY NUMBERS›46 REM THIS DIMENISIONS 510 BYTES›47 REM OR 2*255›48 REM NOW FILL THE ARRAY›50 FOR I=0 TO 80:ARRAY1(I)=I:NEXT I›60 OPEN #1,8,0,"D:TEST.DAT"›65 REM NOW WRITE THE ARRAY IN 2 BLOCKS›70 FOR N=0 TO 1›80 TMP=ADR(MARK1$)›90 GOSUB 1000›110 XIO 11,#1,8,0,D$›120 NEXT N›130 CLOSE #1›140 DIM MARK2$(1),ARRAY2(80),X2$(23)›150 OPEN #1,4,0,"D:TEST.DAT"›155 REM NOW READ THE ARRAY›160 FOR N=0 TO 1›170 TMP=ADR(MARK2$)›180 GOSUB 1000›190 XIO 7,#1,4,0,D$›200 NEXT N›210 CLOSE #1›220 FOR I=0 TO 80 STEP 10›230 ? ARRAY2(I)›240 NEXT I›250 END ›900 REM SUBROUTINE TO FIX THE›905 REM DISPLACEMENT- N=BLOCK NUMBER›1000 TMP=TMP-BOA+(N*255)›1010 POKE ADDR,TMP-INT(TMP/256)*256›1020 POKE ADDR+1,INT(TMP/256)›1030 RETURN ›