10 REM > OswFFTest
   20 REM Test reading I/O memory via OSWORD &FF
   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:REM Read
   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