home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh7x
/
sh72a.d64
/
lader_centout
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
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)