blob: c6b22fc9a9743d4f3182cd7bf04cf22167a9e866 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
module m_constants
integer, parameter::ROWS = 22
integer, parameter::COLUMNS = 10
integer, parameter::ROW_VALUE = 100
integer, parameter::DOWN = 1
integer, parameter::LEFT = 2
integer, parameter::RIGHT = 3
integer, parameter::SCREEN_W = 640
integer, parameter::SCREEN_H = 480
real, parameter::UPDATE_SECONDS = 0.4
end module m_constants
|
