787 L ABLEN1LIN2LINE1LIN1LINE2NUMFRLINELINEADR@@@ oo 場 庠Ԯ°%%*** SORT OUT ***%%*** By GENE KRAJCA 3/26/81 ***EE*** This program will compare a revised program with the ##original.It will separate the ""changes, recording them in a llfile, e.g. "̮Ȱ" WAS created in this manner. ************************** @@1.STORE THE ORIGINAL PROGRAM AS ԠĺǮ̢.@@2.STORE THE REVISED PROGRAM AS ԠĺĮ̢``3.LOAD AND RUN "Ԡ". THE CHANGES WILL BE FOUND IN "Ǯ".II*** A$ HOLDS ORIGINAL LINE B$ HOLDS BLENDED LINE ***2%%*** OPEN FILES -- #1 = ORIGINAL3$$*** -- #2 = BLENDED4$$*** -- #3 = CHANGES57V;@,-(DO YOU WANT INSTRUCTIONS1A4Y)4YESS@V<RR;AU,;AU,9@W,9@W,;@,;@,;@ ,A++@@ D:ORIG.FILF,,@@ D:BLEND.FILP,,@@ D:CHANG.FILdi*** START LINE BY LINEjCOMPARISON. ***kn# A#*** Strip 1st # ***x# A#*** Strip 2nd # *** 6-A:,6-A:, " A    A0 ! A@LQ*** SUBROUTINE ***RGET BLENDED LINE #SV" 6.  AP"@`-@@j+68,-@:7<,,+8,"@2A`t#6.>:8,,#67B:,%@,.~ :$:*** LINE1$ HOLDS 1st LINE #. ****** SUBROUTINE ***GET BLENDED LINE #" 6.  AP"@-@@+68,-@:7<,,+8,"@2A`#6.>:8,,#67B:,%@,. :$:*** LINE2$ HOLDS 2nd LINE ". ****** SUBROUTINE ***COMPARE A$ WITH B$ 4 A 0 @ A  *** SUBROUTINE *** DELETE LINE1$, FILE B$  $(@ A$ A0*** SUBROUTINE ***FILE B$, GET NEXT LINE2(@ A" 4 (@" A` A0*** SUBROUTINE ***CLOSING ROUTINE4 *4 A`, 4 (@" B, Ap Bz$@@$@(} SORTING COMPLETE D:SORTOUT.B01