home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 August / 64er_Magazin_90-08_1990_Markt__Technik_de_Side_A.d64 / bereichsave (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  553 b   |  18 lines
  1. 10 rem ******************************
  2. 20 rem  bereich in foxdisk schreiben
  3. 30 rem ******************************
  4. 40 sys 49152:rem foxdisk aktivieren
  5. 50 input "[147][211]tartadresse ";sa
  6. 60 if sa<0 or sa>65535 goto 50
  7. 70 input "[197]ndadresse+1 ";ea
  8. 80 if ea<=sa or ea>65535 goto 60
  9. 90 if ea-sa<=32764 goto 130
  10. 100 print "[218]u grosser [194]ereich!"
  11. 110 poke 198,0:wait 198,1:get a$
  12. 120 goto 50
  13. 130 print "[194]itte warten..."
  14. 140 sys 57812"",7:rem saven in foxdisk vorbereiten
  15. 150 poke 250,(sa-32768)and255:poke 251,sa/256:poke 780,250
  16. 160 poke 781,(ea-32768)and255:poke 782,ea/256:sys 65496:rem bereich saven
  17. 170 print "[198]ertig!"
  18.