home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / progrmng / quinta.sit / QCore < prev    next >
Encoding:
Text File  |  1990-04-04  |  288 b   |  14 lines  |  [TEXT/QNTA]
  1.  
  2. "Welcome to Quinta..." print cr
  3. today print cr
  4.  
  5.  
  6. [ "s1" local "s2" local s1 cdr isempty s2 cdr isempty and if true else
  7.     s1 cdr s2 cdr same endif s1 car s2 car same
  8.     and ] "same" pub list list 2 >list respond
  9.  
  10.  
  11. [ 1 sto+ ] "++" pub variable respond
  12.  
  13. [ -1 sto+ ] "--" pub variable respond
  14.