home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / prog_oth / turbodex.lha / examplesources / DirQuick.dex < prev    next >
Encoding:
Text File  |  1992-10-11  |  1011 b   |  47 lines
  1. /* nice directory command in dex ! */
  2.  
  3. PROC main(ARG)
  4.   DEF lock:LONG, info=260:ARRAY, ok:REGLONG, d:REGLONG, c:REGLONG
  5.   DEF dir:LONG
  6.   MCHAR argadr+argl-1,0
  7.   lock := Lock(argadr,-2)
  8.   IF lock?FALSE
  9.     ok := Examine(lock,info)
  10.     IF ok?FALSE
  11.       dir := MLONG(info+4)
  12.       IF dir>0
  13.         WRITE 'Directory of: \s\n',info+8
  14.         c := 0
  15.         WHILE ok?FALSE
  16.           ok := ExNext(lock,info)
  17.           INC 1,c
  18.           IF ok?FALSE
  19.             d := MLONG(info+124)
  20.             dir := MLONG(info+4)
  21.             IF dir>0
  22.               WRITE '\e[1;32m\w25\m25\l\s\e[0;31m',info+8
  23.             ELSE
  24.               WRITE '\w17\m17\l\s \r\w7\d',info+8,d
  25.             ENDIF
  26.             IF c=3
  27.               WRITE '\n'
  28.               c := 0
  29.             ELSE
  30.               WRITE ' '  
  31.             ENDIF
  32.           ENDIF
  33.         ENDWHILE
  34.         IF c?1
  35.           WRITE '\n'
  36.         ENDIF
  37.       ELSE
  38.         WRITE 'No Dir!\n'
  39.       ENDIF
  40.     ENDIF
  41.     VOID UnLock(lock)
  42.   ELSE
  43.     WRITE 'What ?!?\n'
  44.   ENDIF
  45. ENDPROC
  46.  
  47.