多年前的GVBASIC代码

突然翻出来的

10 INPUT "INPUT:";N :I=2 :B=N :L=SQR(N)
20 IF N/I<>INT(N/I) THEN 50
30 IF I>L THEN 70
40 PRINT I;"*"; :N=N/I :L=SQR(N) :GOTO 20
50 IF I>L THEN 70
60 I=I+1 :GOTO 20
70 PRINT N;"=";B :GOTO 10
80 END