CLS
DIM i, k AS LONG
DO
DO
INPUT i
LOOP UNTIL i > 1
PRINT i; "=";
k = 2
10 IF i MOD k = 0 THEN PRINT k; : i = i / k ELSE k = k + 1: GOTO 10
DO
DO WHILE i MOD k = 0
PRINT "*"; k;
i = i / k
LOOP
k = k + 1
LOOP UNTIL i = 1
PRINT
INPUT "Exit?Input -1"; t
LOOP UNTIL t = -1
END