Listing of file='BENCH0' on disk='vmedia/benchmark_tests.wvd.zip'
# Sector 142, program filename = 'BENCH0' 0010 %SCARTCHT "BENCH0":SAVE T()"BENCH0" 0040 COM P : P=P+1 0050 COM E(50) 0070 I=1 : J=0 0080 IF E(I)<>0THEN J=J+1 : I=I+1 : IF I<=30THEN 80 0081 IF G6=0THEN 85 : IF P=1THEN 85 0085 IF J=0THEN PRINT HEX(03) 0090 PRINT AT(0,10);"*** TESTING BASIC-2 BENCH MARK ***" : PRINT 0100 LOAD DC T"BENCH1" 0200 DEFFN'127 : LOAD RUN 0210 DEFFN'15 : LOAD RUN