'===========================================================================
' Subject: Fibonacci Numbers in ATOM          Date: 06-14-03 (  :  )       
'  Author: Rick Clark                         Code: ATOM                   
'  Origin: rickclark58@yahoo.com            Packet: ATOM.ABC
'===========================================================================
# Some simple code to print some Fibonacci numbers 
# Leon Brocard <acme@astray.com> (Parrot) 
# Modified for Atom by Richard Clark 
 
      cls: 
      print:   "The first 20 fibonacci numbers are:" 
      set:     I1, 0 
      set:     I2, 20 
      set:     I3, 1 
      set:     I4, 1  
REDO@ eq: I1, I2, DONE, NEXT 
NEXT@ set:     I5, I4  
      add:     I4, I3, I4 
      set:     I3, I5  
      print:   I3 
      inc:     I1 
      goto:  REDO  
DONE@ print: "Done!" 
      end: