Update headers, fix more.

examples/gemini/gemini.fs

@@ -1,4 +1,16 @@
-#! /usr/bin/env ueforth
+\ Copyright 2024 Bradley D. Nelson
+\
+\ Licensed under the Apache License, Version 2.0 (the "License");
+\ you may not use this file except in compliance with the License.
+\ You may obtain a copy of the License at
+\
+\     http://www.apache.org/licenses/LICENSE-2.0
+\
+\ Unless required by applicable law or agreed to in writing, software
+\ distributed under the License is distributed on an "AS IS" BASIS,
+\ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+\ See the License for the specific language governing permissions and
+\ limitations under the License.
 
 needs arrays.fs
 needs json.fs
@@ -20,7 +32,7 @@ vocabulary gemini also json also arrays also gemini definitions
    }}
 ;
 
-s" What's the time?" askit >json a.
+r| What's the "time"?| askit adup a. cr cr >json a. cr cr
 
 0 [IF]
 HTTPClient
@@ -28,15 +40,6 @@ NetworkClientSecure.new constant nclient
 
 : 2constant create , , does> dup cell+ @ swap @ ;
 
-: slurp-file ( a n -- a n )
-  r/o open-file throw >r
-  r@ file-size throw ( sz )
-  dup 1+ allocate throw swap ( data sz )
-  2dup r@ read-file throw drop
-  r> close-file throw
-  2dup + 0 swap c!
-;
-
 s" /spiffs/gemini_cert" slurp-file drop constant cacert
 s" /spiffs/gemini_url" slurp-file drop constant url
 s" /spiffs/question" slurp-file 2constant question