home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / PRIME-FACTORS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  384 b   |  17 lines
  1. 0 REM PRIME FACTORS BY DAVE LUND
  2. 1 POKE53281,0:POKE53280,0
  3. 2 PRINT"[147][159]INPUT NUMBER TO FACTOR ";
  4. 10 A=2:INPUTN:PRINT:IFN=0THEN10
  5. 20 PRINT"1 ";
  6. 30 FOR X=0TO1STEP0:N=N/2:IFN<>INT(N)THEN X=1:N=N*2:NEXTX:GOTO50
  7. 40 PRINT"X[159]"A;:NEXTX
  8. 50 FORY=3TONSTEP2
  9. 60 FORX=0TO1STEP0
  10. 65 IFN=1THENX=1:NEXTX:GOTO110
  11. 70 IFN/Y<>INT(N/Y)THENX=1:NEXTX:GOTO100
  12. 90 N=N/Y:PRINT"X[159]"Y;:NEXTX
  13. 100 NEXTY
  14. 110 PRINT:PRINT:PRINT"HIT ANY KEY[159]"
  15. 120 GETA$:IFA$=""THEN120
  16. 130 GOTO2
  17.