10 DIM I$[52],J$[8]V
20 OPEN #3,"STO.LST/EN:200"
30 INPUT LINE #3,J$ : PRINT J$
40 OPEN #4,J$+".STO/RN/LN:52/MO"
50 FOR J=NRC(4)-5 TO NRC(4)
60	IF J<0 THEN 110
70	INPUT LINE #4@J,I$
80	IF LEFT(I$,9)="14-NOV-82" THEN CALL "INSTRG"(I$,"15-NOV-82",1,9) :
		PRINT I$
90	IF LEFT(I$,9)="12-DEC-82" THEN CALL "INSTRG"(I$,"14-NOV-82",1,9) :
		PRINT I$
100	PRINT #4@J,I$
110 NEXT J
120 CLOSE 4
130 GOTO 30
200 CLOSE
210 EXIT