Modula-3 Counter and Theme Toggle - Modula3 Typing CST Test

Modula-3 Counter and Theme Toggle — Modula3 Code

Demonstrates a simple counter with theme toggling using Modula-3 variables, procedures, and safe I/O.

MODULE CounterTheme;

IMPORT IO;

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

PROCEDURE updateUI():=BEGIN
	IO.Put("Counter: "); IO.PutInt(count, 0); IO.PutLn();
	IF isDark THEN
		IO.PutLn("Theme: Dark")
	ELSE
		IO.PutLn("Theme: Light")
	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.

Modula3 Language Guide

Modula-3 is a high-level, statically typed programming language designed for safe systems programming, modularity, and object-oriented programming. It emphasizes simplicity, safety, and readability while providing features suitable for building large, robust software systems.

More Modula3 Typing Exercises

Practice Other Languages