home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 88 / 64er_Magazin_Sonderheft_88_19xx_Markt__Technik_de_Side_B.d64 / sys-save (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  273b  |  13 lines
  1. 1 rem speicherbereich abspeichern
  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"startadresse";s
  7. 110 input"endadresse+1";e
  8. 120 input"name        ";n$
  9. 150 sys(57812)n$,8
  10. 200 poke193,fnl(s):poke194,fnh(s)
  11. 210 poke174,fnl(e):poke175,fnh(e)
  12. 300 sys 62957:end
  13.