home *** CD-ROM | disk | FTP | other *** search
- 10 REM ********************************
- 11 REM * THIS PROGRAMS HELPS YOU TO *
- 12 REM * FIND OUT WHICH NUMBERS ARE *
- 13 REM * PRIME AND WHICH ARE NOT. *
- 14 REM * *
- 15 REM * BY CLIFFORD GOTTSCHALK - 1988*
- 16 REM ********************************
- 17 PRINT"****************************************":PRINT:PRINT
- 18 PRINT" THIS PROGRAM IS TO HELP YOU";
- 19 PRINT" FIND OUT"
- 20 PRINT" WHICH NUMBERS ARE PRIME AND";
- 21 PRINT" THOSE THAT ARE NOT. THIS PROGRAM WILL DO VERY LARGE NUMBERS,";
- 22 PRINT" BUT YOU MAY HAVE TO WAIT A FEW MINUTES ";
- 23 PRINT"FOR ANSWER TO APPEAR."
- 25 PRINT:PRINT
- 30 PRINT" TO USE THIS PROGRAM, JUST";
- 35 PRINT" FOLLOW THE INSTRUCTIONS AS";
- 40 PRINT" INDICATED AND INPUT YOUR NUMBER.";
- 41 PRINT" THEN PRESS THE <RETURN> KEY."
- 45 PRINT:PRINT:PRINT
- 46 PRINT"****************************************"
- 50 PRINT" ENTER HOW MANY NUMBERS YOU";
- 55 PRINT" ARE GOING TO CHECK ON";
- 60 INPUT A
- 61 PRINT
- 62 PRINT"****************************************"
- 65 DIM I(A)
- 70 FOR I=1 TO A
- 72 PRINT
- 75 PRINT" ENTER THE NUMBER";
- 85 INPUT NUM
- 86 PRINT
- 90 IF NUM/2=INT(NUM/2) THEN 120
- 100 FOR J=3 TO NUM - 1 STEP 2
- 105 IF NUM/J=INT(NUM/J) THEN 120
- 110 NEXT J
- 115 GOTO 130
- 120 PRINT TAB(6);NUM;"IS NOT A PRIME NUMBER"
- 9 GOTO 132
- 130 PRINT TAB(6);NUM;"IS A PRIME NUMBER"
- 132 IF A$ = "Y" THEN GOTO 139
- 133 IF A$ = "YES" THEN GOTO 139
- 135 NEXT I
- 139 PRINT:PRINT
- 140 PRINT"--- WOULD YOU LIKE TO RUN THROUGH ----"
- 145 PRINT" IT AGAIN? (YES OR N0)";
- 150 INPUT A$
- 155 IF A$ = "Y" THEN GOTO 72
- 156 IF A$ = "YES" THEN GOTO 72
- 160 IF A$ = "N" THEN GOTO 169
- 161 IF A$ = "NO" THEN GOTO 169
- 169 PRINT:PRINT:PRINT
- 170 PRINT"+++++++++++++++++++++++++++++++++++++++"
- 175 PRINT" THANKYOU FOR LETTING ME CHECK ON"
- 176 PRINT" YOUR NUMBERS!"
- 180 PRINT"+++++++++++++++++++++++++++++++++++++++"
- 9999 END
-