@@ -17,29 +17,30 @@ make-banner: func [
17
17
] [
18
18
if string? fmt [return fmt] ; aleady built
19
19
str: make string! 2000
20
- star: format/pad [$30.107 74 $0 ] "" #"* "
20
+ append str format/pad [$0 #"╔" 74 "╗ ^/ " ] "" #"═ "
21
21
22
- spc: format [$30.107 "**" 70 "**" $0 ] ""
23
- sf: [$30.107 "** " $35 68 $30.107 "**" $0 ]
22
+ spc: format [#"║" $30.107 74 $0 #"║" ] ""
23
+ sf: [#"║" $30.107 " " $35 72 $30.107 $0 #"║" ]
24
24
parse fmt [
25
25
some [
26
26
[
27
27
set a string! (s: format sf a)
28
28
| set a block! (s: format sf ajoin a)
29
29
| '= set a [string! | word! | set-word! ] [
30
- b:
30
+ b:
31
31
path! (b: get b/1 )
32
32
| word! (b: get b/1 )
33
33
| block! (b: reform b/1 )
34
34
| string! (b: b/1 )
35
35
]
36
- (s: either none? b [none][format [$30.107 "** " $32 11 $31 55 $30 "**" $0 ] reduce [a b]])
36
+ (s: either none? b [none][format [#"║" $30.107 " " $32 11 $31 59 $30 $0 #"║" ] reduce [a b]])
37
37
| '* (s: star)
38
38
| '- (s: spc)
39
39
]
40
40
(unless none? s [append append str s newline])
41
41
]
42
42
]
43
+ append str format/pad [#"╚" 74 "╝^/ " ] "" #"═"
43
44
str
44
45
]
45
46
@@ -49,7 +50,6 @@ if #"/" <> first system/options/home [
49
50
]
50
51
51
52
sys/boot-banner: make-banner [
52
- *
53
53
-
54
54
["REBOL 3." system/version/2 #"." system/version/3 " (Oldes branch)" ]
55
55
-
@@ -63,11 +63,9 @@ sys/boot-banner: make-banner [
63
63
-
64
64
= Home: [to-local-file system/options/home ]
65
65
-
66
- *
67
66
]
68
67
69
68
system/license: make-banner [
70
- *
71
69
-
72
70
= Copyright: "2012 REBOL Technologies"
73
71
= "" "2012-2021 Rebol Open Source Contributors"
@@ -76,7 +74,6 @@ system/license: make-banner [
76
74
-
77
75
= Notice: "https://github.com/Oldes/Rebol3/blob/master/NOTICE"
78
76
-
79
- *
80
77
]
81
78
82
79
0 commit comments