[Coco] OS9 directory from BASIC

[Bob Devries]

Robert,

If lines 110 and 120 are doing what I think, then they needs to be changed 
too. There are 29 bytes in a filenae entry in OS9, not 16, and the last 3 
bytes are a pointer to the file descriptor for that file.

--
Regards, Bob Devries, Dalby, Queensland, Australia

Isaiah 50:4 The sovereign Lord has given me
the capacity to be his spokesman,
so that I know how to help the weary.

website: http://www.home.gil.com.au/~bdevasl
my blog: http://bdevries.invigorated.org/

----- Original Message ----- 
From: "Robert Gault" <robert.gault at worldnet.att.net>
To: "CoCoList for Color Computer Enthusiasts" <coco at maltedmedia.com>
Sent: Friday, August 03, 2007 6:14 AM
Subject: Re: [Coco] OS9 directory from BASIC


> Robert Gault wrote:
>><snip>
>> 10 WIDTH80:CLS:PRINT" OS-9 DISK DIRECTORY READER "
>> 20 CLEAR1000
>> 30 PRINT:INPUT"SELECT DRIVE# TO BE USED <0-3>";DR
>> 40 PRINT"INSERT DISK AND HIT ANY KEY WHEN READY"
>> 50 PRINT"HIT ANY KEY WHEN READY"
>> 60 A$=INKEY$:IFA$=""THEN60
>> 70 DSKI$DR,0,1,A$,B$
>> 80 SC=0:FORI=1TO3:SC=SC+ASC(MID$(A$,8+I,1))*10^(3-I):NEXT
>> 90 SC=SC+2
>> 100 TK=INT(SC/18):SS=SC-TK*18:DSKI$DR,TK,SS,A$,B$
>> 110 FORI=1TO128STEP32:PRINTMID$(A$,I,16):NEXT
>> 120 FORI=1TO128STEP32:PRINTMID$(B$,I,16):NEXT
>>
> There is an error in line 80. It should be 256^(3-I). I was thinking of 
> decimal number instead of hexadecimal.
>
> --
> Coco mailing list
> Coco at maltedmedia.com
> http://five.pairlist.net/mailman/listinfo/coco