>L.

   10REM FindROM
   20REM Find number of ROM by its title
   30romname$="BASIC"
   40rom=FNfindrom(romname$)
   50IFrom=-1 PRINT"Not found" ELSE PRINT"ROM ";romname$;" in ROM ";rom
   60END
   70DEFFNfindrom(title$)
   80?&F7=&80:REM High byte of ROM Addr
   90Y%=15:REM Starting ROM number
  100REPEAT
  110R%=TRUE
  120?&F6=9:REM Low byte, start of ROM title
  130REPEAT
  140byte=USR&FFB9 AND 255
  150IFbyte=ASC(MID$(title$,?&F6-8,1)) ELSE R%=FALSE
  160?&F6=?&F6+1
  170UNTILR%=FALSE OR ?&F6>8+LENtitle$
  180IFR% THEN UNTILTRUE:=Y%
  190Y%=Y%-1
  200UNTILY%<0
  210=-1
>*SPOOL