100REM ROMStatus
  200REM Print Status on paged ROMs from table held in RAM
  300REM Uses OSW5 for Tube compatibility
  400REM (C) Ian Wolstenholme 2024
  500REM Version 1.0 6/v/2024
  600REM God save The King!
  700REM Done on Station 201
  800REM N.B. results appear to have no meaning on M128
  900DIMosblock 8,rominfo 16
 1000romtable=&DF0:REM Fixed in all OS versions
 1100PRINT"ROM Status Table at &";~romtable;":"
 1200FORB%=15TO0STEP-1
 1300rominfo?B%=FNosw5(romtable+B%)
 1400PRINT"ROM ";:IFB%<10 PRINT"0";
 1500PRINT;B%;TAB(7);"&";:IFrominfo?B%<16 PRINT"0";
 1600PRINT;~rominfo?B%;"  ";
 1700IF(rominfo?B% AND 2^7)PRINT"Disabled" ELSE PRINT"Enabled"
 1800NEXT
 1900END
 2000DEFFNosw5(iolocation)
 2100A%=5
 2200X%=osblock
 2300Y%=X% DIV256
 2400!osblock=&FFFF0000+iolocation
 2500CALL&FFF1
 2600=osblock?4