$inc fvmstd.fp

proc main
  "  /----------------------\ " :puts :newline
  0 @skip
  while &skip not do
    "  | " :puts
    0 @i
    while &i 20 u< &skip not band do
      :getchar @c
      if &c 0x0A == &c 0x00 == &c 0xFF == bor bor then
        1 @skip
      endif
      if &skip not then
        &c :putchar
        &i 1 u+ @i
      endif
    endwhile
    while &i 20 u< do
      0x20 :putchar
      &i 1 u+ @i
    endwhile
    " |" :puts :newline
  endwhile
  "  \----------------------/ " :puts :newline
  "                           " :puts :newline
  "             \             " :puts :newline
  "              \            " :puts :newline
  "  (\ (\                    " :puts :newline
  "   \\_\\__,                " :puts :newline
  "   /       \               " :puts :newline
  "  |     .  .\              " :puts :newline
  "   \      Y |              " :puts :newline
  "   |      ' /              " :puts :newline
  "   /        |              " :puts :newline
  " ((         /              " :puts :newline
  "   ``'-,_>UU               " :puts :newline
endproc