Counter and heme Toggle - Jovial Typing CST Test

Counter and heme Toggle — Jovial Code

Demonstrates a simple counter with theme toggling using JOVIAL variables and procedures.

PROGRAM CounterTheme;

INTEGER COUNT := 0;
BOOLEAN ISDARK := FALSE;

PROCEDURE UPDATEUI;
BEGIN
	PUT('Counter: ' || COUNT);
	IF ISDARK THEN
		PUT('Theme: Dark');
	ELSE
		PUT('Theme: Light');
	END;
END UPDATEUI;

PROCEDURE INCREMENT;
BEGIN
	COUNT := COUNT + 1;
	CALL UPDATEUI;
END INCREMENT;

PROCEDURE DECREMENT;
BEGIN
	COUNT := COUNT - 1;
	CALL UPDATEUI;
END DECREMENT;

PROCEDURE RESET;
BEGIN
	COUNT := 0;
	CALL UPDATEUI;
END RESET;

PROCEDURE TOGGLETHEME;
BEGIN
	ISDARK := NOT ISDARK;
	CALL UPDATEUI;
END TOGGLETHEME;

BEGIN
	CALL UPDATEUI;
	CALL INCREMENT;
	CALL INCREMENT;
	CALL TOGGLETHEME;
	CALL DECREMENT;
	CALL RESET;
END CounterTheme;

Jovial Language Guide

JOVIAL (Jules Own Version of the International Algorithmic Language) is a high-level programming language derived from ALGOL, designed in the late 1950s and early 1960s for embedded and real-time military systems. It emphasizes structured programming and reliability for mission-critical applications.

More Jovial Typing Exercises

Practice Other Languages