Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program Counter
integer :: count = 0
logical :: isDark = .false.
print *, 'Counter:', count
print *, 'Theme:', merge('Dark','Light',isDark)
! Increment counter
count = count + 1
print *, 'Counter:', count
! Toggle theme
isDark = .not. isDark
print *, 'Theme:', merge('Dark','Light',isDark)
! Decrement counter
count = count - 1
print *, 'Counter:', count
! Reset counter
count = 0
print *, 'Counter:', count
end program CounterCoding works best on desktop or with an external keyboard.