100 REM do not use over 999 lines of codes.  do not use '- ' in your code.
110 CLS
120 INPUT "List file: [FILENAME.LST] (hit enter for a list)";FL$
130 IF FL$="" THEN FILES : GOTO 120
140 OPEN FL$ FOR INPUT AS #1
150 IF EOF (1) THEN 310
160 INPUT "Object file: [FILENAME.OBJ]";FO$
170 OPEN FO$ FOR OUTPUT AS #2
180 PRINT "Configuration words: 1A=CP off, PUT on, WDT off, HS OSC                         (-10 for CP on)      1D=CP off, PUT on, WDT on, XT OSC                                               19=CP off, PUT on, WDT off, XT OSC"
190 INPUT "Configuration word";CW$
200 PRINT #2, CW$
210 INPUT #1, A$
220 IF EOF(1) THEN 310
230 B$=""
240 IF MID$(A$,10,2)="- " THEN B$=MID$(A$,12,4)
250 IF MID$(A$,11,2)="- " THEN B$=MID$(A$,13,4)
260 IF MID$(A$,12,2)="- " THEN B$=MID$(A$,14,4)
270 IF B$="" THEN 210
280 PRINT #2, B$
290 PRINT B$
300 GOTO 210
310 REM
320 CLOSE #1,#2
330 END