Easy Question

[LambdaMikel]

  Alright, that should be easy for you folks - does anybody have a BASIC program at hand that can return the file size / length in bytes from the Amsdos header, for a given file on disk? I can't believe AMSDOS doesn't have such a basic |RSX command...
Thanks! 

[AMSDOS]

Alright, that should be easy for you folks - does anybody have a BASIC program at hand that can return the file size / length in bytes from the Amsdos header, for a given file on disk? I can't believe AMSDOS doesn't have such a basic |RSX command...
Thanks! 

Just to clutter up more additional RAM space? There's a number of Header Reader routines floating around, Phil Howard has one in Insider Dealing in AA52 and AA53 Forum has an One Liner which returns the Start Location and Length which looks like this:

Code Select Expand


10 MEMORY &1FFF:INPUT"Filename:",a$:LOAD a$:st=VAL("&"+HEX$(PEEK(&A76B),2)+HEX$(PEEK(&A76A),2)):PRINT"Start location: &",HEX$(st,4):PRINT"Length: &",HEX$(PEEK(&A76E),2);HEX$(PEEK(&A76D),2:MEMORY st-1


[LambdaMikel]

Just to clutter up more additional RAM space? There's a number of Header Reader routines floating around, Phil Howard has one in Insider Dealing in AA52 and AA53 Forum has an One Liner which returns the Start Location and Length which looks like this:

Code Select Expand


10 MEMORY &1FFF:INPUT"Filename:",a$:LOAD a$:st=VAL("&"+HEX$(PEEK(&A76B),2)+HEX$(PEEK(&A76A),2)):PRINT"Start location: &",HEX$(st,4):PRINT"Length: &",HEX$(PEEK(&A76E),2);HEX$(PEEK(&A76D),2:MEMORY st-1


Thanks! Just what I was looking for.