home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 7 / 64er_Magazin_Sonderheft_07_86-07_1986_Markt__Technik_de_Side_A.d64 / block-verschieb. (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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 41920:end
  13.