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 >
Commodore BASIC  |  2023-02-26  |  266b  |  8 lines
  1. 1 poke53280,peek(53281):print"[147]'start-adresse' eines files"
  2. 2 input"file-name ";f$:print"'start-adresse': ";:open15,8,15:open1,8,3,"0:"+f$
  3. 3 input#15,en,en$:ifen<>0thenprinten,en$:print#15,"i":goto5
  4. 4 get#1,l$:get#1,h$:x$=h$:gosub6:h=x*256:x$=l$:gosub6:l=x:printh+l
  5. 5 close1:close15:end
  6. 6 ifx$=""thenx=0:return
  7. 7 x=asc(x$):return
  8.