Primzahl-Test in QBASIC

Die rekursive Funktion 
primcheck (zahl, teiler)
prüft, ob 
zahl
eine Primzahl ist. 
DECLARE FUNCTION primcheck! (zahl!, teiler!)
FOR zahl = 3 TO 1000 STEP 2
IF primcheck(zahl, 3) = 1 THEN PRINT zahl;
NEXT zahl
END

FUNCTION primcheck (zahl, teiler)
   IF teiler * teiler > zahl THEN
      primcheck = 1
   ELSEIF zahl MOD teiler = 0 THEN
      primcheck = 0
   ELSE
      primcheck = primcheck(zahl, teiler + 2)
   END IF
END FUNCTION
© C. Wolfseher