10
120 DIM ctrl% 39,name% 79:X%=ctrl%:Y%=X%DIV256:total%=0
130 raw%=INKEY-2:fs%=FNfs:PROCscan:END
150 DEFPROCscan:LOCAL idx%,type%,f$
160 REPEAT:f$=FNgbpb8(idx%):idx%=X%!9:IFf$<>"":PROCfile
170 UNTIL f$="":ENDPROC
190 DEFPROCfile:X%!14=0:X%!18=0:X%!22=0:type%=FNfile(f$,5)
200 ld%=X%!2:ex%=X%!6:ln%=X%!10:at%=X%!14:acc%=0
210 IFfs%=5:IFFNNetFS_Op(18,CHR$65+f$)=0:acc%=X%!5
220 IFfs%=5:IFFNNetFS_Op(18,CHR$64+f$)=0:X%!15=X%!10:X%!17=X%!12:X%!20=X%!5:X%!22=X%!7:X%?14=at%:X%!25=acc%:X%!29=0
230 IFfs%=16:type%=FNfile(f$,&FD):A%=X%!14:X%!14=at%:X%!17=X%!6:X%!20=X%!9:X%!22=X%!11:X%!25=X%!2:X%!29=A%
240 total%=total%+ln%:IF(ln%AND255):total%=(total%AND-256)+256
250 PRINT f$;TAB(13);FNh0(ld%,8)" "FNh0(ex%,8)" "FNh0(ln%,8)" ";
260 IFraw%:PRINT FNh0(X%?14,2);" ";FNh0(X%!15,4);" ";FNh0(X%!17,6);" ";FNh0(X%!20,4);" ";FNh0(X%!22,6);" ";
270 IFNOTraw%:PRINT FNacc(X%?14,type%);" ";FNdate(X%!15);" ";FNtime(X%!17);" ";
280 IF type%=1:PRINT"File" ELSE IF type%=2:PRINT"Dir." ELSE IF type%=&FF:PRINT"Run " ELSE PRINT"&";FNh0(type%,2)
290 PROCLongDateToShort
300 PRINT SPC11;FNd0(day%,2)"/"FNd0(month%,2)"/"FNd0(year%,4)" "FNd0(hour%,2)":"FNd0(minute%,2)":"FNd0(second%,2)"."FNd0(centi%,2);
310 PRINT SPC6;FNh0(X%!25,4)" ("FNh0(X%!27,4)") "FNdate(X%!20)" "FNtime(X%!22)" "FNdrv(X%?32)":"FNh0(X%!29,6)
320 ENDPROC
340 DEFFNacc(a%,b%):LOCAL a$
350 IF b%=2:a$="D" ELSE a$="-"
360 IF(a%AND128):a$=a$+"P" ELSE a$=a$+"-"
370 IF(a%AND8):a$=a$+"L" ELSE a$=a$+"-"
380 IF(a%AND4):a$=a$+"E" ELSE a$=a$+"-"
390 IF(a%AND2):a$=a$+"W" ELSE a$=a$+"-"
400 IF(a%AND1):a$=a$+"R" ELSE a$=a$+"-"
410 a$=a$+"/"
420 IF(a%AND64):a$=a$+"E" ELSE a$=a$+"-"
430 IF(a%AND32):a$=a$+"W" ELSE a$=a$+"-"
440 IF(a%AND16):a$=a$+"R" ELSE a$=a$+"-"
450 =LEFT$(a$+" ",10)
470 DEFFNdate(a%):a%=a%AND&FFFF
480 =FNd0(a%AND31,2)+"/"+FNd0((a%DIV256)AND15,2)+"/"+STR$(1981+(a%DIV&1000)+(a%AND&E0)/2)
490 DEFFNtime(a%):=FNd0(a%AND&FF,2)+":"+FNd0((a%AND&FF00)DIV256,2)+":"+FNd0((a%AND&FF0000)DIV65536,2)
510 DEFPROCLongDateToShort
520 !X%=ex%:X%!4=ld%:PROCDate_ToOrd(X%):ENDPROC
540 DEFFNh0(A%,N%)=RIGHT$("0000000"+STR$~A%,N%)
550 DEFFNd0(A%,N%)=RIGHT$("0000000"+STR$ A%,N%)
560 DEFFNdrv(A%):IFA%<10:=STR$A% ELSE =CHR$(A%+55)
580 DEFFNfile(f$,A%):$name%=f$:?X%=name%:X%?1=name%DIV256:=(USR&FFDD)AND&FF
590 DEFFNgbpb8(ptr%):X%!1=name%:X%!5=1:X%!9=ptr%:A%=8:CALL&FFD1:IFX%!5=1:=""
600 A%=name%+1:A%!(A%?-1)=&D20:A%?(INSTR($A%," ")-1)=13:=$A%
610 DEFFNfs:LOCALA%,Y%,E%:=(USR&FFDA)AND&FF
630 DEFPROCDate_ToOrd(mem%):LOCAL A%,B%,C%,D%
640 year%=0:month%=0:day%=0:hour%=0:minute%=0:second%=0:centi%=0
650 IFmem%!1<0:ENDPROC
660 D%=mem%!1DIV&83D6+2447065:C%=mem%?0+256*(mem%!1MOD&83D6):centi%=C%MOD100
670 C%=C%DIV100:second%=C%MOD60:C%=C%DIV60:minute%=C%MOD60:hour%=C%DIV60
680 B%=((D%*4+3)MOD146097AND-4)+3:C%=B%MOD1461DIV4*5+2:D%=D%*4+3
690 A%=C%DIV153+2:day%=C%MOD153DIV5+1:month%=A%MOD12+1
700 year%=D%DIV146097*100+B%DIV1461+A%DIV12-4800
710 ENDPROC
730 DEFFNNetFS_Op(A%,A$):!X%=0:X%?1=8+LEN A$:X%!3=A%:$(X%+7)=A$:A%=&14:CALL&FFF1:=X%?3