// WP 34S – Beispielprogramme (iCanCalculate)
//
// Starten mit den Tasten A–D oder per XEQ und dem Namen in Anführungszeichen.
// Alle Programme rechnen in lokalen Registern (.00, .01, …) –
// die Register R00–R99 bleiben unverändert.
//
//  A  'FIB'  Fibonacci-Zahl     n  A  → F(n)            10 A → 55
//  B  'PFZ'  Primfaktoren       n  B  → kleinster Faktor, R/S → nächster,
//                                        … zum Schluss 1
//                               360 B → 2, R/S 2, R/S 2, R/S 3, R/S 3, R/S 5, R/S 1
//  C  'RAT'  Kreditrate         Betrag ENTER Zins% ENTER Jahre  C → Monatsrate
//                               200000 ENTER 3,5 ENTER 20 C → 1.159,919…
//  D  'WUE'  Würfel             D → Zufallszahl 1…6

// ---- A: Fibonacci ---------------------------------------------------------
LBL A
LBL'FIB'
LocR 003
IP
x=0?            // F(0) = 0
RTN
STO .00         // Zähler n
0
STO .01         // a = F(0)
1
STO .02         // b = F(1)
LBL 01
RCL .01
RCL .02
STO .01         // a ← b
+
STO .02         // b ← a + b
DSE .00
GTO 01
RCL .01         // F(n)
RTN

// ---- B: Primfaktorzerlegung -----------------------------------------------
LBL B
LBL'PFZ'
LocR 002
IP
STO .00         // n
2
STO .01         // Teiler d
LBL 11
RCL .00
x=1?            // fertig
RTN
RCL .01
x[^2]
RCL .00
x<? Y           // n < d² → der Rest ist prim
GTO 13
RCL .00
RCL .01
MOD             // n mod d
x=0?
GTO 12
INC .01         // nächster Teiler
GTO 11
LBL 12          // d teilt n
RCL .01
STO/ .00
STOP            // Faktor anzeigen, R/S → weiter
GTO 11
LBL 13          // verbleibender Primfaktor
RCL .00
1
STO .00
R[v]
STOP
GTO 11

// ---- C: Kreditrate (Annuität, monatlich) ----------------------------------
LBL C
LBL'RAT'
LocR 002
# 012
[times]
STO .01         // N = 12 · Jahre
R[v]
# 100
/
# 012
/
STO .00         // r = Zins / 1200
[times]         // K · r
1
RCL .00
+
RCL .01
+/-
y[^x]           // (1 + r)^-N
1
x<>y
-
/               // K · r / (1 − (1 + r)^-N)
RTN

// ---- D: Würfel ------------------------------------------------------------
LBL D
LBL'WUE'
RAN#
# 006
[times]
IP
1
+
RTN
END