Trailing-Edge
-
PDP-10 Archives
-
decuslib20-03
-
decus/20-0089/exeter.scm
There are no other files named exeter.scm in the archive.
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.
**************