home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9011a.d64 / primfaktoren (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  183b  |  11 lines
  1. 10 PRINT"[147]":REM PRIMFAKTOREN
  2. 20 PRINT"PRIMFAKTOREN"
  3. 30 PRINT"************"
  4. 40 INPUT"ZAHL";Z
  5. 60 IFZ/2=INT(Z/2)THENPRINT2;:Z=Z/2:GOTO60
  6. 70 F=3
  7. 80 IFZ/F=INT(Z/F)THENPRINTF;:Z=Z/F:GOTO80
  8. 90 F=F+2
  9. 100 IFF<=ZTHEN80
  10. 110 PRINT:GOTO40
  11.