@alekc, post #33
.key changebootpri .def changebootpri c:changebootpri c:assign t: ram: set choice `requestchoice "Start device" "*nPlease select system:" "OS 3.9|OS 4.0|MorphOS|Abort"` c:assign t: ram: remove if $choice eq 0 skip quit endif if $choice eq 1 ; OS 3.9>nil: HD0 0 ; OS 4.0 >nil: HD1 1 ; OS 3.9 >nil: HD2 0 ; MorphOS set dev "HD0 / OS 3.9" C:Reboot endif if $choice eq 2 ; OS 4.0 >nil: HD0 1 ; OS 4.0 >nil: HD1 0 ; OS 3.9 >nil: HD2 0 ; MorphOS set dev "HD1 / OS 4.0" endif if $choice eq 3 ; MorphOS >nil: HD0 0 ; OS 4.0 >nil: HD1 0 ; OS 3.9 >nil: HD2 1 ; MorphOS set dev "HD2 / MorphOS" C:Reboot endif lab quit