\ ********************************************************************* \ * * \ * 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 ;