4 REM Single Board Computer 6502
5 PRINT CHR$(12);"RETROBENCHMARK TEST"
10 W=250
15 DIM F(W):P=1:A=3
20 F(P)=A:P=P+1:IF P>W THEN GOTO 70
25 REM:PRINT P
30 A=A+2:X=1
40 S=A/F(X):IF S=INT(S) THEN 30
50 X=X+1:IF X>=P THEN 60
51 IF F(X)*F(X)<=A THEN 40
60 GOTO 20
70 PRINT "END":END