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 >
Encoding:
Commodore BASIC  |  1990-01-01  |  307 b   |  14 lines
  1. 1 poke53280,6:poke646,1
  2. 2 print"[147]        anfangsadressen-finder"
  3. 4 ad$="":print"von welchem proggi wird die startadressegesucht";:inputad$
  4. 5 ifad$=""thenend
  5. 10 open1,8,0,ad$
  6. 20 get#1,x$:ifx$=""thenx$=chr$(0)
  7. 30 lb=asc(x$)
  8. 40 get#1,x$:ifx$=""thenx$=chr$(0)
  9. 50 hb=asc(x$)
  10. 60 close1
  11. 70 ad=hb*256+lb
  12. 80 print"anfangsadresse: (sys)";ad
  13. 90 goto4
  14.