10 ! PULAVERAG
20 DIM I$[100]V,F$[32]V
30 INPUT "INPUT FILE NAME  ",F$ :
	OPEN #4,F$+"/LN:100/RO/EN:110"
40 INPUT "OUTPUT FILE NAME ",F$ :
	OPEN #5,F$+"/LN:100/WR"
50 INPUT LINE #4,I$
60 IF POS(I$,"BILL FOR FISCAL")>0 THEN DA=POS(I$,"--") :
					PRINT #5,SBS$(I$,DA+3)
70 IF POS(I$,"TOTAL HOURS")>0 THEN PRINT #5,I$
80 IF POS(I$,"$ CHARGE")>0 THEN PRINT #5,I$
90 IF POS(I$,"TOTAL $")>0 THEN PRINT #5,I$
100 GOTO 50
110 CLOSE
120 EXIT
