12 lines
334 B
Text
12 lines
334 B
Text
100 REM ALLOCATE ALL VARS FIRST SO THEY DON'T MOVE
|
|
110 X=123:Y=456:PX=0:PY=0:I=0:T=0
|
|
120 PRINT "BEFORE:X="XCHR$(20)",Y="Y
|
|
130 PX=POINTER(X):PY=POINTER(Y)
|
|
140 REM VARS ARE STORED IN RAM BANK 1
|
|
150 BANK 1
|
|
160 FOR I=0 TO 6
|
|
170 : T = PEEK(PY+I)
|
|
180 : POKE PY+I,PEEK(PX+I)
|
|
190 : POKE PX+I,T
|
|
200 NEXT I
|
|
210 PRINT "AFTER: X="XCHR$(20)",Y="Y
|