QBASIC PROGRAM TO FIND ALL PRIME NUMBERS UPTO 100

CLS
 FOR N = 1 TO 100
 C = 0
 FOR I = 1 TO N
 IF N MOD I = 0 THEN C = C + 1
 NEXT I
 IF C = 2 THEN PRINT N,
 NEXT N
 END

USING SUB

DECLARE SUB PRIME()
 CLS
 CALL PRIME
 END
 
 SUB PRIME
 FOR N = 1 TO 100
 C = 0
 FOR I = 1 TO N
 IF N MOD I = 0 THEN C = C + 1
 NEXT I
 IF C = 2 THEN PRINT N,
 NEXT N
 END SUB