home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 65 / 64er_Magazin_Sonderheft_65_19xx_Markt__Technik_de_Side_A.d64 / laden (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  345b  |  11 lines
  1. 1 printchr$(147):input"filename";nm$:a=len(nm$)
  2. 2 input"ladeadresse";la
  3. 3 hi=int(la/256):lo=la-hi*256
  4. 5 fori=1toa:poke827+i,asc(mid$(nm$,i,1)):next
  5. 10 poke781,8:poke782,0:sys65466:rem fileparameter $ffba
  6. 20 poke780,a:rem a=filenamenlaenge
  7. 30 poke781,60:poke782,3:sys65469:rem filenamenparameter $ffbd
  8. 40 poke780,0:poke781,lo:poke782,hi
  9. 50 sys65493:rem load-routine $ffd5
  10. 60 poke174,peek(781):poke175,peek(782)
  11.