22 lines
362 B
Plaintext
22 lines
362 B
Plaintext
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
|