Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0104/twoper.bas
There are 2 other files named twoper.bas in the archive. Click here to see a list.
00010 REM TWOPER NADDOR JAN 76
00100 PRINT "FILE";
00110 INPUT F$
00120 IF F$="STOP" THEN 999
00130 FILE #1,F$
00140 PRINT
00200 IF END #1 THEN 100
00210 READ #1,A$,S1,B$,S2
00220 IF A$>B$ THEN 400
00300 PRINT A$,S1
00310 PRINT B$,S2
00320 GOTO 500
00400 PRINT B$,S2
00410 PRINT A$,S1
00500 PRINT
00510 PRINT "AVERAGE",(S1+S2)/2
00520 PRINT
00530 PRINT
00540 GOTO 200
00999 END