Trailing-Edge
-
PDP-10 Archives
-
decuslib10-06
-
43,50406/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