home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / MISC / REC.ZIP / ATISNG.CNV < prev    next >
Encoding:
Text File  |  1986-12-01  |  1.1 KB  |  47 lines
  1. [ATISNG.CNV]
  2. [G. Cisneros, 4.12.85]
  3. [[Prints files with a heading, single-sided]]
  4.  
  5. [process a file at a time]
  6. (()()(0)(
  7.     (<0>,(%p,(^[)@(^[)6)(WHILE,(8 9 1),<=>,(and,<[14]>,<8>,<-->:<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>))(i,0:(R))(%C,<8>),<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. [add disk id]
  28. (()()(0 1)(
  29.     (<0> (ITR, )<1>,<0><1>):
  30.     (<0><,><,>(ITR,<,>)<1>,<0><,><1>):
  31.     (<>,);
  32.     (<0>(or,<,>,<>)<1>,(nf,<0>,<-->:,(%Lr):<0>)<,>(p,<1>));
  33. )) p
  34.  
  35. [main - gather directory entries for the given list]
  36. (()(
  37.     (          ) B
  38.     ((%R,<8>)) R
  39. )()(
  40.     (,(a,(WHILE,(0 1 2),(p,(&u,<=>)<,>),<0>:<1><,><2>,<<
  41.         >>(until,(%S,<0>:<1>),Not Found,<<
  42.             >>(IF,(1 2),<=>,<[1]>(and,<[8]>,<1>)<<
  43.                 >>(and,<[3]>,<2>),<0>:<1>.<2>),<<
  44.             >>(%A,<0>:<1>),),<2>)));
  45. ))
  46.  
  47. [end]