NUMBER.BAS[30,2]  03-Sep-75  07:02 PM

1 REM	NUMBER	RAINER VON SALESKI	FEB 1975
 
	ADDS LINE NUMBERS TO A TEXT FILE.

10 PRINT "INPUT FILE";: INPUT LINE F1$: F1$=CVT$$(F1$,7%)
15 OPEN F1$ FOR INPUT AS FILE 1
20 PRINT "OUTPUT FILE";: INPUT LINE F2$: F2$=CVT$$(F2$,7%)
25 OPEN F2$ FOR OUTPUT AS FILE 2
30 INPUT "STARTING #, STEP"; B,S
35 IF B<1 THEN B=100
40 IF S<1 THEN S=10
45 N=INT(B): S=INT(S)
50 ON ERROR GO TO 90
55 INPUT LINE #1, L$
60 L$=CVT$$(NUM$(N),2)+"!"+CHR$(9)+CVT$$(L$,8)
65 PRINT #2%, L$;
70 N=N+S
75 GO TO 55
90 ON ERROR GO TO UNLESS ERR=11 AND ERL=55
95 CLOSE 1,2
99 END
U

4