REMAUTODSK:GregCook30Jan2002
DIMK%511,X%17,N%9:Y%=X%DIV256:OSC."TAPE":OSC."OPT1 0":OSC."DISC":D%=0:ONERR.PROCf
OSC."VOL 0A":ONERR.REPO.:P." at line ";ERL:END
D%=-1:PROCf:END
DEFPROCf:IFD%P."Drive and volume:";EL.P."Drive:";
REP.?X%=GET-48:U.?X%>=0A.?X%<4:P.CHR$(?X%+48);:IFD%REP.V%=(GET-65)*2:U.V%>=0A.V%<16:P.CHR$(V%DIV2+65):OSC."VOL "+CHR$(?X%+48)+CHR$(V%DIV2+65)EL.V%=0:OSC."DRIVE "+CHR$(?X%+48)
X%!1=K%:X%!5=&5303:X%?8=V%:X%?9=34:A%=&7F:CA.&FFF1:G%=K%?261:IFG%=0P."No files":END
M%=0:F.I%=K%+268TOK%+260+G%S.8:L%=(65535A.!I%)+4096*(48A.I%?2):IFM%<L%M%=L%
N.:DIMF%M%OR255:F.I%=K%+G%TOK%+8S.-8:OSC."DISC":?N%=I%?7A.&7F:N%?1=46:F.J%=0TO6:IFI%?J%<33N%?(2+J%)=13EL.N%?(2+J%)=I%?J%
N.:N%?9=13:IF?N%=36$N%=MID$($N%,3)
OSC."INFO "+$N%:!X%=N%:X%!2=F%:X%?6=0:A%=255:CA.&FFDD:OSC."TAPE":X%!&E=X%!&A+F%:X%!&A=F%:A%=0:CA.&FFDD:N.:E.
