home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 August / 64er_Magazin_90-08_1990_Markt__Technik_de_Side_A.d64 / adressload (.txt) next >
Commodore BASIC  |  2022-10-26  |  412b  |  13 lines
  1. 10 rem ****************************
  2. 20 rem  laden an beliebige adresse
  3. 30 rem ****************************
  4. 40 sys 49152:rem foxdisk aktivieren
  5. 50 input "[147][204]aden an [193]dresse ";ad
  6. 60 if ad<0 or ad>65535 goto 50
  7. 70 if ad>2048 and ad<peek(43)+peek(44)*256 goto 50
  8. 80 print "[194]itte warten..."
  9. 90 sys 57812"",7:rem laden aus foxdisk vorbereiten
  10. 100 poke 780,0:poke 781,(ad-32768)and255:poke 782,ad/256
  11. 110 sys 65493:rem laden aus foxdisk
  12. 120 print "[198]ertig!"
  13.