add garden input stub

main.fs

@@ -212,10 +212,14 @@ S" you feel like throwing some stuff into the pool." set-message
     [char] g of buy-detector endof
     endcase ;
 
+\ the word garden-input contains the input cases specifically for the garden
+: garden-input ; \ TODO stub
+
 \ the word handle-input handles input every time around the game loop.
 : handle-input 
     key? if key dup case 
     	screen @ 0= if devices-input then 
+        screen @ 1 = if garden-input then
         [char] q of exit-game endof
         [char] D of debug-console endof
         [char] > of 1 move-screen endof