PageRenderTime 72ms CodeModel.GetById 32ms RepoModel.GetById 1ms app.codeStats 0ms

/patches/RELENG_7_1/beastie.4th

https://github.com/billm/pfsense-tools-centipede-slbd
Forth | 69 lines | 67 code | 2 blank | 0 comment | 0 complexity | c3c63dd11e8d024027f1b55424519861 MD5 | raw file
    

  1. Index: beastie.4th
    2. 

  2. ===================================================================
    3. 

  3. RCS file: /home/ncvs/src/sys/boot/forth/beastie.4th,v
    4. 

  4. retrieving revision 1.12
    5. 

  5. diff -u -r1.12 beastie.4th
    6. 

  6. --- beastie.4th	31 Mar 2006 21:36:17 -0000	1.12
    7. 

  7. +++ beastie.4th	10 Nov 2008 00:32:23 -0000
    8. 

  8. @@ -94,19 +94,20 @@
    9. 

  9.  ;
    10. 

  10.  
    11. 

  11.  : fbsdbw-logo ( x y -- )
    12. 

  12. -	2dup at-xy ."      ______" 1+
    13. 

  13. -	2dup at-xy ."     |  ____| __ ___  ___ " 1+
    14. 

  14. -	2dup at-xy ."     | |__ | '__/ _ \/ _ \" 1+
    15. 

  15. -	2dup at-xy ."     |  __|| | |  __/  __/" 1+
    16. 

  16. -	2dup at-xy ."     | |   | | |    |    |" 1+
    17. 

  17. -	2dup at-xy ."     |_|   |_|  \___|\___|" 1+
    18. 

  18. -	2dup at-xy ."      ____   _____ _____" 1+
    19. 

  19. -	2dup at-xy ."     |  _ \ / ____|  __ \" 1+
    20. 

  20. -	2dup at-xy ."     | |_) | (___ | |  | |" 1+
    21. 

  21. -	2dup at-xy ."     |  _ < \___ \| |  | |" 1+
    22. 

  22. -	2dup at-xy ."     | |_) |____) | |__| |" 1+
    23. 

  23. -	2dup at-xy ."     |     |      |      |" 1+
    24. 

  24. -	     at-xy ."     |____/|_____/|_____/"
    25. 

  25. +	2dup at-xy ."                              " 1+
    26. 

  26. +	2dup at-xy ."                             " 1+
    27. 

  27. +	2dup at-xy ."                             " 1+
    28. 

  28. +	2dup at-xy ."                 ______         " 1+
    29. 

  29. +	2dup at-xy ."                /      \        " 1+
    30. 

  30. +	2dup at-xy ."          _____/    f   \       " 1+
    31. 

  31. +	2dup at-xy ."         /     \        /       " 1+
    32. 

  32. +	2dup at-xy ."        /   p   \______/  Sense " 1+
    33. 

  33. +	2dup at-xy ."        \       /      \        " 1+
    34. 

  34. +	2dup at-xy ."         \_____/        \       " 1+
    35. 

  35. +	2dup at-xy ."               \        /       " 1+
    36. 

  36. +	2dup at-xy ."                \______/        " 1+
    37. 

  37. +	2dup at-xy ."                             " 1+
    38. 

  38. +	     at-xy ."                             "
    39. 

  39.  ;
    40. 

  40.  
    41. 

  41.  : print-logo ( x y -- )
    42. 

  42. @@ -178,11 +179,11 @@
    43. 

  43.  	clear
    44. 

  44.  	46 4 print-logo
    45. 

  45.  	42 20 2 2 box
    46. 

  46. -	13 6 at-xy ." Welcome to FreeBSD!"
    47. 

  47. -	printmenuitem ."  Boot FreeBSD [default]" bootkey !
    48. 

  48. +	13 6 at-xy ." Welcome to pfSense!"
    49. 

  49. +	printmenuitem ."  Boot pfSense [default]" bootkey !
    50. 

  50.  	s" arch-i386" environment? if
    51. 

  51.  		drop
    52. 

  52. -		printmenuitem ."  Boot FreeBSD with ACPI " bootacpikey !
    53. 

  53. +		printmenuitem ."  Boot pfSense with ACPI " bootacpikey !
    54. 

  54.  		acpienabled? if
    55. 

  55.  			." disabled"
    56. 

  56.  		else
    57. 

  57. @@ -191,9 +192,9 @@
    58. 

  58.  	else
    59. 

  59.  		-2 bootacpikey !
    60. 

  60.  	then
    61. 

  61. -	printmenuitem ."  Boot FreeBSD in Safe Mode" bootsafekey !
    62. 

  62. -	printmenuitem ."  Boot FreeBSD in single user mode" bootsinglekey !
    63. 

  63. -	printmenuitem ."  Boot FreeBSD with verbose logging" bootverbosekey !
    64. 

  64. +	printmenuitem ."  Boot pfSense in Safe Mode" bootsafekey !
    65. 

  65. +	printmenuitem ."  Boot pfSense in single user mode" bootsinglekey !
    66. 

  66. +	printmenuitem ."  Boot pfSense with verbose logging" bootverbosekey !
    67. 

  67.  	printmenuitem ."  Escape to loader prompt" escapekey !
    68. 

  68.  	printmenuitem ."  Reboot" rebootkey !
    69. 

  69.  	menuX @ 20 at-xy
    70. 

  70.