home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / PRIME-NUMBERS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.6 KB  |  58 lines
  1. 10 REM ********************************
  2. 11 REM * THIS PROGRAMS HELPS YOU TO   *
  3. 12 REM * FIND OUT WHICH NUMBERS ARE   *
  4. 13 REM * PRIME AND WHICH ARE NOT.     *
  5. 14 REM *                              *
  6. 15 REM * BY CLIFFORD GOTTSCHALK - 1988*
  7. 16 REM ********************************
  8. 17 PRINT"****************************************":PRINT:PRINT
  9. 18 PRINT" THIS PROGRAM IS TO HELP YOU";
  10. 19 PRINT" FIND OUT"
  11. 20 PRINT" WHICH NUMBERS ARE PRIME AND";
  12. 21 PRINT" THOSE THAT  ARE NOT.  THIS PROGRAM WILL DO VERY     LARGE NUMBERS,";
  13. 22 PRINT" BUT YOU MAY HAVE TO WAIT A FEW MINUTES ";
  14. 23 PRINT"FOR ANSWER TO APPEAR."
  15. 25 PRINT:PRINT
  16. 30 PRINT"  TO USE THIS PROGRAM, JUST";
  17. 35 PRINT" FOLLOW THE    INSTRUCTIONS AS";
  18. 40 PRINT" INDICATED AND INPUT     YOUR NUMBER.";
  19. 41 PRINT"  THEN PRESS THE <RETURN>   KEY."
  20. 45 PRINT:PRINT:PRINT
  21. 46 PRINT"****************************************"
  22. 50 PRINT"  ENTER HOW MANY NUMBERS YOU";
  23. 55 PRINT" ARE GOING    TO CHECK ON";
  24. 60 INPUT A
  25. 61 PRINT
  26. 62 PRINT"****************************************"
  27. 65 DIM I(A)
  28. 70 FOR I=1 TO A
  29. 72 PRINT
  30. 75 PRINT"  ENTER THE NUMBER";
  31. 85 INPUT NUM
  32. 86 PRINT
  33. 90 IF NUM/2=INT(NUM/2) THEN 120
  34. 100 FOR J=3 TO NUM - 1 STEP 2
  35. 105 IF NUM/J=INT(NUM/J) THEN 120
  36. 110 NEXT J
  37. 115 GOTO 130
  38. 120 PRINT TAB(6);NUM;"IS NOT A PRIME NUMBER"
  39. 9 GOTO 132
  40. 130 PRINT TAB(6);NUM;"IS A PRIME NUMBER"
  41. 132 IF A$ = "Y" THEN GOTO 139
  42. 133 IF A$ = "YES" THEN GOTO 139
  43. 135 NEXT I
  44. 139 PRINT:PRINT
  45. 140 PRINT"--- WOULD YOU LIKE TO RUN THROUGH  ----"
  46. 145 PRINT"    IT AGAIN? (YES OR N0)";
  47. 150 INPUT A$
  48. 155 IF A$ = "Y" THEN GOTO 72
  49. 156 IF A$ = "YES" THEN GOTO 72
  50. 160 IF A$ = "N" THEN GOTO 169
  51. 161 IF A$ = "NO" THEN GOTO 169
  52. 169 PRINT:PRINT:PRINT
  53. 170 PRINT"+++++++++++++++++++++++++++++++++++++++"
  54. 175 PRINT"   THANKYOU FOR LETTING ME CHECK ON"
  55. 176 PRINT"         YOUR NUMBERS!"
  56. 180 PRINT"+++++++++++++++++++++++++++++++++++++++"
  57. 9999 END
  58.