Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
DECLARE todos CHAR(20) DIM(10);
DECLARE count FIXED BINARY(31) INITIAL(0);
ADD: PROCEDURE(task);
todos(count) = task;
count = count + 1;
PUT SKIP LIST('Todos count: ', count);
END ADD;
REMOVE: PROCEDURE(idx);
DO i = idx TO count-2;
todos(i) = todos(i+1);
END;
count = count - 1;
END REMOVE;
/* Simulate actions */
CALL ADD('Buy milk');
CALL ADD('Write PL/I code');
CALL REMOVE(1);Coding works best on desktop or with an external keyboard.