[Coco] OS9 directory from BASIC

[Robert Gault]

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.