Listing of file='BENCH5' on disk='vmedia/benchmark_tests.wvd.zip'
# Sector 252, program filename = 'BENCH5'
0000 %SCRATCHT "BENCH5":SAVE T ()"BENCH5"
0020 PRINT AT(05,00);"STR,LEN........ <-- TESTING",
: S$=TIME
0090 DIM A$(256)1,C$1,B$(4)124
0095 FOR T=1 TO 200
0100 A$=ALL(41)
: STR(A$,2,3)="123"
: STR(A$,6,3)="4"
: STR(A$,10,3)="5678"
: STR(A$,14,1)=" "
: STR(A$,16,1)="0"
0110 B$=ALL("B")
: FOR I=1TO 16
: A$=ALL("A")
: STR(A$,I)=ALL("B")
: STR(B$,I,1)="A"
: NEXT I
0120 B$=ALL("A")
: FOR I=1TO 16
: A$=ALL("A")
: STR(A$,,I)=ALL("Z")
: STR(B$,I,1)="Z"
: NEXT I
0130 STR(C$)="A"
: STR(C$,1)="B"
: STR(C$,,1)="CDE"
: STR(C$,1,1)=" "
0200 B$()=ALL(FF)
: STR(B$())=" "
0210 STR(B$(),1,496)=ALL("A")
0220 STR(B$(),496,1)="Z"
0225 A$="A"
: STR(A$,2)=A$
0230 A$="A"
: STR(A$,2)=STR(A$)
0240 A$="0123456789ABCDEF"
: STR(A$)=STR(A$,2,15)
0300 A$()=ALL(5A)
: FOR I=1TO 256
: STR(A$(),I,1)=BIN(I-1)
: NEXT I
0310 A$(1)=" "
: STR(A$(),2)=STR(A$())
0400 A$,C$,A$(),B$()=" "
: IF LEN(A$)<>1OR LEN(C$)<>1OR LEN(A$())<>1OR LEN(A$(1))<>1OR LEN(B$(2))<>1
OR LEN(B$())<>1THEN REM
0410 A$,C$,A$(),B$()="X"
: IF LEN(A$)<>1OR LEN(C$)<>1OR LEN(A$())<>1OR LEN(A$(1))<>1OR LEN(B$(2))<>1
OR LEN(B$())<>1THEN REM
0420 FOR I=1TO 124
: STR(B$(3),I,1)="X"
: IF LEN(B$(3))<>ITHEN REM
: NEXT I
0430 A$=" "
: FOR I=1TO 16
: IF LEN(STR(A$,1,I))<>ITHEN REM
: NEXT I
0440 B$(),A$()=ALL(21)
: IF LEN(B$())<>496OR LEN(A$())<>256THEN REM
0450 B$(4)=" "
: IF LEN(B$())<>3*124THEN REM
0500 NEXT T
9000 PRINT AT(5,16,16);
: E$=TIME
: CONVERT STR(S$,1,2)TO S1
: CONVERT STR(S$,3,2)TO S2
: CONVERT STR(S$,5,2)TO S3
: CONVERT STR(E$,1,2)TO E1
: CONVERT STR(E$,3,2)TO E2
: CONVERT STR(E$,5,2)TO E3
: S9=S1*3600+S2*60+S3
: E9=E1*3600+E2*60+E3
: T0=E9-S9
: PRINT T0;"SEC"
9010 LOAD DC T"BENCH6"