Modula-2 Counter and Theme Toggle - Modula2 Typing CST Test

Modula-2 Counter and Theme Toggle — Modula2 Code

Demonstrates a simple counter with theme toggling using Modula-2 variables and procedures.

MODULE CounterTheme;

VAR
	count: INTEGER := 0;
	isDark: BOOLEAN := FALSE;

PROCEDURE updateUI;
BEGIN
	WriteString("Counter: "); WriteInt(count, 0); WriteLn;
	IF isDark THEN
		WriteString("Theme: Dark"); WriteLn
	ELSE
		WriteString("Theme: Light"); WriteLn;
	END;
END updateUI;

PROCEDURE increment;
BEGIN
	count := count + 1;
	updateUI;
END increment;

PROCEDURE decrement;
BEGIN
	count := count - 1;
	updateUI;
END decrement;

PROCEDURE reset;
BEGIN
	count := 0;
	updateUI;
END reset;

PROCEDURE toggleTheme;
BEGIN
	isDark := NOT isDark;
	updateUI;
END toggleTheme;

BEGIN
	updateUI;
	increment;
	increment;
	toggleTheme;
	decrement;
	reset;
END CounterTheme.

Modula2 Language Guide

Modula-2 is a statically typed, modular, procedural programming language designed for systems programming and teaching structured programming concepts, created as a successor to Pascal.

More Modula2 Typing Exercises

Practice Other Languages