0010 INPUT "FILE";F$
0020 INPUT "1st,LAST #";A,B
0030 ASSIGN #1 TO F$
0040 FOR I=A TO B
0050 READ #1,I+4;N,E,Z
0060 E=E*-1
0070 PRINT #1,I+4;N,E,Z
0080 NEXT I
0090 END 
