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)