home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / exoten / rec / atidou.cnv < prev    next >
Encoding:
Text File  |  1990-07-09  |  1.6 KB  |  59 lines
  1. [ATIDOU.CNV]
  2. [G. Cisneros, 9.9.86]
  3. [[Prints files using both sides of the paper]]
  4.  
  5. [process the odd-numbered pages, then the even-numbered ones]
  6. (()()()(
  7.     (,(%p,(^[)@(^[)6)(WHILE,(8 9 1),<=>,(and,<-->(^@),<:P:><9>(^@))<1>,<<
  8.         >>(%Or,CTR:pg)(%W,CTR:pg,1,2)<<
  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.     >>(%t,Turn paper over and press return)(,(%r))<<
  13.     >>(%p,(^[)@(^[)6)(WHILE,(8 9 1),<=>,(and,<-->(^@),<:P:><9>(^@))<1>,<<
  14.         >>(%Or,CTR:pg)(%W,CTR:pg,2,2)<<
  15.         >>(%Or,(%T,<8><9>))(i,(s,0:(R)))(%C,<8><9>),<1>));
  16. )) a
  17.  
  18. [skip up to 58 lines]
  19. (()()(0)(
  20.     (<0>:(^Z),(if,(#%,(%r,CTR:pg)%2),0,(%p,(^JJJ))0,63):(^Z));
  21.     (58:<0>,(%p,(B)File: <9>(B)(B)<<
  22.         >>(B)(B)(B)Page (%r,CTR:pg)(^MJJJ))0:<0>);
  23.     (<0>:,(#p,<0>):(R)):
  24. )) s
  25.  
  26. [print up to 58 lines]
  27. (()()(0 1)(
  28.     (<0>:(^Z),(until,<0>,63,(%p,(^J)),(#p,<=>),));
  29.     (58:,(%p,(^JJJJJ))(s,0:)):
  30.     (<0>:<1>,(%p,(^I)(z,<1>)(^MJ))(#p,<0>):(R)):
  31. )) i
  32.  
  33. [trim to 80 characters]
  34. (()()(0)(
  35.     ((and,<[80]>,<0>)<[1]>,<0> [);
  36. )) z
  37.  
  38. [process command line tail]
  39. (()()(0 1)(
  40.     (<0> (ITR, )<1>,<0><,><1>):
  41.     (<0><,><,>(ITR,<,>)<1>,<0><,><1>):
  42.     ((or,<,>,)<>,);
  43.     (<,><0>,<0>);
  44. )) p
  45.  
  46. [main - gather directory entries for the given list]
  47. ((
  48.     ((and,(or,<-->:,)(ITR,<-->\),<8>)) P
  49. )(
  50.     (          ) B
  51.     ((%r,<8><9>)) R
  52. )()(
  53.     (,(a,(WHILE,(8 1 2),(p,(&u,<=>)<,>),(and,<--><,>,<:P:><1><,>)<2>,<<
  54.         >>(until,(%S,<8><1>),Not Found,<<
  55.             >>(IF,(1),<=>,<[9]><1>,<8><1>(^@)),<<
  56.             >>(%A),),<2>)));
  57. ))
  58.  
  59. [end]