anchor.diff:  : (find-file) ( -- cluster file-len is-dir? true | false )
     data @ BEGIN dup data @ #data @ + < WHILE
     dup dos-name b comp WHILE 20 + REPEAT
  -  dup 1a + 2c@ bwjoin swap dup 1c + 4c@ bljoin swap 0b + c@ 10 and 0<> true
  +  dup get-cluster
  +  swap dup 1c + 4c@ bljoin swap 0b + c@ 10 and 0<> true
     ELSE drop false THEN ;
   : find-file ( dir-cluster name len -- cluster file-len is-dir? true | false )
     make-dos-name read-dir BEGIN (find-file) 0= WHILE next-cluster @ WHILE
  
positive.code:     ELSE
          read-cluster
      THEN
  ;
  
  : .time ( x -- )
  
negative.code:   dup 0b + c@ 8 and IF drop EXIT THEN \ volume label, not a file
    dup c@ e5 = IF drop EXIT THEN \ deleted file
    cr
    dup get-cluster [char] # emit 8 0.r space \ starting cluster
    dup 18 + 2c@ bwjoin .date space
    dup 16 + 2c@ bwjoin .time space
    dup 1c + 4c@ bljoin base @ decimal swap a .r base ! space \ size in bytes
  