10
20
30 :
40 MODE128
50 DIM X% 31:Y%=X%DIV256:R%=0:base%=&FFFF7F80:num%=&4000:DIM here% num%
60 REPEAT
70 !X%=&10D:X%!2=base%:X%!6=here%:X%!10=num%:X%?12=1:X%?4=R%:A%=255:
80 VDU30:PRINT "Read from ";~X%!2;" ROM ";R%;SPC2
90 T%=TIME:FORZ%=1TO10:CALL&FFF1:NEXT:T%=TIME-T%
100 PRINT "10 x ";num%DIV1024;"K in ";T%;"cs - ";(10*num%)DIVT%;" bytes/sec"
110 OSCLI"MDUMP "+STR$~here%+"+100"
120 PRINT SPC20;CHR$11:K%=GET AND &DF
130 IF K%=13:R%=R%+1 ELSE IF K%=95:R%=R%-1 ELSE IF K%=65:INPUT "Address: &"A$:base%=EVAL("&"+A$)
140 UNTIL FALSE