\ *********************************************************************
\ *                                                                   *
\ * pc-hd.fth                                                         *
\ *                                                                   *
\ * Disketten-Bootmanager zum Booten einer PC-HD unter Turbo-FORTH-83 *
\ *                                                                   *
\ * Fred Behringer     -     Forth-Gesellschaft      -     01.09.2010 *
\ *                                                                   *
\ * Aufruf: boot pc-hd                                                *
\ *                                                                   *
\ *********************************************************************

\ PC-HD soll heissen:
\ Zugrunde gelegt wird ein 80x86-Rechner mit der Bootfestplatte HD.

\ 'boot' ist das anzufertigende DOS-Programm boot.com (siehe gleich).

\ 'pc-hd' ist das neu praesentierte, unten stehende Boot-Menue.

\ Anfertigung von boot.com (fuer Turbo-Forth-16-Bit):
\ Forth aufrufen.
\ include xxx , wobei xxx.fth das Forth-Programm-Paket aus Teil 1 ist.
\ include pc-hd , wobei pc-hd.fth das vorliegende Programm ist.
\ save-system boot.com.

\ ZF legt der Anfertigung von boot.com ein paar Huerden in den Weg. Ich
\ ueberlasse es den ZF-Fans unter den Lesern zur Uebung, eine Anpassung
\ vorzunehmen.

hex

: pc-hd ( -- )
   getmbr
   begin
     begin
       cr ." [0]: FreeDOS von Boot-Diskette"
       cr ." [1]: DOS 6.2 von Festplatte"
       cr ." [3]: Windows-XP"
       cr ." [4]: Windows-ME" cr
       cr ." [*]= Die Taste * druecken!" key
       dup 30 = if drop 0 true else
       dup 31 = if drop 1 true else
       dup 33 = if drop 3 true else
       dup 34 = if drop 4 true else drop false then then then then
     until
     cr cr ." Gebootet wird [" dup . bs emit ." ]"
        cr ." OK? (j/n)" key ascii j = if true else drop false then
   until
   dup 0 = if bye then bootpart
   ." Diskette (USB-Laufwerk?) entfernen und PC aus/einschalten/! ..."
   key ;