REM to print prime numbers from 1 to 50 DECLARE SUB prim() CLS CALL prim END SUB prim N = 1 WHILE N <= 50 F = 0 FOR I = 1 TO N IF N MOD I = 0 THEN F = F + 1 NEXT I IF F = 2 THEN PRINT N END IF N = N + 1 WEND END SUB