mystery??
Posted: Tue Mar 29, 2005 5:15 am
I come back on my program:
5 CLS
10 DIM A$(4, 4)
20 DATA A,B,C,D
30 DATA E,F,G,H
40 DATA I,J,K,L
50 DATA M,N,O,P
55 FOR I = 1 TO 4
58 FOR J = 1 TO 4
60 READ A$(I, J)
90 NEXT J: NEXT I: FOR I = 1 TO 4
100 PRINT A$(I, 1), A$(I, 2), A$(I, 3), A$(I, 4)
110 NEXT I
115 PRINT
120 DEF SEG = VARSEG(A$(1, 2))
125 POKE VARPTR(A$(1, 2)), (90)
130 FOR L = 1 TO 4
140 PRINT A$(L, 1), A$(L, 2), A$(L, 3), A$(L, 4)
150 NEXT L
It would work in QB7.1 and if somebody is interested, he can copy it and paste it directly in QB7.1 ,the lines numbers do not matter.
What I get is the original table ,except the element A$(1,2),in spite of instruction 125 (POKE etc)
Can somebody explains why the poked value do not writes itself inside the table at the place of the previous "B"???
5 CLS
10 DIM A$(4, 4)
20 DATA A,B,C,D
30 DATA E,F,G,H
40 DATA I,J,K,L
50 DATA M,N,O,P
55 FOR I = 1 TO 4
58 FOR J = 1 TO 4
60 READ A$(I, J)
90 NEXT J: NEXT I: FOR I = 1 TO 4
100 PRINT A$(I, 1), A$(I, 2), A$(I, 3), A$(I, 4)
110 NEXT I
115 PRINT
120 DEF SEG = VARSEG(A$(1, 2))
125 POKE VARPTR(A$(1, 2)), (90)
130 FOR L = 1 TO 4
140 PRINT A$(L, 1), A$(L, 2), A$(L, 3), A$(L, 4)
150 NEXT L
It would work in QB7.1 and if somebody is interested, he can copy it and paste it directly in QB7.1 ,the lines numbers do not matter.
What I get is the original table ,except the element A$(1,2),in spite of instruction 125 (POKE etc)
Can somebody explains why the poked value do not writes itself inside the table at the place of the previous "B"???