sudo adduser $USER dialout

Dim As string pgms(10)=("","","bench.bas","grain.bas","speed.bas","ta.bas","","
","","","")
pgms(8)="sieve.bas"
'pgms(9)="/hello.bas"
gettime
If Mid$(Date$,7)="2000" Then ' date uninitialized
 Do
   Line Input "Enter date (dd-mm-yyyy): ",a$
   On error skip 2
   Date$=a$
   Exit
 Loop
 Do
   Line Input "Enter time (hh:mm:ss): ",a$
   On error skip 2
   Time$=a$
   Exit
 Loop
EndIf
Print ""
For i=2 To 9
 If pgms(i)<>"" Then Print i;" "+pgms(i)
Next i
Print
Do
 Print "Enter # of program to be run ";
 Do : a$=Inkey$: Loop While a$=""
 i=Val(a$)
 If i>1 And i < 10 Then
   If pgms(i)<>"" Then
     Print i;" - "+pgms(i)
     If Mid$(pgms(i),1)="/" Then ' it's on the SD
       Load Mid$(pgms(i),2),r
     Else
       Flash run i
     EndIf
   EndIf
 EndIf
Loop

Sub gettime
Local integer d(9)
Local string dt$,tm$
SetPin 14,i2c1sda:  SetPin 15,i2c1scl
On error skip 7
I2C1 open 100, 1000
I2C1 WRITE &b1101000,1,1,0 ' set the read address to 0
I2C1 read &h68,0,7,d()
Close i2c1
dt$=Str$(bcd_bin(d(4)))+"-"+Str$(bcd_bin(d(5)))+"-20"+Str$(bcd_bin(d(6)))
tm$=Str$(bcd_bin(d(2)))+":"+Str$(bcd_bin(d(1)))+":"+Str$(bcd_bin(d(0)))
Date$=dt$:Time$=tm$
' ?date$,time$
End Sub

Function bcd_bin(Val As integer) As integer ' from FruitOfTheShed
 Local integer tmp
 ' convert the BCD values to binary
 tmp = val And &b00001111
 bcd_bin = (val And &b11110000) * 10 / 16 + tmp
End Function

> load "bench.bas"
> flash save 2
> load "grain.bas"
> flash save 3
> load "speed.bas"
> flash save 4
> load "ta.bas"
> flash save 5
> load "sieve.bas"
> flash save 8
> load "menu.bas"
> flash save 1
> flash list
Slot 1 in use: "' menu.bas"
Slot 2 in use: "' bench.bas"
Slot 3 in use: "' grain.bas"
Slot 4 in use: "' speed.bas lines per second -- takes several minutes"
Slot 5 in use: "' ta.bas -- takes 18 minutes to run"
Slot 6 available
Slot 7 available
Slot 8 in use: "' Sieve of Eratosthenes Speed Test"
Slot 9 in use: "'  option autorun on"
Slot 10 available
>
> flash run 1

2 bench.bas
3 grain.bas
4 speed.bas
5 ta.bas
8 sieve.bas

Enter # of program to be run  2 - benchmark.bas
Maximite Benchmark tests

Benchmark 1
0.016635

Benchmark 2
0.109572

Benchmark 3
0.179966

Benchmark 4
0.183971

Benchmark 5
0.332491

Benchmark 6
0.471468

Benchmark 7
0.668792

Benchmark 8
0.319284
0.0166  0.1096  0.1800  0.1840  0.3325  0.4715  0.6688  0.3193

Enter # of program to be run  3 - grainbench.bas
MMBASIC grain benchmark (C) KnivD 2016
Performance:     2033 grains

2 bench.bas
3 grain.bas
4 speed.bas
5 ta.bas
8 sieve.bas

Enter # of program to be run  4 - speedtest.bas
Speed is 47279 lines per second.

2 bench.bas
3 grain.bas
4 speed.bas
5 ta.bas
8 sieve.bas

Enter # of program to be run  8 - sieve.bas
Sieve of Eratosthenes Speed Test

2.29157 seconds

48122 statements
19747 lines

20999.57671 statements per second
8617.236218 lines per second


2 bench.bas
3 grain.bas
4 speed.bas
5 ta.bas
8 sieve.bas

Enter # of program to be run  5 - ta.bas
TA.BAS runs five loops as follows:
1. 1,000,000 repetitions of an empty loop
2. 10,000 repetitions of a loop which reads 100 lines from TAIN.TXT
3. writes a new TAJUNK.TXT file containing 1,000,000 lines of text
4. 900,000 repetitions of a loop which extracts a MID$() from a string
5. 1,000,000 repetitions of a loop which takes a VAL() from a string

Please input a description of this computer or a null string to Cancel.
.... ?picomite
picomite
Running on computer 'picomite' on 15-06-2021 at 10:09:29
Starting 1,000,000 iterations of empty loop ...
Finished 1,000,000 iterations of empty loop in 12183.654ms or 0.0122 ms per iteration.
Starting reading 100 line file 10,000 times ...
Finished reading 100 line file 10,000 times in 625201.186ms or 0.6252 ms per iteration.
Starting writing 1,000,000 line file ...
Finished writing 1,000,000 line file in 214438.538ms or 0.2144 ms per iteration.
Starting parse 9 strings from 100,000 strings ...
Finished parse 9 strings from 100,000 strings in 125253.287ms or 0.1392 ms per iteration.
Starting extracting the value from a string 1,000,000 times ...
Finished extracting the value from a string 1,000,000 times in 71760.842ms or 0.0718 ms per iteration.
Finished 4,900,000 iterations on computer 'picomite' in  1.048883467e+06ms or 0.2141 ms per iteration.
0.0122  0.6252  0.2144  0.1392  0.0718  0.2141
===============================================

2 benchmark.bas
3 grainbench.bas
4 speedtest.bas
5 ta.bas
8 sieve.bas

Enter # of program to be run
> ?time$
10:27:14
>

dim integer prtm(9),pr(9)=(21,22,24,25,26,27,29,31,32,34)
dim integer pltm(15),pl(15)=(1,2,4,5,6,7,9,10,11,12,14,15,16,17,19,20)
' half-second time resolution--500ms
for i=0 to 9: ?pr(i);" ";: setpin pr(i),dout: next i
for i=0 to 15: ?pl(i);" ";: setpin pl(i),dout: next i
t=timer
for i=0 to 9: prtm(i)=rnd*10000+t: pin(pr(i))=1: next i ' random delay times up to 10 seconds
for i=0 to 15: pltm(i)=rnd*10000+t: pin(pl(i))=1: next i ' random delay times  
pause 2000
do
 for i=0 to 9
   if timer > prtm(i) then: pin(pr(i))=1-pin(pr(i)): prtm(i)=rnd*10000+timer: endif
 next i
 for i=0 to 15
   if timer > pltm(i) then: pin(pl(i))=1-pin(pl(i)): pltm(i)=rnd*10000+timer: endif
 next i
loop