Quickfind Mystery Cache

Einfach unten stehenden Programm-Code laufen lassen. Der spuckt die Koordinaten aus und schon kann die Jagd auf den Schatz beginnen. Viel Spass dabei wünschen euch die Schlafmützen :-)

DECLARE FUNCTION muffy (n)
DECLARE FUNCTION puffy ()
DECLARE FUNCTION zuffy (n)

A$ = CHR$(78) + CHR$(32) + CHR$(52) + CHR$(55) + CHR$(248) + CHR$(50) + CHR$(54) + CHR$(46)
B$ = CHR$(69) + CHR$(32) + CHR$(48) + CHR$(55) + CHR$(248) + CHR$(52) + CHR$(54) + CHR$(46)
PRINT "Den Schatz findest du an folgenden Koordinaten: "
PRINT A$ + LTRIM$(STR$(INT(muffy(49) * 100) + 432))
PRINT B$ + LTRIM$(STR$(INT(puffy * 100) + 593))

FUNCTION muffy (n)
    IF (n < 1) THEN
        muffy = 1
    ELSE
        muffy = (muffy(n - 1) + (1 / zuffy(n)))
    END IF
END FUNCTION

FUNCTION puffy
   f = 1
   s = 1
   FOR n = 3 TO 42078 STEP 2
   IF f = 1 THEN
    f = 0
    s = s - 1 / n
  ELSE
    f = 1
    s = s + 1 / n
  END IF
  NEXT n
  puffy = s * 4
END FUNCTION

FUNCTION zuffy (n)
    IF (n < 1) THEN
        zuffy = 1
    ELSE
        zuffy = zuffy(n - 1) * n
    END IF
END FUNCTION