home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / sh6x / sh69b.d64 / blockmove (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  280b  |  13 lines
  1. 1 REM BLOCKVERSCHIEBUNG
  2. 2 REM CREATED BY CHRISTOPH BERGMANN
  3. 3 REM
  4. 10 DEFFNH(X)=INT(X/256)
  5. 20 DEFFNL(X)=X-FNH(X)*256
  6. 100 INPUT"ALTE STARTADRESSE";S
  7. 110 INPUT"ALTE ENDADRESSE+1";E
  8. 120 INPUT"NEUE ENDADRESSE+1";N
  9. 200 POKE95,FNL(S):POKE96,FNH(S)
  10. 210 POKE90,FNL(E):POKE91,FNH(E)
  11. 220 POKE88,FNL(N):POKE89,FNH(N)
  12. 300 SYS 41919:END
  13.