home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9008a.d64 / bereichsave (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  553b  |  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.