1 REM BLOCKVERSCHIEBUNG
2 REM CREATED BY CHRISTOPH BERGMANN
3 REM
10 DEFFNH(X)=INT(X/256)
20 DEFFNL(X)=X-FNH(X)*256
100 INPUT"ALTE STARTADRESSE";S
110 INPUT"ALTE ENDADRESSE+1";E
120 INPUT"NEUE ENDADRESSE+1";N
200 POKE95,FNL(S):POKE96,FNH(S)
210 POKE90,FNL(E):POKE91,FNH(E)
220 POKE88,FNL(N):POKE89,FNH(N)
300 SYS 41920:END