Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0104/twoper.alg
There are 2 other files named twoper.alg in the archive. Click here to see a list.
 BEGIN COMMENT TWOPER.ALG NADDOR JAN 76;
 STRING A,B,F; REAL S1,S2; FORWARD L900; TRAP(38,L900);
 INPUT(0,"TTY"); INPUT(1,"DSK");
  L100: WRITE("[C]FILE? [B]");
 SELECTINPUT(0);READ(F);
 IF F="STOP" THEN GOTO L999;
 OPENFILE(1,F); SELECTINPUT(1);
 WRITE("[C]");
  L200: READ(A,S1,B,S2);
 IF A>B THEN GOTO L400;
 WRITE(A);PRINT(S1,3,3);WRITE("[CB]");
 WRITE(B);PRINT(S2,3,3);
 GOTO L500;
  L400:WRITE(B);PRINT(S2,3,3);WRITE("[CB]");
 WRITE(A);PRINT(S1,3,3);
  L500: WRITE("[2C]");
 WRITE("AVERAGE   ");PRINT((S1+S2)/2,3,3);
 WRITE("[3CB]");
 GOTO L200;
  L900: CLOSEFILE(1);GOTO L100;
  L999:END