home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / SUPER-PRIMES (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  68 lines
  1. 1 POKE808,234
  2. 4 PRINT"[147]"
  3. 5 GOSUB1000
  4. 6 PRINT"[147]"
  5. 7 INPUT"WHICH NUMBER WOULD                      YOU LIKE TO TRY";L
  6. 8 TI$="000000"
  7. 9 Z=L/2-1
  8. 10 DIM A(Z)
  9. 20 FORT=1TOZ:A(T)=2*T+1:NEXT
  10. 50 X=1
  11. 55 A=A(X)
  12. 60 FORT=X+ATOZSTEPA:A(T)=0:NEXT
  13. 70 X=X+1
  14. 80 IFA(X)>SQR(L)THEN100
  15. 90 IFA(X)=0THEN70
  16. 95 GOTO55
  17. 100 PRINT"THE NUMBERS HAVE BEEN CALCULATED IN":T$=TI$:GOSUB500
  18. 101 PRINT"PRESS ANY KEY TO SEE LIST.":PRINT"PRESS CTRL[146] KEY TO SLOW LIST."
  19. 102 GETX$:IFX$=""THEN102
  20. 105 PRINT2
  21. 110 FORT=1TOZ
  22. 120 IFA(T)<>0THENPRINTA(T)
  23. 130 NEXT
  24. 131 PRINT"DO YOU WISH TO REVIEW LIST?(Y/N)"
  25. 132 GETX$:IFX$=""THEN132
  26. 133 IFX$="Y"THENPRINT"[147]":GOTO101
  27. 134 PRINT"WOULD YOU LIKE TO TRY A NEW             NUMBER? (Y/N)"
  28. 135 GETX$:IFX$=""THEN135
  29. 136 IFX$="Y"THENPRINT"[147]":RUN7
  30. 137 SYS64738
  31. 500 M$=MID$(T$,3,2):S$=MID$(T$,5,2)
  32. 505 PRINT"    ABOUT "M$" MINUTES, "S$" SECONDS"
  33. 510 RETURN
  34. 1000 POKE53280,0:POKE53281,0:POKE646,4
  35. 1005 PRINT"[147]"
  36. 1010 PRINT"SUPER  PRIMES"
  37. 1020 PRINT"BY"
  38. 1030 PRINT"NORMAN KRUMPE"
  39. 1040 FORT=1TO2000:NEXT
  40. 1050 PRINT"PRESS F1[146] TO BEGIN"
  41. 1060 GETX$:IFX$<>CHR$(133)THEN1060
  42. 1070 PRINT"[147]":PRINT"THE PURPOSE OF THIS PROGRAM"
  43. 1080 PRINT"IS TO LIST THE PRIME NUMBERS"
  44. 1090 PRINT"UP TO A SPECIFIED POINT."
  45. 1100 PRINT"DUE TO LIMITED MEMORY SPACE,"
  46. 1110 PRINT"T    
  47. 21072 OGRAM CAN ONLY LIST "
  48. 1120 PRINT"THE PRIMES UP TO 14750."
  49. 1130 PRINT"WHEN YOU ENTER A NUMBER,"
  50. 1140 PRINT"BE SURE THAT IT IS AN EVEN"
  51. 1150 PRINT"NUMBER BETWEEN 10 AND 14750."
  52. 1160 PRINT"PRESS F1[146] TO CONTINUE"
  53. 1170 GETX$:IFX$<>CHR$(133)THEN1170
  54. 1180 PRINT"[147]":PRINT"THE COMPUTER WILL TIME THE"
  55. 1190 PRINT"CALCULATION PROCESS."
  56. 1200 PRINT"YOU WILL THEN BE GIVEN THE"
  57. 1210 PRINT"OPPORTUNITY TO LIST AND RELIST"
  58. 1220 PRINT"THE CALCULATED NUMBERS."
  59. 1230 PRINT"FINALLY, YOU WILL BE ABLE TO"
  60. 1240 PRINT"TRY OTHER NUMBERS."
  61. 1250 PRINT"    
  62. 17747  NOTE!! AS SOON AS YOU"
  63. 1260 PRINT"DECIDE TO QUIT, THE PROGRAM"
  64. 1270 PRINT"WILL BE ERASED."
  65. 1280 PRINT"PRESS F1[146] TO CONTINUE"
  66. 1290 GETX$:IFX$<>CHR$(133)THEN1290
  67. 1300 RETURN
  68.