home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_100 / 106_01 / test.mou < prev    next >
Text File  |  1980-07-09  |  384b  |  12 lines
  1. "This dies due to macro expansion bug in the mouse interpreter!"
  2. "At least I think that is the reason!"
  3. "Square and triangular numbers"
  4. ("!Enter a number "
  5.   n?=n.^
  6.   "s("n.!") = " #s,n.;!
  7.   "   t("n.!") = "#t,n.;!"!"
  8.   )
  9. $s %a1-[#t,%a;#t,%a1-;+@]1@
  10. $t %a1-[#s,%a1-;3%a*1-+2/@]1@
  11. $$
  12.