require screens.fs

: user-wait ." Press ANY key to continue!" print-nl key drop ;

: user-wait-key ( key -- )
  begin key over <> while repeat drop
  ;

: user-ask-game ( -- mode )
  ." Press ENTER to start   Press H for help   Press Q to quit"

  begin
    key
    case
      13 of 1 endof
      113 of 0 endof
      104 of 2 endof
      -1 swap
    endcase
    \ ." Selected: " dup . print-nl
  dup 0 < while repeat
  print-nl
;


: user-ask-start-menu
  begin
    user-ask-game
    dup
    case
      0 of clear-screen bye endof
      2 of help-screen endof
    endcase
  1 = until
  ;