home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / CLIPPER / DIRSTR / MAIN.PRG < prev    next >
Text File  |  1992-12-26  |  879b  |  28 lines
  1. // main.prg
  2. // Author.....: Michael J. Primeaux
  3. // Date.......: 25dec92
  4. // Description: demo program for use with dirstruc.c
  5. // Compile....: clipper main /n
  6. // Link.......: blinker fi main,dirstruc lib extend,clipper,cl
  7. // Note.......: CL.LIB is not included due to Borland Copyright Laws
  8.  
  9. procedure main()
  10.    local aDirectory, nStart, nStop
  11.  
  12.    scroll()
  13.    setpos( 0, 0 ) ; dispout( "Demo Program for dirstruct()", "gr+/n" )
  14.    setpos( 2, 0 ) ; dispout( "Loading Directory Tree...One Moment Please" )
  15.    nStart := seconds()
  16.    aDirectory := dirstruct("\")
  17.    nStop := seconds()
  18.    tone( 125, 0 )
  19.    setpos( 3, 0 ) ; dispout( "Elapsed Time: "+ltrim( str( nStop-nStart ) ) )
  20.    setpos( 4, 0 ) ; dispout( "Press Any Key To View Directory Structure" )
  21.    inkey( 0 )
  22.    setpos( 6, 0 )
  23.    aEval( aDirectory, {|x| qout( x ) } ) 
  24.    return
  25.  
  26. // eof main.prg
  27.  
  28.