home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 119
/
Tiger_Disk_119_2004_Tiger-Crew-Disk_de_Side_B.d64
/
start-adresse
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
266b
|
8 lines
1 poke53280,peek(53281):print"[147]'start-adresse' eines files"
2 input"file-name ";f$:print"'start-adresse': ";:open15,8,15:open1,8,3,"0:"+f$
3 input#15,en,en$:ifen<>0thenprinten,en$:print#15,"i":goto5
4 get#1,l$:get#1,h$:x$=h$:gosub6:h=x*256:x$=l$:gosub6:l=x:printh+l
5 close1:close15:end
6 ifx$=""thenx=0:return
7 x=asc(x$):return