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