home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 9
/
Tiger_Disk_009_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
startadr.-finder
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
307b
|
14 lines
1 poke53280,6:poke646,1
2 print"[147] anfangsadressen-finder"
4 ad$="":print"von welchem proggi wird die startadressegesucht";:inputad$
5 ifad$=""thenend
10 open1,8,0,ad$
20 get#1,x$:ifx$=""thenx$=chr$(0)
30 lb=asc(x$)
40 get#1,x$:ifx$=""thenx$=chr$(0)
50 hb=asc(x$)
60 close1
70 ad=hb*256+lb
80 print"anfangsadresse: (sys)";ad
90 goto4