Fibonacci Sequence

// PSC:1.0 Fibonacci
// Description: Prints the first n numbers of the Fibonacci sequence

BEGIN Fibonacci
  INPUT "How many terms? " n
  LET a = 0
  LET b = 1
  FOR i FROM 1 TO n
    OUTPUT a
    LET next = a + b
    LET a = b
    LET b = next
  END FOR
END