' sog. "Behaarlichkeit" berechnen

INPUT "Startwert"; z&

behaar% = 0
DO
  z1& = 1&
  z2& = z&
  WHILE z2& > 0&
    z1& = z1& * (z2& MOD 10&)
    z2& = z2& \ 10&
  WEND
  IF z1& = z& THEN
    EXIT DO
  END IF
  PRINT z1&
  z& = z1&
  behaar% = behaar% + 1
LOOP
PRINT "Behaarlichkeit:"; behaar%