Anonymous user
Runtime evaluation/In an environment: Difference between revisions
→{{header|Simula}}
Line 835:
CLASS ITEM(N, X); TEXT N; REAL X;
BEGIN
END ITEM;
Line 852 ⟶ 853:
PROCEDURE SET(V, X); TEXT V; REAL X;
BEGIN
REF(ITEM) I
IF I == NONE THEN
▲ HEAD :- NH;
END SET;
Line 887 ⟶ 884:
REAL PROCEDURE CALC(OPERATOR, ERR); CHARACTER OPERATOR; LABEL ERR;
BEGIN
REAL X, Y
IF OPERATOR = '+' THEN PUSH(Y + X)
ELSE IF OPERATOR = '-' THEN PUSH(Y - X)
| |||