home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 623a.lha / TurboDEX / ExampleSources / DirQuick.dex < prev    next >
Text File  |  1992-03-22  |  991b  |  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?0
  9.     ok := Examine(lock,info)
  10.     IF ok?0
  11.       dir := MLONG(info+4)
  12.       IF dir>0
  13.         WRITE 'Directory of: \s\n',info+8
  14.         c := 0
  15.         WHILE ok?0
  16.           ok := ExNext(lock,info)
  17.           INC 1,c
  18.           IF ok?0
  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.