@ Compare ROM module version numbers and versions in !System > unplugging ROM versions if they are older. Version 0.03 3 Copyright (C) Acorn Computers Ltd. 1997-1998. ( 2: :=42 , $ + " (Internal code "+Þ+")" <3ș "OS_SWINumberFromString",,"OS_Module" osm% F2ș "OS_SWINumberFromString",,"OS_GBPB" gbpb% P1ș "OS_SWINumberFromString",,"OS_Find" osf% Z1ș "OS_SWINumberFromString",,"XOS_CLI" cli% d n9 hdr%&1C,hmem%256:: mod$,file$:file$=""file$=mod$ x5_check(mod$,"System:Modules.Toolbox."+file$):  ) _check(mod$,file$): : : ,rom%=_find_rom_version(mod$): rom%<0 Iș osf%, &4B, file$ f%: f%<>0:_verify(mod$, f%, rom%):ș osf%,,f%    _verify(mod$, f%, rom%)  ver$: : : 2ș gbpb%, 4, f%, hdr%, &18 ,,,no%: no%<>0 help%=hdr%!&14: help%=0: Aș gbpb%, 3, f%, hmem%, 256, help% ,,,no%:hmem%?(256-no%)=0 ;ș &2002B,hmem% ver$:ver%=ver(ver$): rom%>=ver% 9mod$<>"Toolbox" ș cli%, "Unplug "+mod$::_tboxkill   , ver(h$): count%, maj%, min%:count%=0 ""ȕ (h$<48h$>57) count%<16 ,- h$=9:count%=(count%+8)7::count%+=1 6 h$=h$,2): h$="":=-1 @ JBmaj%=h$:maj%<0maj%>99:::maj%=((maj%10)+16*(maj%10))<<16 T/ȕ h$>=48h$<58h$=h$,2)::h$<>46:=maj% ^6min%=h$,2):=maj% (((min%10)+16*(min%10))<<8) h r9 _find_rom_version(mod$): mod%, sec%: : :=-1 |mod%=0:sec%=-1:ȕ T ș osm%, 20, mod%, sec% ,mod%,sec%,name$,,,version%: mod$=name$ =version%  :=-1  )_tboxkill: mod$,f$: : : < +0:: mod$,f$:ș cli%,"Unplug "+mod$: mod$="Toolbox"    "Iconbar",""  "ColourDbox",""  "ColourMenu",""  "DCS", "DCS_Quit"  "FileInfo", ""  "FontDbox",""  "FontMenu",""  "PrintDbox",""  "ProgInfo","" & "SaveAs","" 0 "Scale","" : "ToolAction","" D "Menu","" N "Window","" X "Toolbox", ""