10 IFATHENSYS52243
20 D=PEEK(186):A=-1:LOAD"ULTIMON.L",D,1