@] SKOLMAN_MWS ˇ agrEssOr [, post #2
<CHRP-BOOT>
<COMPATIBLE>
MacRISC MacRISC3 MacRISC4
</COMPATIBLE>
<BOOT-SCRIPT>
: my-max-boot-num 2 ;
: my-boot-default 1 ;
: my-boot-delay d# 100 ; \ unit = 100 ms
: my-print-menu ( -- )
." Boot selector menu" cr
." MorphOS " cr
." 1: MorphOS " cr
." 2: OSX " cr
;
: my-boot-case ( num -- )
case
1 of " hd:2,\boot.img rd" endof
2 of " hd:6,\\:tbxi" endof
endcase
['] $boot catch drop
user-abort
;
: my-input-num ( wait-period max-boot-num default-num -- boot-num )
1 \ loop-inc = 1
3 pick 0 do
0d emit
." press 1-"
( wait-period max-boot-num default-num loop-inc )
2 pick ascii 0 + emit
dup 1 = if
." within "
3 pick i - d# 10 / .d
." seconds"
then
." (default: "
over ascii 0 + emit
." ) : "
d# 100 ms
key? if
key
( wait-period max-boot-num default-num loop-inc key )
dup 0d = if \ return pressed
drop leave
then
ascii 0 -
( wait-period max-boot-num default-num loop-inc num )
dup 1 5 pick
( wait-period max-boot-num default-num loop-inc num num 1 max-boot-num )
between if
rot drop swap leave
then
( wait-period max-boot-num default-num loop-inc num )
2drop 0 \ loop-inc = 0
then
dup +loop
drop
( wait-period max-boot-num boot-num )
nip nip
;
load-base release-load-area
stdout @ 0 = if
false to _normal-boot install-console
then
true to use-console? false to ignore-output?
dev /multiboot
flash-dev-icon-off
device-end
erase-screen
my-print-menu
my-boot-delay my-max-boot-num my-boot-default my-input-num
my-boot-case
</BOOT-SCRIPT>Przytrzymanie lewego bądź prawego klawisza shift też nie pomaga?
Odepnij huba i zobacz z tymi klawiszami. Chociaż wątpie, że to przez huba.
@R-Tea, post #4
boot _nazwa_dysku_:,\boot.img bm
boot hd:,\boot.img bm
dev /aliases .properties
@] SKOLMAN_MWS ˇ agrEssOr [, post #18
@Norbert, post #16
Czekamy na odzew ze strony R-tea.
@R-Tea, post #22
Efekt jest połowiczny. Owszem, mam już boot menu, ale odpala się ono zawsze - nawet, gdy go nie chcę i niczego nie dotykam na klawiaturze czy myszce.