PDP-10 Archive: decus/20-0104/twoper.alg from decus_20tap4

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - 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