home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / TM480.ZIP / TMEXAM.EXE / DIRECTOR.TSK < prev    next >
Encoding:
Text File  |  1991-09-10  |  4.9 KB  |  162 lines
  1. ; Title   : DIRECTOR.TSK                Last Updated : June 14, 1991
  2. ; Author  : Steve Johnson - FmP.        Version      : 1.00
  3. ; Purpose : Reformats output from the DOS DIR command.
  4.  
  5. hexvar cr,0d
  6. hexvar esc,1b
  7.  
  8. logical file
  9. logical confirm
  10.  
  11. var char,1
  12. var cmd,8
  13. var error,80
  14. var null,1
  15. var spec,40,'DIRECTOR'
  16. var directorline,82
  17. var spaces9,9,'         '
  18. int i
  19. vconst cls,11
  20. vconst attn,79
  21. vconst att2,71
  22. var fname,8
  23. var sname,3
  24. var size,9
  25. int line
  26. define column,4
  27.  
  28. end
  29.  
  30. forms logon.ovr
  31. lookfor director.ovr
  32. if not found
  33.   insert SPEC SPEC
  34.   put "NO_FORMS"    ;logon.ovr open already!
  35.   stop
  36. fi
  37. forms director.ovr
  38. move '.' to spec
  39. put wallpaper wait 0 noclear
  40. fieldfill spec 
  41. put 'QUESTIONS'
  42. get spec 
  43. trim spec
  44. if anyfk
  45.   stop
  46. fi
  47. move true to hide
  48. if spec ne null
  49.   display attn cls 
  50.   display 'Please wait...' cr
  51.   run 'dir ' spec 1 '>director.dat' 
  52.   clear error
  53.   scanvid 0 giving error
  54.   if error ct 'not found'   ;DIR doesnt set errorlevel!
  55.     displayln 'DIRECTOR: Sorry, no files match your specification - aborting'
  56.     stop
  57.   fi
  58.   display cls
  59.   restore ascii 'DIRECTOR.DAT'        ;open file for reading
  60.   if resp <> 0                 ;if response non-zero
  61.     displayln 'Edit failed ...'    ;get out
  62.     stop
  63.   fi
  64.   while resp = 0            ;until end of input
  65.     clear directorline
  66.     restore directorline
  67.     if resp = 0 and directorline ct '~~-~~-~~' and not directorline ct '<dir>'
  68.       move zero to delim
  69.       setscan directorline
  70.       clear fname char sname size
  71.       scan fname char sname size
  72.       trim fname sname
  73.       if line = 0
  74.         cursor line column attn 4 'Bytes Filename' att2
  75.         increment line
  76.       fi
  77.       cursor line column att2 size 1 attn fname '.' sname
  78.       increment line
  79.       if line = 23
  80.         clear line
  81.         add 23 to column
  82.       fi
  83.       if column > 50
  84.         userline attn 'Press a key for more, <ESC> to quit' 
  85.         inkey char 
  86.         if char = esc
  87.           stop
  88.         fi
  89.         display cls
  90.         clear line 
  91.         move 4 to column
  92.       fi
  93.     fi
  94.   fi
  95.   restore                ;close input file
  96.   erase 'DIRECTOR.DAT'            ;erase input file
  97.   userline attn 'Listing completed...'
  98.   inkey char 
  99. fi
  100. stop
  101. endtask
  102. @video
  103. @head left,DIRECTOR.TSK
  104. @head right,"Copyright (c) FmP 1991"
  105. @head centre,'Automation example'
  106. @nf questions
  107. @acceptfk f10
  108. @overlay
  109. @str
  110. @dim
  111. @banner
  112. @win line3,column4,depth10,width72
  113.  
  114.   This  task  uses the DOS DIR command to return the names and  sizes 
  115.   of  files  matching  the filespec you  supply  and  reformats  this 
  116.   information  and displays it in a colourful  3 column table on  the 
  117.   screen. 
  118.  
  119.   Please enter a filespec [                                        ]
  120.  
  121.   Note a full-stop represents the working directory.
  122.  
  123. @brightW
  124. @win line19,column10,depth3,width60,pattern 176
  125.  
  126.                     Press F10 to quit
  127. @end
  128. @map x,b2
  129. @map Y,b1
  130. @map Z,b0
  131. @nf WALLPAPER
  132. @COL CHAR,green,blue
  133. @translate
  134. @gon
  135. XYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXY
  136. YZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZ
  137. ZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZX
  138. XYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXY
  139. YZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZ
  140. ZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZX
  141. XYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXY
  142. YZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZ
  143. ZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZX
  144. XYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXY
  145. YZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZ
  146. ZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZX
  147. XYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXY
  148. YZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZ
  149. ZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZX
  150. XYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXY
  151. YZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZ
  152. ZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZX
  153. XYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXY
  154. YZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZ
  155. ZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZX
  156. XYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXY
  157. YZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZ
  158. ZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZX
  159. @end
  160. @eof
  161. 
  162.