1! BLISS: SLOC=21 LLOC=0
2! From the Wikipedia article on BLISS
3MODULE E1 (MAIN = CTRL) =
4BEGIN
5FORWARD ROUTINE
6    CTRL,
7    STEP;
8ROUTINE CTRL =
9!+
10! This routine inputs a value, operates on it, and
11! then outputs the result.
12!-
13    BEGIN
14    EXTERNAL ROUTINE
15        GETNUM,     ! Input a number from terminal
16        PUTNUM;     ! Output a number to terminal
17    LOCAL
18        X,          ! Storage for input value
19        Y;          ! Storage for output value
20    GETNUM(X);
21    Y = STEP(.X);
22    PUTNUM(.Y)
23    END;
24ROUTINE STEP(A) =
25!+
26! This routine adds 1 to the given value.
27!-
28    (.A+1);
29END
30ELUDOM
31