' Berechnung Happy Nummern

INPUT "Startzahl"; z&
INPUT "Anzahl Durchl„ufe"; n%

FOR i% = 1 TO n%
  z1& = z&
  z2& = 0&
  WHILE z1& > 0&
    z2& = z2& + (z1& MOD 10&) * (z1& MOD 10&) * (z1& MOD 10&)
    z1& = z1& \ 10&
  WEND
  PRINT z2&
  z& = z2&
NEXT i%