home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / MISC / REC.ZIP / ATIDOU.CNV < prev    next >
Encoding:
Text File  |  1986-12-01  |  1.6 KB  |  58 lines
  1. [ATIDOU.CNV]
  2. [G. Cisneros, 4.11.85]
  3. [[Prints files using both sides of the paper]]
  4.  
  5. [process the odd-numbered pages, then the even-numbered ones]
  6. (()()(0)(
  7.     (<0>,(%p,(^[)@(^[)6)(WHILE,(8 9 1),<=>,(and,<[14]>,<8>,<-->:<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>))(i,0:(R))(%C,<8>),<1>)<<
  12.     >>(%t,Turn paper over and press return)(,(%R,TTY:))<<
  13.     >>(%p,(^[)@(^[)6)(WHILE,(8 9 1),<0>,(and,<[14]>,<8>,<-->:<9>)<1>,<<
  14.         >>(%Or,CTR:pg)(%W,CTR:pg,2,2)<<
  15.         >>(%Or,(%T,<8>))(i,(s,0:(R)))(%C,<8>),<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. [add disk id]
  39. (()()(0 1)(
  40.     (<0> (ITR, )<1>,<0><1>):
  41.     (<0><,><,>(ITR,<,>)<1>,<0><,><1>):
  42.     (<>,);
  43.     (<0>(or,<,>,<>)<1>,(nf,<0>,<-->:,(%Lr):<0>)<,>(p,<1>));
  44. )) p
  45.  
  46. [main - gather directory entries for the given list]
  47. (()(
  48.     (          ) B
  49.     ((%R,<8>)) R
  50. )()(
  51.     (,(a,(WHILE,(0 1 2),(p,(&u,<=>)<,>),<0>:<1><,><2>,<<
  52.         >>(until,(%S,<0>:<1>),Not Found,<<
  53.             >>(IF,(1 2),<=>,<[1]>(and,<[8]>,<1>)<<
  54.                 >>(and,<[3]>,<2>),<0>:<1>.<2>),<<
  55.             >>(%A,<0>:<1>),),<2>)));
  56. ))
  57.  
  58. [end]