diff options
Diffstat (limited to 'templates/yaboot/pegasos')
-rw-r--r-- | templates/yaboot/pegasos | 90 |
1 files changed, 0 insertions, 90 deletions
diff --git a/templates/yaboot/pegasos b/templates/yaboot/pegasos deleted file mode 100644 index a84396a42..000000000 --- a/templates/yaboot/pegasos +++ /dev/null @@ -1,90 +0,0 @@ -\ FORTH is identifed by a forth comment at first line -\ -\ terminal control stuff -\ -: TTY.CSI d# 27 EMIT ASCII [ EMIT ; -: TTY.HOME TTY.CSI ASCII H EMIT ; -: TTY.CLR_EOS TTY.CSI ASCII J EMIT ; -: TTY.HOME_CLR TTY.HOME TTY.CLR_EOS ; -\ -\ boot menu stuff -\ -: my-max-boot-num 4 ; -: my-boot-default 1 ; -: my-boot-delay d# 300 ; \ unit = 100 ms -: my-print-menu ( -- ) - TTY.HOME_CLR - ." " cr - ." Welcome to Debian GNU/Linux!" cr - ." " cr - ." This is a Debian Live CDROM," cr - ." built on LB_DATE." cr - ." " cr - ." The default option is 'live'." cr - ." " cr - ." ************************************" cr - ." If in doubt, just choose (1) 'live'" cr - ." ************************************" cr - ." " cr - ." 1: install" cr - ." 2: install" cr - ." 3: expert" cr - ." 4: rescue" cr - ." 5: return to OF prompt" cr - ." " cr -; -: my-boot-case ( num -- ) - ." " cr - case - 1 of " cd live/vmlinuz-chrp.initrd --" endof - 2 of " cd install/powerpc/vmlinuz-chrp.initrd --" endof - 3 of " cd install/powerpc/vmlinuz-chrp.initrd DEBCONF_PRIORITY=low --" endof - 4 of " cd install/powerpc/vmlinuz-chrp.initrd rescue/enable=true --" endof - 5 of " none" endof - endcase - $boot -; -: 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 -; - - -my-print-menu -my-boot-delay my-max-boot-num my-boot-default my-input-num -my-boot-case |