home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / comdemos / progs / pipedream3 / Documents / Examples / GCD < prev    next >
Encoding:
Text File  |  1989-06-29  |  260 b   |  17 lines
  1. %OP%DP0
  2. %OP%RIY
  3. %OP%RN0
  4. %CO:A,12,72%%L%GCD
  5.  
  6. %V%%R%100
  7.  
  8.  
  9. %V%%R%if(loopc=1,A3,if(A6=B6,A6,if(A6>B6,A6-B6,A6)))
  10. %CO:B,12,60%
  11.  
  12. %V%%R%10
  13.  
  14.  
  15. %V%%R%if(loopc=1,B3,if(A6=B6,B6,if(B6>A6,B6-A6,B6)))
  16. %V%%R%if(A6=B6,B7,loopc)
  17. %CO:C,12,48%%CO:D,12,36%%CO:E,12,24%%CO:F,12,12%