home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / exoten / rec / atisng.cnv < prev    next >
Encoding:
Text File  |  1990-07-09  |  1.1 KB  |  49 lines
  1. [ATISNG.CNV]
  2. [G. Cisneros, 9.9.86]
  3. [[Prints files with a heading, single-sided]]
  4.  
  5. [process a file at a time]
  6. (()()()(
  7.     (,(%p,(^[)@(^[)6)(WHILE,(8 9 1),<=>,(and,<-->(^@),<:P:><9>(^@))<1>,<<
  8.         >>(%Or,CTR:pg)(%W,CTR:pg,1)<<
  9.         >>(%p,(B)File: <9>(B)(B)<<
  10.             >>(B)(B)(B)Page (%r,CTR:pg)(^MJJJ))<<
  11.         >>(%Or,(%T,<8><9>))(i,0:(R))(%C,<8><9>),<1>));
  12. )) a
  13.  
  14. [print up to 58 lines per page]
  15. (()()(0 1)(
  16.     (<0>:(^Z),(until,<0>,63,(%p,(^J)),(#p,<=>),));
  17.     (58:<0>,(%p,(^JJJJJ)(B)File: <9>(B)(B)<<
  18.         >>(B)(B)(B)Page (%r,CTR:pg)(^MJJJ))0:<0>):
  19.     (<0>:<1>,(%p,(^I)(z,<1>)(^MJ))(#p,<0>):(R)):
  20. )) i
  21.  
  22. [trim to 80 characters]
  23. (()()(0)(
  24.     ((and,<[80]>,<0>)<[1]>,<0> [);
  25. )) z
  26.  
  27. [process command line tail]
  28. (()()(0 1)(
  29.     (<0> (ITR, )<1>,<0><,><1>):
  30.     (<0><,><,>(ITR,<,>)<1>,<0><,><1>):
  31.     ((or,<,>,)<>,);
  32.     (<,><0>,<0>);
  33. )) p
  34.  
  35. [main - gather directory entries for the given list]
  36. ((
  37.     ((and,(or,<-->:,)(ITR,<-->\),<8>)) P
  38. )(
  39.     (          ) B
  40.     ((%r,<8><9>)) R
  41. )()(
  42.     (,(a,(WHILE,(8 1 2),(p,(&u,<=>)<,>),(and,<--><,>,<:P:><1><,>)<2>,<<
  43.         >>(until,(%S,<8><1>),Not Found,<<
  44.             >>(IF,(1),<=>,<[9]><1>,<8><1>(^@)),<<
  45.             >>(%A),),<2>)));
  46. ))
  47.  
  48. [end]
  49.