prepare for use over the radio

client.rkt

@@ -190,6 +190,7 @@
         [(and (>= status 10) (<= status 19))
          (displayln "input requested")
          (display "? ")
+         (flush-output)
 
          (get-document
           (struct-copy

gem300.rkt

@@ -9,6 +9,8 @@
 (define (repl)
   (display "G-300 > ")
 
+  (flush-output)
+
   (with-handlers
     ([(or/c exn:fail:user?
             ;; todo: catch these errors separately and reformat them
@@ -46,7 +48,20 @@
            (list _ "b" _))
        (send client back-cmd)]
 
+      [(or (list _ "quit" _)
+           (list _ "q" _ ))
+       (exit)]
+
       [else
        (displayln "no such command")]))
 
   (repl))
+
+(displayln
+ (string-append "welcome to gem300, a gemini client.\n"
+                "to learn more, type:\n"
+                "'go w6vvn.flounder.online/gem300/tutorial.gmi'"))
+
+(flush-output)
+
+(repl)