File 1)	DSK:EXETER.OLD[4,543]	created: 2000 25-Jun-1975
File 2)	DSK:EXETER.CBL[4,543]	created: 1722 14-Jul-1980

1)1	OBJECT-COMPUTER. DECSYSTEM-10.
1)	DATA DIVISION.
****
2)1	OBJECT-COMPUTER. DECSYSTEM-20.
2)	DATA DIVISION.
**************
1)1					     TOTAL-ENERGY.
1)			GO TO HELL.
****
2)1					     TOTAL-ENERGY
2)			GO TO HELL.
**************
1)1		MOVE REAL-X TO X ROUNDED.
1)		MOVE REAL-Y TO Y ROUNDED.
1)		COMPUTE NCC-1706-QUADRANT-X = X / 8.
****
2)1		MOVE REAL-X TO X.
2)		MOVE REAL-Y TO Y.
2)		COMPUTE NCC-1706-QUADRANT-X = X / 8.
**************