Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
22 lines (21 sloc) 362 Bytes
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