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
24
25
PROGRAM TodoList;
INTEGER COUNT := 0;
CHARACTER TODOS(10,20);
PROCEDURE ADD(TASK);
BEGIN
TODOS(COUNT) := TASK;
COUNT := COUNT + 1;
PUT('Todos count: ' || COUNT);
END ADD;
PROCEDURE REMOVE(IDX);
INTEGER I;
BEGIN
FOR I := IDX TO COUNT-2 DO
TODOS(I) := TODOS(I+1);
END;
COUNT := COUNT - 1;
END REMOVE;
BEGIN
CALL ADD('Buy milk');
CALL ADD('Write JOVIAL code');
CALL REMOVE(0);
END TodoList;Coding works best on desktop or with an external keyboard.