Add options page scrolling

src/Dodge/Initialisation.hs

@@ -40,6 +40,7 @@ initialWorld = defaultWorld
 --    , _menuLayers = [TerminalScreen 300 rezText']
     }
 
-testStringInit :: World -> [String]
+testStringInit :: Configuration -> World -> [String]
+testStringInit cfig _ = [show $ _windowY cfig]
 --testStringInit = map (show . _drStatus) . IM.elems . _doors
-testStringInit = const [] 
+--testStringInit = const . const []