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 >
Wrap
Commodore BASIC
|
2022-10-26
|
357b
|
12 lines
100 input"[147]an welche adresse laden";la
110 :
120 nm$="centout":a=len(nm$)
130 hi=int(la/256):lo=la-hi*256
140 fori=1toa:poke827+i,asc(mid$(nm$,i,1)):next
150 poke781,8:poke782,0:sys65466:rem fileparameter $ffba
160 poke780,a:rem a=filenamenlaenge
170 poke781,60:poke782,3:sys65469:rem filenamenparameter $ffbd
180 poke780,0:poke781,lo:poke782,hi
190 sys65493:rem load-routine $ffd5
200 poke174,peek(781):poke175,peek(782)