100 ; CHR$(12) : ; : ; TAB(12)'PRIMFAKTORISERING' : ; 
110 REM Autor :  Guido Petz
120 ; TAB(5)'F|r tal med upp till 28 siffror!'
130 ONERRORGOTO 100 : ; CHR$(7) : ; 'VILKET TAL'; : INPUT X$ : Y$=X$ : A=SQR(VAL(X$)) : ; 
140 IF LEN(X$)>28 THEN ; CUR(10,5)'TALET HAR FLER [N 28 SIFFROR' : FOR I=1 TO 3000 : NEXT I : GOTO 100
150 ; TAB(5)STRING$(29,127)
160 ; TAB(5)' Uppskattad exekveringstid ' : ; TAB(5)''; : ; TAB(33)'' : ; TAB(5)''; : ; TAB(21)'sekunder    '
170 ; TAB(5)STRING$(29,127)
180 POKE -528%,255%,255%,255%
190 GOSUB 380 : ; : ; : ; 'FAKTORER:';
200 A$='2' : GOSUB 320
210 A$='3' : GOSUB 320
220 A$='5' : GOSUB 320 : A$='1'
230 A$=ADD$(A$,'6',0) : GOSUB 320
240 A$=ADD$(A$,'4',0) : GOSUB 320
250 A$=ADD$(A$,'2',0) : GOSUB 320
260 A$=ADD$(A$,'4',0) : GOSUB 320
270 A$=ADD$(A$,'2',0) : GOSUB 320
280 A$=ADD$(A$,'4',0) : GOSUB 320
290 A$=ADD$(A$,'6',0) : GOSUB 320
300 A$=ADD$(A$,'2',0) : GOSUB 320
310 IF VAL(A$)<A THEN 230 : IF X$='1' THEN 350 : ; X$; : IF X$=Y$ ; ' {r primtal!!' ELSE 350 : GOTO 350
320 IF NOT X$=MUL$(A$,DIV$(X$,A$,0%),0%) RETURN 
330 ; A$;' '; : X$=DIV$(X$,A$,0) : GOSUB 380
340 IF X$=MUL$(A$,DIV$(X$,A$,0),0) THEN 330 : RETURN 
350 T0=20*(255% XOR PEEK(-528%)) : T1=5120*(255% XOR PEEK(-527%)) : T2=1.31072E+6*(255% XOR PEEK(-526%))
360 ; : ; : ; 'Det tog sammanlagd';(T0+T1+T2)/1000' sekunder!' : ; : ; CHR$(7)
370 ; TAB(3)'VILL DU FORTS[TTA S] TRYCK "j"'; : GET C$ : IF C$='j' 100 ELSE ; CUR(21,13)'HEJ D]!' : END 
380 B=VAL(X$) : A=SQR(B) : X=PEEK(-525) : Y=PEEK(-524)
390 ; CUR(11,8)SPACE$(12); : ; CUR(11,8)INT(10*.012498*B^.529441+.5)/10; : ; CUR(X,Y); : RETURN