Listing of file='BENCH12' on disk='vmedia/benchmark_tests.wvd.zip'
# Sector 329, program filename = 'BENCH12' 0000 %SCRATCHT "BENCH12":SAVE T ()"BENCH12" 0020 PRINT AT(12,00);"$PACK,$UNPACK.... <-- TESTING", : S$=TIME 0090 DIM A$124,B$1,N(10) 0095 FOR T=1 TO 8000 0100 A$=" " : $PACK(D=HEX(002C))A$FROM0,1,-2,.1,-.01 : X=POS(A$=FF) : A,B,C,D,E=9 : $UNPACK(D=HEX(002C))A$TO A,B,C,D,E : IF A<>0OR B<>1OR C<>2OR D<>0OR E<>0THEN REM 0110 A$=ALL(FF) : $PACK(F=HEX(10041004100410041004))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(F=HEX(10041004100410041004))A$TO A,B,C,D,E : IF A<>0OR B<>1OR C<>-2OR D<>0OR E<>0THEN REM 0120 A$=ALL(FF) : $PACK(F=HEX(52045204520452045204))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(F=HEX(52045204520452045204))A$TO A,B,C,D,E : IF A<>0OR B<>1OR C<>-2OR D<>0OR E<>0THEN REM 0130 A$=ALL(FF) : $PACK(F=HEX(62046204620462046204))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(F=HEX(62046204620462046204))A$TO A,B,C,D,E : IF A<>0OR B<>1OR C<>2OR D<>0OR E<>0THEN REM 0500 NEXT T 9000 PRINT AT(12,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"BENCH13"