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

1 REM	STRIP	RAINER VON SALESKI	FEBRUARY 1975
 
	REMOVES LEADING LINE NUMBERS FROM A REMARKS 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 ON ERROR GO TO 90
35 INPUT LINE #1, L$
40 A%=ASCII(L$)
45 IF A%=9% OR A%=32% OR (A%>=48% AND A%<=57%) 
      THEN L$=RIGHT(L$,2%): GO TO 40
50 L$=RIGHT(L$,4%) IF LEFT(L$,3%)="REM"
55 L$=RIGHT(L$,2%) IF LEFT(L$,1%)="!"
60 L$=CVT$$(L$,8%)
65 PRINT #2%,L$;
70 GO TO 35
90 ON ERROR GO TO UNLESS ERR=11 AND ERL=35
95 CLOSE 1,2
99 END
U'+