Permalink
Cannot retrieve contributors at this time
100 PRINT"INTERFACE AGE"; | |
101 PRINT" PRIME-NUMBER"; | |
102 PRINT" BENCHMARK"; | |
103 PRINT" PROGRAM" | |
104 PRINT"For Gigatron"; | |
105 PRINT" TinyBASIC v2" | |
110 FOR N=1 TO 200 | |
120 FOR K=2 TO 100 | |
130 M=N%K | |
140 L=N/K | |
150 IF L=0 GOTO 200 | |
160 IF L=1 GOTO 190 | |
170 IF M>0 GOTO 190 | |
180 IF M=0 GOTO 210 | |
190 NEXT K | |
200 PRINT N | |
210 NEXT N | |
220 PRINT | |
230 PRINT | |
240 PRINT "DONE" | |
250 END |