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 |