diff --git a/example/Atua-WWW.forth b/example/Atua-WWW.forth
index 2f0c814..f2b51a6 100755
--- a/example/Atua-WWW.forth
+++ b/example/Atua-WWW.forth
@@ -282,6 +282,7 @@ The `gopher:icon` displays an indicator for menu items.
]
[ PATH DEFAULT-INDEX s:append &Server-Info v:on ] choose
;
+
:gopher:read-file (f-s)
file:R file:open !FID
buffer buffer:set
@@ -303,15 +304,20 @@ The `gopher:icon` displays an indicator for menu items.
:gopher:generate-index (f-)
'Content-type:_text/html puts eol eol
- ' puts eol eol
+ ' puts eol
+ '
puts
+ 'tt_{_white-space:_pre;_} puts
+ '_*_{_color:_#bbb;_background:_#090909;_font-size:_large;_}_a_{_color:_#FF6600;_} puts
+ 'forthworks.com puts eol eol
file:R file:open !FID
@FID file:size !Size
[ buffer gopher:gets
buffer tab? [ [ link ] html:tt eol ] [ gopher:i ] choose
@FID file:tell @Size lt? ] while
@FID file:close
+ [ #70 [ $_ putc ] times ] html:tt html:br eol
+ 'forthworks.com:80_/_atua-www_/_running_on_retro gopher:i
+ ' puts
;
````
@@ -335,8 +341,6 @@ The only thing left is the top level server.
gopher:file-for-request
@Server-Info
[ gopher:generate-index
- [ #70 [ $_ putc ] times ] html:tt html:br eol
- 'forthworks.com:80_/_atua-www_/_running_on_retro gopher:i
````
' puts
'Light_on_Dark_or_ puts