[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.