Listing of file='BENCH11' on disk='vmedia/benchmark_tests.wvd.zip'
# Sector 307, program filename = 'BENCH11'
0000 %SCRATCHT "BENCH11":SAVE T ()"BENCH11"
0020 PRINT AT(11,00);"PACK,UNPACK.... <-- TESTING",
: S$=TIME
0090 DIM A$124,B$1,N(10)
0095 FOR T=1 TO 1000
0100 A$=ALL(FF)
: PACK(#)A$FROM0,1,-2,.1,-.01
: X=POS(A$=FF)
: IF STR(A$,1,X)<>HEX(0F1F2F0F0FFF)THEN REM
: A,B,C,D,E=9
: UNPACK(#)A$TO A,B,C,D,E
: IF A<>0OR B<>1OR C<>2OR D<>0OR E<>0THEN REM
0110 A$=ALL(FF)
: PACK(+#)A$FROM0,1,-2,.1,-.01
: X=POS(A$=FF)
: IF STR(A$,1,X)<>HEX(0001128090FF)THEN REM
: A,B,C,D,E=9
: UNPACK(+#)A$TO A,B,C,D,E
: IF A<>0OR B<>1OR C<>-2OR D<>0OR E<>0THEN REM
0120 A$=ALL(FF)
: PACK(-#)A$FROM0,1,-2,.1,-.01
: X=POS(A$=FF)
: IF STR(A$,1,X)<>HEX(0001128090FF)THEN REM
: A,B,C,D,E=9
: UNPACK(-#)A$TO A,B,C,D,E
: IF A<>0OR B<>1OR C<>-2OR D<>0OR E<>0THEN REM
0130 A$=ALL(FF)
: PACK(#.)A$FROM0,1,-2,.1,-.01
: X=POS(A$=FF)
: IF STR(A$,1,X)<>HEX(0F1F2F0F0FFF)THEN REM
: A,B,C,D,E=9
: UNPACK(#.)A$TO A,B,C,D,E
: IF A<>0OR B<>1OR C<>2OR D<>0OR E<>0THEN REM
0140 A$=ALL(FF)
: PACK(.#)A$FROM0,.1,-.01,.234,-.4
: X=POS(A$=FF)
: IF STR(A$,1,X)<>HEX(0F1F0F2F4FFF)THEN REM
: A,B,C,D,E=9
: UNPACK(.#)A$TO A,B,C,D,E
: IF A<>0OR B<>.1OR C<>0OR D<>.2OR E<>.4THEN REM
0150 A$=ALL(FF)
: PACK(+.#)A$FROM0,.1,-.01,.234,-.4
: X=POS(A$=FF)
: IF STR(A$,1,X)<>HEX(0081908294FF)THEN REM
: A,B,C,D,E=9
: UNPACK(-.#)A$TO A,B,C,D,E
: IF A<>0OR B<>.1OR C<>0OR D<>.2OR E<>-.4THEN REM
0160 A$=ALL(FF)
: PACK(#.#)A$FROM0,.1,-.01,.234,-.4,2,-3.23
: X=POS(A$=FF)
: IF STR(A$,1,X)<>HEX(00010002042032FF)THEN REM
: A,B,C,D,E=9
: UNPACK(#.#)A$TO A,B,C,D,E,F,G
: IF A<>0OR B<>.1OR C<>0OR D<>.2OR E<>.4OR F<>2OR G<>3.2THEN REM
0170 A$=ALL(FF)
: PACK(-#.#)A$FROM0,.1,-.01,.234,-.4,2,-3.23
: X=POS(A$=FF)
: IF STR(A$,1,X)<>HEX(000F801F900F802F904F020F132FFF)THEN REM
: A,B,C,D,E=9
: UNPACK(+#.#)A$TO A,B,C,D,E,F,G
: IF A<>0OR B<>.1OR C<>0OR D<>.2OR E<>-.4OR F<>2OR G<>-3.2THEN REM
0180 A$=ALL(FF)
: PACK(####)A$FROM0,.1,-.01,12,-34,567,-890,7654.1,5678.9
: X=POS(A$=FF)
: IF STR(A$,1,X)<>HEX(000000000000001200340567089076545678FF)THEN REM
0185 A,B,C,D,E,F,G,H,I=9
: UNPACK(####)A$TO A,B,C,D,E,F,G,H,I
: IF A<>0OR B<>0OR C<>0OR D<>12OR E<>34OR F<>567OR G<>890OR H<>7654OR I<>56
78THEN REM
0190 A$=ALL(FF)
: PACK(-####)A$FROM0,.1,-.01,12,-34,567,-890,7654.1,-5678.9
: X=POS(A$=FF)
: IF STR(A$,1,X)<>HEX(00000F80000F90000F00012F10034F00567F10890F07654F15678
FFF)THEN REM
0195 A,B,C,D,E,F,G,H,I=9
: UNPACK(+####)A$TO A,B,C,D,E,F,G,H,I
: IF A<>0OR B<>0OR C<>0OR D<>12OR E<>-34OR F<>567OR G<>-890OR H<>7654OR I<>
-5678THEN REM
0200 A$=ALL(FF)
: PACK(#^^^^)A$FROM0,.1,-.01,12,-34,567,-890,1E23,9E-87
: X=POS(A$=FF)
: IF STR(A$,1,X)<>HEX(000F101F102F101F301F502F802F123F987FFF)THEN REM
0205 A,B,C,D,E,F,G,H,I=9
: UNPACK(#^^^^)A$TO A,B,C,D,E,F,G,H,I
: IF A<>0OR B<>10OR C<>100OR D<>10OR E<>30OR F<>500OR G<>800OR H<>1E23OR I<
>9E+87THEN REM
0210 A$=ALL(FF)
: PACK(+#^^^^)A$FROM0,.1,-.01,12,-34,567,-890,1E23,9E-87
: X=POS(A$=FF)
: IF STR(A$,1,X)<>HEX(000081019102010113010502180201238987FF)THEN REM
0215 A,B,C,D,E,F,G,H,I=9
: UNPACK(-#^^^^)A$TO A,B,C,D,E,F,G,H,I
: IF A<>0OR B<>.1OR C<>-.01OR D<>10OR E<>-30OR F<>500OR G<>-800OR H<>1E23OR
I<>9E-87THEN REM
0220 A$=ALL(FF)
: PACK(####################)A$FROM0,.1,12,-890,1234567890123,1.23E19
: X=POS(A$=FF)
: IF STR(A$,1,X)<>HEX(00000000000000000000000000000000000000000000000000000
0000012000000000000000008900000000123456789012312300000000000000000FF)THE
N REM
0225 A,B,C,D,E=9
: UNPACK(####################)A$TO A,B,C,D,E
: IF A<>0OR B<>0OR C<>12OR D<>890OR E<>1234567890123THEN REM
0230 PACK(##)B$FROM10+2
: IF B$<>HEX(12)THEN REM
0240 PACK(##)B$FROM123
: ERRORIF ERR<>71THEN REM
0250 FOR I=1TO 10
: N(I)=I
: NEXT I
: A$=ALL(FF)
: PACK(##)A$FROM0,N(),11
: X=POS(A$=HEX(FF))
: IF STR(A$,,X)<>HEX(000102030405060708091011FF)THEN REM
: UNPACK(##)A$TO N(),X,Y
: FOR I=1TO 10
: IF N(I)<>I-1THEN REM
: NEXT I
: IF X<>10OR Y<>11THEN REM
0500 NEXT T
9000 PRINT AT(11,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"BENCH12"