Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0104/comput.alg
There are 2 other files named comput.alg in the archive. Click here to see a list.
 BEGIN COMMENT COMPUT.ALG BORCHEK/NADDOR JAN 76;
 REAL A,B,X1,X2,X3,X4,X5,X6,X7,X8;STRING P;
 P:="  A+B   A-B     A*B     A/B     A^B   MIN   MAX   HYP";
 WRITE("[2CB]");SPACE(10);WRITE(P);
 WRITE ("[2CB]");
  L100: WRITE("A,B? [B]");
 READ(A,B);
 X1:=A+B;
 X2:=A-B;
 X3:=A*B;
 X4:=A/B;
 X5:=A^B;
 IF A>B THEN GOTO L300;
 X6:=A;
 X7:=B;
 GOTO L320;
  L300: X6:=B;
 X7:=A;
  L320: X8:=SQRT(A^2+B^2);
 SPACE(9);PRINT(X1,3,1);PRINT(X2,3,1);PRINT(X3,4,2);PRINT(X4,3,3);
 PRINT(X5,7,0);PRINT(X6,3,1);PRINT(X7,3,1);PRINT(X8,3,1);
 WRITE("[3CB]");
 GOTO L100;
 END