home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 026.lha / logo / logo.2 < prev    next >
Text File  |  1987-04-02  |  309b  |  10 lines
  1. to poly1 :x :y :z fd :x lt :y poly1 :x+:z :y :z end
  2. to poly :x :y :z cs pd poly1 :x :y :z
  3. to demo 
  4.    print ['    Type in: ']
  5.    print ['         poly 3 145 3   ']
  6.    print ['to get the poly function. ']
  7.    print ['    Change the numbers and see what you get (especially']
  8.    print ['the middle one!)']  
  9. end
  10.