Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
BEGIN
ARRAY todos[10]; INTEGER count;
count := 0;
PROCEDURE addTask(task);
BEGIN
todos[count] := task; count := count + 1;
OutText("Todos: "); OutInt(count,0); OutImage;
END addTask;
PROCEDURE removeTask(idx);
BEGIN
INTEGER i;
FOR i := idx STEP 1 UNTIL count-2 DO todos[i] := todos[i+1] END;
count := count - 1;
END removeTask;
addTask("Buy milk");
addTask("Write Simula code");
removeTask(0);
ENDCoding works best on desktop or with an external keyboard.