STO 0        // Nth term requested := User input
1 STO 1      // Last term := 1
0            // Initial value: 0
+ *EXC 1 =   // Calculate next term.
*dsz 0 6     // Loop while R0 positive
R/S          // Done, show answer
GTO 0 6      // If user hits R/S calculate next term