100 ' Mini-Primfaktoren-Zerleger
110 :
120 INPUT "Zu zerlegende Zahl";Z#
130 P#=2#:R#=Z#
140 WHILE R#>=P#*P#:H#=R#/P#:WHILE H#=INT(H#)
150 PRINT P#;:R#=H#
155 IF R#>1# THEN PRINT "*";
160 H#=R#/P#:WEND:P#=P#+1#
170 WEND
180 IF R#>1# THEN PRINT R#
190 END