|
Lines 93-99
Link Here
|
| 93 |
at-xy ." `--{__________)" |
93 |
at-xy ." `--{__________)" |
| 94 |
; |
94 |
; |
| 95 |
|
95 |
|
|
|
96 |
: print-banner ( x y -- ) |
| 97 |
2dup at-xy ." " 1+ |
| 98 |
2dup at-xy ." " 1+ |
| 99 |
2dup at-xy ." ______" 1+ |
| 100 |
2dup at-xy ." / ____/_______ ___" 1+ |
| 101 |
2dup at-xy ." / /_ / ___/ _ \/ _ \" 1+ |
| 102 |
2dup at-xy ." / __/ / / / __/ __/" 1+ |
| 103 |
2dup at-xy ." /_/ /_/ \___/\___/" 1+ |
| 104 |
2dup at-xy ." " 1+ |
| 105 |
2dup at-xy ." ____ _____ ____" 1+ |
| 106 |
2dup at-xy ." / __ ) ___// __ \" 1+ |
| 107 |
2dup at-xy ." / __ \__ \/ / / /" 1+ |
| 108 |
2dup at-xy ." / /_/ /__/ / /_/ /" 1+ |
| 109 |
at-xy ." /_____/____/_____/" |
| 110 |
exit |
| 111 |
; |
| 112 |
|
| 96 |
: print-beastie ( x y -- ) |
113 |
: print-beastie ( x y -- ) |
|
|
114 |
s" loader_banner" getenv |
| 115 |
dup -1 = if |
| 116 |
drop |
| 117 |
print-banner |
| 118 |
exit |
| 119 |
then |
| 120 |
s" YES" compare-insensitive 0= if |
| 121 |
print-banner |
| 122 |
exit |
| 123 |
then |
| 97 |
s" loader_color" getenv |
124 |
s" loader_color" getenv |
| 98 |
dup -1 = if |
125 |
dup -1 = if |
| 99 |
drop |
126 |
drop |