9 lines
252 B
Text
9 lines
252 B
Text
100 X=PEEK(71)+256*PEEK(72):PX=X:X=123
|
|
110 Y=PEEK(71)+256*PEEK(72):PY=Y:Y=456
|
|
120 PRINT "BEFORE:X ="XCHR$(20)", Y ="Y
|
|
130 FOR I=0 TO 6
|
|
140 : T = PEEK(PY+I)
|
|
150 : POKE PY+I,PEEK(PX+I)
|
|
160 : POKE PX+I,T
|
|
170 NEXT I
|
|
180 PRINT "AFTER: X ="XCHR$(20)", Y ="Y
|