home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 72 / 64er_Magazin_Sonderheft_72_19xx_Markt__Technik_de_Side_A.d64 / lader_centout (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  357b  |  12 lines
  1. 100 input"[147]an welche adresse laden";la
  2. 110 :
  3. 120 nm$="centout":a=len(nm$)
  4. 130 hi=int(la/256):lo=la-hi*256
  5. 140 fori=1toa:poke827+i,asc(mid$(nm$,i,1)):next
  6. 150 poke781,8:poke782,0:sys65466:rem fileparameter $ffba
  7. 160 poke780,a:rem a=filenamenlaenge
  8. 170 poke781,60:poke782,3:sys65469:rem filenamenparameter $ffbd
  9. 180 poke780,0:poke781,lo:poke782,hi
  10. 190 sys65493:rem load-routine $ffd5
  11. 200 poke174,peek(781):poke175,peek(782)
  12.