26 lines
447 B
Plaintext
26 lines
447 B
Plaintext
_runtimePath_ "../runtime"
|
|
_codeRomType_ ROMv1
|
|
|
|
cls
|
|
|
|
100 PRINT "INTERFACE AGE";
|
|
101 PRINT " PRIME-NUMBER";
|
|
102 PRINT " BENCHMARK";
|
|
103 PRINT " PROGRAM"
|
|
104 PRINT "For Gigatron";
|
|
105 PRINT " gtBASIC "
|
|
110 FOR N=1 TO 200
|
|
120 FOR K=2 TO 100
|
|
130 M=N % K
|
|
140 L=N / K
|
|
150 IF L&&=0 THEN GOTO 200
|
|
160 IF L&&=1 THEN GOTO 190
|
|
170 IF M&&>0 THEN GOTO 190
|
|
180 IF M&=0 THEN GOTO 210
|
|
190 NEXT K
|
|
200 PRINT N
|
|
210 NEXT N
|
|
220 PRINT
|
|
230 PRINT
|
|
240 PRINT "DONE"
|
|
250 END |