10 PRINT"[147]":REM PRIMFAKTOREN
20 PRINT"PRIMFAKTOREN"
30 PRINT"************"
40 INPUT"ZAHL";Z
60 IFZ/2=INT(Z/2)THENPRINT2;:Z=Z/2:GOTO60
70 F=3
80 IFZ/F=INT(Z/F)THENPRINTF;:Z=Z/F:GOTO80
90 F=F+2
100 IFF<=ZTHEN80
110 PRINT:GOTO40