@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