start:
CLS
INPUT "Zadej źˇslo: ", a
IF a > 10000000000# OR a < 2 THEN GOTO start
k$ = STR$(a) + " ="
CLS
p:
FOR j = 2 TO a
LOCATE 1, 1: PRINT "Rozkladan‚ źˇslo: "; j; "/"; a
LOCATE 2, 1: PRINT k$
IF (a MOD j) = 0 THEN z = j: GOTO l
IF a = 1 THEN EXIT FOR
DO
i$ = INKEY$
LOOP UNTIL i$ <> "" OR i$ = ""
IF i$ <> "" THEN CLS : END
NEXT
CLS
k$ = LEFT$(k$, (LEN(k$) - 2))
k$ = RIGHT$(k$, LEN(k$) - 1)
PRINT k$
SLEEP 0
END
l:
a = a / z
k$ = k$ + STR$(z) + " *"
GOTO p