5 Q%=13
   10 *FX60
   20 VDU 2
   25 *STATUSQ%
   30 ON ERROR IF ERR =255 THEN A%=A%+1:GOTO 90
   40 *NROMQ%
   50 A%=&60
   60 PRINT"Searching for &FE";~A%
   70 *BFIND8000C000A%&FE
   80 A%=A%+1
   90 IF A%=&70 THEN GOTO 110
  100 GOTO 60
  110 A%=&F4
  120 ON ERROR IF ERR =255 THEN GOTO 150
  130 PRINT"Searching for &FF";~A%
  140 *BFIND8000C000A%&FF
  150 VDU 3
  160 END